nelson@PEAR.ECS.CLARKSON.EDU (10/19/89)
This may be a reinvented wheel, but here's a Points ruler (I got tired
of measuring inches and multiplying by 72(.27).
%!
/Helvetica findfont 8 scalefont setfont
20 20 translate
0 setlinewidth
0 5 720 {
newpath
dup 0 exch moveto
dup 10 mod 0 eq {
10 0 rlineto stroke
dup 3 sub 12 exch moveto
dup 4 string cvs show
} {
5 0 rlineto stroke
} ifelse
pop
} for
showpage