#!/bin/sh
#
# View an Encapsulated PostScript File with Acrobat Reader
#

usage ()
{
    echo "usage: epsview [-x xoff] [-y yoff] [-s scale]" >&2
    exit 1
}

x=0
y=0
s=1
while getopts ":x:y:s:" c
do
    case "$c" in
    x)    x=$OPTARG;;
    y)    y=$OPTARG;;
    s)    s=$OPTARG;;
    :|'?')  usage;;
    esac
done
shift $(($OPTIND - 1))
if [ $# -lt 1 ]; then usage; fi

tmp=$(cat "$1" | nawk '/^%%BoundingBox:/ { print (- $2) " " (- $3) }')
llx_adj=${tmp% *}; lly_adj=${tmp#* }
tmpfile=$(mktemp ~/.epsview.XXXXXX) || exit 1

(
cat <<EOF
%!
/BeginEPSF {
    /b4_Inc_state save def		% Save state for cleanup
    /dict_count countdictstack def	% Count objects on dict stack
    /op_count count 1 sub def		% Count objects on operand stack
    userdict begin			% Push userdict on dict stack
    /showpage { } def			% Redefine showpage to null proc
    0 setgray 0 setlinecap		% Prepare graphics state
    1 setlinewidth 0 setlinejoin
    10 setmiterlimit [ ] 0 setdash newpath
    /languagelevel where		% If languagelevel not equal to 1 then
    {pop languagelevel			% set strokeadjust and
    1 ne 				% overprint to their defaults
	{false setstrokeadjust false setoverprint
	} if
    } if
} bind def

/EndEPSF {
    count op_count sub {pop} repeat	% Clean up stacks
    countdictstack dict_count sub {end} repeat
    b4_Inc_state restore
} bind def

BeginEPSF
$x $y translate $s dup scale $llx_adj $lly_adj translate
EOF
cat "$1"
cat <<EOF
EndEPSF
showpage
EOF
) | ps2pdf - >$tmpfile

acroread $tmpfile || { rm -f $tmpfile; exit 1; }
rm -f $tmpfile
.