diff options
author | Bryan Newbold <bnewbold@robocracy.org> | 2017-02-20 00:05:38 -0800 |
---|---|---|
committer | Bryan Newbold <bnewbold@robocracy.org> | 2017-02-20 00:05:38 -0800 |
commit | 64f037d91e0c9296dcaef9a0ff3eb33b19a2ed34 (patch) | |
tree | 1b23b8e8005328194e2fb4bf653806c85050933f /grapheps.ps | |
parent | 5bea21e81ed516440e34e480f2c33ca41aa8c597 (diff) | |
download | slib-64f037d91e0c9296dcaef9a0ff3eb33b19a2ed34.tar.gz slib-64f037d91e0c9296dcaef9a0ff3eb33b19a2ed34.zip |
Import Upstream version 3a5upstream/3a5
Diffstat (limited to 'grapheps.ps')
-rw-r--r-- | grapheps.ps | 17 |
1 files changed, 13 insertions, 4 deletions
diff --git a/grapheps.ps b/grapheps.ps index db3b8b1..4d41fd9 100644 --- a/grapheps.ps +++ b/grapheps.ps @@ -47,6 +47,9 @@ plotdict begin /YSTEP 0 def /YSTEPH 0 def /YTSCL 0 def +/STP3 0 def +/STP2 0 def +/SCL 0 def /graphrect 0 def /plotrect 0 def @@ -165,6 +168,14 @@ plotdict begin } repeat } bind def +/fudge3 % SCL STP3 STP2 +{ + /STP2 exch def /STP3 exch def /SCL exch def + SCL 3 mod 0 eq {STP3} {STP2} ifelse +%% leads to range error in CVS. +% SCL abs 3000 gt {STP2} {SCL 3 mod 0 eq {STP3} {STP2} ifelse} ifelse +} bind def + % The arguments are: % [ MIN-X MIN-Y DELTA-X DELTA-Y ] whole graph rectangle % [ MIN-COLJ MAX-COLJ ] Numerical range of plot data @@ -186,11 +197,9 @@ plotdict begin /XOFF XOFF plotrect 0 get XSCL div sub def /YOFF YOFF plotrect 1 get YSCL div sub def /YTSCL plotrect 3 get YRNG aload pop exch sub abs find-tick-scale def - /YSTEP YTSCL 0 get 3 mod 0 eq {6} {8} ifelse 5 mul yuntrans - YSCL sign mul def + /YSTEP YTSCL 0 get 6 8 fudge3 5 mul yuntrans YSCL sign mul def /XTSCL plotrect 2 get XRNG aload pop exch sub abs find-tick-scale def - /XSTEP XTSCL 0 get 3 mod 0 eq {12} {10} ifelse 5 mul xuntrans - XSCL sign mul def + /XSTEP XTSCL 0 get 12 10 fudge3 5 mul xuntrans XSCL sign mul def /YSTEPH YSTEP 2 div def /XSTEPH XSTEP 2 div def } bind def |