process BALL
''
'' COPYRIGHT (C) 1993, CACI Products Company.
'' AUTHOR: Steve Bailey
'' DATE: 9-22-93
'' DESCRIPTION:
''     Each instance of this process corresponds to one of the bouncing balls
''     seen in the window.  The continuous routine 'BOUNCE' will be called
''     automatically by SIMSCRIPT to get the DERIVATIVES of
''     continuous variables (i.e. D.Y(BALL), D.VY(BALL)).  SIMSCRIPT will then
''     compute values for these variables (Y(BALL), VY(BALL)) by computing
''     the integral of these application defined derivatives.
''     The process 'OUTPUT' displays the ball at its current location.
''

'' first put the ball in the set
file this BALL in the BALL.SET

'' first initialize the ball with globals that were set up by the user 
let MASS(BALL) = BALL.MASS
let VX(BALL) = BALL.XVEL
let VY(BALL) = BALL.YVEL
let X(BALL) = LOCATION.X(DINPUT.V)
let Y(BALL) = LOCATION.Y(DINPUT.V)

'' bounce the ball using the continuous simulation
work continuously evaluating 'BOUNCE' testing 'DONE'

'' take mysely out of the set
remove this BALL from BALL.SET

end
