to circle
repeat 360[fd 1 lt 1]
end
draw
setw 4
setbg 7
pu fd 200 lt 90 fd 120
pd setpc 9 circle
pu bk 120
pd setpc 0 circle
pu bk 120
pd setpc 12 circle
pu lt 90 fd 70 rt 90 fd 60
pd setpc 10 circle
pu fd 120
pd setpc 14 circle
=============================以上为程序代码
下面给你解释一下:
下面这个是定义一个画圆的过程
to circle
下面是重复360次前进1,左转1,画出来的就是一个圆
repeat 360[fd 1 lt 1]
end
draw 初始化屏幕
setw 4 将画笔的宽度设置成4,这样更好看一些
setbg 7 将背景色设置成7,就是灰色
pu fd 200 lt 90 fd 120 将小海龟移动到画第一个圆的地方
上面那个一共有4条命令,你可以分开执行,那样更直观一些
pd setpc 9 circle 这个是落笔,然后把画笔的颜色设置成9(setpc 9),就是蓝色
然后调用circle,就是前面定义的那个画圆的过程
pu bk 120 后退120,准备画第二个圆
pd setpc 0 circle 画第二个圆(黑色的)
pu bk 120
pd setpc 12 circle 第三个圆(红色的)
pu lt 90 fd 70 rt 90 fd 60 这个是将小海龟移动到右下角的那个圆的位置
你可以分步执行一下
pd setpc 10 circle 画第四个圆(绿色的)
pu fd 120
pd setpc 14 circle 画最后一个圆(**的)
关于颜色:
0 1 2 3 4 5 6 7 分别是:
黑 蓝 绿 青 红 紫 棕 灰
8 9 10 11 12 13 14 15 分别是:
深灰 亮蓝 亮绿 亮青 亮红 亮紫 黄 白
另外你也可以直接用画圆命令(STAMPOVAL)画
