to s1r :b
fd :b rt 135 fd :b/(sqrt 2) rt 90 fd :b/(sqrt 2) rt 135
pu rt 30 fd 10 pd fill pu bk 10 lt 30 pd
setpc 0 fd :b rt 135 fd :b/(sqrt 2) rt 90 fd :b/(sqrt 2) rt 135
end
to s1l :b
fd :b lt 135 fd :b/(sqrt 2) lt 90 fd :b/(sqrt 2) lt 135
pu lt 30 fd 10 pd fill pu bk 10 rt 30 pd
setpc 0 fd :b lt 135 fd :b/(sqrt 2) lt 90 fd :b/(sqrt 2) lt 135
end
to s3 :b :x
setpc 9
if :x=9[s3r :b]
if :x=6[s3l :b]
end 方向判断语句
to s3r :b
fd :b/2 rt 135 fd :b/2/(sqrt 2) rt 90 fd :b/2/(sqrt 2) rt 135
pu rt 30 fd 10 pd fill pu bk 10 lt 30 pd
setpc 0 fd :b/2 rt 135 fd :b/2/(sqrt 2) rt 90 fd :b/2/(sqrt 2) rt 135
end
to s3l :b
fd :b/2 lt 135 fd :b/2/(sqrt 2) lt 90 fd :b/2/(sqrt 2) lt 135
pu lt 30 fd 10 pd fill pu bk 10 rt 30 pd
setpc 0 fd :b/2 lt 135 fd :b/2/(sqrt 2) lt 90 fd :b/2/(sqrt 2) lt 135
end
to s2 :b :x
setpc 10
if :x=9[s2r :b]
if :x=6[s2l :b]
end 方向判断语句
to s2r :b
fd :b/2*(sqrt 2) rt 135 fd :b/2 rt 90 fd :b/2 rt 135
pu rt 30 fd 10 pd fill pu bk 10 lt 30 pd
setpc 0 fd :b/2*(sqrt 2) rt 135 fd :b/2 rt 90 fd :b/2 rt 135
end
to s2l :b
fd :b/2*(sqrt 2) lt 135 fd :b/2 lt 90 fd :b/2 lt 135
pu lt 30 fd 10 pd fill pu bk 10 rt 30 pd
setpc 0 fd :b/2*(sqrt 2) lt 135 fd :b/2 lt 90 fd :b/2 lt 135
end
to z :b :x
setpc 14
if :x=9[zr :b]
if :x=6[zl :b]
end 方向判断语句
to zr :b
repeat 4[fd :b/4*(sqrt 2) rt 90]
pu rt 30 fd 10 pd fill pu bk 10 lt 30 pd
setpc 0 repeat 4[fd :b/4*(sqrt 2) rt 90]
end
to zl :b
repeat 4[fd :b/4*(sqrt 2) lt 90]
pu lt 30 fd 10 pd fill pu bk 10 rt 30 pd
setpc 0 repeat 4[fd :b/4*(sqrt 2) lt 90]
end
to p :b :x
setpc 13
if :x=9[ppr :b]
if :x=6[ppl :b]
end 方向判断语句
to ppr :b
repeat 2[fd :b/2 rt 135 fd :b/2/(sqrt 2) rt 45]
pu rt 30 fd 10 pd fill pu bk 10 lt 30 pd
setpc 0 repeat 2[fd :b/2 rt 135 fd :b/2/(sqrt 2) rt 45]
end
to ppl :b
repeat 2[fd :b/2 lt 135 fd :b/2/(sqrt 2) lt 45]
pu lt 30 fd 10 pd fill pu bk 10 rt 30 pd
setpc 0 repeat 2[fd :b/2 lt 135 fd :b/2/(sqrt 2) lt 45]
end
to horse :b
rt 90
s1 :b 6
lt 45 pu fd :b/sqrt(2) pd
z :b 9
pu fd :b/2/sqrt(2) pd
rt 90
s2 :b 6
rt 90
pu fd :b/2/sqrt(2) pd
lt 90 pu fd :b/sqrt(2) pd
rt 20 s3 :b 9
pu lt 20 bk :b/sqrt(2) rt 90 pd
s1 :b 9
rt 45 pu fd :b/sqrt(2) lt 90 fd :b/2/sqrt(2) rt 45 pd
p :b 9
lt 45 pu fd :b/2/sqrt(2) lt 135 fd :b/5 rt 135 pd
s3 :b 9
end
最后在命令窗口输入horse 100(参数根据自己喜好设置)即可绘制出完整的彩色的奔马。
参考资料:G:\practice\production.htm
本回答被提问者采纳