#!/bin/ksh93

progname=${.sh.file##*/}

function help {
	print '
Usage: '"${progname}"' [-hi|-lo] file[.dvi] [options for dvips]
  -hi: use high fax resolution (204x196) (default)
  -lo: use low fax resolution (204x98)

Example: $progname foo -l 2
'
}

dvipsconf='dfaxhigh'; gsdev='dfaxhigh'
case $1 in
  -hi) gsdev='dfaxhigh'; shift;;
  -lo) gsdev='dfaxlow'; shift;;
esac

[[ -z $1 ]]  && help && exit 1

NAME=${1##*/}
dvips "$@" -P${dvipsconf} -f | gs -q -dSAFER -sNOPAUSE -sDEVICE=${gsdev} \
	-sOutputFile="${NAME%.dvi}-%03d.fax" -