16 lines
343 B
Text
16 lines
343 B
Text
[ $ "turtleduck.qky" loadfile ] now!
|
|
|
|
[ 1000 * time +
|
|
[ dup time < until ]
|
|
drop ] is ms ( n --> )
|
|
|
|
[ turtle 0 frames
|
|
3601 times
|
|
[ clear
|
|
i^ 3600
|
|
1000 times
|
|
[ i^ 1+ 1 walk
|
|
2dup turn ]
|
|
2drop
|
|
frame
|
|
10 ms ] ] is polyspiral ( --> )
|