#!/bin/sh

res=1200
margin=25
border=5

exec 2>/dev/null

fortune ~/share/fortune/quotes | nawk '
BEGIN {
    print ".pl 29.7c\n" \
	".ll 21c-2i\n" \
	".fam GS\n" \
	".nr pp 24\n" \
	".nr ps .1i\n" \
	".lg 0\n" \
	".lp"
}
/^\t\t-- / { print ".lp\n.in 2i\n.ad r\n.i"; sub(/^\t\t-- /, "") }
{ sub(/^[\t ]+/, ""); gsub(/"/, "\\*(rq"); print } ' | groff -me | \
    gs -q -dBATCH -dNOPAUSE -sDEVICE=pbmraw -r$res -sOutputFile=- -_ | \
    pnmscale $(echo $res | nawk '{ print 85 / $0 }') | pnmcrop -white | \
    pnmmargin -white $margin | pnmmargin -color gray $border | \
    ppmtogif >quote.gif
.