'' 
'' COPYRIGHT (C) 1987, CACI, INC. - FEDERAL, LA JOLLA
''
''
''-----------------------------------------------------------------------

Process SHAPE
     Define I as an integer variable

''   Set up the parameters for controlling motion
     Let velocity.a(SHAPE) = velocity.f(200.0, pi.c/4)
     Let location.a(SHAPE) = location.f(0.0, 0.0)

''   Make the first move
     Wait 9 units

''   Change the direction of motion to straight down
     Let velocity.a(SHAPE) = velocity.f(200.0, - PI.C / 2)
     Work 6.6 units

''   Change the direction of motion again
     Let velocity.a(SHAPE) = velocity.f(200.0, 0.8 * PI.C)
''   Make the shape rotate
     For I = 1 to  60 do
          Add PI.C / 60 to orientation.a(SHAPE)  
          Work 0.1 units 
     Loop

''   Stop the movement and pause to admire the results
     Let velocity.a(SHAPE) = 0
     Work 5.0 units

End '' process SHAPE
