Microsoft Small Basic

Program Listing: WMM047

List Program

GraphicsWindow.KeyDown=kkk
Shapes.AddEllipse(10,10)
GraphicsWindow.Width =1200
GraphicsWindow.Height =900
gg=LDShapes.BrushGradient ("1=#00aaaa;2=#008080;3=#000080","DD")
LDGraphicsWindow.BackgroundBrush(gg)
Turtle.x=30
Turtle.y=700
Turtle.Angle =75
Turtle.PenDown ()
aa=30

Turtle.Speed=10
dd=0
ss=-0.5
ii=10
sm="False
GraphicsWindow.PenWidth=3
c1=LDDialogs.Colour()
args=0


LDCall.Function ("sewto",115)
dd=5
LDCall.Function ("sewto",18)
dd=0
LDCall.Function ("sewto",190)
dd=5
LDCall.Function ("sewto",18)
dd=0
LDCall.Function ("sewto",115)
dd=5
LDCall.Function ("sewto",18)
dd=0
LDCall.Function ("sewto",190)
dd=5
LDCall.Function ("sewto",18)
ll:
Turtle.x=180
Turtle.y=550
Turtle.Angle =75
dd=0
LDCall.Function ("sewto",38)
Turtle.TurnRight ()
LDCall.Function ("sewto",10)
Turtle.TurnRight ()
LDCall.Function ("sewto",28)
Turtle.TurnLeft ()
LDCall.Function ("sewto",15)
Turtle.TurnRight ()
LDCall.Function ("sewto",10)
Turtle.TurnRight ()
LDCall.Function ("sewto",25)
gg:

Turtle.x=980
Turtle.y=550
Turtle.Angle =0
dd=3
LDCall.Function ("sewto",120)
Turtle.TurnRight ()
dd=0
LDCall.Function ("sewto",8)

Turtle.Turn (90)
dd=-4
LDCall.Function ("sewto",90)


Turtle.x=730
Turtle.y=550
Turtle.Angle =0
dd=3
LDCall.Function ("sewto",80)
Turtle.TurnRight ()
dd=0
LDCall.Function ("sewto",8)

Turtle.Turn (90)
dd=-4
LDCall.Function ("sewto",80)
Turtle.Turn (65)
dd=0
LDCall.Function ("sewto",8)
Turtle.Turn (90)
LDCall.Function ("sewto",20)
Turtle.Turn (90)
LDCall.Function ("sewto",8)
Turtle.Turn (90)
LDCall.Function ("sewto",4)
Turtle.Turn (-90)
LDCall.Function ("sewto",15)




Turtle.x=380
Turtle.y=500
Turtle.Angle =0
sm="True
dd=3.5
ii=10
LDCall.Function ("sewto",1460)


Sub kkk
lk = GraphicsWindow.LastKey
If lk="Left" Then
dd=dd-0.1
elseIf lk="Right" Then
dd=dd+0.1
elseif lk="Space" then
dd=0
endif
GraphicsWindow.Title=dd
EndSub

Sub sewto
For x=1 To args[1]
If ii<6 Then
Turtle.PenUp ()
Else
Turtle.PenDown ()
endif
GraphicsWindow.PenColor="Yellow
Turtle.Move(10)
Turtle.Turn(-180+aa+dd)

GraphicsWindow.PenColor=c1

Turtle.Move(ii)
Turtle.Turn(180-aa)
If sm then
ii=ii+ss
If Math.Remainder(x,2)=0 Then
ii=ii+ss/3
endif

If (ss<0) And (ii<1) Then
ss=-ss
ii=1
endif
If (ss>0 And ii>10) Then
ss=-ss
ii=10
endif
endif
GraphicsWindow.title=x
'GraphicsWindow.title="Done%:"+Math.Round ((x/1600)*100)
endfor
EndSub