PC LOGO 精美图案及其相应程序 第一个 setpc 2 repeat 18[repeat 2[fd 50 rt 20 fd 50 rt 160]rt 20] 第二个 draw repeat 9 [ repeat 5 [fd 25 rt 360/5]rt 360/9] 第三个 setbg 0 setpc 15 repeat 8[fd 30 lt 45 repeat 4 [fd 25 rt 90] rt 45 fd 10 lt 45 repeat 4 [fd 50 rt 90] rt 45 bk 40 rt 360/8] to jiao :n :b if :n=0 then stop repeat :n [repeat 3 [fd :b (stampoval :b/4 :b/4 "true) rt 120] fd :b] bk :n*:b rt 60 fd :b lt 60 jiao :n-1 :b endto tqqp :n :b :x rt 90 lt 60 repeat 6 [make "x :x+1 setpc :x jiao :n :b rt 60] setpc 0 rt 60 repeat 6 [jiao :n :b lt 60 fd :n*:b rt 120] end 执行：draw tqqp 5 20 8 TO SHUICAO :L :N 定义过程“水草”。 > IF :N=0 STOP 当 :N=0 的时候，作图停止。 > FD :L/2 RT 30 前进半个树干并转向右边。 > SHUICAO :L/2 :N-1 执行树干一半处右边的递归。 > LT 30 FD :L/2 LT 30 运动至树干顶转向左侧。 > SHUICAO :L/2 :N-1 执行树干左侧递归。 > FD :L/2 RT 30 树干顶长出分支，对准垂直方向。 > SHUICAO :L/2 :N-1 执行树干顶分支垂直方向递归。 > LT 30 BK :L/2 RT 30 BK :L 海龟归零（重要！） > SHUICAO :L/2 :N-1 微分递归（超重要！！！） > END 结束接着输入： SHUICAO 100 7 更正： TO SHUICAO :L :N IF :N=0 STOP FD :L/2 RT 30 Shuicao :l/2 :n-1 LT 30 FD :L/2 LT 30 SHUICAO :L/2 :N-1 FD :L/2 RT 30 SHUICAO :L/2 :N-1 LT 30 BK :L/2 RT 30 BK :L SHUICAO :L/2 :N-1 END 执行： Draw shuicao 100 7 repeat 24[fd 40 lt 45 fd 15 bk 15 rt 90 fd 15 bk 15 lt 45 bk 40 rt 360/24] 【最简单幼稚的了】 【最喜欢这个了】 TO WH setpc 9 setw 10 stampoval 50 50 pu rt 90 fd 115 lt 90 pd setpc 0 stampoval 50 50 pu rt 90 fd 115 lt 90 pd setpc 12 stampoval 50 50 pu lt 90 fd 230 bk 60 rt 90 bk 50 pd setpc 14 stampoval 50 50 pu rt 90 fd 120 lt 90 pd setpc 10 stampoval 50 50 ht END repeat 2[repeat 360[fd 20*pi/180 rt 1]r epeat 360[fd 30*pi/180 rt 1] repeat 360[fd 40*pi/180 rt 1]lt 180] lt 10 repeat 2[fd 80 bk 80 rt 20 ] SETPC 1 REPEAT 5 [REPEAT 4[FD 50 RT 90] RT 360/5] to bagua draw pd repeat 36[rt 5 fd 0.175*75 rt 5] repeat 18[rt 5 fd 0.175*(75/2) rt 5] repeat 18[lt 5 fd 0.175*(75/2) lt 5] repeat 5[lt 5 fd 0.175*75 lt 5] pu home rt 90 fd 35 pd stampoval 20 20 fill pu fd 80 pd stampoval 20 20 lt 90 fd 35 pd fill End to lwjx :b ht rt 18 repeat 5[fd :b rt 144 fd :b rt 54 fd:b*1.9 bk :b*1.9 lt 126] end {要填颜色随自己便}
