Path: utzoo!utgpu!jarvis.csri.toronto.edu!mailrus!csd4.csd.uwm.edu!lll-winken!tekbspa!optilink!cramer
From: cramer@optilink.UUCP (Clayton Cramer)
Newsgroups: comp.lang.postscript
Subject: PostScript Toolset: X-Y coordinates Graph.ps
Message-ID: <2256@optilink.UUCP>
Date: 29 Aug 89 22:42:11 GMT
Organization: Optilink Corporation, Petaluma, CA
Lines: 23

%!
/Graph
    {% graph (first X, first Y, end X, end Y, X line width, Y line width, 
     %        X gray, Y gray, X to X distance, Y to Y distance
    /YGap exch def /XGap exch def /YDensity exch def /XDensity exch def
    /YWidth exch def /XWidth exch def
    /YEnd exch def /XEnd exch def /YStart exch def /XStart exch def
    XWidth setlinewidth XDensity setgray
    XStart XGap XEnd {dup YStart moveto YEnd lineto stroke} for
    YWidth setlinewidth YDensity setgray
    YStart YGap YEnd {dup XStart exch moveto XEnd exch lineto stroke} for
    } def
%%DEMO
/in {72 mul} def
20 20 8.5 in 11 in 0 0 0 0 .05 in .05 in Graph 
1 setlinewidth 
20 20 moveto /Times-Roman findfont 800 scalefont setfont 
(T) false charpath stroke showpage
-- 
Clayton E. Cramer {pyramid,pixar,tekbspa}!optilink!cramer
"No man is an island" is the beginning of the end of personal freedom.
----------------------------------------------------------------------------
Disclaimer?  You must be kidding!  No company would hold opinions like mine!