18 lines
193 B
Text
18 lines
193 B
Text
PROGRAM:LANT
|
|
:ClrDraw
|
|
:0→N
|
|
:47→A
|
|
:31→B
|
|
:90→Θ
|
|
:Repeat getKey
|
|
:If pxl-Test(B,A)
|
|
:Then
|
|
:Θ+90→Θ
|
|
:Else
|
|
:Θ-90→Θ
|
|
:End
|
|
:Pxl-Change(B,A)
|
|
:A+cos(Θ°)→A
|
|
:B+sin(Θ°)→B
|
|
:N+1→N
|
|
:End
|