一、海龟命令集锦复习
REPEAT 重复
FILL填色
SETBG 设背景色
SETPC 设笔色
SAVEPIC 保存图形
LOADPIC 取出图形
STAMPREC 矩形命令
STAMPOVAL 椭圆命令
例1:画一块手表
(一)过程BIAOPAN (画表盘)
TO BIAOPAN
setw 1 setpc 14
stampoval 50 50 fill
setpc 0
repeat 12[pu fd 45 pd fd 5 pu bk 50 pd rt 30]
fd 35 bk 35
rt 90 setw 3 fd 25 home
rt 90 pu fd 55 lt 90 pd
stamprect 5 10
END
(二)过程BIAO(画整个表)
TO BIAO
setpc 9
stamprect 40 370
fill
biaopan
setpc 14
pu lt 90 fd 25 pd fill
pu fd 60 pd fill
ht
END
*倒数三四行的 fd 25 ;fd 60(红色字体)没有特定的算法,只要是将小海龟移到闭合区域内进行填充即可
例2:画1/n圆弧的命令是什么?
①画半圆的命令: REPEAT 180[FD 3.14*15/180 RT 1]
②画1/4圆弧的命令: REPEAT 90[FD 3.14*15/180 RT 1]
③画圆的命令: REPEAT 360[FD 3.14*15/180 RT 1]
④所以,画1/n 圆弧的命令是: REPEAT 360/n[FD 3.14*半径/180 RT 1]
本站内容未经许可,禁止任何网站及个人进行转载。