Microsoft Small Basic

Program Listing: LNZ598

List Program

' SmallBasic Version 1.0
' Funktion: Turtle PolySpiral
' Autor: Pappa Lapub
' Herkunft: http://www.codeproject.com/Articles/117957/Turtle-Graphics-and-L-systems-with-F-and-WPF
' ImportURL: http://smallbasic.com/program/?
' Extension:
' Kommentar: Scott Philip Brown, 13 Oct 2010
' Variablen: Figures = "1=20;2=90;3=5;4=10;5=36;6=95;7=1;8=20;9=50;10=117;11=3;12=10;"
' --------------------------------------------------------------------------------
Turtle.Speed = 10
Figure = "1=20;2=90;3=5;4=10;" ' numLines,; Angle; Inc; Length
PolySpiral()

Figure = "1=40;2=98;3=2;4=50;"
PolySpiral()

Figure = "1=50;2=117;3=3;4=10;"
PolySpiral()

Sub PolySpiral
For T = 1 To Figure[1]
Turtle.Turn(Figure[2])
Turtle.Move(Figure[4])
Figure[4] = Figure[4]+Figure[3]
EndFor
Program.Delay(5000)
For T = 1 To Figure[1] +20 ' ?? +20 , ?? numLines has to be increased (+20) to remove ALL Lines from 2nd Figure
Shapes.HideShape("_turtleLine"+T)
'Shapes.Remove("_turtleLine"+T)
EndFor
EndSub