Microsoft Small Basic

Program Listing: QDW737

List Program

' Turtle Flower 5
' Copyright © 2020 Nonki Takahashi. The MIT License.
' inspired by
' Seymour Papert: MINDSTORMS Children, Computers, and Powerfull Ideas, 1980

GraphicsWindow.Title = "Turtle Flower 5"
GraphicsWindow.PenColor = "DarkCyan"
GraphicsWindow.Width = 300
GraphicsWindow.Height = 300
Turtle.Speed = 10
Turtle.X = 150
Turtle.Y = 150
For k = 1 To 6
Petal()
Turtle.Turn(360 / 6)
EndFor
Turtle.Hide()

Sub Petal
da = 5
dd = 8
For j = 1 To 2
QCircle()
Turtle.Turn(90)
EndFor
EndSub

Sub QCircle
For i = da To 90 Step da
Turtle.Move(dd)
Turtle.Turn(da)
EndFor
EndSub