;RezRender/Cyber Control Demonstration Program by Andrew Reese
;Copyright 1989 Antic Publishing, Inc.
;This program demonstrates techniques to generate an animation within
;CAD-3D under Cyber Control and then do the finish rendering in
;RezRender.  You must have CAD-3D 2.02 or later to use these techniques.
;Make sure that you have watch buffers on...
new:;                                      Clear the System
;                                          Credits and Copyrights
alert "RezRender/Cyber Control Demo|Copyright 1989 Antic Publishing, Inc."

cam1 0,0,0:perspec 500:zoom 200:;          Set the camera
bell:clrbgnd:backgnd no,no:view wire:draft:mono:watch on:;View parameters
SPH2 ball,14:;                             Generate a Type 2 sphere
xpos=-2000:ypos=-2000:zpos=-2000:;         Set the starting location
moveto xpos,ypos,zpos:;                    Move sphere to location
;                                          ***MAIN LOOP***
for f=1 to 15
group a:superview:bell
if f=1 then savegrp "A:\BALL1.3D2":;       Change the path in each of the 
if f=2 then savegrp "A:\BALL2.3D2":;       following lines for your chosen
if f=3 then savegrp "A:\BALL3.3D2":;       path.
if f=4 then savegrp "A:\BALL4.3D2"
if f=5 then savegrp "A:\BALL5.3D2"
if f=6 then savegrp "A:\BALL6.3D2"
if f=7 then savegrp "A:\BALL7.3D2"
if f=8 then savegrp "A:\BALL8.3D2"
if f=9 then savegrp "A:\BALL9.3D2"
if f=10 then savegrp "A:\BALL10.3D2"
if f=11 then savegrp "A:\BALL11.3D2"
if f=12 then savegrp "A:\BALL12.3D2"
if f=13 then savegrp "A:\BALL13.3D2"
if f=14 then savegrp "A:\BALL14.3D2"
if f=15 then savegrp "A:\BALL15.3D2"
;                                          ***MOVE THE SPHERE***
xpos=xpos+200:ypos=ypos+200:zpos=zpos+200:moveto xpos,ypos,zpos
next f
end