home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 5 / DATAFILE_PDCD5.iso / utilities / r / rs_hints / FixBugs < prev    next >
Text File  |  1996-06-07  |  1KB  |  51 lines
  1. %!PS
  2.  
  3. % RiScript bug work-arounds.
  4. % Copyright 1996 Chris Poole (c.e.poole@iee.org.uk)
  5. % Version 1.1
  6.  
  7. userdict begin
  8.  
  9. % Make a new version of ashow which actually does what it is supposed to.
  10.  
  11.     /ashow
  12.     {
  13.         2 dict begin
  14.         3 1 roll /y exch def /x exch def
  15.         {pop pop x y rmoveto} exch kshow
  16.         x y rmoveto
  17.         end
  18.     } bind def
  19.  
  20. % We need a new version of awidthshow too, both to make it work, and to
  21. % fix a bug whereby it objects to some of its parameters being reals.
  22.  
  23.     /awidthshow
  24.     {
  25.         7 dict begin
  26.         6 1 roll /ay exch def /ax exch def
  27.         /c exch def /cy exch def /cx exch def
  28.         /last 0 def
  29.         {/last exch def c eq {cx ax add cy ay add} {ax ay} ifelse rmoveto} exch kshow
  30.         last c eq {cx ax add cy ay add} {ax ay} ifelse rmoveto
  31.         end
  32.     } bind def
  33.  
  34. % Some postscript programs pass non-executable parameters to bind which
  35. % RiScript objects to.  Fix this by redefining bind.
  36.  
  37.     /bind
  38.     {
  39.         cvx bind
  40.     } bind def
  41.  
  42. % Some programs expect 'version' to return a number in a string, without
  43. % any other text.  Redefine version to return something suitable.
  44.  
  45.     /version
  46.     {
  47.         version 0 4 getinterval
  48.     } bind def
  49.  
  50. end
  51.