home *** CD-ROM | disk | FTP | other *** search
/ World of Shareware - Software Farm 2 / wosw_2.zip / wosw_2 / PRINTING / GS23A.ZIP / BB.PS < prev    next >
Text File  |  1991-03-02  |  14KB  |  571 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.10 90/06/27 10:47:22 cosell Exp $
  8. % RCS log info at end
  9.  
  10. 50 dict /$BoundingBox exch def
  11.  
  12. $BoundingBox begin
  13.  
  14. /xdef {
  15.         exch def
  16. } def
  17.  
  18. /xstore {
  19.         exch store
  20. } def
  21.  
  22. /addcoords {
  23.         exch
  24.         4 -1 roll add
  25.         3 1 roll add
  26. } def
  27.  
  28. % 
  29. % Stubs of old functions.
  30. % 
  31.  
  32. /-stroke /stroke load def
  33. /-fill /fill load def
  34. /-eofill /eofill load def
  35. /-image /image load def
  36. /-show /show load def
  37. /-awidthshow /awidthshow load def
  38. /-showpage /showpage load def
  39. /-restore  /restore load def
  40. /-imagemask /imagemask load def
  41.  
  42. end % $BoundingBox
  43.  
  44. % 
  45. % New Functions.   --- These go into the user dict to intercept the calls
  46. % 
  47.  
  48. /stroke {
  49.         $BoundingBox begin
  50.         gsave
  51.         initmatrix
  52.         (stroke called\n) traceprint %%DEBUG
  53.         {
  54. %%%%%%        % strokepath      % Make sure to take line width into account.
  55.                                 % COMMENTED OUT FOR GHOSTSCRIPT 1.3 BUG
  56.                 0 setlinejoin
  57.                 flattenpath
  58.         } stopped {             % strokepath often hits a limitcheck.
  59.                 (Can't set up a strokepath\n) traceprint % DEBUG
  60.                 grestore        % Restore the original path
  61.                 gsave
  62.         } if
  63.         includepath                     % Accumulate it into our box.
  64.         grestore
  65.  
  66.         -stroke
  67.         end % $BoundingBox
  68. } def
  69.  
  70. /fill {
  71.         $BoundingBox begin
  72.         gsave
  73.         (fill called\n) traceprint %%DEBUG
  74.         includepath
  75.         grestore
  76.  
  77.         -fill
  78.         end % $BoundingBox
  79. } def
  80.  
  81. /eofill {
  82.         $BoundingBox begin
  83.         gsave
  84.         (eofill called\n) traceprint %%DEBUG
  85.         includepath
  86.         grestore
  87.  
  88.         -eofill
  89.         end % $BoundingBox
  90. } def
  91.  
  92. % 
  93. % Text is implemented by reducing everything to an `awidthshow'.
  94. % 
  95.  
  96. /show {
  97.         $BoundingBox begin
  98.         (show called\n) traceprint %%DEBUG
  99.         0 0 0 0 0               % Extra parameters for awidthshow
  100.         6 -1 roll               % Bring the string back up
  101.         awidthshow
  102.         end % $BoundingBox
  103. } def
  104.  
  105. /widthshow {
  106.         $BoundingBox begin
  107.         (widthshow called\n) traceprint %%DEBUG
  108.         0 0                     % Extra parameters for awidthshow
  109.         3 -1 roll               % Bring the string back up.
  110.         awidthshow
  111.         end % $BoundingBox
  112. } def
  113.  
  114. /ashow {
  115.         $BoundingBox begin
  116.         (ashow called\n) traceprint %%DEBUG
  117.         0 0 0 
  118.         6 3 roll
  119.         awidthshow
  120.         end % $BoundingBox
  121. } def
  122.  
  123.  
  124. % This does all of the work of the text-rendering operators
  125. %   What it does, is compute, basically brute force, what 'charpath'
  126. %   would have given us virtually for free, if 'show' were the only
  127. %   operator that we needed to do.
  128.  
  129. /awidthshow {
  130.         $BoundingBox begin
  131.         gsave
  132.         6 (awidthshow:) debug %%DEBUG
  133.         currentpoint
  134.         2 copy /@starty xdef /@startx xdef
  135.         2 index stringwidth     % Get the natural length of the string
  136.         addcoords                       % Add to the start to get the end.
  137.  
  138.         2 index length          % How many characters?
  139.  
  140.         dup                     % Add the offsets to each character
  141.         6 index mul
  142.         exch 5 index mul
  143.         addcoords
  144.  
  145.         5 index 3 index
  146.         chcount         % How many padding characters?
  147.  
  148.         dup                     % Add the offsets for each pad.
  149.         9 index mul
  150.         exch 8 index mul
  151.         addcoords
  152.  
  153.         /@endy xdef /@endx xdef
  154.  
  155.         % We now have the left and right edges (in user coords)
  156.         % of the text.  Now we need only correct for the vertical
  157.         % displacements needed for the font and we can get the
  158.         % top and bottom edges of the enclosing box
  159.  
  160.         fontheight              % Get the height and depth of the current font.
  161.         
  162.         @startx @starty addcoords
  163.         /@starty xdef /@startx xdef
  164.         @endx @endy addcoords
  165.         /@endy xdef /@endx xdef
  166.         newpath
  167.         @startx @starty moveto
  168.         @endx @starty lineto
  169.         @endx @endy lineto
  170.         @startx @endy lineto
  171.         closepath
  172.         includepath
  173.         grestore
  174.  
  175.         -awidthshow
  176.         end % $BoundingBox
  177. } def
  178.  
  179. % 
  180. % `image':
  181. % 
  182. % Assume here that the image lands in the unit square.
  183. % 
  184.  
  185. /image {
  186.         $BoundingBox begin
  187.         (image called\n) traceprint %%DEBUG
  188.         gsave
  189.         newpath
  190.         0 0 moveto
  191.         1 0 rlineto
  192.         1 1 rlineto
  193.         -1 0 rlineto
  194.         closepath
  195.         includepath
  196.         grestore
  197.  
  198.         -image
  199.         end % $BoundingBox
  200. } def
  201.  
  202. /imagemask
  203. {
  204.     $BoundingBox begin
  205.     (imagemask called\n) traceprint %%DEBUG
  206.     gsave
  207.     newpath
  208.     0 0 moveto
  209.     1 0 rlineto
  210.     1 1 rlineto
  211.     -1 0 rlineto
  212.     closepath
  213.     includepath
  214.     grestore
  215.  
  216.     -imagemask
  217.     end % $BoundingBox
  218. } def
  219.  
  220. % Just define this one out of existence
  221. /framedevice { pop pop pop pop } def
  222.  
  223. % Handle restoring VM --- this is all OK, except that we have to
  224. % hang onto the bb info we collected while in the about-to-be-discarded
  225. % environment
  226.  
  227. /restore
  228. {
  229.     $BoundingBox begin
  230.     bbox-llx bbox-lly bbox-urx bbox-ury 
  231.     5 -1 roll
  232.     -restore
  233.     /bbox-ury xstore /bbox-urx xstore
  234.     /bbox-lly xstore /bbox-llx xstore
  235.     end % $BoundingBox
  236. } def
  237.  
  238.     
  239. % 
  240. % `showpage':
  241. % 
  242. % Just draw the box around the figure and print the page, and then initialize
  243. % the bounding box variables again.
  244. % 
  245.  
  246. $BoundingBox begin
  247. /temp-string 10 string def
  248. end % $BoundingBox
  249.  
  250. /showpage {
  251.         $BoundingBox begin
  252.         initgraphics
  253.  
  254.         (showpage\n) traceprint % DEBUG
  255.         dump-bbox  % DEBUG
  256.  
  257.         /bbox-llx round_down
  258.         /bbox-lly round_down
  259.         /bbox-ury round_up
  260.         /bbox-urx round_up
  261.  
  262.         bbox-llx bbox-lly moveto                % Make the box
  263.         bbox-llx bbox-ury lineto
  264.         bbox-urx bbox-ury lineto
  265.         bbox-urx bbox-lly lineto
  266.         closepath
  267.  
  268. %       bwstroke               % Draw the box.
  269.         -stroke                % REPLACED FOR GHOSTSCRIPT 1.3
  270.  
  271. % Print the size of the bounding box both above and below the actual box
  272.         0 setgray
  273. %       /Courier findfont 10 scalefont setfont
  274.         /Courier findfont 25 scalefont setfont  % MODIFIED FOR GHOSTSCRIPT
  275.         100 100 moveto
  276. %       bbox-llx bbox-lly 12 sub moveto
  277.         bbox-llx bbox-lly 25 sub moveto         % GHOSTSCRIPT MOD
  278.         (%%BoundingBox: ) -show
  279.         bbox-llx temp-string cvs -show ( ) -show
  280.         bbox-lly temp-string cvs -show ( ) -show
  281.         bbox-urx temp-string cvs -show ( ) -show
  282.         bbox-ury temp-string cvs -show
  283.  
  284. %       bbox-llx bbox-ury 12 add moveto
  285.         bbox-llx bbox-ury 16 add moveto         % GHOSTSCRIPT MOD
  286.         (%%BoundingBox: ) -show
  287.         bbox-llx temp-string cvs -show ( ) -show
  288.         bbox-lly temp-string cvs -show ( ) -show
  289.         bbox-urx temp-string cvs -show ( ) -show
  290.         bbox-ury temp-string cvs -show
  291.  
  292.         init
  293.         -showpage
  294.         tracedump        %% DEBUG
  295.         end % $BoundingBox
  296. } def
  297.  
  298. % 
  299. % BoundingBox functions:
  300. % 
  301. % We accumulate the information about the bounding box into four variables.
  302. % The data is stored in default coordinates.
  303. % 
  304.  
  305. $BoundingBox begin
  306.  
  307. /init {
  308.         /bbox-llx 99999 store
  309.         /bbox-lly 99999 store
  310.         /bbox-urx -99999 store
  311.         /bbox-ury -99999 store
  312. } def
  313.  
  314. /bbox-llx 0 def
  315. /bbox-lly 0 def
  316. /bbox-urx 0 def
  317. /bbox-ury 0 def
  318.  
  319. % 
  320. % - `includepath' -
  321. % 
  322. % Incorporates the bounding box of the path into the bounding box info.
  323. %   ... Gets the bounding box in default coords
  324.  
  325. /includepath {
  326.         (Adding a path: ) traceprint %%DEBUG
  327.         gsave
  328.         initmatrix
  329.         {
  330.                 0 setlinejoin
  331.                 flattenpath
  332.         } stopped {
  333.                 (Couldn't flatten the path\n) traceprint % DEBUG
  334.                 grestore
  335.                 gsave
  336.                 initmatrix
  337.         } if
  338.   %     pathbox                     %% line commented out by WLK for GRAPHER
  339.         { pathbbox } stopped not    %% line added by WLK for GRAPHER
  340.                                     %% ---handles empty stroke paths
  341.         {                           %% line added by WLK for GRAPHER
  342.         4 2 roll    % Just so we get lower-left first
  343.         2 copy dump-coord %%DEBUG
  344.         dup bbox-lly lt {       
  345.                 /bbox-lly xstore
  346.         } {
  347.                 pop
  348.         } ifelse
  349.         dup bbox-llx lt {
  350.                 /bbox-llx xstore
  351.         } {
  352.                 pop
  353.         } ifelse
  354.  
  355.         (; ) traceprint 2 copy dump-coord (\n) traceprint %%DEBUG
  356.         dup bbox-ury gt {
  357.                 /bbox-ury xstore
  358.         } {
  359.                 pop
  360.         } ifelse
  361.         dup bbox-urx gt {
  362.                 /bbox-urx xstore
  363.         } {
  364.                 pop
  365.         } ifelse
  366.         dump-bbox  %%DEBUG
  367.         } if       %% line added by WLK for GRAPHER
  368.         grestore
  369. } def
  370.  
  371. % 
  372. % A nice black-and white line drawing function.
  373. % 
  374.  
  375. /bwstroke {
  376.         0 setlinewidth                  % Thinnest possible lines
  377.         1 setgray                       % White first
  378.         [5] 0 setdash                   % Only half the line
  379.         gsave -stroke grestore
  380.         0 setgray                       % Then black
  381.         [5] 5 setdash                   % On the other half
  382.         -stroke
  383. } def
  384.  
  385. % 
  386. % Stuff for text.
  387. % 
  388.  
  389. % 
  390. % char-code string `chcount' occurs
  391. % 
  392. % Counts the number of times a character appears in a string.
  393. % 
  394.  
  395. /chcount {
  396.         0 exch
  397.         {
  398.                 2 index eq {
  399.                         1 add
  400.                 } if
  401.         } forall
  402.         exch pop
  403. } def
  404.  
  405. % 
  406. % - `fontheight' heightx heighty depthx depthy
  407. % 
  408. % Returns the offsets to the lowest point and highest point in the current
  409. % font.
  410. % 
  411.  
  412. /fontheight {
  413.         currentfont begin
  414.         /FontBBox load aload pop
  415.         exch pop 0 exch
  416.         FontMatrix transform
  417.         4 2 roll
  418.         exch pop 0 exch
  419.         FontMatrix transform
  420.         end
  421. } def
  422.  
  423. % key round_{down|up} -  These will round the value of the given key
  424. %                         up or down, as appropriate, to the nearest integer
  425. /round_up   { dup load ceiling cvi store } def
  426. /round_down { dup load floor   cvi store } def
  427.  
  428. % key binddefinition - this will do a 'bind' on the procedure given by 'key'
  429. /binddefinition
  430. {
  431.     dup where
  432.     {  
  433.         exch
  434.         2 copy
  435.         get bind put
  436.     }     
  437.     { undefined } ifelse
  438. } def  
  439.  
  440. % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % 
  441. %
  442. %   Debugging utilities
  443. %
  444.  
  445. /$tracedict where
  446. {  % Trace package loaded... do the tracing
  447.     pop
  448. % This is a debugging function to print out what is going on.
  449. %  Format <argn> <argn-1> ... <arg1> n <string> debug <argn> ... <arg1>
  450. %    (that is, the 'n' args will be *left* on the stack!)
  451. /debug
  452. {
  453.     traceprint (\n) traceprint 
  454.     dup 1 add   % Now total number of args (including arg count) 
  455.     copy
  456.     {
  457.         (    ) traceprint 
  458.         trace=
  459.         (\n) traceprint
  460.     } repeat
  461.     pop    % Remove the extra copy of the arg count
  462. } def
  463.  
  464. % Print out a coordinate on the stack:  x y --- 
  465. /dump-coord
  466. {
  467.     (\() traceprint exch trace= (, ) traceprint trace= (\)) traceprint
  468. } def
  469.  
  470. % Print out bb's current notion of its bounding box
  471.  
  472. /dump-bbox
  473. {
  474.     (Bounding Box: ) traceprint
  475.     bbox-llx bbox-lly dump-coord
  476.     (; ) traceprint
  477.     bbox-urx bbox-ury dump-coord
  478.     (\n) traceprint
  479. } def
  480.  
  481. tracebegin %% DEBUG
  482.  
  483. }
  484. { % No trace package loaded, so don't trace.  Stub out the various calls
  485.  
  486. /traceprint { pop } def
  487. /dump-coord { pop pop } def
  488. /dump-bbox { } def
  489. /debug { pop  pop } def
  490. /tracedump { } def
  491.  
  492. } ifelse
  493.  
  494. % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % 
  495.  
  496. % Bind everything
  497.  
  498. /xdef binddefinition
  499. /xstore binddefinition
  500. /addcoords binddefinition
  501. /stroke binddefinition
  502. /fill binddefinition
  503. /eofill binddefinition
  504. /show binddefinition
  505. /widthshow binddefinition
  506. /ashow binddefinition
  507. /awidthshow binddefinition
  508. /image binddefinition
  509. /showpage binddefinition
  510. /init binddefinition
  511. /includepath binddefinition
  512. /bwstroke binddefinition
  513. /chcount binddefinition
  514. /fontheight binddefinition
  515.  
  516. /debug binddefinition
  517. /dump-coord binddefinition
  518. /dump-bbox binddefinition
  519.  
  520. % Start it up.
  521.  
  522. init
  523.  
  524. end % $BoundingBox
  525.  
  526. %  end of bb.ps
  527.  
  528. % $Log: bb.ps,v $
  529. %
  530. % bb.gs, version for Ghostscript, William L. Kath, 1 March 1991
  531. % kath@casbah.acns.nwu.edu
  532. %
  533. % Revision 1.10  90/06/27  10:47:22  cosell
  534. % Added a bunch of improvements from Joe Pallas at stanford.
  535. % 
  536. % Revision 1.9  90/06/26  10:50:20  cosell
  537. % Stack got botched in the 'debug' stub
  538. % 
  539. % Revision 1.8  90/06/25  09:34:51  cosell
  540. % Minor bug in 'restore'
  541. % 
  542. % Revision 1.7  90/06/25  09:29:58  cosell
  543. % Added code to catch and deal with 'restore'.  Thanks to Frank
  544. % Jensen for finding this one
  545. % 
  546. % Revision 1.6  90/06/25  09:23:26  cosell
  547. % Small bugfix in the text-handling stuff
  548. % 
  549. % Revision 1.5  90/06/10  09:04:02  cosell
  550. % Changed the printed string to explictly say "%%BoundingBox"
  551. % 
  552. % Revision 1.4  90/06/10  08:55:39  cosell
  553. % Added 'bind' machinery to insulate this package from later redefinitions
  554. % of things we need from the systemdict.
  555. % 
  556. % Revision 1.3  90/06/10  08:28:53  cosell
  557. % Added debugging hooks.  They don't affect anything (and don't do
  558. % anything) in the normal use of bbfig.  But if the 'trace' package
  559. % is loaded ahead of this, it'll print out some helpful info.  Probably
  560. % I'll end up removing all of this if/when I really get the package
  561. % up to snuff.
  562. % 
  563. % Revision 1.2  90/05/25  12:08:24  cosell
  564. % Major improvements and tuneups:  fixed it to really use its private
  565. % discionary, and the most importnat: it now computes the bounding box
  566. % in *default* coords
  567. %
  568. % Revision 1.1  90/05/23  08:18:54  cosell
  569. % Initial revision
  570. %   This is Ned Bachelder's original version
  571.