Microsoft Small Basic

Program Listing: MHH970

List Program

TextWindow.Write("enter a value in degrees For dpeth, 5 is normal 20 is a lot: " )
e= TextWindow.Read()
TextWindow.Hide()
GraphicsWindow.Title= "simple varying depth stereogram"
GraphicsWindow.BackgroundColor="white"
GraphicsWindow.Width="1200"
GraphicsWindow.Height="800"
GraphicsWindow.BrushColor= GraphicsWindow.GetRandomColor()
a1= Shapes.AddRectangle(20,200)
a2= Shapes.AddRectangle(20,200)
b1= Shapes.AddRectangle(20,200)
b2= Shapes.AddRectangle(20,200)

Shapes.Move(a1,400,200)
Shapes.Move(b1,500,200)
Shapes.Move(a2,400,400)
Shapes.Move(b2,500,400)
re:
For a=0 To e Step 0.01

Shapes.Rotate(a1,a)
Shapes.Rotate(b1,-a)
Shapes.Rotate(a2,-a)
Shapes.Rotate(b2,a)
Program.Delay(0.5)
endfor

For b=-e To 0 Step 0.01

Shapes.Rotate(a1,-b)
Shapes.Rotate(b1,b)
Shapes.Rotate(a2,b)
Shapes.Rotate(b2,-b)
Program.Delay(0.5)
endfor



goto re