home *** CD-ROM | disk | FTP | other *** search
/ PC World 1999 August / PCWorld_1999-08_cd.bin / Novinky / adobe / Instal / archive.z / AIRes.dll / TEXT / 604 < prev    next >
Text File  |  1998-10-05  |  9KB  |  458 lines
  1. %%BeginProcSet:Adobe_separation 0 0
  2. currentpacking true setpacking
  3. userdict /Adobe_separation 32 dict dup begin put
  4. /initialize
  5. {
  6. userdict /Adobe_separation_vars 16 dict dup begin put
  7. /_pagesize
  8.     matrix def
  9. /_halftone
  10.     matrix def
  11. /_deviceadjustmatrix
  12.     matrix def
  13. /_orientation
  14.     matrix def
  15. /_emulsion
  16.     matrix def
  17. /_imageablearea
  18.     matrix def
  19. /_labels
  20.     matrix def
  21. /_teststrips
  22.     matrix def
  23. /_cropmarks
  24.     matrix def
  25. /_registrationmarks
  26.     matrix def
  27. /_clipbox
  28.     matrix def
  29. /_beginseparation
  30.     matrix def
  31. /_endseparation
  32.     matrix def
  33. /_save
  34.     null def
  35. /_pagecount
  36.     1 def
  37. /_showpage
  38.     /showpage load def
  39. Adobe_separation begin
  40. Adobe_separation
  41.     {
  42.     dup xcheck
  43.         {
  44.         bind
  45.         } if
  46.     pop pop
  47.     } forall
  48. end
  49. end
  50. Adobe_separation begin
  51. } def
  52. /terminate
  53. {
  54. currentdict Adobe_separation eq
  55.     {
  56.  end
  57.     } if
  58. } def
  59. /normalize
  60. {
  61. matrix currentmatrix
  62. dup dup 4 get round 4 exch .25 add put
  63. dup dup 5 get round 5 exch .25 add put
  64. setmatrix
  65. } def
  66. /stringconcat
  67. {
  68. dup length 2 index length add string
  69. dup 0 4 index putinterval
  70. dup 3 index length 3 index putinterval
  71. exch pop exch pop
  72. } def
  73. /pagesize
  74. {
  75. aload pop
  76. exec
  77. } def
  78. /halftone        % [    [frequency angle screen transfer] screen transfer1 transfer2] halftone -
  79. {
  80. 4 dict begin
  81. aload pop
  82. /transfer2 exch cvlit def
  83. /transfer1 exch cvlit def
  84. /screen exch cvlit def
  85. /basichalftone exch def
  86. [
  87. transfer1 cvx /exec cvx
  88. transfer2 cvx /exec cvx
  89. basichalftone 3 get exec
  90. dup length
  91. 0 eq
  92. {
  93.     pop
  94.     /currentcolortransfer where
  95.     {
  96.         pop
  97.         currentcolortransfer
  98.         4
  99.         -3
  100.         _beginseparation 0 get /processcyan    eq {pop 0} if
  101.         _beginseparation 0 get /processmagenta eq {pop -1} if
  102.         _beginseparation 0 get /processyellow  eq {pop -2} if
  103.         roll
  104.         pop pop pop
  105.     }
  106.     {
  107.         currenttransfer
  108.     }
  109.     ifelse
  110. }
  111. if        
  112. /exec cvx
  113. ] cvx
  114. settransfer
  115. basichalftone aload pop pop
  116. 3
  117.     {
  118.     exec 3 1 roll
  119.     } repeat
  120. [ exch /exec cvx
  121. screen cvx /exec cvx
  122. ] cvx
  123. setscreen
  124. end
  125. } def
  126. /deviceadjustmatrix
  127. {
  128. concat
  129. } def
  130. /orientation
  131. {
  132. aload pop
  133. 1 eq
  134.     {
  135.     pop pop
  136.     }
  137.     {
  138.     pop 0 [0 1 -1 0 7 -2 roll] concat
  139.     } ifelse
  140. } def
  141. /emulsion
  142. {
  143. aload pop
  144. 1 eq
  145.     {
  146.     pop pop
  147.     }
  148.     {
  149.     pop 0 [-1 0 0 1 7 -2 roll] concat
  150.     } ifelse
  151. } def
  152. /imageablearea
  153. {
  154. concat
  155. } def
  156. /clipbox
  157. {
  158. aload pop
  159. 6 dict begin
  160. /ty exch def
  161. /tx exch def
  162. /ury exch def
  163. /urx exch def
  164. /lly exch def
  165. /llx exch def
  166. newpath
  167. llx lly moveto
  168. urx lly lineto
  169. urx ury lineto
  170. llx ury lineto
  171. closepath
  172. clip
  173. newpath
  174. tx ty translate
  175. end
  176. } def
  177. userdict /AI3_noCropMarks null put
  178. /cropmark2
  179.     {
  180.     gsave
  181.     translate
  182.     rotate
  183.     gsave
  184.     normalize
  185.     0 setgray
  186.     .3 setlinewidth
  187.     0 setlinecap
  188.     0 setlinejoin
  189.     newpath
  190.     0 0 moveto 0 27 rlineto
  191.     stroke
  192.     grestore
  193.     grestore
  194.     } def
  195. /registrationmark2
  196.     {
  197.     gsave
  198.     translate
  199.     normalize
  200.     0.3 setlinewidth
  201.     0 setlinecap
  202.     0 setlinejoin
  203.     newpath
  204.     1 setgray
  205.     0 0 7 0 360 arc
  206.     fill
  207.     0 setgray 
  208.     0 0 6 0 360 arc
  209.     -9 0 moveto 9 0 lineto 0 -9 moveto 0 9 lineto
  210.     stroke
  211.     0 0 3 0 360 arc
  212.     fill
  213.     1 setgray
  214.     -3 0 moveto 3 0 lineto 0 -3 moveto 0 3 lineto
  215.     stroke
  216.     grestore
  217.     } def
  218. /startarget2
  219.     {
  220.     gsave
  221.     translate
  222.     normalize
  223.     .3 setlinewidth
  224.     0 setlinecap
  225.     0 setlinejoin
  226.     newpath
  227.     1 setgray
  228.     0 0 9 0 360 arc
  229.     fill
  230.     0 setgray
  231.     0 0 9 0 360 arc
  232.     stroke
  233.     36
  234.         {
  235.         1 0 moveto
  236.         0 0 9 -2.5 2.5 arc
  237.         fill
  238.         10 rotate
  239.         } repeat
  240.     grestore
  241.     } def
  242. /label2
  243.     {
  244.     gsave
  245.     translate
  246.     rotate
  247.     findfont 6 scalefont setfont
  248.     0 setgray
  249.     currentscreen pop pop cvi (            ) cvs
  250.     3 {dup length 4 lt {( ) exch stringconcat} if} repeat
  251.     stringconcat ( lpi) stringconcat
  252.     currentscreen pop exch pop cvi (            ) cvs
  253.     3 {dup length 4 lt {( ) exch stringconcat} if} repeat
  254.     stringconcat (\312) stringconcat
  255.     dup stringwidth exch 2 div neg exch 2 div neg moveto show
  256.     _beginseparation 0 get /processcyan eq {(cyan )} {(     )} ifelse
  257.     _beginseparation 0 get /processmagenta eq {(magenta )} {(        )} ifelse
  258.     stringconcat
  259.     _beginseparation 0 get /processyellow eq {(yellow )} {(       )} ifelse
  260.     stringconcat
  261.     _beginseparation 0 get /processblack eq {(black )} {(      )} ifelse
  262.     stringconcat
  263.     dup stringwidth exch 2 div neg exch pop 8 neg moveto
  264.     _beginseparation 0 get /customcolor eq {exch stringconcat} {exch pop} ifelse
  265.     show
  266.     grestore
  267.     } def
  268. /graystrip2
  269.     {
  270.     gsave
  271.     translate
  272.     rotate
  273.     -75 -7.5 translate
  274.     0 1 9
  275.         {
  276.         newpath 0 0 moveto 15 0 rlineto 0 15 rlineto -15 0 rlineto closepath
  277.         gsave
  278.             10 div setgray
  279.             fill
  280.         grestore
  281.         gsave
  282.             1 setgray
  283.             .5 setlinewidth
  284.             stroke
  285.         grestore
  286.         15 0 translate
  287.         } for
  288.     grestore
  289.     } def
  290. /colorstrip2            % angle tx ty colorstrip2 -
  291.     {
  292.     gsave
  293.     translate
  294.     rotate
  295.     -60 -7.5 translate
  296.     _beginseparation 0 get /processcyan eq {0} {1} ifelse            % C
  297.     _beginseparation 0 get /processmagenta eq {0} {1} ifelse        % M
  298.     _beginseparation 0 get /processyellow eq {0} {1} ifelse            % Y
  299.     _beginseparation 0 get /processcyan eq                            % CM
  300.     _beginseparation 0 get /processmagenta eq or {0} {1} ifelse
  301.     _beginseparation 0 get /processmagenta eq                        % MY
  302.     _beginseparation 0 get /processyellow eq or {0} {1} ifelse
  303.     _beginseparation 0 get /processcyan eq                            % CY
  304.     _beginseparation 0 get /processyellow eq or {0} {1} ifelse
  305.     _beginseparation 0 get /processcyan eq                            % CMY
  306.     _beginseparation 0 get /processmagenta eq or 
  307.     _beginseparation 0 get /processyellow eq or {0} {1} ifelse
  308.     _beginseparation 0 get /processblack eq {0} {1} ifelse            % K
  309.     0 1 7
  310.         {
  311.           pop % for loop index
  312.         newpath 0 0 moveto 15 0 rlineto 0 15 rlineto -15 0 rlineto closepath
  313.         gsave
  314.             setgray
  315.             fill
  316.         grestore
  317.         gsave
  318.             0 setgray
  319.             .5 setlinewidth
  320.             stroke
  321.         grestore
  322.         15 0 translate
  323.         } for
  324.     grestore
  325.     } def
  326. /blackstrip2            % font angle tx ty blackstrip2 -
  327.     {
  328.     gsave
  329.     translate
  330.     rotate
  331.     -60 -7.5 translate
  332.     gsave
  333.     findfont 15 3 div scalefont setfont
  334.     (C) _beginseparation 0 get /processcyan eq {0} {1} ifelse
  335.     (M) _beginseparation 0 get /processmagenta eq {0} {1} ifelse
  336.     (Y) _beginseparation 0 get /processyellow eq {0} {1} ifelse
  337.     (CM) _beginseparation 0 get /processcyan eq 
  338.     _beginseparation 0 get /processmagenta eq or {0} {1} ifelse
  339.     (MY) _beginseparation 0 get /processmagenta eq 
  340.     _beginseparation 0 get /processyellow eq or {0} {1} ifelse
  341.     (CY) _beginseparation 0 get /processcyan eq 
  342.     _beginseparation 0 get /processyellow eq or {0} {1} ifelse
  343.     (CMY) _beginseparation 0 get /processcyan eq 
  344.     _beginseparation 0 get /processmagenta eq or 
  345.     _beginseparation 0 get /processyellow eq or {0} {1} ifelse
  346.     (K) _beginseparation 0 get /processblack eq {0} {1} ifelse
  347.     0 1 7
  348.         {
  349.           pop % for loop index
  350.         newpath 0 0 moveto 15 0 rlineto 0 15 rlineto -15 0 rlineto closepath
  351.         gsave
  352.             setgray
  353.             fill
  354.         grestore
  355.         gsave
  356.             0 setgray
  357.             .5 setlinewidth
  358.             stroke
  359.         grestore
  360.         gsave
  361.             -90 rotate 
  362.             dup stringwidth pop neg 15 sub 2 div 5 
  363.             moveto
  364.             show
  365.         grestore
  366.         15 0 translate
  367.         } for
  368.     grestore
  369.     _beginseparation 0 get /processblack eq
  370.     _beginseparation 0 get /proof eq
  371.     or
  372.         {
  373.         newpath 0 0 moveto 120 0 rlineto 0 15 rlineto -120 0 rlineto closepath
  374.         0 setgray
  375.         fill
  376.         } if
  377.     grestore
  378.     } def
  379. /beginseparation
  380. {
  381. aload pop
  382. beginseparate
  383. } def
  384. /endseparation
  385. {
  386. aload pop
  387. endseparate
  388. } def
  389. /setvar
  390. {
  391. Adobe_separation_vars 3 1 roll put
  392. } def
  393. /getvar
  394. {
  395. Adobe_separation_vars exch get
  396. } def
  397. /setup
  398. {
  399. Adobe_separation begin
  400. Adobe_separation_vars begin
  401. _pagesize pagesize
  402. _halftone halftone
  403. erasepage
  404. end
  405. end
  406. /_save save setvar
  407. /_pagecount 1 setvar
  408. Adobe_separation_vars /_beginseparation get
  409. Adobe_separation /beginseparation get exec
  410. Adobe_separation /beginpage get exec
  411. } def
  412. /rehalftone
  413. {
  414. Adobe_separation begin
  415. Adobe_separation_vars begin
  416. halftone
  417. end
  418. end
  419. } def
  420. /trailer
  421. {
  422. Adobe_separation /endpage get exec
  423. Adobe_separation_vars /_endseparation get
  424. Adobe_separation /endseparation get exec
  425. /_save getvar restore
  426. } def
  427. /beginpage
  428. {
  429. Adobe_separation begin
  430. Adobe_separation_vars begin
  431. _deviceadjustmatrix deviceadjustmatrix
  432. _orientation orientation
  433. _emulsion emulsion
  434. _imageablearea imageablearea
  435. /processblack [] 1 beginseparate
  436. %_labels labels
  437. %_teststrips graystrips
  438. %_cropmarks cropmarks
  439. %_registrationmarks registrationmarks
  440. separationMarks
  441. endseparate
  442. _clipbox clipbox
  443. end
  444. end
  445. } def
  446. /endpage
  447. {
  448. } def
  449. /showpage
  450. {
  451. Adobe_separation /endpage get exec
  452. Adobe_separation_vars /_showpage get exec
  453. /_pagecount dup getvar 1 add setvar
  454. } def
  455. currentdict readonly pop end
  456. setpacking
  457. %%EndProcSet
  458.