; Camera #2 demo
; by Tom Hudson
;
; Put camera inside CUBE1, make it watch CUBE2!
; NOTE: Group A is CUBE1, group B is CUBE2, group C is both cubes

new:cube CUBE1,14:clone CUBE1,CUBE2

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

; Define the object groups!

group A:clrgrp:select CUBE1
group B:clrgrp:select CUBE2
group C:allgrp

; Set initial positions

group A:moveto 1500,2000,-1200
group B:align L,-4499:align F,-4000:align T,4499

; Get camera location

group A:grpcent cx,cy,cz

; Now start moving CUBE2 and keep the camera looking at it!

watch on

for frame=1 to 50
group B:xlate 10,140,-120:grpcent lx,ly,lz
group C
cam2 cx,cy,cz,lx,ly,lz,0
superview
next frame

watch off:end