#
# script to help make make mpeg movie
#
#
# Frames will be createed and stored in a frames subdirectory
# Frame filenames are numbered consecutively starting at frame1000
# and increasing.
#
# At the Geometry Center, to convert them to an mpeg video, try
#	img2mpeg -o frames/movie.mpg frames/frame????
#

set N_FRAMES 30

# frame counter
set i 1000

proc save_frame {i} {
	puts stderr "Writing frame$i"
	savi GV_WAIT
	savi GV_SEND "(snapshot focus frames/frame$i)"
	savi GV_WAIT
}

#
# prepare satellites program and Geomview
#
savi STOP
savi GV_SEND "(window Camera {size 288 288})"

#
# save first frame now
#
save_frame $i

# now loop and save next frames
for {set j 1} {$j < $N_FRAMES} {incr j} {
	savi FORW_STEP
	incr i
	save_frame $i
}

