To yezi
Repeat 36[fd 3.14*20/36 lt 10]
Repeat 36[fd 3.14*20/36 rt 10]
End
To shugan :a
If :a=100 then stop
Repeat 2[bk :a lt 90 bk 5 lt 90]
Shugan :a+5
End
To yeziye :a
If :a>30 then stop
Repeat 18[fd 3.14*60/36 rt 10]
pu
Repeat 18[fd 3.14*60/36 rt 10]
pd
Repeat 18[fd 3.14*60/36 lt 10]
pu
Repeat 18[fd 3.14*60/36 lt 10]
Pd
Rt :a
Yeziye :a+5
End
To yezishu
Yezi
Shugan 10
Yeziye 10
End
贝壳
to beike :b
if :b>50 then stop
repeat 36[fd 3.14*:b/36 rt 10]
repeat 36[fd 3.14*:b/36 lt 10]
beike :b+5
end
海螺
to hailuo :c
if :c>60 then stop
repeat 36[fd 3.14*:c/36 rt 10]
rt 10
hailuo :c+1
end
