; DEMOBALL.CTL for CYBER TEXTURE Advanced Tutorial Section
;
; Be sure to set the drive and path according to your system configuration
; and set the shading parameters in CAD-3D before starting this animation.
;

alert "   CYBER TEXTURE|DemoBall Animation|By David Ramsden"

; Start animation and load in the first object
rstart "a:\demoball",m
load3d "a:\testob00.3d2"

; Set up camera and lighting, then record the first frame
cam1 0,0,0:zoom 130:perspec 999:view s:draft:lton a:lton b:ambient 0
direct A,4,-50,-50,-50
direct B,7,46,50,-50
superview:record

; Load in the objects and create the rest of the frames

for frame = 2 to 10
   gosub loadobj
   superview:record
next frame
rstop:end

; Load in the new objects without killing the old settings
@loadobj
 if frame=2 then kill TestOb00:merge3d "a:\testob01.3d2"
 if frame=3 then kill TestOb01:merge3d "a:\testob02.3d2"
 if frame=4 then kill TestOb02:merge3d "a:\testob03.3d2"
 if frame=5 then kill TestOb03:merge3d "a:\testob04.3d2"
 if frame=6 then kill TestOb04:merge3d "a:\testob05.3d2"
 if frame=7 then kill TestOb05:merge3d "a:\testob06.3d2"
 if frame=8 then kill TestOb06:merge3d "a:\testob07.3d2"
 if frame=9 then kill TestOb07:merge3d "a:\testob08.3d2"
 if frame=10 then kill TestOb08:merge3d "a:\testob9.3d2"
return