home *** CD-ROM | disk | FTP | other *** search
/ Black Box 4 / BlackBox.cdr / cad / atk1ibm.arj / GEDPS.PS < prev    next >
Text File  |  1991-03-24  |  6KB  |  237 lines
  1. % This is a prologue for DFD files sent to the laser printer
  2. % NOTE: A rotation is normally done for LANDSCAPE style printing.
  3. % If this rotation is not desired, orientation is defined to PORTRAIT.
  4. % THE ORIENTATION CAN BE CHANGED BY CHANGING THE DEFINITION OF ORIENTATION
  5. % AND BY FIXING THE BoundingBox COMMENT (FOR EPS COMPATIBILITY)
  6. % For LANDSCAPE, %%BoundingBox: 0 0 612 796, is proper
  7. % For PORTRAIT,  %%BoundingBox: 0 0 612 492, is proper.
  8. orientation LANDSCAPE eq {      % Set up based on orientation definition
  9. 90 rotate 36 -36 translate    % landscape - origin in UL corner
  10. 10.0 72 mul 11000 div dup scale    % scale to 11000 for 10 inches across page
  11. 20 setlinewidth            % Same as 1 pixel on screen
  12. }
  13. {
  14. 36 440 translate                % portrait - origin in UL corner of DFD
  15. 7.5 72 mul 11000 div dup scale  % scale to 11000 for 7.5 inches across page
  16. 16 setlinewidth                 % Same as 1 pixel on screen
  17. }
  18. ifelse                          % Set up for LANDSCAPE or PORTRAIT
  19. /myscale { 11000 80 div } def
  20. /Helvetica findfont myscale scalefont setfont    % 80 chars across page (now:x10)
  21.  
  22. % The x coordinate is the same as in DFDs, the Y coordinate is negative
  23. /doProcess    % Gets Pno Ptext Rad Xc Yc
  24. {
  25.   /Yc exch def
  26.   /Xc exch def
  27.   /Rad exch def
  28.   /Ptext exch def
  29.  
  30.   Xc Yc neg Rad add myscale sub placetext    % Pno is still on the stack
  31.   Ptext Xc Yc neg placetext
  32.   Xc Yc neg Rad 0 360 arc stroke
  33. } def
  34.  
  35. /doExternal    % Gets: Etext Xc Yc Xdis Ydis
  36. {
  37.   /Ydis exch def
  38.   /Xdis exch def
  39.   /Yc   exch def
  40.   /Xc   exch def
  41.  
  42.   Xc Yc neg placetext    % Etext is still on the stack
  43.   Xc Yc neg Xdis Ydis box
  44. } def
  45.  
  46. /doFile        % Gets: Ftext Xc Yc Xdis Ydis SingDoub
  47. {
  48.   /SingDoub exch def
  49.   /Ydis    exch def
  50.   /Xdis exch def
  51.   /Yc exch def
  52.   /Xc exch def
  53.  
  54.   Xc Yc neg placetext    % Ftext is already on the stack
  55.   Xc Yc neg Xdis Ydis
  56.   SingDoub 0 eq        % Checks if Single line file
  57.   { singlelinefile }    %  If single line
  58.   { doublelinefile }    %  If double line
  59.   ifelse
  60. } def
  61.  
  62. /doFlow        % Gets: [[X1 Y1] ... [Xm Ym]] Xn Yn Name Arrows?
  63. {
  64.   /Doub exch def        % Single or double headed: 
  65.   /Ftext exch def
  66.   /Yn exch def
  67.   /Xn exch def
  68.   /RouteArray exch def
  69.   RouteArray PolyLine % Draw the path, Sans arrowheads and Text
  70.   
  71.   RouteArray 0 get aload pop /Ys exch def /Xs exch def
  72.  
  73.   Doub 1 and 0 ne           % Arrowhead at beginning!
  74.   {
  75.     RouteArray 1 get aload pop /Ytmp exch def /Xtmp exch def
  76.     Xs Ys neg moveto
  77.     Xs Xtmp sub Ys Ytmp sub atan arrowhead
  78.     gsave stroke grestore
  79.     newpath
  80.   }
  81.   if 
  82.  
  83.   Doub 2 and 0 ne           % Arrowhead at end!
  84.   {
  85.     /tmpCount RouteArray length def
  86.     RouteArray tmpCount 1 sub get aload pop /Ye exch def /Xe exch def
  87.     RouteArray tmpCount 2 sub get aload pop /Ytmp exch def /Xtmp exch def
  88.     Xe Ye neg moveto
  89.     Xe Xtmp sub Ye Ytmp sub atan arrowhead
  90.     gsave stroke grestore
  91.     newpath
  92.   }
  93.   if
  94.  
  95.   Xn Yn neg moveto
  96.   
  97.   Ftext 
  98.   dup BlankUnder
  99.   Xn Yn neg                     % Text still on stack
  100.   placetext
  101. } def
  102.  
  103. /doDescription            % Gets Dtext Xl Yl
  104. {
  105.   neg moveto
  106.   gsave
  107.     dup stringwidth pop 2 div 0 rmoveto
  108.     dup BlankUnder
  109.   grestore
  110.   show
  111. } def
  112.  
  113. %
  114. %% Other functions
  115. %
  116. /placetext         % stack: text xcenter ycenter
  117. { 
  118.   moveto        % Absolute move to center of new text
  119.   dup stringwidth pop    % puts x width on stack after copy of string
  120.   2 div neg         % puts -1/2 x on stack 
  121.   0            % puts 0 y-char height on stack
  122.   rmoveto        % movck halfway
  123.   show            % Only string was on stack now
  124.   newpath        % Clear any current path from the moveto
  125. } def
  126.  
  127. /box    % items on stack: xcenter ycenter xdis ydis: For externals
  128. {  /ydis exch def
  129.    /xdis exch def
  130.    /ycenter exch def
  131.    /xcenter exch def
  132.  
  133.    newpath
  134.    xcenter xdis add ycenter ydis add moveto
  135.    0 ydis neg ydis neg add rlineto
  136.    xdis neg xdis neg add 0 rlineto
  137.    0 ydis ydis add rlineto
  138.    closepath stroke
  139. } def
  140.  
  141. /singlelinefile    % items on stack: same as for externals
  142. {  /ydis exch def
  143.    /xdis exch def
  144.    /ycenter exch def
  145.    /xcenter exch def
  146.    newpath
  147.    xcenter xdis add ycenter ydis add moveto
  148.    xdis neg xdis neg add 0 rlineto
  149.    stroke
  150. } def
  151.  
  152. /doublelinefile    % items on stack: same as for externals
  153. {  /ydis exch def
  154.    /xdis exch def
  155.    /ycenter exch def
  156.    /xcenter exch def
  157.    newpath
  158.    xcenter xdis add ycenter ydis add moveto
  159.    xdis neg xdis neg add 0 rlineto
  160.    stroke newpath
  161.    xcenter xdis add ycenter ydis neg add moveto
  162.    xdis neg xdis neg add 0 rlineto
  163.    stroke
  164. } def
  165.  
  166. /average         % Gets: Two numbers to average
  167. {
  168.   add 2 div 
  169. } def
  170.  
  171. /arrowhead        % Gets: angle as input
  172. {
  173.   gsave            % Save current origin & rotation
  174.     currentpoint        % Get the current position
  175.     translate        % Make it the origin
  176.     rotate        % Use the angle argument
  177.     triangle        % Draw the triangle
  178.   grestore        % Restore origin and rotation
  179. } def
  180.  
  181. /triangle        % Draws a dull, black triangle at the origin
  182. {
  183.   gsave            % Preserve our dullness (gray scale)
  184.     0 setgray
  185.     0 0 moveto
  186.       50 100 lineto
  187.     -100   0 rlineto
  188.     closepath
  189.     fill
  190.   grestore        % Restore our dullness
  191. } def
  192.  
  193. /PolyLine % Array of 2-int arrays on stack
  194. {
  195.   /Array exch def
  196.   Array 0 get aload pop /Ys exch def /Xs exch def
  197.   Xs Ys neg moveto
  198.   1 1 Array length 1 sub
  199.   {
  200.     Array exch get aload pop /Ye exch def /Xe exch def
  201.     Xe Ye neg lineto
  202.     /Xs Xe def
  203.     /Ys Ye def
  204.   }
  205.   for
  206.   gsave stroke grestore
  207.   newpath
  208. } def
  209.  
  210. % Note: This is font specific.  For Helvetica, the Font Box
  211. % descends 22% below point size and extends above 94% point size
  212. /BlankUnder     % text-item
  213. {
  214.   stringwidth pop    % How wide is it
  215.   dup 0 gt
  216.   {            % If width is > 0
  217.     dup 2 div neg         % Half of the string width wide
  218.     myscale rmoveto        % Move to -1/2 stringwidth, myscale
  219.     dup 0 rlineto        % Move to 1/2 stringwidth, myscale
  220.     0 myscale 1.25 mul neg rlineto    % Move to 1/2 stringwidth, -.25 myscale
  221.     neg 0 rlineto        % Move to -1/2 stringwidth, -.25 myscale
  222.     %myscale 1.2 mul rmoveto    % And 1.2 char height high
  223.     %dup 0 rlineto 0 myscale 1.2 mul 1.2 mul neg rlineto
  224.     %neg 0 rlineto
  225.     closepath
  226.     gsave            % Save current gray level
  227.     1 setgray fill
  228.     grestore newpath        % Reset the gray level
  229.   }
  230.   {            % width is 0
  231.     pop            % pop off extra stringwidth
  232.   }
  233.   ifelse
  234. } def
  235.  
  236. %%EndProlog
  237.