#!/bin/sh

usage()
{
    echo "usage: mkpstext [-f font] [-s size] [-x xoff] [-y yoff] [-t text]" >&2
    exit 1
}

font=Times-Roman
size=80
x=36
y=600
text="Hello, World!"

while getopts ":f:s:x:y:t:" c
do
    case "$c" in
    f)      font=$OPTARG;;
    s)      size=$OPTARG;;
    x)      x=$OPTARG;;
    y)      y=$OPTARG;;
    t)      text=$OPTARG;;
    :|'?')  usage;;
    esac
done

cat <<EOF
%!
/$font findfont $size scalefont setfont
newpath
$x $y moveto
($text) show
showpage
EOF
.