home *** CD-ROM | disk | FTP | other *** search
/ Boot Disc 12 / boot-disc-1997-08.iso / ILSTRATR / ARCHIVE.Z / ProcSets.aip / TEXT / 604 < prev    next >
Text File  |  1997-05-07  |  9KB  |  506 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
  79. {
  80. dup length 4 ne
  81.     {
  82.     /setcolorscreen where
  83.         {
  84.         pop
  85.         7 dict begin
  86.         aload pop
  87.         /transfer2 exch cvlit def
  88.         /transfer1 exch cvlit def
  89.         /screen exch cvlit def
  90.         /blackscreen exch def
  91.         /yellowscreen exch def
  92.         /magentascreen exch def
  93.         /cyanscreen exch def
  94.         [
  95.         transfer1 cvx /exec cvx
  96.         transfer2 cvx /exec cvx
  97.         cyanscreen 3 get exec /exec cvx
  98.         ] cvx
  99.         [
  100.         transfer1 cvx /exec cvx
  101.         transfer2 cvx /exec cvx
  102.         magentascreen 3 get exec /exec cvx
  103.         ] cvx
  104.         [
  105.         transfer1 cvx /exec cvx
  106.         transfer2 cvx /exec cvx
  107.         yellowscreen 3 get exec /exec cvx
  108.         ] cvx
  109.         [
  110.         transfer1 cvx /exec cvx
  111.         transfer2 cvx /exec cvx
  112.         blackscreen 3 get exec /exec cvx
  113.         ] cvx
  114.         {}
  115.         setcolortransfer
  116.         cyanscreen aload pop pop
  117.         3
  118.             {
  119.             exec 3 1 roll
  120.             } repeat
  121.         [ exch /exec cvx
  122.         screen cvx /exec cvx
  123.         ] cvx
  124.         magentascreen aload pop pop
  125.         3
  126.             {
  127.             exec 3 1 roll
  128.             } repeat
  129.         [ exch /exec cvx
  130.         screen cvx /exec cvx
  131.         ] cvx
  132.         yellowscreen aload pop pop
  133.         3
  134.             {
  135.             exec 3 1 roll
  136.             } repeat
  137.         [ exch /exec cvx
  138.         screen cvx /exec cvx
  139.         ] cvx
  140.         blackscreen aload pop pop
  141.         3
  142.             {
  143.             exec 3 1 roll
  144.             } repeat
  145.         [ exch /exec cvx
  146.         screen cvx /exec cvx
  147.         ] cvx
  148.         setcolorscreen
  149.      end
  150.         }
  151.         {
  152.         4 dict begin
  153.         aload pop
  154.         /transfer2 exch cvlit def
  155.         /transfer1 exch cvlit def
  156.         /screen exch cvlit def
  157.         /blackscreen exch def
  158.         [
  159.         transfer1 cvx /exec cvx
  160.         transfer2 cvx /exec cvx
  161.         blackscreen 3 get exec /exec cvx
  162.         ] cvx
  163.         settransfer
  164.         blackscreen aload pop pop
  165.         3
  166.             {
  167.             exec 3 1 roll
  168.             } repeat
  169.         [ exch /exec cvx
  170.         screen cvx /exec cvx
  171.         ] cvx
  172.         setscreen
  173.      end
  174.         pop pop pop
  175.         } ifelse
  176.     }
  177.     {
  178.     4 dict begin
  179.     aload pop
  180.     /transfer2 exch cvlit def
  181.     /transfer1 exch cvlit def
  182.     /screen exch cvlit def
  183.     /blackscreen exch def
  184.     [
  185.     transfer1 cvx /exec cvx
  186.     transfer2 cvx /exec cvx
  187.     blackscreen 3 get exec /exec cvx
  188.     ] cvx
  189.     settransfer
  190.     blackscreen aload pop pop
  191.     3
  192.         {
  193.         exec 3 1 roll
  194.         } repeat
  195.     [ exch /exec cvx
  196.     screen cvx /exec cvx
  197.     ] cvx
  198.     setscreen
  199.  end
  200.     } ifelse
  201. } def
  202. /deviceadjustmatrix
  203. {
  204. concat
  205. } def
  206. /orientation
  207. {
  208. aload pop
  209. 1 eq
  210.     {
  211.     pop pop
  212.     }
  213.     {
  214.     pop 0 [0 1 -1 0 7 -2 roll] concat
  215.     } ifelse
  216. } def
  217. /emulsion
  218. {
  219. aload pop
  220. 1 eq
  221.     {
  222.     pop pop
  223.     }
  224.     {
  225.     pop 0 [-1 0 0 1 7 -2 roll] concat
  226.     } ifelse
  227. } def
  228. /imageablearea
  229. {
  230. concat
  231. } def
  232. /clipbox
  233. {
  234. aload pop
  235. 6 dict begin
  236. /ty exch def
  237. /tx exch def
  238. /ury exch def
  239. /urx exch def
  240. /lly exch def
  241. /llx exch def
  242. newpath
  243. llx lly moveto
  244. urx lly lineto
  245. urx ury lineto
  246. llx ury lineto
  247. closepath
  248. clip
  249. newpath
  250. tx ty translate
  251. end
  252. } def
  253. userdict /AI3_noCropMarks null put
  254. /cropmark2
  255.     {
  256.     gsave
  257.     translate
  258.     rotate
  259.     gsave
  260.     normalize
  261.     0 setgray
  262.     .3 setlinewidth
  263.     0 setlinecap
  264.     0 setlinejoin
  265.     newpath
  266.     0 0 moveto 0 27 rlineto
  267.     stroke
  268.     grestore
  269.     grestore
  270.     } def
  271. /registrationmark2
  272.     {
  273.     gsave
  274.     translate
  275.     normalize
  276.     0.3 setlinewidth
  277.     0 setlinecap
  278.     0 setlinejoin
  279.     newpath
  280.     1 setgray
  281.     10 0 moveto 0 0 10 0 360 arc
  282.     fill
  283.     0 setgray 
  284.     8 0 moveto 0 0 8 0 360 arc
  285.     -10 0 moveto 10 0 lineto 0 -10 moveto 0 10 lineto
  286.     stroke
  287.     4 0 moveto 0 0 4 0 360 arc
  288.     fill
  289.     1 setgray
  290.     -4 0 moveto 4 0 lineto 0 -4 moveto 0 4 lineto
  291.     stroke
  292.     grestore
  293.     } def
  294. /startarget2
  295.     {
  296.     gsave
  297.     translate
  298.     normalize
  299.     .3 setlinewidth
  300.     0 setlinecap
  301.     0 setlinejoin
  302.     newpath
  303.     1 setgray
  304.     0 0 10 0 360 arc
  305.     fill
  306.     0 setgray
  307.     0 0 10 0 360 arc
  308.     stroke
  309.     36
  310.         {
  311.         1 0 moveto
  312.         0 0 10 -2.5 2.5 arc
  313.         fill
  314.         10 rotate
  315.         } repeat
  316.     grestore
  317.     } def
  318. /label2
  319.     {
  320.     gsave
  321.     translate
  322.     rotate
  323.     findfont 6 scalefont setfont
  324.     0 setgray
  325.     ( ) stringconcat
  326.     currentscreen pop pop cvi (            ) cvs stringconcat (lpi ) stringconcat
  327.     currentscreen pop exch pop cvi (            ) cvs stringconcat (\312 ) stringconcat
  328.     _pagecount (            ) cvs stringconcat
  329.     dup stringwidth exch 2 div neg exch 2 div neg moveto show
  330.     _beginseparation 0 get /processcyan eq {(cyan )} {(     )} ifelse
  331.     _beginseparation 0 get /processmagenta eq {(magenta )} {(        )} ifelse
  332.     stringconcat
  333.     _beginseparation 0 get /processyellow eq {(yellow )} {(       )} ifelse
  334.     stringconcat
  335.     _beginseparation 0 get /processblack eq {(black )} {(      )} ifelse
  336.     stringconcat
  337.     dup stringwidth exch 2 div neg exch pop 8 neg moveto
  338.     _beginseparation 0 get /customcolor eq {exch stringconcat} {exch pop} ifelse
  339.     show
  340.     grestore
  341.     } def
  342. /graystrip2
  343.     {
  344.     gsave
  345.     translate
  346.     rotate
  347.     -75 -7.5 translate
  348.     0 1 9
  349.         {
  350.         newpath 0 0 moveto 15 0 rlineto 0 15 rlineto -15 0 rlineto closepath
  351.         gsave
  352.             10 div setgray
  353.             fill
  354.         grestore
  355.         gsave
  356.             1 setgray
  357.             .5 setlinewidth
  358.             stroke
  359.         grestore
  360.         15 0 translate
  361.         } for
  362.     grestore
  363.     } def
  364. /colorstrip2
  365.     {
  366.     gsave
  367.     translate
  368.     rotate
  369.     -60 -7.5 translate
  370.     findfont 15 3 div scalefont setfont
  371.     (C) _beginseparation 0 get /processcyan eq {0} {1} ifelse
  372.     (M) _beginseparation 0 get /processmagenta eq {0} {1} ifelse
  373.     (Y) _beginseparation 0 get /processyellow eq {0} {1} ifelse
  374.     (CM) _beginseparation 0 get /processcyan eq 
  375.     _beginseparation 0 get /processmagenta eq or {0} {1} ifelse
  376.     (MY) _beginseparation 0 get /processmagenta eq 
  377.     _beginseparation 0 get /processyellow eq or {0} {1} ifelse
  378.     (CY) _beginseparation 0 get /processcyan eq 
  379.     _beginseparation 0 get /processyellow eq or {0} {1} ifelse
  380.     (CMY) _beginseparation 0 get /processcyan eq 
  381.     _beginseparation 0 get /processmagenta eq or 
  382.     _beginseparation 0 get /processyellow eq or {0} {1} ifelse
  383.     (K) _beginseparation 0 get /processblack eq {0} {1} ifelse
  384.     0 1 7
  385.         {
  386.           pop
  387.         newpath 0 0 moveto 15 0 rlineto 0 15 rlineto -15 0 rlineto closepath
  388.         gsave
  389.             setgray
  390.             fill
  391.         grestore
  392.         gsave
  393.             0 setgray
  394.             .5 setlinewidth
  395.             stroke
  396.         grestore
  397.         gsave
  398.             -90 rotate 
  399.             dup stringwidth pop neg 15 sub 2 div 5 
  400.             moveto
  401.             show
  402.         grestore
  403.         15 0 translate
  404.         } for
  405.     grestore
  406.     } def
  407. /blackstrip2
  408.     {
  409.     4 copy
  410.     colorstrip2
  411.     gsave
  412.     translate
  413.     rotate
  414.     _beginseparation 0 get /processblack eq
  415.     _beginseparation 0 get /proof eq
  416.     or
  417.         {
  418.         -60 -7.5 translate
  419.         newpath 0 0 moveto 120 0 rlineto 0 15 rlineto -120 0 rlineto closepath
  420.         0 setgray
  421.         fill
  422.         } if
  423.     grestore
  424.     pop
  425.     } def
  426. /beginseparation
  427. {
  428. aload pop
  429. beginseparate
  430. } def
  431. /endseparation
  432. {
  433. aload pop
  434. endseparate
  435. } def
  436. /setvar
  437. {
  438. Adobe_separation_vars 3 1 roll put
  439. } def
  440. /getvar
  441. {
  442. Adobe_separation_vars exch get
  443. } def
  444. /setup
  445. {
  446. Adobe_separation begin
  447. Adobe_separation_vars begin
  448. _pagesize pagesize
  449. _halftone halftone
  450. erasepage
  451. end
  452. end
  453. /_save save setvar
  454. /_pagecount 1 setvar
  455. Adobe_separation_vars /_beginseparation get
  456. Adobe_separation /beginseparation get exec
  457. Adobe_separation /beginpage get exec
  458. } def
  459. /rehalftone
  460. {
  461. Adobe_separation begin
  462. Adobe_separation_vars begin
  463. halftone
  464. end
  465. end
  466. } def
  467. /trailer
  468. {
  469. Adobe_separation /endpage get exec
  470. Adobe_separation_vars /_endseparation get
  471. Adobe_separation /endseparation get exec
  472. /_save getvar restore
  473. } def
  474. /beginpage
  475. {
  476. Adobe_separation begin
  477. Adobe_separation_vars begin
  478. _deviceadjustmatrix deviceadjustmatrix
  479. _orientation orientation
  480. _emulsion emulsion
  481. _imageablearea imageablearea
  482. /processblack [] 1 beginseparate
  483. %_labels labels
  484. %_teststrips graystrips
  485. %_cropmarks cropmarks
  486. %_registrationmarks registrationmarks
  487. separationMarks
  488. endseparate
  489. _clipbox clipbox
  490. end
  491. end
  492. } def
  493. /endpage
  494. {
  495. } def
  496. /showpage
  497. {
  498. Adobe_separation /endpage get exec
  499. Adobe_separation_vars /_showpage get exec
  500. /_pagecount dup getvar 1 add setvar
  501. Adobe_separation /beginpage get exec
  502. } def
  503. currentdict readonly pop end
  504. setpacking
  505. %%EndProcSet
  506.