; Our first animation -- create shapes and look at them
NEW
View Wire:Draft:; set the viewing modes to wire frame and draft
Cam1 0,0,0:; set the camera to begin position
Sph2 ball,7:; create three shapes at the center of the universe
Wedge wd,7:Cube cube1,14
Zoom 100:Perspec 500:; Set up the camera
Direct A,7,50,0,50:Direct B,4,-50,0,-50
Lton A:Lton B:Ambient 3:;set the lights
Watch On:Superview:; take a look at the shapes
; Now move the shapes
For lewp=1 to 10
 Clrgrp:Select ball:Xlate 250,0,0
 Clrgrp:Select wd:Xlate 0,0,250
 Clrgrp:Select cube1:Xlate -250,0,0
 Allgrp:Superview
Next lewp
; Rotate one shape: the cube
For lewp=1 to 18
 Deselect ball,wd:Rotate 10,0,0:Select ball,wd
 Superview
Next lewp
; Now move the camera
For Horangle=0 to 180 Step 10
 Cam1 Horangle,0,0
 Superview
Next Horangle
For Verangle=0 to 180 Step 10
 Cam1 180,Verangle,0
 Superview
Next Verangle
; Make the shapes disappear in the distance
For zm=1 to 10
 Chgzoom -10
 Superview
Next zm
End