#!/bin/sh

font="Times Roman"
grfont=TR
size=48
tracking=0
wspacing=0
kerning=1
kflag=
color="0 0 0"
bg="1 1 1"
text="Hello World"

cls()
{
    echo -n 
}

cleanup()
{
    rm -rf $tmpfile
    exit
}

trap cleanup 2 3 15

if [ -f ~/.gftestrc ]; then
    oifs="$IFS"; IFS=":"
    read font grfont size tracking wspacing color bg text <~/.gftestrc
    IFS="$oifs"
fi

tmpfile=$(mktemp ~/.gftest.XXXXXX) || exit 1

while :; do
    cls
    cat <<EOF

 Groff Font Test
 ---------------

         Font: $font ($grfont)
         Size: $size
     Tracking: $tracking
 Word Spacing: $wspacing
      Kerning: $kerning
        Color: $color
   Background: $bg
         Text: $text

EOF
    echo -n " Command (f, s, r, p, k, c, b, t, CR, i, w, q): "
    read r
    case "$r" in 
    f)
	r=$(gfchoose); [ -n "$r" ] && { font=${r%:*}; grfont=${r#*:}; };;
    s)
	echo -n "Size: "; read r; [ -n "$r" ] && size=$r;;
    r)
	echo -n "Tracking: "; read r; [ -n "$r" ] && tracking=$r;;
    p)
	echo -n "Word Spacing: "; read r; [ -n "$r" ] && wspacing=$r;;
    k)
	if [ $kerning -eq 1 ]; then
	    kerning=0; kflag="-k"
	else
	    kerning=1; kflag=
	fi;;
    c)
	echo -n "Color: "; read r; [ -n "$r" ] && color=$r;;
    b)
	echo -n "Background: "; read r; [ -n "$r" ] && bg=$r;;
    t)
	echo -n "Text: "; read r; [ -n "$r" ] && text=$r;;
    "")
	grtext -f$grfont -s$size -c"$color" -b"$bg" -t$tracking \
		-w$wspacing $kflag -m -l "$text" >$tmpfile
	psview $tmpfile &
	;;
    i)
	grtext -f$grfont -s$size -c"$color" -b"$bg" -t$tracking \
		-w$wspacing $kflag -m -l "$text" | \
		ps2ppm -r600 -_ | pnmcrop -white 2>/dev/null | \
		pnmscale .141666 | pnmmargin -white 5 | pnmtopng >"$font.png"
	;;
    w)
	echo "$font:$grfont:$size:$tracking:$wspacing:$color:$bg:$text" \
		>~/.gftestrc;;
    q)
	cleanup;;
    esac
done
.