#!/bin/csh
echo -n "Seconds Between Frames? "; set ns=$<
set findfile = /usr4/larry/bin/glps
while ( 0 == 0 ) 


#$findfile -h '480' -w '1265' -y '525' -x '7' -e $ns -T 'Ventilated Knot' < Stereo/VentKnotleft.ps
#$findfile -h '480' -w '1265' -y '-5' -x '7' -e $ns  -T 'Ventilated Knot' < Stereo/VentKnotright.ps
#sleep $ns

$findfile -h '480' -w '1265' -y '525' -x '7' -e $ns -T 'klien' < Stereo/klein_left.ps 
$findfile -h '480' -w '1265' -y '-5' -x '7' -e $ns -T 'klien' < Stereo/klein_right.ps 
sleep $ns 

$findfile -h '480' -w '1265' -y '525' -x '7' -e $ns -T 'Hyperbolic Dodecahedron' < Stereo/HyperDodecleft.ps
$findfile -h '480' -w '1265' -y '-5' -x '7' -e $ns -T 'Hyperbolic Dodecahedron' < Stereo/HyperDodecright.ps
sleep $ns 

$findfile -h '480' -w '1265' -y '525' -x '7' -e $ns -T 'Homo-Mathematicus' < Stereo/Skull_left.ps
$findfile -h '480' -w '1265' -y '-5' -x '7' -e $ns -T 'Homo-Mathematicus' < Stereo/Skull_right.ps
sleep $ns

$findfile -h '480' -w '1265' -y '525' -x '7' -e $ns -T 'Snail' < Stereo/SnailColor_left.ps
$findfile -h '480' -w '1265' -y '-5' -x '7' -e $ns -T 'Snail'  < Stereo/SnailColor_right.ps
sleep $ns

$findfile -h '480' -w '1265' -y '525' -x '7' -e $ns -T 'Nautilus' < Stereo/nautilus_left.ps
$findfile -h '480' -w '1265' -y '-5' -x '7' -e $ns -T 'Nautilus' < Stereo/nautilus_right.ps
sleep $ns

$findfile -h '480' -w '1265' -y '525' -x '7' -e $ns -T 'Knot' < Stereo/knot_left.ps
$findfile -h '480' -w '1265' -y '-5' -x '7' -e $ns  -T 'Knot' < Stereo/knot_right.ps
sleep $ns

$findfile -h '480' -w '1265' -y '525' -x '7' -e $ns -T 'Ventilated RhombicDodecahedron & Complement' < Stereo/VentRhomleft.ps
$findfile -h '480' -w '1265' -y '-5' -x '7' -e $ns -T 'Ventilated RhombicDodecahedron & Complement' < Stereo/VentRhomright.ps
sleep $ns

$findfile -h '480' -w '1265' -y '525' -x '7' -e $ns -T 'Stellated Ventilated RhombicDodecahedron & Complement' < Stereo/VentStellleft.ps
$findfile -h '480' -w '1265' -y '-5' -x '7' -e $ns -T 'Stellated Ventilated RhombicDodecahedron & Complement'  < Stereo/VentStellright.ps
sleep $ns

$findfile -h '480' -w '1265' -y '525' -x '7' -e $ns -T 'Eneper Minimal Surface' < Stereo/MinSurfleft.ps
$findfile -h '480' -w '1265' -y '-5' -x '7' -e $ns  -T 'Eneper Minimal Surface' < Stereo/MinSurfright.ps
sleep $ns

end