
to zuo
setpc 2
repeat 20[fd 10 rt 90 fd 5 bk 10 fd 5 lt 90 ] fd 10 rt 120 fd 15 bk 15 lt 240 fd 15 bk 15 rt 120 bk 210
rt 90
repeat 100[fd 10 rt 90 fd 5 bk 10 fd 5 lt 90 ]fd 10 rt 120 fd 15 bk 15 lt 240 fd 15 bk 15 rt 120 bk 1010
rt 90
repeat 20[fd 10 rt 90 fd 5 bk 10 fd 5 lt 90 ]fd 10 rt 120 fd 15 bk 15 lt 240 fd 15 bk 15 rt 120 bk 210
rt 90
repeat 40[fd 10 rt 90 fd 5 bk 10 fd 5 lt 90 ]fd 10 rt 120 fd 15 bk 15 lt 240 fd 15 bk 15 rt 120 bk 410
lt 270
end
to hs  xx nn
setpc 0
setw 2
;make xx 1
repeat nn [ wait 1 make yy (cos xx)*100 setpc 0 dot xx yy make yy (sin xx)*100 setpc 3 dot xx yy  make xx xx+5]
end
to sj  ;###########主程序##########
zuo hs -200 250
end
