小海龟画画-漂亮的多边形
发布时间: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)]命令给勾画出一个连来,图形就比较好看了。