;      CHECKER.CTL for CYBER TEXTURE Advanced Tutorial Section       
;                                                                    
; Be sure to change the drive and path names in this control file for
; your system configuration.                                         
;                                                                    
; Also, the red and white objects must have correct file and object  
; names to work correctly with this .CTL file. Make sure that your   
; objects are named correctly or change the .CTL file to suit your   
; needs.                                                             
;                                                                    
; Finally, if you want the checkered ball to be shaded, set up the   
; Color palette for your objects before starting this animation.     


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

; Start animation and load in the first object
rstart "a:\checker",m
load3d "a:\red.3d2"
merge3d "a:\white.3d2"

; Set up camera and lighting, then record the first frame
zoom 150:perspec 999:view s:draft:lton a:ambient 0
direct A,7,-50,-50,-50

; Spin the camera around the checkered ball

for frame = -9 to 8
   cam1 frame*20,27+frame*3,0
   superview:record
next frame

; Keep each ball spinning, but move the white one away from the red one

for frame = 1 to 18
  clrgrp:select White 
  rotate 20,0,0:xlate -115,0,0
  clrgrp:select Red:rotate 20,0,0
  allgrp
  superview:record
next frame

rstop:end