#!/bin/sh
sleep 5
xwd -root > /tmp/FOO
xpr -portrait -psfig -scale 2 /tmp/FOO > /tmp/screen.eps
rm /tmp/FOO
# edit out the "showpage" at the end of the file
ed /tmp/screen.eps << FOO
/BoundingBox/
d
a
%%BoundingBox: 0 -10 384 300
.
g/showpage/s/showpage/%%showpage/
wq
FOO
