#! /bin/sh

# psscreentest.sh feature file output.png
# (c) 2001 Stanislav Brabec, UTX

(
cat <<EOF
%!PS-Adobe-3.0
%%Creator: hand made
%%Title: screen test
%%Pages: 1
%%BoundingBox: 0 0 400 100
%%LanguageLevel: 2
%%EndComments
/c { curveto } def
%%EndProlog
%%BeginSetup
%%BeginFeature: *PageSize 400x100
<< /PageSize [400 100] >> setpagedevice
%%EndFeature
%%BeginFeature: ghostscript printer like screen
5
45
% The following screen algorithm is used by permission of the author.
{ 1 add 180 mul cos 1 0.08 add mul exch 2 add 180 mul cos 
  1 0.08 sub mul add 2 div % (C) 1989 Berthold K.P. Horn
}
setscreen
EOF
[ ! -z "$1" ] && cat "$1"
cat <<EOF
%%EndSetup
%%Page: 1 1
0 .00125 1
{
    dup
    1 exch sub setgray
    gsave
    400 mul
    newpath
    0 moveto
    1 0 rlineto
    0 100 rlineto
    -1 0 rlineto
    closepath
    fill
    grestore
} for
showpage
%%Trailer
%%EOF
EOF
) | tee test.ps | gs -dSAFER -dNOPAUSE -dSAFER -dQUIET -sDEVICE=pngmono -sOutputFile=$2 - -c quit