Lines Matching +full:sub +full:- +full:units

3 #  make-ps-header - make a PostScript header page on stdout
4 #  Installed in /usr/local/libexec/make-ps-header
8 #  These are PostScript units (72 to the inch).  Modify for A4 or
18 if [ $# -ne 3 ]; then
46 $page_width $border 2 mul sub 0 rlineto
47 0 $page_height $border 2 mul sub rlineto
48 currentscreen 3 -1 roll pop 100 3 1 roll setscreen
49 $border 2 mul $page_width sub 0 rlineto closepath
55 /Helvetica-Bold findfont 64 scalefont setfont
56 $page_width ($user) stringwidth pop sub 2 div $page_height 200 sub moveto
65 	200 y moveto show /y y 18 sub def
68 /Helvetica-Bold findfont 14 scalefont setfont
71 	270 y moveto show /y y 18 sub def