; Camera 3 demonstration
; bu Tom Hudson
;
; Positions camera and points the camera around in heading, pitch & bank
; All stereo focus values set to 200 as dummy value!

; Make a wedge at universe center, and a cube at 0,-2000,0

new:wedge wedge1,15:cube cube1,15
clrgrp:select cube1:xlate 0,-2000,0:allgrp

view wire:draft:mono:zoom 20:perspec 999

; Now point camera around -- camera always inside cube!

watch on

for heading=0 to 359 step 10
cam3 0,-2000,0,heading,0,0,200
superview
next heading

for pitch=0 to 359 step 10
cam3 0,-2000,0,0,pitch,0,200
superview
next pitch

for bank=0 to 359 step 10
cam3 0,-2000,0,0,0,bank,200
superview
next bank

watch off:end