home *** CD-ROM | disk | FTP | other *** search
/ Best Objectech Shareware Selections / UNTITLED.iso / boss / grap / clip / 017 / bb4gs.ps < prev    next >
Text File  |  1992-04-22  |  15KB  |  600 lines
  1. %! 
  2. % bb.ps --
  3. % 
  4. % Prints a file, but keeps track of bounding box info, and prints the box at
  5. % the end (around the figure.)
  6. % 
  7. % $Header: bb.ps,v 1.14 91/03/21 13:04:02 cosell Exp $
  8. % RCS log info at end
  9. %
  10. % This version, bb4gs.ps, modified for Ghostscript by William L. Kath
  11. % <kath@nwu.edu>, 92/03/01; all changes clearly marked by `Ghostscript'
  12.  
  13. /strokepath { } def           %% added by wlk for Ghostscript (I think
  14.                               %% the strokepath operator is still not
  15.                               %% fully implemented).
  16.  
  17. %% /show /print load def      %% added by wlk for Ghostscript; uncomment
  18.                               %% this lines to write %%BoundingBox to
  19.                               %% stdout (e.g, for use in a filter to add
  20.                               %% %%BoundingBox to a Postscript file);
  21.                               %% alternatively, add these two lines to
  22.                               %% a separate file and invoke before this
  23.                               %% one when such a filter is desired.
  24.  
  25. 50 dict /$BoundingBox exch def
  26.  
  27. $BoundingBox begin
  28.  
  29. /xdef {
  30.        exch def
  31. } def
  32.  
  33. /xstore {
  34.        exch store
  35. } def
  36.  
  37. /addcoords {
  38.        exch
  39.        4 -1 roll add
  40.        3 1 roll add
  41. } def
  42.  
  43. % 
  44. % Stubs of old functions.
  45. % 
  46.  
  47. /-stroke /stroke load def
  48. /-fill /fill load def
  49. /-eofill /eofill load def
  50. /-image /image load def
  51. /-show /show load def
  52. /-awidthshow /awidthshow load def
  53. /-showpage /showpage load def
  54. /-restore  /restore load def
  55. /-imagemask /imagemask load def
  56.  
  57. end % $BoundingBox
  58.  
  59. % 
  60. % New Functions.   --- These go into the user dict to intercept the calls
  61. % 
  62.  
  63. /stroke {
  64.         $BoundingBox begin
  65.        gsave
  66.        initmatrix
  67.        (stroke called\n) traceprint %%DEBUG
  68.        {
  69.                strokepath      % Make sure to take line width into account.
  70.                0 setlinejoin
  71.                flattenpath
  72.        } stopped {             % strokepath often hits a limitcheck.
  73.                (Can't set up a strokepath\n) traceprint % DEBUG
  74.                grestore        % Restore the original path
  75.                gsave
  76.        } if
  77.        includepath                     % Accumulate it into our box.
  78.        grestore
  79.  
  80.        -stroke
  81.        end % $BoundingBox
  82. } def
  83.  
  84. /fill {
  85.         $BoundingBox begin
  86.        gsave
  87.        (fill called\n) traceprint %%DEBUG
  88.        includepath
  89.        grestore
  90.  
  91.        -fill
  92.        end % $BoundingBox
  93. } def
  94.  
  95. /eofill {
  96.         $BoundingBox begin
  97.        gsave
  98.        (eofill called\n) traceprint %%DEBUG
  99.        includepath
  100.        grestore
  101.  
  102.        -eofill
  103.        end % $BoundingBox
  104. } def
  105.  
  106. % 
  107. % Text is implemented by reducing everything to an `awidthshow'.
  108. % 
  109.  
  110. /show {
  111.         $BoundingBox begin
  112.        (show called\n) traceprint %%DEBUG
  113.        0 0 0 0 0               % Extra parameters for awidthshow
  114.        6 -1 roll               % Bring the string back up
  115.        awidthshow
  116.        end % $BoundingBox
  117. } def
  118.  
  119. /widthshow {
  120.         $BoundingBox begin
  121.         (widthshow called\n) traceprint %%DEBUG
  122.        0 0                     % Extra parameters for awidthshow
  123.        3 -1 roll               % Bring the string back up.
  124.        awidthshow
  125.        end % $BoundingBox
  126. } def
  127.  
  128. /ashow {
  129.         $BoundingBox begin
  130.         (ashow called\n) traceprint %%DEBUG
  131.        0 0 0 
  132.        6 3 roll
  133.        awidthshow
  134.        end % $BoundingBox
  135. } def
  136.  
  137.  
  138. % This does all of the work of the text-rendering operators
  139. %   What it does, is compute, basically brute force, what 'charpath'
  140. %   would have given us virtually for free, if 'show' were the only
  141. %   operator that we needed to do.
  142.  
  143. /awidthshow {
  144.        $BoundingBox begin
  145.        gsave
  146.        6 (awidthshow:) debug %%DEBUG
  147.        currentpoint
  148.        2 copy /@starty xdef /@startx xdef
  149.        2 index stringwidth     % Get the natural length of the string
  150.        addcoords                       % Add to the start to get the end.
  151.  
  152.        2 index length          % How many characters?
  153.  
  154.        dup                     % Add the offsets to each character
  155.        6 index mul
  156.        exch 5 index mul
  157.        addcoords
  158.  
  159.        5 index 3 index
  160.        chcount         % How many padding characters?
  161.  
  162.        dup                     % Add the offsets for each pad.
  163.        9 index mul
  164.        exch 8 index mul
  165.        addcoords
  166.  
  167.        /@endy xdef /@endx xdef
  168.  
  169.        % We now have the left and right edges (in user coords)
  170.        % of the text.  Now we need only correct for the vertical
  171.        % displacements needed for the font and we can get the
  172.        % top and bottom edges of the enclosing box
  173.  
  174.        fontheight              % Get the height and depth of the current font.
  175.        
  176.        @startx @starty addcoords
  177.        /@starty xdef /@startx xdef
  178.        @endx @endy addcoords
  179.        /@endy xdef /@endx xdef
  180.        newpath
  181.        @startx @starty moveto
  182.        @endx @starty lineto
  183.        @endx @endy lineto
  184.        @startx @endy lineto
  185.        closepath
  186.         includepath
  187.        grestore
  188.  
  189.        -awidthshow
  190.        end % $BoundingBox
  191. } def
  192.  
  193. % 
  194. % `image':
  195. % 
  196. % Assume here that the image lands in the unit square.
  197. % 
  198.  
  199. /image {
  200.         $BoundingBox begin
  201.         (image called\n) traceprint %%DEBUG
  202.        gsave
  203.        newpath
  204.        0 0 moveto
  205.        1 0 rlineto
  206.        1 1 rlineto
  207.        -1 0 rlineto
  208.        closepath
  209.        includepath
  210.        grestore
  211.  
  212.        -image
  213.        end % $BoundingBox
  214. } def
  215.  
  216. /imagemask
  217. {
  218.     $BoundingBox begin
  219.     (imagemask called\n) traceprint %%DEBUG
  220.     gsave
  221.     newpath
  222.     0 0 moveto
  223.     1 0 rlineto
  224.     1 1 rlineto
  225.     -1 0 rlineto
  226.     closepath
  227.     includepath
  228.     grestore
  229.  
  230.     -imagemask
  231.     end % $BoundingBox
  232. } def
  233.  
  234. % Just define this one out of existence
  235. /framedevice { pop pop pop pop } def
  236.  
  237. % Handle restoring VM --- this is all OK, except that we have to
  238. % hang onto the bb info we collected while in the about-to-be-discarded
  239. % environment
  240.  
  241. /restore
  242. {
  243.     $BoundingBox begin
  244.     (restore called\n) traceprint %%DEBUG
  245.     tracedump  %% HACK, but the only way I see right now to get this stuff!
  246.     bbox-llx bbox-lly bbox-urx bbox-ury 
  247.     5 -1 roll
  248.     -restore
  249.     /bbox-ury xstore /bbox-urx xstore
  250.     /bbox-lly xstore /bbox-llx xstore
  251.     end % $BoundingBox
  252. } def
  253.  
  254.     
  255. % 
  256. % `showpage':
  257. % 
  258. % Just draw the box around the figure and print the page, and then initialize
  259. % the bounding box variables again.
  260. % 
  261.  
  262. $BoundingBox begin
  263. /temp-string 10 string def
  264. end % $BoundingBox
  265.  
  266. /showpage {
  267.        $BoundingBox begin
  268.        initgraphics
  269.  
  270.         (showpage\n) traceprint % DEBUG
  271.        dump-bbox  % DEBUG
  272.  
  273.         /bbox-llx round_down
  274.        /bbox-lly round_down
  275.        /bbox-ury round_up
  276.        /bbox-urx round_up
  277.  
  278.        bbox-llx bbox-lly moveto                % Make the box
  279.        bbox-llx bbox-ury lineto
  280.        bbox-urx bbox-ury lineto
  281.        bbox-urx bbox-lly lineto
  282.        closepath
  283.  
  284.        bwstroke                        % Draw the box.
  285.  
  286. % Print the size of the bounding box both above and below the actual box
  287.        0 setgray
  288.   %%    /Courier findfont 10 scalefont setfont
  289.   %%    bbox-llx 36 max bbox-lly 12 sub 36 max moveto
  290.         /Courier findfont 25 scalefont setfont         %% changed by wlk
  291.         bbox-llx 36 max bbox-lly 29 sub 36 max moveto  %% for Ghostscript
  292.        (%%BoundingBox: ) -show
  293.        bbox-llx temp-string cvs -show ( ) -show
  294.        bbox-lly temp-string cvs -show ( ) -show
  295.        bbox-urx temp-string cvs -show ( ) -show
  296.        bbox-ury temp-string cvs -show
  297.  
  298.        bbox-llx 36 max bbox-ury 12 add 740 min moveto
  299.         /-show load /print load ne       %% added by wlk for Ghostscript
  300.         {                                %% added by wlk for Ghostscript
  301.         (%%BoundingBox: ) -show
  302.        bbox-llx temp-string cvs -show ( ) -show
  303.        bbox-lly temp-string cvs -show ( ) -show
  304.        bbox-urx temp-string cvs -show ( ) -show
  305.        bbox-ury temp-string cvs -show
  306.         } if                             %% added by wlk for Ghostscript
  307.  
  308.        init
  309.        -showpage
  310.