Microsoft Small Basic

Program Listing: KHZ028

List Program

Turtle.Speed = 10
'GraphicsWindow.BackgroundColor = "lightblack"

TurtleView()

GraphicsWindow.MouseDown = TurtleView

Sub TurtleView

GraphicsWindow.Clear()
Turtle.Show()
Turtle.PenDown()

'●タートルのスタート位置を設定
Turtle.X = 500
Turtle.Y = 200

'タートルの向きを0度に設定
Turtle.Angle = 0

'100移動して左回転
For i = 0 To 3
GraphicsWindow.PenColor = GraphicsWindow.GetRandomColor()
Turtle.Move(100)
Turtle.TurnLeft() 'Turtle.Turn(-90)
EndFor

'●タートルのスタート位置を設定
Turtle.X = 100
Turtle.Y = 100

'100移動して左回転
For r = 0 To 359 Step 20
Turtle.Angle = r

For i = 0 To 3
GraphicsWindow.PenColor = GraphicsWindow.GetRandomColor()
Turtle.Move(50)
Turtle.TurnLeft() 'Turtle.Turn(-90)
EndFor
EndFor

'●タートルのスタート位置を設定
Turtle.X = 150
Turtle.Y = 300

'タートルの向きを0度に設定
Turtle.Angle = 0

'100移動して右回転
For i = 0 To 3
GraphicsWindow.PenColor = GraphicsWindow.GetRandomColor()
Turtle.Move(100)
Turtle.TurnRight() 'Turtle.Turn(90)
EndFor

EndSub