#
# media type translation for pnmtops
#
case "${size:=a4}" in
    tabloid|11x17)	size="-width 11.0  -height 17.0"	;;
    a0)			size="-width 33.05 -height 46.77"	;;
    a1)			size="-width 23.38 -height 33.05"	;;
    a2)			size="-width 16.52 -height 23.38"	;;
    a3)			size="-width 11.69 -height 16.52"	;;
    a4|a4dj)		size="-width 8.263 -height 11.69"	;;
    a5)			size="-width 5.847 -height 8.263"	;;
    a6)			size="-width 4.125 -height 5.847"	;;
    a7)			size="-width 2.916 -height 4.125"	;;
    a8)			size="-width 2.055 -height 2.916"	;;
    a9)			size="-width 1.458 -height 2.055"	;;
    a10)		size="-width 1.027 -height 1.458"	;;
    archA)		size="-width 9.0   -height 12.0"	;;
    archB)		size="-width 12.0  -height 18.0"	;;
    archC)		size="-width 18.0  -height 24.0"	;;
    archD)		size="-width 24.0  -height 36.0"	;;
    archE)		size="-width 36.0  -height 48.0"	;;
    b0)			size="-width 39.38 -height 55.66"	;;
    b1)			size="-width 27.83 -height 39.38"	;;
    b2)			size="-width 19.69 -height 27.83"	;;
    b3)			size="-width 13.91 -height 19.69"	;;
    b4)			size="-width 9.847 -height 13.91"	;;
    b5)			size="-width 6.958 -height 9.847"	;;
    flsa|flse)		size="-width 8.5   -height 13.0"	;;
    halfletter)		size="-width 5.5   -height 8.5"		;;
    ledger)		size="-width 17.0  -height 11.0"	;;
    legal)		size="-width 8.5   -height 14.0"	;;
    letter|letterdj)	size="-width 8.5   -height 11.0"	;;
    note)		size="-width 7.5   -height 10.0"	;;
    *)			size=""
esac
#
# Workaround for newer pnmtops: They may not accept <res>x<res>
#
res=$dpi
case "$dpi" in
    *x*) horres=${dpi%x*}
         verres=${dpi#*x}
         test $horres -gt $verres && res=$horres || res=$verres
esac
dpi=$res
#
