#!/usr/bin/awk -f
#
#- penvelope --
#-	This application generates Postscript code for an envelope.
#-
# Input is return address, blank line, recipient address.
# Output is postscript for envelope.
#
# Copyright (c) 2008 Gordon D. Carrie
# All rights reserved.
#
# Please send feedback to dev0@trekix.net
#
# $Revision: 1.7 $ $Date: 2009/09/25 21:33:12 $

BEGIN {
    printf "%s\n%s\n%s\n%s\n%s\n%s\n%s\n",
    "%!PS",
    "/Times-Roman findfont 12 scalefont setfont",
    "/H 297.0 def",
    "H 0 translate",
    "90.0 rotate",
    "/x 120 def",
    "/y H 12 sub def"
}
/[0-9A-Za-z]/ {
    printf "/y y 12 sub def\nx y moveto\n(%s) show\n", $0
}
/^$/ {
    print "/x 450.0 def\n/y 148.5 def"
}
END {
    print "showpage"
}