home *** CD-ROM | disk | FTP | other *** search
/ Computer Buyer 1996 April / BYER_0496.iso / buisapp / design / dwk3 / libs / des_ps.pre < prev    next >
Text File  |  1994-07-01  |  28KB  |  1,107 lines
  1. %-----------------------------------------------------------------------------
  2. % 9999.17 GST 194 - PostScript Preamble file for GST DesignWorks
  3. %-----------------------------------------------------------------------------
  4. % This file is inserted as the prolog when Artwork saves an EPSF file.
  5. % The program generates the initial structure comments required by EPSF
  6. % and strips comments from this file as it merges it into its output.
  7. % The main part of the job is put between the 'EndSetup' and 'Trailer' lines.
  8. %-----------------------------------------------------------------------------
  9. % Naming conventions: 
  10. % Names in all lowercase are executable procedures, like built-in postscript
  11. % procedures. Names with the first letter capitalised are variables. Names 
  12. % ending in a question mark are boolean: they can have values T or F
  13. %-----------------------------------------------------------------------------
  14. % version 0.29 1.July.94
  15. % NOTE: comments are stripped before printing!
  16. %-----------------------------------------------------------------------------
  17. %
  18. % ArtProcsDict contains all the procedures defined in this prolog
  19. % and must also have enough room for special postscript fill & line style procs.
  20. % ArtVarsDict contains all the variables etc used by the procedures.
  21.  
  22. /ArtProcsDict 160 dict def  
  23. /ArtVarsDict 100 dict def  
  24.  
  25. %---- optional jobtimeout 
  26. ArtVarsDict begin 
  27.    /Timeout 0 def 
  28. end
  29.  
  30. ArtProcsDict begin
  31.  
  32. %----- abbreviations -----%
  33.  
  34.  /bd { bind def } bind def
  35.  /ed { exch def } bd
  36.  /np /newpath load def
  37.  /cp /closepath load def
  38.  /gs { /SavePrint? Print? def gsave } bd
  39.  /gr { /Print? SavePrint? def grestore } bd
  40.  
  41.  /SS{}def
  42.  /RS{}def
  43.  /SM{}def
  44.  
  45. %----- misc tiny routines -----%
  46.  
  47. % specialscreen? returns YES if screen frequency <= 30
  48.  /specialscreen? { currentscreen pop pop 30 lt } bd
  49.  /min{2 copy gt{exch}if pop}bd % minimum of top 2 items on stack
  50.  /max{2 copy lt{exch}if pop}bd % maximum ditto
  51.  /maxof4 { 3{max}repeat } bd
  52.  /pt { 1000 mul 72 div } bd % converts points
  53.  /beginlayer { pop /LayerSave save def } bd %% layer number ignored
  54.  /endlayer { LayerSave restore } bd
  55.  
  56.  
  57. %----- path construction -----%
  58.  
  59. % P: adjusts positions of thin lines 
  60.  /p { transform round .4 add exch round .4 add exch itransform } bd
  61.  /c { p curveto } bd /m { p moveto } bd /l { p lineto } bd
  62.         
  63.  
  64. %---------- Colour handling ----------%
  65. %
  66. % define setcmykcolor if not implemented in printer. 
  67.  
  68. /mysetcmykcolor { % convert CMYK to RGB for monochrome printer
  69.   4 1 roll
  70.   3 {
  71.     3 index add 1 exch sub
  72.     dup 0 lt{pop 0}if
  73.     3 1 roll
  74.   } repeat
  75.   setrgbcolor pop
  76. } bd
  77.  
  78. /initcmykcolor {
  79.   /setcmykcolor where dup
  80.   /BwPrinter? exch not def
  81.   { 
  82.     pop 
  83.   }{
  84.     /setcmykcolor /mysetcmykcolor load def
  85.   } ifelse
  86. } bd
  87.  
  88.  
  89. %----- SETCMYK -----%
  90. % 
  91. % setcmyk is a low-level routine, called whether or not the 
  92. % printer supports colour.
  93. % It is at this level that we perform process colour separation.
  94. % We save the current CMYK setting, and routine currentcmyk can
  95. % be called to enquire the setting.
  96.  
  97. /setcmyk { 
  98.   4 copy SaveCmyk astore pop 
  99.   Comp? {               % printing a monochrome or colour composite
  100.     BwPrinter? specialscreen? and
  101.     {
  102.         % printing a special screen on a monochrome composite
  103.         % don't convert cmyk, as we'll end up with stripes or dots
  104.         % which are too small: convert the largest process colour
  105.         % component to gray. (Still not completely correct)
  106.         maxof4 1 exch sub setgray
  107.     }{
  108.       setcmykcolor 
  109.     } ifelse
  110.   }{
  111.     SpotSep? {          % if printing a spot-colour separation
  112.       blank pop         % print blank (clear or white, depending on overprint flag) 
  113.     }{                  % else printing a a process separation
  114.       4 Separation roll % bring one sep to top
  115.       dup 0 eq { 
  116.         blank pop 
  117.       }{ 
  118.         1 exch sub setgray 
  119.       } ifelse
  120.     } ifelse
  121.     pop pop pop         % clear c,m,y from stack
  122.   } ifelse
  123. } bd
  124.  
  125.  
  126. /currentcmyk {
  127.   SaveCmyk aload pop
  128. } bd
  129.  
  130.  
  131. %----- APPLYTINT -----%
  132. %
  133. % This is a lower-level colour interface
  134. % which can apply a percentage tint to a set
  135. % of CMYK percentage values.
  136. %
  137. % stack: t% c% m% y% k%
  138.  
  139. /applytint {
  140.   4{ 
  141.     4 index mul 
  142.     10000 div 
  143.     4 1 roll 
  144.   }repeat 
  145.   setcmyk 
  146.   pop 
  147. } bd
  148.  
  149.  
  150.  
  151. /blank { 
  152.   1 setgray 
  153.   /Print? OverPrint? not def 
  154.   0 0 0 0 SaveCmyk astore pop
  155. } bd
  156.  
  157.  
  158. /setgraytint {
  159.   dup 0 eq { OverPrint? not } { T } ifelse 
  160.   /Print? ed
  161.   dup /SpotTint ed
  162.   100 div 1 exch sub setgray
  163. } bd
  164.  
  165.  
  166. %----- COLPROCS -----%
  167. % 
  168. % Colprocs is a dictionary containing different procedures for 
  169. % setcolour to execute, depending on the type of the object 
  170. % on top of the stack when setcolour is called.
  171. % Colours is a dictionary of user-defined colours, indexed by name,
  172. % containing 2-level [ [C M Y K] spot? ] arrays with values in range 0-100
  173.  
  174. /Colprocs 4 dict def 
  175. Colprocs begin
  176.  
  177.   /arraytype {                          % [ C M Y K ] process colour mix
  178.       100 exch aload pop applytint      % apply 100% tint to the mix
  179.   } bd
  180.  
  181.   % perform spot-colour separation 
  182.   /nametype {                   % stack: tint name
  183.     dup Colours exch get        % tint name [ [ C M Y K ] Spot? ]
  184.     1 get not Comp? or {        % if not a spot colour, or printing composite
  185.       Colours exch get          % tint [ [ C M Y K ] Spot? ]
  186.       0 get aload pop           % tint c m y k
  187.       applytint 
  188.     }{                          % else spot colour & not composite printout
  189.       SpotSep? {                % if printing a spot separation...
  190.         Separation eq {            % is spot colour same as this separation?
  191.           setgraytint           % if so, set percentage tint
  192.         }{
  193.           pop blank             % wrong spot sep: print nothing
  194.         } ifelse
  195.       }{
  196.         pop pop blank           % printing a process sep: print nothing
  197.       } ifelse
  198.     } ifelse
  199.   } bd
  200.  
  201.   /integertype {                % apply percentage tint to black
  202.     0 0 0 100 applytint 
  203.   } bd
  204.  
  205.   /realtype /integertype load def
  206. end % Colprocs
  207.  
  208.  
  209.  
  210. %----- SETCOLOUR -----%
  211. %
  212. % This routine is the top-level color interface. 
  213. % It can be called in three different ways:
  214. %   number      SETCOLOUR --  % number is %black, 0=white 100=black
  215. %   [ 4-array ] SETCOLOUR --  % array contains C M Y K percentages
  216. %   number name SETCOLOUR --  % percentage tint of a named colour
  217.  
  218. /setcolour { 
  219.   /Print? T def
  220.   /SpotTint 0 def % preset spot colour tint value to zero
  221.   dup type Colprocs exch get exec 
  222. } bd
  223.  
  224.  
  225.  
  226. %----- FILL and STROKE -----%
  227. %
  228. % Winding? is a boolean which selects whether we use the winding-number fill
  229. % or the even-odd fill algorithm. Print? is a boolean used to enable or 
  230. % disable fill and stroke when overprinting separations, set by setcolour 
  231. % and blank.
  232.  
  233.  /ovp { /OverPrint? ed } bd
  234.  /wif { /Winding? T def } bd
  235.  /eof { /Winding? F def } bd
  236.  
  237.  /~stroke { Print? { stroke } if } bd
  238.  /_stroke { setcolour ~stroke } bd
  239.  /~fill { Print? { Winding? { fill } { eofill } ifelse } if } bd
  240.  /_fill { setcolour ~fill } bd
  241.  /_clip { Winding? { clip } { eoclip } ifelse } bd
  242.  
  243.  /sml { 2 div sin 1 exch div setmiterlimit } bd
  244.  /sline { setlinewidth setlinejoin setlinecap } bd
  245.  /li { Lines exch get exec } bd
  246.  /fi { Fills exch get exec } bd
  247.  
  248.  
  249.  
  250. %----- GROUPS -----%
  251.  
  252.  /bg { gsave concat } bd % matrix BG -- 
  253.  /eg { grestore } bd 
  254.  
  255.  
  256.  
  257. %----- Utility Routines -----%
  258.  
  259.  /getbox { /Top ed /Right ed /Bottom ed /Left ed } bd 
  260.  
  261.  /arcpop { arcto 4 { pop } repeat } bd
  262.  
  263.  
  264.  
  265. %----- basic shapes: ROUND BOX -----%
  266.  
  267. /shape_rbox {
  268.   /Rad ed
  269.   getbox
  270.   matrix currentmatrix
  271.     exch concat
  272.     np Left Right add 2 div Top p moveto % top centre
  273.     Right Top p Right Bottom p Rad arcpop
  274.     Right Bottom p Left Bottom p Rad arcpop
  275.     Left Bottom p Left Top p Rad arcpop
  276.     Left Top p Right Top p Rad arcpop cp 
  277.   setmatrix
  278. } bd
  279.  
  280.  
  281.  
  282. %----- basic shapes: BOX -----%
  283. /boxpath {
  284.   np Left Top m Right Top l
  285.   Right Bottom l Left Bottom l cp
  286. } bd
  287.  
  288. /shape_box {
  289.   getbox
  290.   matrix currentmatrix
  291.     exch concat boxpath
  292.   setmatrix
  293. } bd
  294.  
  295.  
  296. /clip_box { getbox boxpath eoclip } bd
  297.  
  298.  
  299.  
  300. %----- basic shapes: ELLIPSE -----%
  301.  
  302. /shape_ellipse {
  303.   getbox
  304.   matrix currentmatrix 
  305.     exch concat
  306.     % map unit circle to bounding box
  307.     Left Top translate
  308.     Right Left sub Bottom Top sub scale
  309.     np .5 .5 .5 0 360 arc cp
  310.   setmatrix
  311. } bd
  312.  
  313.  
  314. %----- IMAGES -----%
  315.  
  316. /artimage {
  317.   gs
  318.     /Bgd? exch def
  319.     /Mask? exch def
  320.     /Bits exch def 
  321.     /Height exch def
  322.     /Width exch def
  323.     getbox concat 
  324.  
  325.     Bgd? { setcolour boxpath wif ~fill } if
  326.  
  327.     Left Top translate 
  328.     Right Left sub 
  329.     Bottom Top sub scale
  330.  
  331.     Mask? {   
  332.       setcolour
  333.         Width Height true [ Width 0 0 Height 0 0 ] 
  334.         { currentfile ImageBuff readhexstring pop }
  335.       imagemask
  336.     }{  Width Height Bits [ Width 0 0 Height 0 0 ] 
  337.         { currentfile ImageBuff readhexstring pop }
  338.       image
  339.     } ifelse
  340.   gr
  341. } bd    
  342.  
  343.  
  344. /densitylookup {
  345.    densitygreys 1 sub mul cvi  % convert input grey level to integer
  346.    densityarray exch get   % lookup value (range 0..2000)
  347.    1000 div             % convert to density 0.0-2.0
  348.    neg 10 exch exp      % reflectance = 10 ^ -density
  349. } bd
  350.  
  351. /palettelookup {
  352.    palettecols 1 sub mul cvi  % convert input grey level to integer
  353.    palettearray exch get   % lookup value (range 0..1000)
  354.    1000 div             % convert to reflectance 0..1
  355. } bd
  356.  
  357. /artcolimage {
  358.   gs
  359.     /Proc exch load def 
  360.     /Height ed /Width ed
  361.     getbox concat            
  362.     Left Top translate 
  363.     Right Left sub 
  364.     Bottom Top sub scale
  365.  
  366.     /Im? T def
  367.     /Wn Width def
  368.  
  369.     Width Height 8 [ Width 0 0 Height 0 0 ] 
  370.     /Proc load 
  371.     false 3 colorimage
  372.  
  373.     gr
  374. } bd    
  375.  
  376. /img4 {
  377.  Im? {
  378.    % read one byte from the file
  379.    currentfile ImageBuff readhexstring pop 
  380.    0 get -4 bitshift
  381.  }{
  382.    ImageBuff 0 get
  383.  }ifelse
  384.  
  385.  %--- see if we're at the end of a raster line
  386.  Wn 1 sub dup 0 eq { pop Width T }{ Im? not } ifelse
  387.  /Im? ed /Wn ed
  388.  
  389.  % use result as index into palette
  390.  15 and palettearray exch get 
  391. } bd
  392.  
  393.  
  394. /img8 {
  395.    currentfile ImageBuff readhexstring pop % read one byte from the file
  396.    0 get palettearray exch get % use that as index into palette
  397. } bd
  398.  
  399. /img24 {
  400.    currentfile ImageRgbBuff readhexstring pop % read 3 bytes from the file
  401. } bd
  402.  
  403.  
  404. %----- normalised transfer function -----%
  405.  
  406. /normalise
  407. {
  408.   mark
  409.   1.0 1.0 .98 .9 .82 .68 
  410.   .56 .48 .28 .1 .06 .0                 % i [ nvalues
  411.   counttomark                           % i [ nvalues n
  412.   dup 3 add -1 roll exch                % [ nvalues input n
  413.   2 sub mul                             % [ nvalues j     % j = (n-2)*i k=floor(j)
  414.   dup floor cvi                         % [ nvalues j k
  415.   dup 3 1 roll sub                      % [ nvalues k j-k
  416.   exch dup                              % [ nvalues j-k k k
  417.   3 add index exch 2 add index dup      % [ nvalues j-k table[k+1] table[k] table[k]
  418.   4 1 roll                              % [ nvalues table[k] j-k table[k+1] table[k]
  419.   sub mul add                           % [ nvalues result    % result = ( table[k] + (j-k)*(table[k+1]-table[k]) )
  420.   counttomark 1 add 1 roll              % result [ nvalues
  421.   cleartomark                           % result
  422. } bd
  423.  
  424.  
  425. /?Negative {} bd % if printing negative, this procedure changes
  426.  
  427. /neg_transfer { 
  428.   /?Negative { 1 exch sub } bd 
  429.   {  ?Negative normalise DefTran } bind settransfer   
  430.   gs clippath 1 setgray fill gr              % then fill with white
  431.   
  432. } bd
  433.  
  434. %----- Special Effects: Flatten Path -----%
  435. %
  436. % flatten path, adjust 'setflat' until it works.
  437. % no parameters, no output. NOTE: this leaves a 'gs' in effect
  438.  
  439. /flatclip { 
  440.   currentflat
  441.   { 
  442.     gs
  443.     { flattenpath _clip } stopped not {exit}if
  444.     % ie, if not stopped due to error, exit loop
  445.     
  446.     % but if the error was other than limitcheck, stop now!
  447.     $error /errorname get /limitcheck ne { stop } if
  448.  
  449.     % if flatness gets too high, give up
  450.     currentflat 80 gt { exit } if
  451.     
  452.     % try again with flatter paths
  453.     gr currentflat 1.1 mul 1 add setflat
  454.   }loop
  455.   setflat
  456. } bd
  457.  
  458. /flatp { 
  459.   currentflat
  460.   { {flattenpath} stopped not {exit}if
  461.     currentflat 1 add setflat
  462.   }loop
  463.   setflat
  464. } bd
  465.  
  466.  
  467.  
  468. %----- Special Effects: Clip to Path -----%
  469. %
  470. % Also computes bounding box and width and height.
  471. % NOTE: flatclip saves graphics state
  472.  
  473. /clipper {
  474.   pathbbox flatclip
  475.   /Bottom ed /Right ed /Top ed /Left ed
  476.   Right Left sub /Width ed
  477.   Bottom Top sub /Height ed
  478. } bd
  479.  
  480.  
  481.  
  482.  
  483. %----- Example of a special fill routine -----%
  484.  
  485. /examplefill {
  486.   clipper %gs implied
  487.     Left Top translate
  488.     % insert commands to fill area from (0,0) to (Width,Height)
  489.     Width Height scale
  490.     % or insert commands to fill unit square
  491.   gr
  492. } bd
  493.  
  494.  
  495.  
  496. %----- Graduated Fill Support Code -----%
  497.  
  498. /GradFillDict 30 dict def
  499.  
  500. /GrayProcs [ 
  501.   {} % 0: radial
  502.   {dup mul} bind % 1: spherical 
  503.   {} % 2
  504.   {} % 3: linear
  505.   {9 mul 1 add log} bind % 4: logarithmic
  506.   {dup 1 exch sub mul 4 mul} bind % 5: cylindrical 
  507. ] def
  508.  
  509. /grayconv { % start diff ingray GRAYCONV outgray 
  510.   GrayProcs GradType get exec
  511.   mul add
  512. } bd
  513.  
  514.  
  515. /grad_common_init {
  516.   %---- initialise variables in local dictionary
  517.  
  518.   % convert start colour to CMYK and get values
  519.   setcolour 
  520.   SpotSep? not {
  521.     currentcmyk 
  522.     /StartK ed /StartY ed /StartM ed /StartC ed
  523.   } if
  524.   /StartT SpotTint def
  525.  
  526.   % do the same for the end colour
  527.   setcolour 
  528.   SpotSep? not {
  529.     currentcmyk
  530.     /EndK ed /EndY ed /EndM ed /EndC ed
  531.   } if
  532.   /EndT SpotTint def 
  533.  
  534.   % replace End with End-Start
  535.   SpotSep? not {
  536.     /EndC EndC StartC sub def
  537.     /EndM EndM StartM sub def
  538.     /EndY EndY StartY sub def
  539.     /EndK EndK StartK sub def
  540.   } if
  541.   /EndT EndT StartT sub def
  542.  
  543.  
  544.   % If printing colour separations, if the separation has
  545.   % the same tint for the start and end of the grad fill,
  546.   % treat it as a solid fill to save time.
  547.  
  548.   /SolidFill? F def
  549.  
  550.   Comp? not {           % not printing a composite - separations
  551.  
  552.     SpotSep? {          % printing a spot colour sep
  553.       StartT setgraytint
  554.       EndT 0 eq /SolidFill? ed
  555.     }{                  % printing a process sep
  556.       mark
  557.       StartC StartM StartY StartK 4 Separation roll
  558.       100 mul setgraytint % 0.22
  559.  
  560.       EndC EndM EndY EndK 4 Separation roll
  561.       0 eq /SolidFill? ed
  562.       
  563.       cleartomark
  564.     } ifelse
  565.  
  566.   } if
  567. } bd
  568.  
  569.  
  570. /grad_common_middle {
  571.   /X ed
  572.   SpotSep? {
  573.     StartT EndT X grayconv
  574.     setgraytint 
  575.   }{
  576.     StartC EndC X grayconv
  577.     StartM EndM X grayconv
  578.     StartY EndY X grayconv
  579.     StartK EndK X grayconv
  580.     setcmyk
  581.   } ifelse
  582. } bd
  583.  
  584.  
  585.  
  586.  
  587. %----- Graduated Fill: linear, logarithmic, cylindrical -----%
  588. %
  589. % parameters: angle type startcolour endcolour
  590. % each colour can be either a number (for a black tint)
  591. % a number and a name, or an array of four values: 
  592. % the same as setcolour.
  593. % type: 3=linear 4=logarithm 5=cylinder
  594.  
  595. /linfill {
  596.   GradFillDict begin
  597.   grad_common_init
  598.   /GradType ed
  599.   neg /Theta ed
  600.   /Steps GradType 3 ne { 200 } { 100 } ifelse def
  601.   % also uses Top Bottom Left Right Width Height in dictionary
  602.  
  603.   SolidFill? {
  604.  
  605.     ~fill       % separation, and fill is solid for this sep
  606.   }{
  607.  
  608.     %---- prepare to fill to clipping path 
  609.     %     and setup transformation matrix
  610.     gs
  611.       Theta rotate 
  612.       clipper %gs implied
  613.       Left Top translate
  614.       Width Height scale
  615.       1 Steps 1 add div setlinewidth
  616.  
  617.       0 1 Steps { 
  618.         dup Steps div
  619.  
  620.         grad_common_middle
  621.  
  622.         newpath
  623.           .5 add 
  624.           Steps 1 add 
  625.         div 0
  626.         moveto 
  627.  
  628.         0 1 rlineto
  629.         ~stroke
  630.  
  631.       } bind for
  632.     gr gr
  633.  
  634.   }ifelse
  635.  
  636.   end
  637. } bd
  638.  
  639.  
  640. %----- Radial/Spherical Graduated Fill -----%
  641. %
  642. % stack: type startcolour endcolour
  643. % type: 0=radial, 1=spherical
  644.  
  645. /radfill { 
  646.   GradFillDict begin
  647.   grad_common_init
  648.   /GradType ed
  649.   /Steps GradType 0 ne { 200 } { 100 } ifelse def
  650.  
  651.   SolidFill? {
  652.     ~fill       % separation, and fill is solid for this sep
  653.   }{
  654.  
  655.     clipper %gs implied
  656.       Left Right add 2 div Top Bottom add 2 div translate % centre
  657.       Width dup mul Height dup mul add sqrt 2 div dup scale % half diagonal
  658.       Steps -1 1 { % loop to fill unit circle centred on origin
  659.         /Rad exch Steps div def
  660.  
  661.         Rad grad_common_middle
  662.  
  663.         np 0 Rad moveto 0 0 Rad 0 360 arc cp
  664.         ~fill
  665.       } bind for
  666.     gr
  667.  
  668.   } ifelse
  669.  
  670.   end
  671. } bd
  672.  
  673. %----- Arrowheads -----------
  674.  
  675. /ArrowProcs [
  676. {} 
  677. {np 0 25 m 50 0 l 0 -25 l cp fill }   
  678. {np 0 25 m 50 0 l 0 -25 l cp stroke } 
  679. {np 0 0 m -10 25 l 50 0 l -10 -25 l cp fill }
  680. {np 5 0 m -5 25 l 50 0 l -10 -25 l cp stroke }
  681. {np -45 25 m 5 0 l -45 -25 l stroke }
  682. {np 0 25 m 0 -25 l stroke }
  683. {np 2 setlinejoin -50 25 m 0 0 l -50 -25 l 0 25 m 0 -25 l stroke }
  684. {np 50 25 m 0 0 l 50 -25 l stroke }
  685. {np 100 25 m 50 0 l 100 -25 l 50 0 m 0 0 l 50 25 m 0 0 l 50 -25 l stroke }
  686. {np 100 25 m 50 0 l 100 -25 l 45 -25 l 0 -5 l 0 5 l 45 25 l cp fill }
  687. ] def
  688.  
  689. % type dx dy scale x y arrow
  690.  
  691. /arrow {
  692.   gs
  693.     translate 
  694.     dup 20 lt { pop 20 } if
  695.     10 div dup scale 
  696.     exch atan 180 add rotate
  697.     0 0 10 sline
  698.     Print? {
  699.       ArrowProcs exch get exec
  700.     }{
  701.       pop
  702.     } ifelse
  703.     gr
  704. } bd
  705.  
  706.  
  707.  
  708. %----- Tiled Fill -----------
  709.  
  710. /TiDict 20 dict def
  711.  
  712. /tipos {        % pos wid
  713.   dup           % pos wid wid
  714.   3 1 roll      % wid pos wid
  715.   div floor mul % pos'
  716. } bd
  717.  
  718. /_tile { % dx dy proc scaledwidth scaledheight scale(percent) angle
  719.   TiDict begin
  720.   /TiAngle ed 
  721.   100 div /Tscale ed
  722.   Tscale div /TiHgt ed 
  723.   Tscale div /TiWid ed 
  724.   /TiProc ed
  725.   % leave just dx & dy on stack
  726.  
  727.   gs 1 setgray ~fill gr % 0.18: fill shape with white
  728.  
  729.   gs
  730.     translate TiAngle neg rotate Tscale dup scale
  731.     flatclip pathbbox /TiBottom ed /TiRight ed /TiTop ed /TiLeft ed
  732.     TiTop TiHgt tipos TiHgt TiBottom {
  733.       gs 0 exch translate
  734.         TiLeft TiWid tipos TiWid TiRight {
  735.           gs 0 translate /TiProc load 
  736.           ArtVarsDict begin exec end gr
  737.         } for
  738.       gr
  739.     }for
  740.   gr gr
  741.   end
  742. } bd
  743.  
  744.  
  745. %--------- TEXT HANDLING -----------%
  746.  
  747.  /begintext { matrix currentmatrix } bd % leave current matrix on top of stack
  748.  /endtext { setmatrix } bd     % restore saved matrix
  749.  /ntm { exch dup setmatrix exch concat } bd % newtextmatrix: matrix
  750.  
  751.  
  752.  /textstyle { % proc
  753.   /SimpleText? F def
  754.   /filltext exch bind def
  755.  } bd
  756.  
  757.  /plaintext { % <colour & tint>
  758.   F ovp
  759.   setcolour
  760.   /SimpleText? T def
  761.  } bd
  762.  
  763. /tf { % textfont: size width fontname
  764.   findfont 3 1 roll
  765.   exch neg matrix scale makefont
  766.   setfont
  767. } bd
  768.  
  769. /txt { % x y string
  770.   3 1 roll moveto
  771.   SimpleText?
  772.   {
  773.     Print? { show } if
  774.   }{
  775.     {
  776.       currentpoint np moveto
  777.       tempstr 0 2 index put 
  778.       tempstr T charpath filltext
  779.       pop
  780.     } forall
  781.   } ifelse
  782. } bd
  783.  
  784. /filltext { } def
  785.  
  786.  
  787. /title { 
  788.   gs
  789.   moveto
  790.   {270 rotate} if
  791.   100 pt exch div dup neg scale
  792.   /Helvetica findfont 10 scalefont setfont
  793.   show
  794.   gr
  795. } bd
  796.  
  797. /regmark {
  798.   gs translate 
  799.   1 setlinewidth
  800.   np -100 0 moveto 100 0 lineto stroke
  801.   np 0 -100 moveto 0 100 lineto stroke
  802.   np 0 0 50 0 360 arc stroke
  803.   gr
  804. } bd
  805.  
  806. /cropmark {
  807.   gs 1 setlinewidth np moveto lineto stroke gr
  808. } bd
  809.  
  810. %----- Routines to rearrange font to match Windows Ansi character set -----%
  811.  
  812. /ANSI_Vec [
  813.  /grave/acute/circumflex/tilde/macron/breve/dotaccent/dieresis
  814.  /ring/cedilla/hungarumlaut/ogonek/caron/dotlessi/.notdef/.notdef
  815.  /.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef
  816.  /.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef
  817.  /space/exclam/quotedbl/numbersign/dollar/percent/ampersand/quotesingle
  818.  /parenleft/parenright/asterisk/plus/comma/hyphen/period/slash
  819.  /zero/one/two/three/four/five/six/seven
  820.  /eight/nine/colon/semicolon/less/equal/greater/question
  821.  /at/A/B/C/D/E/F/G
  822.  /H/I/J/K/L/M/N/O
  823.  /P/Q/R/S/T/U/V/W
  824.  /X/Y/Z/bracketleft/backslash/bracketright/asciicircum/underscore
  825.  /grave/a/b/c/d/e/f/g
  826.  /h/i/j/k/l/m/n/o
  827.  /p/q/r/s/t/u/v/w
  828.  /x/y/z/braceleft/bar/braceright/asciitilde/.notdef
  829.  
  830.  /.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef
  831.  /.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef
  832.  
  833.  /.notdef/quoteleft/quoteright/quotedblleft/quotedblright/bullet/endash/emdash
  834.  /.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef
  835.   
  836.  /space/exclamdown/cent/sterling/currency/yen/brokenbar/section
  837.  /dieresis/copyright/ordfeminine/guillemotleft/logicalnot/hyphen/registered/macron
  838.  /degree/plusminus/twosuperior/threesuperior/acute/mu/paragraph/periodcentered
  839.  /cedilla/onesuperior/ordmasculine/guillemotright/onequarter/onehalf/threequarters/questiondown
  840.  /Agrave/Aacute/Acircumflex/Atilde/Adieresis/Aring/AE/Ccedilla
  841.  /Egrave/Eacute/Ecircumflex/Edieresis/Igrave/Iacute/Icircumflex/Idieresis
  842.  /Eth/Ntilde/Ograve/Oacute/Ocircumflex/Otilde/Odieresis/multiply 
  843.  /Oslash/Ugrave/Uacute/Ucircumflex/Udieresis/Yacute/Thorn/germandbls
  844.  /agrave/aacute/acircumflex/atilde/adieresis/aring/ae/ccedilla
  845.  /egrave/eacute/ecircumflex/edieresis/igrave/iacute/icircumflex/idieresis
  846.  /eth/ntilde/ograve/oacute/ocircumflex/otilde/odieresis/divide 
  847.  /oslash/ugrave/uacute/ucircumflex/udieresis/yacute/thorn/ydieresis
  848. ] def
  849.  
  850.  
  851. /ReEncDict 12 dict def
  852.  
  853. /ischar {
  854.   BaseFontDict /CharStrings get exch known
  855. }bd
  856.  
  857. /mapch {
  858.   dup ischar not 
  859.   {pop /.notdef} if 
  860.   NewFont /Encoding get 3 1 roll put 
  861. }bd
  862.  
  863. /mapdegree{ 16#b0 /degree ischar {/degree}{/ring} ifelse mapch } bd
  864.  
  865. /mapbb { 16#a6 /brokenbar ischar {/brokenbar}{/bar}ifelse mapch } bd
  866.  
  867. /reencoderange {  
  868.   { dup ANSI_Vec exch get mapch } for
  869. } bd
  870.  
  871. /reencode {
  872.   0 1 15 reencoderange
  873.   144 1 255 reencoderange
  874.   16#27 /quotesingle mapch
  875.   16#60 /grave mapch
  876.   16#7C /bar mapch
  877.   mapdegree mapbb
  878. } bd
  879.  
  880. /ansifont {
  881.  ReEncDict begin
  882.    /NewFontName exch def 
  883.    /BaseFontName exch def
  884.    FontDirectory NewFontName known not
  885.    {
  886.      /BaseFontDict BaseFontName findfont def
  887.      /NewFont BaseFontDict maxlength dict def
  888.      BaseFontDict {
  889.        exch dup /FID ne { 
  890.          dup /Encoding eq { 
  891.            exch 
  892.            dup length array copy 
  893.            NewFont 3 1 roll put 
  894.          }{ 
  895.            exch 
  896.            NewFont 3 1 roll put 
  897.          }
  898.          ifelse
  899.        }{
  900.          pop pop
  901.        }ifelse
  902.      }forall
  903.      NewFont /FontName NewFontName put
  904.  
  905.      % look at the charstrings see if it has 'A' and 'Z':
  906.      % if so, remap the font. If not, leave it alone!
  907.      /A ischar /Z ischar and { reencode } if
  908.      NewFontName NewFont definefont pop
  909.    } if
  910.    NewFontName
  911.  end
  912. } bind def
  913.  
  914.  
  915. %----- Colour Separation Setup Procedures -----%
  916. %
  917. % Separation: if undefined, a composite is produced
  918. %       if numeric, a process colour separation is produced
  919. %               3=cyan, 2=magenta, 1=yellow, 0=black
  920. %       if a name of a spot colour, that spot separation is produced
  921. %
  922. % example:
  923. %       /Separation 3 def setupsep 
  924. %       /Separation /Reflex_Blue def setupsep
  925.  
  926.  
  927. /setupsep {
  928.   /Separation where {           % is 'Separation' defined?
  929.     pop
  930.     /Comp? F def                % yes: we're doing a separation.
  931.     Separation type             % is it a number?
  932.     0 type ne 
  933.     /SpotSep? ed          % if not, we're doing a spot colour.
  934.   }{
  935.     /Comp? T def                % separation not defined: doing a composite.
  936.     /SpotSep? F def
  937.   } ifelse
  938.  
  939.   statusdict begin Timeout setjobtimeout end % timeout per separation
  940.  
  941. } bd
  942.  
  943.  
  944. /setsepscreen { AngleFix add /DefScrFun load setscreen } bd
  945.  
  946.  
  947. %---------- included EPSF procedure
  948.  
  949. /include_epsf {
  950.   /Bottom ed /Left ed 
  951.   gsave concat
  952.  
  953.   % assumes that bottom-left of rect corresponds to EPSF's origin
  954.   Left Bottom translate
  955.   1000 72 div dup neg scale
  956.  
  957.   /EpsfSave save def
  958.  
  959.   /showpage { } def
  960.  
  961.   currentfile cvx stopped { % did it stop?
  962.     $error /newerror get {  % was it a new error?
  963.       handleerror           % put out an error message
  964.  
  965.       % skip to end of included file
  966.       { % loop
  967.         currentfile LineBuff readline {
  968.           (\045\045EndEPSF) eq { exit } if
  969.         }{
  970.           % can't find end marker - hit EOF?
  971.         } ifelse
  972.       } loop
  973.  
  974.     } if
  975.   }{
  976.     % didn't stop - hit EOF?
  977.   } ifelse
  978.   $error /newerror F put
  979.  
  980.   EpsfSave restore
  981.   grestore
  982. } bd
  983.  
  984. %--------------------------------- downloaded font stuff -------------------
  985.  
  986. /BuildDict 3 dict def
  987.  
  988. /PointProcs[{}{closepath moveto}bind/lineto load/curveto load]def
  989.  
  990. /gst_char { gstn 8 bitshift add /gstn ed /gsti gsti 1 add def
  991. gsti 3 eq {
  992.   gstn 2047 and dup 1600 gt { 2048 sub } if
  993.   gstn -11 bitshift 2047 and dup 1600 gt { 2048 sub } if
  994.   gstn -22 bitshift 3 and PointProcs exch get exec
  995.   /gstn 0 def /gsti 0 def
  996.   } if
  997. } bd
  998.  
  999. /gst_build { 
  1000. exch begin 
  1001.   BuildDict begin 
  1002.     Encoding exch get 
  1003.     /gstn 0 def /gsti 0 def
  1004.     dup Metrics exch get 0 setcharwidth 
  1005.     newpath CharStrings exch get { gst_char } forall 
  1006.     closepath fill 
  1007.   end 
  1008. end
  1009. } bd
  1010.  
  1011. /gst_fast { 
  1012. exch begin 
  1013.   Encoding exch get 
  1014.   dup Metrics exch get 0 setcharwidth 
  1015.   CharStrings exch get cvx exec 
  1016. end
  1017. } bd
  1018.  
  1019. /newgstfont {
  1020.   ReEncDict begin
  1021.   /NewFontSize ed
  1022.   /NewFontId ed
  1023.   /NewFontFast ed
  1024.   /NewFontName ed
  1025.   10 dict dup begin
  1026.     /FontMatrix [ .001 0 0 .001 0 0 ] def
  1027.     /FontType 3 def
  1028.     /FontBBox [ -400 -300 1600 1000 ] def
  1029.     /Encoding ANSI_Vec def
  1030.     /Metrics NewFontSize dict def Metrics /.notdef 0 put
  1031.     /CharStrings NewFontSize dict def CharStrings /.notdef () put
  1032.     /UniqueID 16#ff0000 NewFontId add def
  1033.     /gst_fast /gst_build NewFontFast { exch } if load /BuildChar ed pop
  1034.   end
  1035.   NewFontName exch definefont pop
  1036.   NewFontName
  1037. end
  1038. } bd
  1039.     
  1040. /NewCharDict 4 dict def
  1041.  
  1042. /newchar { 
  1043. NewCharDict begin
  1044.   /Proc ed
  1045.   /Wid ed
  1046.   /Code ed
  1047.   dup findfont begin
  1048.     Encoding Code get dup
  1049.     CharStrings exch /Proc load put
  1050.     Metrics exch Wid put
  1051.   end
  1052. end
  1053. } bd
  1054.  
  1055.  
  1056. %%EndProlog
  1057.  
  1058. %%BeginSetup
  1059.  
  1060. /ArtworkSave save def
  1061.   ArtVarsDict begin
  1062.  
  1063.   % boolean abbreviations
  1064.   /T true def /F false def
  1065.  
  1066.   % initialise default line end, join, mitre limit etc
  1067.   1 1 14 sline 10 sml
  1068.  
  1069.   % initialise misc variables
  1070.   /tempstr 1 string def         % buffer for text
  1071.   /ImageBuff 1 string def       % buffer for bitmap images
  1072.   /ImageRgbBuff 3 string def    % buffer for bitmap images
  1073.   /LineBuff 256 string def      % buffer for included epsfs
  1074.   /SimpleText? T def            % flag for fast text handling
  1075.   /Wind? T def                  % winding fill on/off
  1076.   /Print? T def                 % print flag used by colour separation stuff
  1077.   /SaveCmyk 4 array def         % current C,M,Y,K colour
  1078.   /Imat matrix identmatrix def  % an indentity matrix
  1079.   /bignum 2 31 exp 1 sub def    % for random number generator
  1080.   initcmykcolor
  1081.  
  1082.   % determine current transformation's rotation, (eg for landscape)
  1083.   % which will need to be applied to any screen angles
  1084.   /AngleFix 1 0 dtransform exch atan def
  1085.  
  1086.   % record the current screen function, angle and frequency
  1087.   currentscreen /DefScrFun exch def pop pop
  1088.   ArtProcsDict /Screens known {
  1089.     currentscreen Screens exch 0 exch put pop pop
  1090.   } if
  1091.  
  1092.   % record the current transfer function, and set up a normalised
  1093.   % transfer function followed by the default
  1094.   /DefTran currenttransfer def
  1095.   {normalise DefTran}bind settransfer
  1096.  
  1097.  
  1098. %%EndSetup
  1099.  
  1100. %%Trailer
  1101. end % ArtVarsDict
  1102. ArtworkSave restore
  1103. end % ArtProcsDict
  1104. %%EOF
  1105.  
  1106.  
  1107.