39 lines
685 B
Plaintext
39 lines
685 B
Plaintext
goto -60, 9 ; pendown ; goto x+13, y+13 ; penup
|
|
goto -60, 6 ; pendown ; goto x+13, y+8 ; penup
|
|
goto -60, 3 ; pendown ; goto x+13, y+5 ; penup
|
|
goto -60, 0 ; pendown ; goto x+13, y ; penup
|
|
|
|
goto -47, -8 ; pendown ; goto x-13, y+5 ; penup
|
|
goto -47, -14 ; pendown ; goto x-13, y+8 ; penup
|
|
goto -47, -22 ; pendown ; goto x-13, y+13 ; penup
|
|
|
|
setvar 0, A
|
|
|
|
repeat 6
|
|
goto -35,16-7A
|
|
pendown
|
|
goto x+3A+3,y+5
|
|
penup
|
|
goto x+A+3,y
|
|
pendown
|
|
goto x-3A-3,y-5
|
|
penup
|
|
setvar A+1, A
|
|
repeat_end
|
|
|
|
setvar 0, B
|
|
|
|
repeat 5
|
|
setvar 0, A
|
|
|
|
repeat 4
|
|
goto 3A, 24-30B
|
|
goto x+B,y+B
|
|
pendown
|
|
goto x+A,y+A
|
|
penup
|
|
setvar A+1, A
|
|
repeat_end
|
|
setvar B+0.2,B
|
|
repeat_end
|