logo语言常用命令详解
[ 录入者：亿生爱岩 | 时间:2011-10-31 09:25:08 | 浏览:328次 | 来源: | 作者: ]
一、小海龟绘图环境命令：
DRAW 初始化
CLEAN清图，不改变海龟当前位置
CS 清图，海龟回原位
CT 清文本
SS 图文混合窗口模式
FS 全图窗口模式
TS 全文本窗口模式
ST 显龟
HT 藏龟
HOME 回家，小海龟回原位
二、移动、旋转命令
FD 参数 以海龟当前头的方向前进参数给出的步数
BK参数 以海龟当前头的方向后退参数给出的步数
RT 参数 以海龟当前头的方向右转参数给出的度数
LT 参数 以海龟当前头的方向左转参数给出的度数
SETH 参数 以0度为基准顺时针转参数所给出的度数
SETXY [:X :Y] 将海龟移到指定的坐标位置，不改变海龟方向
SETX :X 将海龟移到指定的X坐标位置，不改变Y坐标，不改变方向
SETY :X 将海龟移到指定的Y坐标位置，不改变X坐标，不改变方向
三、笔的命令
PU 抬笔 不画图
PD 落笔 画图
PX 反笔 海龟经过的位置有线擦掉，无线画出线
PE 笔擦 橡皮
SETW 参数 设置笔的宽度为参数值
SETPC 代号 设置笔的颜色，代号取值为0——15
FILL 以当前笔色同色填充
（FILL 图形线的颜色号） 异色填充
DOT [:X :Y] 在指定的坐标位置[:x :y]处画一个点，不改变海龟位置
四、其它命令
SETBG 代号 设置背景色，代号取值为0——15
STAMPOVAL 横向半径 纵向半径 画椭圆
（STAMPOVAL 横向半径 纵向半径 “TRUE） 画实心椭圆
STAMPRECT 横向参数 纵向参数 画矩形
（STAMPRECT 横向参数 纵向参数 “TRUE） 画实心矩形
SETTURTLES 参数 设置海龟数量为参数值
REPEAT重复次数[命令组] 重复命令
正多边形：REPEAT 边数[FD 步长 RT 360/边数]
多个正多边形图形：REPEAT 个数[REPEAT 边数[FD 步长 RT 360/边数]RT 360/个数]
多角星：REPEAT :N[FD 步长 RT 360*:K/:N]
注：:N为多角星的角数
:
K的确定方法：（1）1<:K<:N.2；（2）:K为整数；（3）:K和N不能有公约数
五、多龟作图命令
ASK [海龟代号] [命令组] 呼叫指定代号海龟执行命令组
TELL [海龟代号] 告诉指定代号海龟为活动龟
TELLALL 海龟代号1 海龟代号2 告诉从代号1至代号2的海龟为活动龟
六、定义过程：
过程结构：
TO 过程名
过程体
END
带变量的过程
TO 过程名 变量名1 变量名2 变量名3…… (变量名的表示是:+英文字母，英文字母可以是一个或多个，一个变量用多个字母时字母
之间不能有空格)
过程体
END
相关命令：
1、EDIT 打开编辑器
2、SAVE 存盘
3、LOAD 调用
4、条件语句：IF
小狗图片卡通
格式1：IF 条件 [命令]
当符合条件时执行中括号内的命令，不符合条件不执行中括号内的命令，向后执行其它命令。
格式2：IF 条件 THEN [命令1] ELSE [命令2]
当符合条件时执行命令1，然后跳过命令2向后执行其它命令，当不符合条件时执行跳过命令1执行命令2再向后执行其它命令。
5、循环控制命令FOR语句
格式1：FOR “变量 初值 终值 [命令串]
变量的值由初值开始，每次加1并将后面的命令串执行一遍，直至超过终值停止。
格式2：（FOR “变量 初值 终值 [命令串] 步长）
变量的值由初值开始，每次增长步长，并将后面的命令串执行一遍，直至超过终值停止。
to p5
draw fs
fd 100 rt 90 fd 100 rt 90 fd 100 rt 90 fd 100 rt 90
pu bk 100 rt 45 pd （调整海龟位置，准备画下一个图，练习时可省略）
fd 80 rt 90 fd 80 rt 90 fd 80 rt 90 fd 80
end
to p10
draw fs
fd 120 bk 60 rt 90 fd 25 bk 25 lt 90 bk 60 lt 90 fd 55 bk 100
pu bk 100 pd
bk 100 fd 50 rt 90 fd 120 lt 90 fd 50 bk 100 fd 50 rt 90 bk 60 lt 90 fd 50 bk 100
pu rt 90 fd 60 rt 90 fd 100 pd
fd 100 bk 45 lt 90 bk 120 fd 75 rt 135 fd 30
ht
end
to p15
draw fs
pu lt 90 fd 300 rt 90 bk 200 rt 90 pd
repeat 8[fd 600 bk 600 lt 90 pu fd 50 pd rt 90]
end
to p25
draw fs pu lt 90 fd 300 rt 90 pd
repeat 36[fd 50*0.174 rt 10]
pu rt 90 fd 50 pd tpc 9 (fill 0)
tpc 0 lt 90 tw 5 repeat 3[bk 1 pu bk 14 pd]
pu fd 45 pd repeat 2[pu fd 14 pd fd 1]
pu tw 1 fd 25
lt 90 fd 40 rt 90 pd
repeat 2[fd 50 rt 90 fd 80 rt 90]
pu fd 15 rt 90 fd 35 pd
tpc 14 (fill 0)
tpc 12 tw 5 fd 10
lt 90 pu fd 20 lt 90 pu fd 20 pd tpc 0 tw 10 fd 5 pu tw 1 bk 35 pd tw 10 bk 5
pu home tw 1 tpc 0 pd
repeat 3[fd 50 rt 120]
rt 10 pu fd 10 pd tpc 5 (fill 0) pu bk 10 lt 10 repeat 2[fd 50 rt 120] lt 240 pd
tpc 0 bk 60 repeat 3[fd 120 rt 120] rt 10 pu fd 10 tpc 14 pd (fill 0)
pu bk 10 lt 10 fd 60 rt 90 fd 80 pd tpc 0 tw 10 fd 2
ht
pu tw 1 fd 200 lt 90 bk 60 pd
tw 3 fd 40
tpc 12 tw 12 repeat 6[fd 1 pu fd 10 pd]
end
to p29
draw fs
pu lt 90 fd 300 rt 90 fd 100 pd tpc 12
stamprect 40 25
stamprect 60 50
stamprect 80 75
stamprect 100 95
stamprect 120 120
pu rt 90 fd 300 tpc 9 lt 90 fd 50 pd
stampoval 40 20
stampoval 60 30
stampoval 80 45
stampoval 100 60
pu rt 90 fd 170 lt 90 bk 50 pd tpc 10
stamprect 100 100
pu fd 50 rt 90 fd 50 pd
stampoval 50 50
pu home tpc 0 bk 80 lt 90 fd 80 rt 90 pd stamprect 150 100
pu fd 25 rt 90 fd 25 pd (stamprect 100 50 "true)
pu fd 30 lt 90 fd 75 pd lt 30 fd 50 (stampoval 15 15 "true)
pu bk 50 rt 30 rt 90 fd 40 lt 60 pd fd 50 (stampoval 15 15 "true)
end
to p31
draw fs
tellall 0 14
st each [th who*24 s
etpc who] each：协同命令，同时执行命令
pu fd 100
end
to p34a
draw fs
ask 1 [pu lt 90 fd 300 tpc 9]
ask 2 [pu rt 90 fd 300 tpc 12]
ask 3 [pu bk 100 lt 90 fd 150 tpc 2]
ask 4 [pu bk 100 rt 90 fd 150 tpc 14]
tellall 0 4
tw 10 st pd stampoval 100 100
end
to p34b
draw fs
tellall 0 14
ht each [th who*24]
pu fd 50 pd fd 50
end
to p34bb
draw fs
ask 1 [rt 24]
副词有哪些
ask 2 [rt 48]
ask 3 [rt 72]
ask 4 [rt 96]
ask 5 [rt 120]
ask 6 [rt 144]
ask 7 [rt 168]
ask 8 [rt 192]
ask 9 [rt 216]
ask 10 [rt 240]
ask 11 [rt 264]
ask 12 [rt 288]
ask 13 [rt 312]
ask 14 [rt 336]
tellall 0 14
ht pu fd 50 pd fd 50
end
to p34c
draw fs
tellall 1 8
each [th who*45 tpc who]
st fd 50 repeat 5[fd 30 rt 144]
end
to p34cc
draw fs
ask 1 [rt 45 tpc 1]
ask 2 [rt 90 tpc 2]
ask 3 [rt 135 tpc 3]
ask 4 [rt 180 tpc 4]
ask 5 [rt 225 tpc 5]
ask 6 [rt 270 tpc 6]
ask 7 [rt 315 tpc 7]
ask 8 [tpc 8]
tellall 1 8
st fd 50 repeat 5[fd 30 rt 144]
end
to p37
draw fs
pu lt 90 fd 300 pd tpc 2 tw 2
repeat 12[repeat 3[fd 30 rt 120] rt 60 fd 20 lt 30]
pu home pd tpc 12
repeat 6[repeat 2[fd 25 rt 90 fd 50 rt 90] rt 60]
pu rt 90 fd 300 tpc 6 pd
repeat 6[repeat 4[repeat 9[fd 3 rt 10] repeat 9[fd 3 lt 10] rt 90] rt 60]
end
to p38
关于礼的名言draw fs ht
pu bk 50 lt 90 fd 200 rt 90 pd
repeat 5[tpc random 14 repeat 5[ repeat 3[fd 20 rt 120]rt 72]rt 90 pu fd 100 lt 90 pd]
pu fd 70 lt 90 fd 50 rt 90 pd
repeat 5[tpc random 14 repeat 5[ repeat 3[fd 20 lt 120]lt 72]lt 90 pu fd 100 rt 90 pd]
pu fd 70 rt 90 fd 50 lt 90 pd
repeat 5[tpc random 14 repeat 5[ repeat 3[fd 20 rt 120]rt 72]rt 90 pu fd 100 lt 90 pd]
end
to p42
draw fs
tell 1
离异孩子改名新政策
pu lt 90 fd 400 rt 90 pd
tpc 2 tw 2
repeat 5[repeat 5[fd 40 rt 72]rt 72]
tellall 2 4
pu fd 50 lt 90 fd 220 rt 90 pd
tw 3 repeat 36[tpc random 14 repeat 2[fd 40 rt 45 fd 40 rt 135]rt 10]
th 180 tpc 2 fd 120
tell 2
rt 90 repeat 2[fd 50 rt 45 fd 50 rt 135]rt 20 pu fd 20 pd fill
tell 3
lt 90 repeat 2[fd 50 lt 45 fd 50 lt 135]lt 20 pu fd 20 pd fill桂林两江四湖景区
tell 4
fd 50
哑铃飞鸟tell 5 pu bk 60 rt 90 fd 80 lt 90 pd
如何弹吉他tpc 5 lt 60
repeat 125[fd 120 bk 140 fd 20 rt 1]
tellall 1 7
tw 2 pu home rt 90 fd 400 lt 90 pd tpc 12
each [th who*(360/7)] repeat 8[fd 30 rt 45]
st pu lt 35 fd 60 pd tpc 14 (fill 12)
pu bk 40 tpc 1 pd (fill 12)
pu lt 45 tpc 12 fd 30 pd fill
end
to p52
draw fs tbg 0
repeat 300[pu rt random 200 fd random 300 pd tpc random 15 repeat 5[fd 10 rt 144]
end
to p52b
draw fs tbg 0
repeat 300[pu rt random 200 fd random 300 pd tpc random 15 repeat 5[fd 5 rt 144 fd 5 lt 144-360/5]]
end
to dian （随机点画面）
draw fs tbg 1
repeat 300[pu rt random 200 fd random 300 pd tpc random 15 tw random 30 fd 1]]
end
to p62
tpc 12 repeat 4[repeat 9[fd 100 rt 360*4/9]rt 90]
p62
end
to dg （递归举例总过程）
draw fs tpc 12
dg1 2
end
to dg1 :n （递归举例子过程）
if :n=200 stop
fd :n bk :n pu rt 90 fd 5 lt 90 pd
dg1 :n+2
心理剧疗法end
to zjdg （中间递归总过程）
draw fs
zjdg1 20 1
end
to zjdg1 :d :n （中间递归子过程）
if :n>6 stop
rt 60 fd :d bk :d lt 60 fd :d
zjdg1 :d :n+1
bk :d
lt 60 fd :d bk :d
rt 60
end
to p67
make "i 1
for "n 1 7[pr :i make "i :i :n+1] SE：将多个变量连接成一个表
end
to dh 动画
draw fs tellall 0 14
tw 3 ht
repeat 5[each [th who*24 tpc random 14] repeat 16[fd 10 wait 30 pu fd 10 pd clean]pu home pd]
（画擦法实现动画）
repeat 20[tbg random 14 wait 50] （背景变幻）
end WAIT：等待命令
