Path: utzoo!attcan!utgpu!jarvis.csri.toronto.edu!mailrus!uwm.edu!gem.mps.ohio-state.edu!rpi!image.soe.clarkson.edu!daemon
From: nelson@PEAR.ECS.CLARKSON.EDU
Newsgroups: comp.lang.postscript
Subject: Ruler.ps
Message-ID: <2126@pear.ecs.clarkson.edu>
Date: 19 Oct 89 15:19:42 GMT
Sender: daemon@sun.soe.clarkson.edu
Reply-To: nelson@sun.soe.clarkson.edu
Organization: Clarkson University, Potsdam, NY
Lines: 23

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