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