home *** CD-ROM | disk | FTP | other *** search
/ Boot Disc 12 / boot-disc-1997-08.iso / ILSTRATR / ARCHIVE.Z / ProcSets.aip / TEXT / 603 < prev    next >
Text File  |  1997-05-07  |  10KB  |  623 lines
  1. %%BeginProcSet:Adobe_separate 0 0
  2. currentpacking true setpacking
  3. userdict /Adobe_separate 33 dict dup begin put
  4. /initialize
  5. {
  6. /nulldevice
  7.     false setgsproperty
  8. /customcolor
  9.     null setgsproperty
  10. /overprint
  11.     false setgsproperty
  12. /rgbtocmyk
  13.     {
  14.     3
  15.         {
  16.         1 exch sub 3 1 roll
  17.         } repeat
  18.     3 copy 1 4 1 roll
  19.     3
  20.         {
  21.         3 index 2 copy gt
  22.             {
  23.             exch
  24.             } if
  25.         pop 4 1 roll
  26.         } repeat
  27.     pop pop pop
  28.     4 1 roll
  29.     3
  30.         {
  31.         3 index sub
  32.         3 1 roll
  33.         } repeat
  34.     4 -1 roll
  35.     } setgsproperty
  36. userdict /Adobe_separate_vars 22 dict dup begin put
  37. /isDCSFile
  38.     false def
  39. /savestate
  40.     null def
  41. /separation
  42.     /proof def
  43. /setprocessseparate
  44.     Adobe_separate /processseparationset get separation get def
  45. /setcustomseparate
  46.     Adobe_separate /customseparationset get separation get def
  47. /customcolors
  48.     1 dict def
  49. /nullimage
  50.     1 def
  51. /_setgray
  52.     /setgray load def
  53. /_setrgbcolor
  54.     /setrgbcolor load def
  55. /_sethsbcolor
  56.     /sethsbcolor load def
  57. /_setcmykcolor
  58.     /setcmykcolor load def
  59. /_fill
  60.     /fill load def
  61. /_eofill
  62.     /eofill load def
  63. /_stroke
  64.     /stroke load def
  65. /_imagemask
  66.     /imagemask load def
  67. /_image
  68.     /image load def
  69. /_show
  70.     /show load def
  71. /_ashow
  72.     /ashow load def
  73. /_widthshow
  74.     /widthshow load def
  75. /_awidthshow
  76.     /awidthshow load def
  77. /_kshow
  78.     /kshow load def
  79. /densitycustomcolor
  80.     {
  81.     exch
  82.     customcolors null ne
  83.         {
  84.         dup 4 get customcolors exch get dup type /booleantype ne
  85.             {
  86.             exch
  87.             } if
  88.         pop
  89.         } if
  90.     aload pop pop
  91.     4
  92.         {
  93.         4 index mul 4 1 roll
  94.         } repeat
  95.     5 -1 roll pop
  96.     } def
  97. Adobe_separate begin
  98. Adobe_separate
  99.     {
  100.     dup xcheck
  101.         {
  102.         bind
  103.         } if
  104.     pop pop
  105.     } forall
  106. end
  107. end
  108. Adobe_separate begin
  109. } def
  110. /terminate
  111. {
  112. currentdict Adobe_separate eq
  113.     {
  114.  end
  115.     } if
  116. } def
  117. /beginseparate
  118. {
  119. Adobe_separate_vars /savestate save put
  120. Adobe_separate_vars begin
  121. /nullimage
  122.     exch def
  123. dup length dict begin
  124.     {
  125.     dup xcheck exch
  126.     dup type /arraytype eq
  127.         {
  128.         aload pop dup 6 1 roll findcmykcustomcolor
  129.         }
  130.         {
  131.         true
  132.         } ifelse
  133.     3 -1 roll
  134.         {
  135.         cvx
  136.         } if
  137.     def
  138.     } forall
  139. currentdict end
  140. /customcolors
  141.     exch def
  142. /separation
  143.     exch def
  144. /setprocessseparate
  145.     Adobe_separate /processseparationset get separation get def
  146. /setcustomseparate
  147.     Adobe_separate /customseparationset get separation get def
  148. /nulldevice
  149.     false setgsproperty
  150. end
  151. } def
  152. /endseparate
  153. {
  154. Adobe_separate_vars /savestate get restore
  155. } def
  156. /findcustomcolor
  157. {
  158. 0 0 0 1
  159. 5 -1 roll
  160. 5 packedarray
  161. } def
  162. /findgraycustomcolor
  163. {
  164. exch 1 exch sub 0 0 0 4 -1 roll
  165. 5 -1 roll
  166. 5 packedarray
  167. } def
  168. /findrgbcustomcolor
  169. {
  170. 4 1 roll /rgbtocmyk getgsproperty exec
  171. 5 -1 roll
  172. 5 packedarray
  173. } def
  174. /findhsbcustomcolor
  175. {
  176. 4 1 roll
  177. gsave
  178. Adobe_separate_vars /_sethsbcolor get exec
  179. currentrgbcolor
  180. grestore
  181. /rgbtocmyk getgsproperty exec
  182. 5 -1 roll
  183. 5 packedarray
  184. } def
  185. /findcmykcustomcolor
  186. {
  187. 5 packedarray
  188. } def
  189. /setcustomcolor
  190. {
  191. dup type dup /integertype eq exch /realtype eq or
  192.     {
  193.     /customcolor
  194.         null setgsproperty
  195.     Adobe_separate_vars begin
  196.     setcustomseparate
  197.  end
  198.     }
  199.     {
  200.     /customcolor
  201.         exch setgsproperty
  202.     } ifelse
  203. } def
  204. /currentcustomcolor
  205. {
  206. /customcolor getgsproperty
  207. } def
  208. /setoverprint
  209. {
  210. /overprint
  211.     exch setgsproperty
  212. } def
  213. /currentoverprint
  214. {
  215. /overprint getgsproperty
  216. } def
  217. /setrgbtocmyk
  218. {
  219. /rgbtocmyk
  220.     exch setgsproperty
  221. } def
  222. /currentrgbtocmyk
  223. {
  224. /rgbtocmyk getgsproperty
  225. } def
  226. /setgray
  227. {
  228. Adobe_separate_vars begin
  229. /customcolor getgsproperty exch
  230. 1 index null eq
  231.     {
  232.     1 exch sub 0 0 0 4 -1 roll
  233.     setprocessseparate
  234.     }
  235.     {
  236.     1 exch sub
  237.     setcustomseparate
  238.     } ifelse
  239. end
  240. } def
  241. /setrgbcolor
  242. {
  243. Adobe_separate_vars begin
  244. /customcolor getgsproperty 4 1 roll
  245. 3 index null eq
  246.     {
  247.     /rgbtocmyk getgsproperty exec
  248.     setprocessseparate
  249.     }
  250.     {
  251.     _setrgbcolor currentgray 1 exch sub
  252.     setcustomseparate
  253.     } ifelse
  254. end
  255. } def
  256. /sethsbcolor
  257. {
  258. Adobe_separate_vars /_sethsbcolor get exec
  259. currentrgbcolor
  260. setrgbcolor
  261. } def
  262. /setcmykcolor
  263. {
  264. Adobe_separate_vars begin
  265. /customcolor getgsproperty 5 1 roll
  266. 4 index null eq
  267.     {
  268.     setprocessseparate
  269.     }
  270.     {
  271.     _setcmykcolor currentgray 1 exch sub
  272.     setcustomseparate
  273.     } ifelse
  274. end
  275. } def
  276. /setcmybcolor
  277. {
  278. setcmykcolor
  279. } def
  280. currentdict /processseparationset 6 dict dup begin put
  281. /proof
  282. {
  283. _setcmykcolor
  284. pop
  285. } def
  286. /processcyan
  287. {
  288. 3 index 0 eq 1 index 1 eq /overprint getgsproperty or and
  289.     /nulldevice exch setgsproperty
  290. pop pop pop
  291. 1 exch sub _setgray
  292. pop
  293. } def
  294. /processmagenta
  295. {
  296. 2 index 0 eq 1 index 1 eq /overprint getgsproperty or and
  297.     /nulldevice exch setgsproperty
  298. 4 -1 roll pop pop pop
  299. 1 exch sub _setgray
  300. pop
  301. } def
  302. /processyellow
  303. {
  304. 1 index 0 eq 1 index 1 eq /overprint getgsproperty or and
  305.     /nulldevice exch setgsproperty
  306. 4 -2 roll pop pop pop
  307. 1 exch sub _setgray
  308. pop
  309. } def
  310. /processblack
  311. {
  312. 0 index 0 eq /overprint getgsproperty and
  313.     {
  314.     3 index 0 eq 3 index 0 eq 3 index 0 eq and and not
  315.     }
  316.     {
  317.     false
  318.     } ifelse
  319.     /nulldevice exch setgsproperty
  320. 4 -3 roll pop pop pop
  321. 1 exch sub _setgray
  322. pop
  323. } def
  324. /customcolor
  325. {
  326. 0 index 1 eq /overprint getgsproperty or
  327.     /nulldevice exch setgsproperty
  328. 1 _setgray
  329. pop pop pop pop pop
  330. } def
  331. currentdict readonly pop end
  332. currentdict /customseparationset 6 dict dup begin put
  333. /proof
  334. {
  335. 1 index 4 get customcolors exch known
  336.     {
  337.     densitycustomcolor
  338.     _setcmykcolor
  339.     false
  340.     }
  341.     {
  342.     pop pop
  343.     1 _setgray
  344.     /overprint getgsproperty
  345.     } ifelse
  346. /nulldevice exch setgsproperty
  347. } def
  348. /processcyan
  349. {
  350. 1 index 4 get customcolors exch known
  351.     {
  352.     1 index 4 get customcolors exch get xcheck
  353.         {
  354.         densitycustomcolor
  355.         3 index 0 eq 1 index 1 eq /overprint getgsproperty or and
  356.             /nulldevice exch setgsproperty
  357.         pop pop pop
  358.         1 exch sub _setgray
  359.         }
  360.         {
  361.         false
  362.             /nulldevice exch setgsproperty
  363.         1 exch sub _setgray
  364.         pop
  365.         } ifelse
  366.     }
  367.     {
  368.     /overprint getgsproperty
  369.         /nulldevice exch setgsproperty
  370.     pop pop
  371.     1 _setgray
  372.     } ifelse
  373. } def
  374. /processmagenta
  375. {
  376. 1 index 4 get customcolors exch known
  377.     {
  378.     1 index 4 get customcolors exch get xcheck
  379.         {
  380.         densitycustomcolor
  381.         2 index 0 eq 1 index 1 eq /overprint getgsproperty or and
  382.             /nulldevice exch setgsproperty
  383.         4 -1 roll pop pop pop
  384.         1 exch sub _setgray
  385.         }
  386.         {
  387.         false
  388.             /nulldevice exch setgsproperty
  389.         1 exch sub _setgray
  390.         pop
  391.         } ifelse
  392.     }
  393.     {
  394.     /overprint getgsproperty
  395.         /nulldevice exch setgsproperty
  396.     pop pop
  397.     1 _setgray
  398.     } ifelse
  399. } def
  400. /processyellow
  401. {
  402. 1 index 4 get customcolors exch known
  403.     {
  404.     1 index 4 get customcolors exch get xcheck
  405.         {
  406.         densitycustomcolor
  407.         1 index 0 eq 1 index 1 eq /overprint getgsproperty or and
  408.             /nulldevice exch setgsproperty
  409.         4 -2 roll pop pop pop
  410.         1 exch sub _setgray
  411.         }
  412.         {
  413.         false
  414.             /nulldevice exch setgsproperty
  415.         1 exch sub _setgray
  416.         pop
  417.         } ifelse
  418.     }
  419.     {
  420.     /overprint getgsproperty
  421.         /nulldevice exch setgsproperty
  422.     pop pop
  423.     1 _setgray
  424.     } ifelse
  425. } def
  426. /processblack
  427. {
  428. 1 index 4 get customcolors exch known
  429.     {
  430.     1 index 4 get customcolors exch get xcheck
  431.         {
  432.         densitycustomcolor
  433.         0 index 0 eq /overprint getgsproperty and
  434.             /nulldevice exch setgsproperty
  435.         4 -3 roll pop pop pop
  436.         1 exch sub _setgray
  437.         }
  438.         {
  439.         false
  440.             /nulldevice exch setgsproperty
  441.         1 exch sub _setgray
  442.         pop
  443.         } ifelse
  444.     }
  445.     {
  446.     /overprint getgsproperty
  447.         /nulldevice exch setgsproperty
  448.     pop pop
  449.     1 _setgray
  450.     } ifelse
  451. } def
  452. /customcolor
  453. {
  454. 1 index 4 get customcolors exch known
  455.     {
  456.     1 index 4 get customcolors exch get xcheck
  457.         {
  458.         /overprint getgsproperty
  459.             /nulldevice exch setgsproperty
  460.         pop pop
  461.         1 _setgray
  462.         }
  463.         {
  464.         false
  465.             /nulldevice exch setgsproperty
  466.         1 exch sub _setgray
  467.         pop
  468.         } ifelse
  469.     }
  470.     {
  471.     /overprint getgsproperty
  472.         /nulldevice exch setgsproperty
  473.     pop pop
  474.     1 _setgray
  475.     } ifelse
  476. } def
  477. currentdict readonly pop end
  478. /fill
  479. {
  480. /nulldevice getgsproperty
  481.     {
  482.     newpath
  483.     }
  484.     {
  485.     Adobe_separate_vars /_fill get exec
  486.     } ifelse
  487. } def
  488. /eofill
  489. {
  490. /nulldevice getgsproperty
  491.     {
  492.     newpath
  493.     }
  494.     {
  495.     Adobe_separate_vars /_eofill get exec
  496.     } ifelse
  497. } def
  498. /stroke
  499. {
  500. /nulldevice getgsproperty
  501.     {
  502.     newpath
  503.     }
  504.     {
  505.     Adobe_separate_vars /_stroke get exec
  506.     } ifelse
  507. } def
  508. /imagemask
  509. {
  510. /nulldevice getgsproperty
  511.     {
  512.     gsave
  513.     nulldevice
  514.     Adobe_separate_vars /_imagemask get exec
  515.     grestore
  516.     }
  517.     {
  518.     Adobe_separate_vars /_imagemask get exec
  519.     } ifelse
  520. } def
  521. /image
  522. {
  523. Adobe_separate_vars /separation get /processblack eq
  524. Adobe_separate_vars /separation get /proof eq or
  525. Adobe_separate_vars /isDCSFile get true eq or
  526.     {
  527.     Adobe_separate_vars /_image get exec
  528.     }
  529.     {
  530.     gsave
  531.     [
  532.     /pop cvx Adobe_separate_vars /nullimage get
  533.     ] cvx settransfer
  534.     Adobe_separate_vars /_image get exec
  535.     grestore
  536.     } ifelse
  537. } def
  538. /show
  539. {
  540. /nulldevice getgsproperty
  541.     {
  542.     stringwidth rmoveto
  543.     }
  544.     {
  545.     Adobe_separate_vars /_show get exec
  546.     } ifelse
  547. } def
  548. /ashow
  549. {
  550. /nulldevice getgsproperty
  551.     {
  552.     3 copy pop 0 eq exch 0 eq and
  553.         {
  554.         stringwidth rmoveto pop pop
  555.         }
  556.         {
  557.         dup length dup 0 ne
  558.             {
  559.             dup 5 -1 roll mul
  560.             exch 4 -1 roll mul
  561.             3 -1 roll stringwidth
  562.             exch 4 -1 roll add
  563.             3 1 roll add
  564.             rmoveto
  565.             }
  566.             {
  567.             pop pop pop pop
  568.             } ifelse
  569.         } ifelse
  570.     }
  571.     {
  572.     Adobe_separate_vars /_ashow get exec
  573.     } ifelse
  574. } def
  575. /widthshow
  576. {
  577. /nulldevice getgsproperty
  578.     {
  579.     gsave
  580.     nulldevice
  581.     Adobe_separate_vars /_widthshow get exec
  582.     currentpoint
  583.     grestore
  584.     moveto
  585.     }
  586.     {
  587.     Adobe_separate_vars /_widthshow get exec
  588.     } ifelse
  589. } def
  590. /awidthshow
  591. {
  592. /nulldevice getgsproperty
  593.     {
  594.     gsave
  595.     nulldevice
  596.     Adobe_separate_vars /_awidthshow get exec
  597.     currentpoint
  598.     grestore
  599.     moveto
  600.     }
  601.     {
  602.     Adobe_separate_vars /_awidthshow get exec
  603.     } ifelse
  604. } def
  605. /kshow
  606. {
  607. /nulldevice getgsproperty
  608.     {
  609.     gsave
  610.     nulldevice
  611.     Adobe_separate_vars /_kshow get exec
  612.     currentpoint
  613.     grestore
  614.     moveto
  615.     }
  616.     {
  617.     Adobe_separate_vars /_kshow get exec
  618.     } ifelse
  619. } def
  620. currentdict readonly pop end
  621. setpacking
  622. %%EndProcSet
  623.