home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / GRAPHICS / PSCRIPT / GS241PS.ZIP / BB4GS.PS < prev    next >
Encoding:
Text File  |  1992-04-23  |  15.1 KB  |  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.        tracedump        %% DEBUG
  311.        end % $BoundingBox
  312. } def
  313.  
  314. % 
  315. % BoundingBox functions:
  316. % 
  317. % We accumulate the information about the bounding box into four variables.
  318. % The data is stored in default coordinates.
  319. % 
  320.  
  321. $BoundingBox begin
  322.  
  323. /init {
  324.        /bbox-llx 99999 store
  325.        /bbox-lly 99999 store
  326.        /bbox-urx -99999 store
  327.        /bbox-ury -99999 store
  328. } def
  329.  
  330. /bbox-llx 0 def
  331. /bbox-lly 0 def
  332. /bbox-urx 0 def
  333. /bbox-ury 0 def
  334.  
  335. % 
  336. % - `includepath' -
  337. % 
  338. % Incorporates the bounding box of the path into the bounding box info.
  339. %   ... Gets the bounding box in default coords
  340.  
  341. /includepath {
  342.         (Adding a path: ) traceprint %%DEBUG
  343.        gsave
  344.         initmatrix
  345.        {
  346.                0 setlinejoin
  347.                flattenpath
  348.        } stopped {
  349.                (Couldn't flatten the path\n) traceprint % DEBUG
  350.                grestore
  351.                gsave
  352.                initmatrix
  353.        } if
  354.        { pathbbox } stopped not
  355.        {
  356.             4 2 roll    % Just so we get lower-left first
  357.            2 copy dump-coord %%DEBUG
  358.            dup bbox-lly lt {   
  359.                    /bbox-lly xstore
  360.            } {
  361.                    pop
  362.            } ifelse
  363.            dup bbox-llx lt {
  364.                    /bbox-llx xstore
  365.            } {
  366.                    pop
  367.            } ifelse
  368.  
  369.            (; ) traceprint 2 copy dump-coord (\n) traceprint %%DEBUG
  370.            dup bbox-ury gt {
  371.                    /bbox-ury xstore
  372.            } {
  373.                    pop
  374.            } ifelse
  375.            dup bbox-urx gt {
  376.                    /bbox-urx xstore
  377.            } {
  378.                    pop
  379.            } ifelse
  380.            dump-bbox  %%DEBUG
  381.        } if
  382.        grestore
  383. } def
  384.  
  385. % 
  386. % A nice black-and white line drawing function.
  387. % 
  388.  
  389. /bwstroke {
  390.        0 setlinewidth                  % Thinnest possible lines
  391.        1 setgray                       % White first
  392.        [5] 0 setdash                   % Only half the line
  393.        gsave -stroke grestore
  394.        0 setgray                       % Then black
  395.        [5] 5 setdash                   % On the other half
  396.        -stroke
  397. } def
  398.  
  399. % 
  400. % Stuff for text.
  401. % 
  402.  
  403. % 
  404. % char-code string `chcount' occurs
  405. % 
  406. % Counts the number of times a character appears in a string.
  407. % 
  408.  
  409. /chcount {
  410.        0 exch
  411.        {
  412.                2 index eq {
  413.                        1 add
  414.                } if
  415.        } forall
  416.        exch pop
  417. } def
  418.  
  419. % 
  420. % - `fontheight' heightx heighty depthx depthy
  421. % 
  422. % Returns the offsets to the lowest point and highest point in the current
  423. % font.
  424. % 
  425.  
  426. /fontheight {
  427.        currentfont begin
  428.        /FontBBox load aload pop
  429.        exch pop 0 exch
  430.        FontMatrix transform
  431.        4 2 roll
  432.        exch pop 0 exch
  433.        FontMatrix transform
  434.        end
  435. } def
  436.  
  437. % key round_{down|up} -  These will round the value of the given key
  438. %                         up or down, as appropriate, to the nearest integer
  439. /round_up   { dup load ceiling cvi store } def
  440. /round_down { dup load floor   cvi store } def
  441.  
  442. % key binddefinition - this will do a 'bind' on the procedure given by 'key'
  443. /binddefinition
  444. {
  445.     dup where
  446.     {  
  447.         exch
  448.         2 copy
  449.         get bind put
  450.     }     
  451.     { undefined } ifelse
  452. } def  
  453.  
  454. % Given two numbers on the stack, return with just the smallest
  455. /min { 2 copy ge { exch } if pop } def
  456.  
  457. % Dito for the largest of the pair
  458. /max { 2 copy lt { exch } if pop } def
  459.  
  460.  
  461. % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % 
  462. %
  463. %   Debugging utilities
  464. %
  465.  
  466. /$tracedict where
  467. {  % Trace package loaded... do the tracing
  468.     pop
  469. % This is a debugging function to print out what is going on.
  470. %  Format <argn> <argn-1> ... <arg1> n <string> debug <argn> ... <arg1>
  471. %    (that is, the 'n' args will be *left* on the stack!)
  472. /debug
  473. {
  474.     traceprint (\n) traceprint 
  475.     dup 1 add   % Now total number of args (including arg count) 
  476.     copy
  477.     {
  478.         (    ) traceprint 
  479.        trace=
  480.         (\n) traceprint
  481.     } repeat
  482.     pop    % Remove the extra copy of the arg count
  483. } def
  484.  
  485. % Print out a coordinate on the stack:  x y --- 
  486. /dump-coord
  487. {
  488.     (\() traceprint exch trace= (, ) traceprint trace= (\)) traceprint
  489. } def
  490.  
  491. % Print out bb's current notion of its bounding box
  492.  
  493. /dump-bbox
  494. {
  495.     (Bounding Box: ) traceprint
  496.     bbox-llx bbox-lly dump-coord
  497.     (; ) traceprint
  498.     bbox-urx bbox-ury dump-coord
  499.     (\n) traceprint
  500. } def
  501.  
  502. tracebegin %% DEBUG
  503.  
  504. }
  505. { % No trace package loaded, so don't trace.  Stub out the various calls
  506.  
  507. /traceprint { pop } def
  508. /dump-coord { pop pop } def
  509. /dump-bbox { } def
  510. /debug { pop  pop } def
  511. /tracedump { } def
  512.  
  513. } ifelse
  514.  
  515. % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % 
  516.  
  517. % Bind everything
  518.  
  519. /xdef binddefinition
  520. /xstore binddefinition
  521. /addcoords binddefinition
  522. /stroke binddefinition
  523. /fill binddefinition
  524. /eofill binddefinition
  525. /show binddefinition
  526. /widthshow binddefinition
  527. /ashow binddefinition
  528. /awidthshow binddefinition
  529. /image binddefinition
  530. /showpage binddefinition
  531. /init binddefinition
  532. /includepath binddefinition
  533. /bwstroke binddefinition
  534. /chcount binddefinition
  535. /fontheight binddefinition
  536.  
  537. /debug binddefinition
  538. /dump-coord binddefinition
  539. /dump-bbox binddefinition
  540.  
  541. % Start it up.
  542.  
  543. init
  544.  
  545. end % $BoundingBox
  546.  
  547. %  end of bb.ps
  548.  
  549. % $Log:        bb.ps,v $
  550. % Revision 1.14  91/03/21  13:04:02  cosell
  551. % Relocated the position of the constrained BBox info
  552. % 
  553. % Revision 1.13  91/03/21  12:21:04  cosell
  554. % Forced the %BoundingBox info to stay within the page boundaries
  555. % 
  556. % Revision 1.12  91/03/21  12:15:17  cosell
  557. % Added a tracing hook to bridge restores.
  558. % 
  559. % Revision 1.11  90/07/02  08:48:40  cosell
  560. % bbfig now correctly copes with empty paths
  561. % 
  562. % Revision 1.10  90/06/27  10:47:22  cosell
  563. % Added a bunch of improvements from Joe Pallas at stanford.
  564. % 
  565. % Revision 1.9  90/06/26  10:50:20  cosell
  566. % Stack got botched in the 'debug' stub
  567. % 
  568. % Revision 1.8  90/06/25  09:34:51  cosell
  569. % Minor bug in 'restore'
  570. % 
  571. % Revision 1.7  90/06/25  09:29:58  cosell
  572. % Added code to catch and deal with 'restore'.  Thanks to Frank
  573. % Jensen for finding this one
  574. % 
  575. % Revision 1.6  90/06/25  09:23:26  cosell
  576. % Small bugfix in the text-handling stuff
  577. % 
  578. % Revision 1.5  90/06/10  09:04:02  cosell
  579. % Changed the printed string to explictly say "%%BoundingBox"
  580. % 
  581. % Revision 1.4  90/06/10  08:55:39  cosell
  582. % Added 'bind' machinery to insulate this package from later redefinitions
  583. % of things we need from the systemdict.
  584. % 
  585. % Revision 1.3  90/06/10  08:28:53  cosell
  586. % Added debugging hooks.  They don't affect anything (and don't do
  587. % anything) in the normal use of bbfig.  But if the 'trace' package
  588. % is loaded ahead of this, it'll print out some helpful info.  Probably
  589. % I'll end up removing all of this if/when I really get the package
  590. % up to snuff.
  591. % 
  592. % Revision 1.2  90/05/25  12:08:24  cosell
  593. % Major improvements and tuneups:  fixed it to really use its private
  594. % discionary, and the most importnat: it now computes the bounding box
  595. % in *default* coords
  596. %
  597. % Revision 1.1  90/05/23  08:18:54  cosell
  598. % Initial revision
  599. %   This is Ned Bachelder's original version
  600.