
#! /bin/csh

(
echo '
    /Border 5 def			% window width
    /SaveGS gstate def			
    /MYWIdth 0 def			% window width
    /MYHEight 0 def			% window height
       /showpage {				% showpage waits for mouse then clears
	gsave
	SaveGS setgstate		% restore initial state for clear
	%
	0 Box				% darken border
	20 MYHEight Border  sub moveto
	%
	0.5 setgray			% use white paint ...
	0 0 MYWIdth MYHEight rectfill	% ... and clear the screen
	1 3 div Box			% lighten border
	grestore
	} def
    /erasepage {showpage} def		% some docs use copypage+showpage
    '
echo 'SaveGS setgstate'

cat /NextLibrary/Images/Scene_movies/spotlight.movie/spotlight.script.ps
sleep 10000
) | pft

