From 64f037d91e0c9296dcaef9a0ff3eb33b19a2ed34 Mon Sep 17 00:00:00 2001
From: Bryan Newbold <bnewbold@robocracy.org>
Date: Mon, 20 Feb 2017 00:05:38 -0800
Subject: Import Upstream version 3a5

---
 grapheps.ps | 17 +++++++++++++----
 1 file changed, 13 insertions(+), 4 deletions(-)

(limited to 'grapheps.ps')

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
-- 
cgit v1.2.3