Sub Petal
points = ""
i = 0
s = 10
Turtle.Turn(-50)
g = g + 1
color = GraphicsWindow.GetColorFromRGB(255, g, 0)
GraphicsWindow.PenColor = color
For a = s To 360 Step s
Turtle.Move(s * (1 + LDMath.Sin(2*a)) / 2.6)
Turtle.Turn(s)
i = i + 1
points[i][1] = Turtle.X
points[i][2] = Turtle.Y
EndFor
Turtle.Turn(50)
GraphicsWindow.BrushColor = color
LDShapes.AddPolygon(points)
EndSub
Sub Seed
points = ""
For i = 1 To 4
Turtle.Move(scale * _s)
Turtle.Turn(90)
points[i][1] = Turtle.X
points[i][2] = Turtle.Y
EndFor
LDShapes.AddPolygon(points)
EndSub