home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1999 mARCH / PCWK3A99.iso / Linux / DDD331 / DDD-3_1_.000 / DDD-3_1_ / ddd-3.1.1 / ddd / header.ps < prev    next >
Text File  |  1998-10-05  |  8KB  |  364 lines
  1. % $Id: header.ps,v 1.11 1998/10/05 12:21:09 zeller Exp $
  2. % Header for DDD PostScript Box output
  3.  
  4. % Copyright (C) 1995-1998 Technische Universitaet Braunschweig, Germany.
  5. % Written by Christian Lindig <lindig@ips.cs.tu-bs.de>.
  6. % 
  7. % This file is part of DDD.
  8. % 
  9. % DDD is free software; you can redistribute it and/or
  10. % modify it under the terms of the GNU General Public
  11. % License as published by the Free Software Foundation; either
  12. % version 2 of the License, or (at your option) any later version.
  13. % 
  14. % DDD is distributed in the hope that it will be useful,
  15. % but WITHOUT ANY WARRANTY; without even the implied warranty of
  16. % MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
  17. % See the GNU General Public License for more details.
  18. % 
  19. % You should have received a copy of the GNU General Public
  20. % License along with DDD -- see the file COPYING.
  21. % If not, write to the Free Software Foundation, Inc.,
  22. % 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
  23. % 
  24. % DDD is the data display debugger.
  25. % For details, see the DDD World-Wide-Web page, 
  26. % `http://www.cs.tu-bs.de/softech/ddd/',
  27. % or send a mail to the DDD developers <ddd@ips.cs.tu-bs.de>.
  28.  
  29. % Make all definitions local to the ddddict dictionary
  30. /ddddict 25 dict def 
  31.  
  32. ddddict begin        % make dict active 
  33.  
  34.  
  35. % Global variables
  36. /fontSize+ 12 def
  37. /font+ /Courier def  
  38.  
  39.  
  40. % Some small utilities
  41. /cm { 28.34646 mul } bind def
  42.  
  43.  
  44. % ISOLATIN1* - reencode a font to ISO Latin 1 encoding
  45. %
  46. % newfont table oldfont isolatin1*
  47.  
  48. /isolatin1* {
  49.     findfont
  50.     dup maxlength dict begin
  51.     {
  52.         1 index /FID ne { def } { pop pop } ifelse
  53.     } forall
  54.     /Encoding exch def
  55.     dup /FontName exch def
  56.     currentdict end definefont pop
  57. } bind def
  58.  
  59.  
  60. % Define the ISO Latin 1 encoding of a font
  61.  
  62. /isotable[
  63. /.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef
  64. /.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef
  65. /.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef
  66. /.notdef/.notdef/.notdef/.notdef/.notdef/space/exclam/quotedbl/numbersign
  67. /dollar/percent/ampersand/quoteright/parenleft/parenright/asterisk/plus/comma
  68. /hyphen/period/slash/zero/one/two/three/four/five/six/seven/eight/nine/colon
  69. /semicolon/less/equal/greater/question/at/A/B/C/D/E/F/G/H/I/J/K/L/M/N/O/P/Q/R/S
  70. /T/U/V/W/X/Y/Z/bracketleft/backslash/bracketright/asciicircum/underscore
  71. /quoteleft/a/b/c/d/e/f/g/h/i/j/k/l/m/n/o/p/q/r/s/t/u/v/w/x/y/z/braceleft/bar
  72. /braceright/asciitilde/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef
  73. /.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef
  74. /.notdef/dotlessi/grave/acute/circumflex/tilde/macron/breve/dotaccent/dieresis
  75. /.notdef/ring/cedilla/.notdef/hungarumlaut/ogonek/caron/.notdef/exclamdown/cent
  76. /sterling/currency/yen/brokenbar/section/dieresis/copyright/ordfeminine
  77. /guilsinglleft/logicalnot/hyphen/registered/macron/degree/plusminus/twosuperior
  78. /threesuperior/acute/mu/paragraph/periodcentered/cedilla/onesuperior
  79. /ordmasculine/guilsinglright/onequarter/onehalf/threequarters/questiondown
  80. /Agrave/Aacute/Acircumflex/Atilde/Adieresis/Aring/AE/Ccedilla/Egrave/Eacute
  81. /Ecircumflex/Edieresis/Igrave/Iacute/Icircumflex/Idieresis/Eth/Ntilde/Ograve
  82. /Oacute/Ocircumflex/Otilde/Odieresis/multiply/Oslash/Ugrave/Uacute/Ucircumflex
  83. /Udieresis/Yacute/Thorn/germandbls/agrave/aacute/acircumflex/atilde/adieresis
  84. /aring/ae/ccedilla/egrave/eacute/ecircumflex/edieresis/igrave/iacute
  85. /icircumflex/idieresis/eth/ntilde/ograve/oacute/ocircumflex/otilde/odieresis
  86. /divide/oslash/ugrave/uacute/ucircumflex/udieresis/yacute/thorn/ydieresis
  87. ] def
  88.  
  89.  
  90. % YCORRECT*
  91. % The reference point of a string ist NOT its lower left corner but 
  92. % its baseline.  Therefore, the y coordinate must be corrected.  
  93. % Returns the correction for the current font.
  94. %
  95. % ycorrect* y
  96.  
  97. /ycorrect* {
  98.     currentfont /FontBBox get
  99.     aload pop pop pop
  100.     currentfont /FontMatrix get dtransform
  101.     exch pop
  102. } def 
  103.  
  104.  
  105. % TEXT*
  106. % print out a string and make sure not to require more space than
  107. % specified.
  108. % font xsize ysize xorigin yorigin (string) text*
  109.  
  110. /text* {
  111.  
  112.     /string+ exch def        % set up some variables ..
  113.     moveto                % move to (xorigin,yorigin)
  114.     /ysize+ exch def
  115.     /xsize+ exch def
  116.     /thefont+ exch def
  117.  
  118.     % is the right font already selected ?
  119.  
  120.     thefont+ font+ ne 
  121.     ysize+ fontSize+ ne
  122.     or {    
  123.         % set up the right font - reencode it    
  124.         
  125.         /Symbol thefont+ eq 
  126.         {
  127.             thefont+ findfont
  128.         }{
  129.  
  130.             /isofont+ isotable thefont+ isolatin1*    
  131.             /isofont+ findfont
  132.         }ifelse
  133.  
  134.         [ysize+ 0 0 ysize+ neg 0 0] makefont
  135.         setfont
  136.         
  137.         /font+ thefont+ def
  138.         /fontSize+ ysize+ def
  139.     } if
  140.  
  141.     % correct current point 
  142.  
  143.     0 ycorrect* neg rmoveto
  144.  
  145.     % string too long?  Scale it down ...
  146.     % The actual font is scaled. There is a good chance,
  147.     % that this will not happen too often when the font is not
  148.     % changed during the calls of text*
  149.  
  150.     xsize+ string+ stringwidth pop div dup dup
  151.     1 lt {
  152.         0 0 1 0 0 6 array astore currentfont exch 
  153.         makefont setfont
  154.         pop
  155.     }{ 
  156.         % string is too short ... scale it up
  157.  
  158.         1.05 gt {
  159.             0 0 1 0 0 6 array astore currentfont exch 
  160.             makefont setfont    
  161.         }{
  162.             pop
  163.  
  164.         } ifelse
  165.     } ifelse
  166.     
  167.     string+ show
  168.  
  169. } bind def
  170.  
  171.     
  172. % ARROWLINE*
  173. % Draw a line of given width with an arrow at its end
  174. % len gives the height of the triangle forming the head of the arrow
  175. % and angle the angle at its top
  176. %    
  177. % angle len  x1 y1 x2 y2 linewidth arrowline*
  178.  
  179. /arrowline* {
  180.     setlinewidth            % angle len x1 y1 x2 y2
  181.     /y2 exch def
  182.     /x2 exch def
  183.     /y1 exch def
  184.     /x1 exch def
  185.     /len+ exch def            % height of triangle
  186.  
  187.     /alpha+ 
  188.         y2 y1 sub        % define alpha+
  189.         x2 x1 sub
  190.         atan
  191.     def
  192.  
  193.     /base+                % define half of baseline
  194.         exch 
  195.         2 div dup        % angle angle
  196.         sin exch cos          % sin(angle) cos(angle)
  197.         div            % tan(angle)
  198.         len+
  199.         mul            % half of baseline
  200.     def  
  201.     
  202.     newpath                % draw the line
  203.     x1 y1 moveto 
  204.     x2 len+ alpha+ cos mul sub     % shorten the line to the end  
  205.     y2 len+ alpha+ sin mul sub     % of the triangle
  206.     lineto
  207.     stroke        
  208.  
  209.     gsave                % set the origin to the head of
  210.     0 setlinewidth            % the arrow and rotate the system
  211.     x2 y2 
  212.     translate            % origin now at x2 y2
  213.  
  214.     alpha+ 90 sub rotate         % rotate the system
  215.  
  216.     newpath                % draw a triangle
  217.     0 0 moveto
  218.     base+ len+ neg rlineto
  219.     base+ 2 mul neg 0 rlineto
  220.     closepath
  221.     fill
  222.     
  223.     grestore
  224. } bind def
  225.  
  226. % ARROWHEAD*
  227. % draw an arrow head inclined by alpha at (x,y)
  228. %
  229. % angle len alpha x y
  230.  
  231. /arrowhead* {
  232.     /y exch def
  233.     /x exch def
  234.     /alpha+ exch def
  235.     /len+ exch def            % height of triangle
  236.  
  237.     /base+                % define half of baseline
  238.         exch 
  239.         2 div dup        % angle angle
  240.         sin exch cos          % sin(angle) cos(angle)
  241.         div            % tan(angle)
  242.         len+
  243.         mul            % half of baseline
  244.     def
  245.  
  246.     gsave                % set the origin to the head of
  247.     0 setlinewidth            % the arrow and rotate the system
  248.     x y 
  249.     translate            % origin now at x y
  250.  
  251.     alpha+ 90 sub rotate         % rotate the system
  252.  
  253.     newpath                % draw a triangle
  254.     0 0 moveto
  255.     base+ len+ neg rlineto
  256.     base+ 2 mul neg 0 rlineto
  257.     closepath
  258.     fill
  259.     
  260.     grestore
  261. } bind def
  262.  
  263.  
  264. % LINE*
  265. % draw a line of given width from (x1,y1) to (x2,y2)
  266. %
  267. % x1 y1 x2 y2 width line*
  268.  
  269. /line* {
  270.     setlinewidth    % x1 y1 x2 y2
  271.     newpath
  272.     4 2 roll     % x2 y2 x1 y1
  273.     moveto        % x2 y2
  274.     lineto        
  275.     stroke
  276. } bind def
  277.  
  278.  
  279. % CLEAN*
  280. %
  281. % fill a box given by four points with white colour ..
  282. % x1 y1 x2 y2 x3 y3 x4 y4 clean*
  283.  
  284. /clean* {
  285.     gsave
  286.     1 setgray
  287.     0 setlinewidth
  288.     newpath
  289.     moveto  lineto  lineto lineto
  290.     closepath
  291.     fill
  292.     grestore
  293. } bind def
  294.  
  295.  
  296. % BOX*
  297. % fill a box given by four points
  298. %
  299. % x1 y1 x2 y2 x3 y3 x4 y4 box*
  300.  
  301. /box* {
  302.     0 setlinewidth
  303.     newpath
  304.     moveto     lineto     lineto lineto
  305.     closepath
  306.     fill
  307. } bind def
  308.  
  309.  
  310. % ARC*
  311. % draw an ellipse with center (cx,cy), radius dx dy, starting at start
  312. % and ending at end.
  313. %
  314. % start end dx dy cx cy width arc*
  315.  
  316. /arc* {
  317.     gsave
  318.     setlinewidth
  319.     translate
  320.     newpath
  321.     dup 3 1 roll        % start end dy dx dy
  322.     div 1 scale        % dy dx/dy 1 scale => start end dy
  323.     
  324.     0 exch  0 exch        % start end 0 0 dy 
  325.     5 -2 roll         % 0 0 dy start end
  326.  
  327.     dup
  328.     0 eq {            % replace 0 by 360
  329.         pop 
  330.         360
  331.     } if
  332.     arc
  333.     stroke
  334.     grestore
  335. } bind def
  336.  
  337.  
  338. % BEGINCOLOR* / ENDCOLOR*
  339. % Draw something using a specific foreground color
  340. %
  341. % red green blue begincolor* SOMETHING endcolor*
  342.  
  343. /begincolor* {
  344.         currentrgbcolor         % red green blue red' green' blue'
  345.         6 3 roll                % red' green' blue' red green blue
  346.     setrgbcolor             % red' green' blue'
  347. } bind def
  348.  
  349. /endcolor* {
  350.     setrgbcolor
  351. } bind def
  352.  
  353.  
  354. % Set up the right font to the right size
  355.  
  356. /isofont+ isotable font+ isolatin1*     % reencode font+
  357.                     % and make it the current font
  358. /isofont+ findfont
  359. [fontSize+ 0 0 fontSize+ neg 0 0] makefont
  360. setfont
  361.  
  362.  
  363. %%EndProlog
  364.