小海龟画画-漂亮的多边形
发布时间:2014.12.31 浏览次数:3734
学LOGO语言在开始阶段亦步亦趋地学画书本上看到的图形,到了一定程度的时候,就可以凭借自己的想象能力,画出一些新奇的样式来,要知道想象力是创造力的重要组成部分。
如左侧一图,在学习时我们是一次次地用重复命令repeat,其实用一看for语句,就可以一次画出来。命令如下:
TO XCDBX :L :N
DRAW HT
LT 90
FOR “I 3 :N[SETPC RANDOM 14 REPEAT :I[FD :L RT 360/:I ]]
END
右边图形填充了颜色的图形看起来更漂亮,我们只要在上面的过程中再加两行命令就可以了。
TO LXDBX2 :L
LT 90 SETW 1
FOR “I 3 14[SETPC 15-:I REPEAT 17-:I[FD :L RT 360/(17-:I)]PU RT 30 FD :L/2 PD
FILL\ PU BK :/2 LT 30 PD \SETPC 13 REPEAT 17-:I[FD :L RT 360/(17-:I)]]
END
这里多连了一个FOR命令,是因为前面填充后,图形的连就看不见了,这里每画好一个多边形,就用SETPC 13 REPEAT 17-:I[FD :L RT 360/(17-:I)]命令给勾画出一个连来,图形就比较好看了。