#!/bin/sh
#
# Test drive a PostScript font
#

# letter
#w=612
#h=792

# a4
w=595
h=842

usage()
{
    echo "usage: tpsf [-c] [-n] [-e enc_file] file" >&2
    exit 1
}

while getopts ":cne:" c
do
    case "$c" in
    c)      chart=1;;
    n)      nore=1;;
    e)      enc_file=$OPTARG;;
    :|'?')  usage;;
    esac
done
shift $(($OPTIND - 1))
if [ $# -lt 1 ]; then usage; fi

ts="$(file -L "$1")"
t="${ts#*: }"
case "$t" in
PostScript\ Type\ 1\ font\ text* | PostScript\ Type\ 42\ font\ text*)
    pfa=$1;;
*)
    tmpfile=$(mktemp ~/.tpsf.XXXXXX) || exit 1
    pfa=$tmpfile
    pfbtops "$1" >$pfa || { rm -f $tmpfile; exit 1; };;
esac

name=$(grep '/FontName' "$pfa" | sed -E 's/^.*\/FontName (.*) def.*$/\1/')

cat "$pfa"
echo

if [ -n "$chart" ]; then ps="[$w $h]"; else ps="[$h $w]"; fi
echo "1 dict dup /PageSize $ps put setpagedevice"
echo

if [ -z "$nore" ]; then
    if [ -n "$enc_file" ]; then
	sed 's/^.*\[[[:space:]]*$/\/Encoding \[/' "$enc_file"
    else
	cat <<EOF
% Default encoding, taken from groff's 'text.enc'
/Encoding[/asciicircum/asciitilde/Scaron
/Zcaron/scaron/zcaron/Ydieresis/trademark/quotesingle/.notdef/.notdef
/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef
/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef
/.notdef/.notdef/.notdef/space/exclam/quotedbl/numbersign/dollar/percent
/ampersand/quoteright/parenleft/parenright/asterisk/plus/comma/hyphen
/period/slash/zero/one/two/three/four/five/six/seven/eight/nine/colon
/semicolon/less/equal/greater/question/at/A/B/C/D/E/F/G/H/I/J/K/L/M/N/O
/P/Q/R/S/T/U/V/W/X/Y/Z/bracketleft/backslash/bracketright/circumflex
/underscore/quoteleft/a/b/c/d/e/f/g/h/i/j/k/l/m/n/o/p/q/r/s/t/u/v/w/x/y
/z/braceleft/bar/braceright/tilde/.notdef/quotesinglbase/guillemotleft
/guillemotright/bullet/florin/fraction/perthousand/dagger/daggerdbl
/endash/emdash/ff/fi/fl/ffi/ffl/dotlessi/dotlessj/grave/hungarumlaut
/dotaccent/breve/caron/ring/ogonek/quotedblleft/quotedblright/oe/lslash
/quotedblbase/OE/Lslash/.notdef/exclamdown/cent/sterling/currency/yen
/brokenbar/section/dieresis/copyright/ordfeminine/guilsinglleft
/logicalnot/minus/registered/macron/degree/plusminus/twosuperior
/threesuperior/acute/mu/paragraph/periodcentered/cedilla/onesuperior
/ordmasculine/guilsinglright/onequarter/onehalf/threequarters
/questiondown/Agrave/Aacute/Acircumflex/Atilde/Adieresis/Aring/AE
/Ccedilla/Egrave/Eacute/Ecircumflex/Edieresis/Igrave/Iacute/Icircumflex
/Idieresis/Eth/Ntilde/Ograve/Oacute/Ocircumflex/Otilde/Odieresis
/multiply/Oslash/Ugrave/Uacute/Ucircumflex/Udieresis/Yacute/Thorn
/germandbls/agrave/aacute/acircumflex/atilde/adieresis/aring/ae/ccedilla
/egrave/eacute/ecircumflex/edieresis/igrave/iacute/icircumflex/idieresis
/eth/ntilde/ograve/oacute/ocircumflex/otilde/odieresis/divide/oslash
/ugrave/uacute/ucircumflex/udieresis/yacute/thorn/ydieresis]def
EOF
    fi
    cat <<EOF
% new_font_name encoding_vector old_font_name RE -

/RE {
  findfont
  dup maxlength 1 index /FontName known not { 1 add } if dict begin
  {
    1 index /FID ne { def } { pop pop } ifelse
  } forall
  /Encoding exch def
  dup /FontName exch def
  currentdict end definefont pop
} bind def

${name}@0 Encoding $name RE

EOF
    name=${name}@0
fi

if [ -n "$chart" ]; then
cat <<EOF
/FNT $name findfont 10 scalefont def
/HBO /Helvetica-BoldOblique findfont 7 scalefont def

HBO setfont
0 1 3 {
    /count exch def
    65 count 133 mul add 740 moveto
    (Decimal) show
    65 count 133 mul add 740 10 sub moveto
    (Number          Char) show
} for

/yline 710 def                              % Print the table of character
/xstart 70 def                              % codes and corresponding
					    % characters.
0 1 255 {                                   % For each character code from 0
    /count exch def                         % to 255, print the corresponding
    /charstring ( ) dup 0 count put def     % standard characters.
    xstart yline moveto
    HBO setfont
    count (   ) cvs show                    % Print the character code in
					    % decimal.
    xstart 45 add yline moveto
    FNT setfont
    charstring show                         % Print the corresponding standard
					    % character.
    /yline yline 10 sub def                 % Move down one line.
    count 1 add 64 mod 0 eq {               % If we have gotten to the 64th
   	/xstart xstart 133 add def          % line, move over by a column and
	/yline 710 def                      % start at the top again.
    } if
} for
 
showpage
EOF
else
cat <<EOF
/ss { /y y vs sub def x y moveto show } bind def

/font $name findfont def
/x 10 def /y 590 def

[10 12 14 18 24 36] {
    /ps exch def /vs ps 1.2 mul def
    y 590 ne { /y y 5 sub def } if
    font ps scalefont setfont
    (ABCDEFGHIJKLMNOPQRSTUVWXYZ) ss
    (abcdefghijklmnopqrstuvwxyz) ss
    (0123456789) ss
    (The quick brown fox jumped over the lazy dog) ss
} forall

showpage
EOF
fi

rm -f $tmpfile
.