Microsoft Small Basic

Program Listing: HGF990

List Program

GraphicsWindow.Show()

GraphicsWindow.Width=600
GraphicsWindow.Height=600

TextWindow.Write("Enter X parameter: ")
XT=TextWindow.ReadNumber()
TextWindow.Write("Enter Y parameter: ")
YT=TextWindow.ReadNumber()
TextWindow.Hide()
cnt = 0
mycolor = "red"
Turtle.Show()
For vi=0 To 2*Math.Pi Step 0.000005
cnt = cnt + 1
If Math.Remainder(cnt,150) = 0 and mycolor = "red" then
mycolor = "blue"
ElseIf Math.Remainder(cnt,120) = 0 and mycolor = "blue" then
mycolor = "red"
EndIf

GraphicsWindow.SetPixel(300+250*Math.sin(XT*vi),300+250*Math.sin(YT*vi),mycolor)
Turtle.X = 300+250*Math.sin(XT*vi)
Turtle.Y = 300+250*Math.sin(YT*vi)
EndFor