routine INITIALIZE.OUTPUT
''
'' COPYRIGHT (C) 1993, CACI Products Company.
'' AUTHOR: Steve Bailey
'' DATE: 9-22-93
'' DESCRIPTION:
''     initializes output graphics
''

call SETWORLD.R(-50.0, 50.0, -15.0, 85.0)
let TIMESCALE.V = 100

'' set variables used for the continuous simulation
let MAX.STEP.V = 0.05
let MIN.STEP.V = 0.005
let ABS.ERR.V = 0.1
let REL.ERR.V = 0.025

'' set initial values to the globals
let BALL.MASS = .MASS.MEDIUM
let BALL.XVEL = .VELOCITY.MEDIUM
let BALL.YVEL = .VELOCITY.SLOW
let EVRN.GRAVITY = .GRAVITY.MEDIUM
let EVRN.FLOOR = .FLOOR.MEDIUM
let EVRN.AIRRES = .AIRRES.LOW

'' show the walls
create a WALL
display WALL with "lwall.icn" at (-50.0, 0.0)
create a WALL
display WALL with "rwall.icn" at (50.0, 0.0)

'' show the "floor"
create a FLOOR
display FLOOR with "floor.icn" at (0,0)

'' create an icon for DINPUT.V.  Whenever the mouse moves, the location.a
'' of this display entity is reset
create an ICON called DINPUT.V

return
end
