home *** CD-ROM | disk | FTP | other *** search
/ Boot Disc 12 / boot-disc-1997-08.iso / ILSTRATR / ARCHIVE.Z / ProcSets.aip / TEXT / 601 < prev    next >
Text File  |  1997-05-07  |  3KB  |  208 lines
  1. %%BeginProcSet: Adobe_packedarray 0 0
  2. userdict /Adobe_packedarray 5 dict dup begin put
  3. /initialize
  4. {
  5. /packedarray where
  6.     {
  7.     pop
  8.     }
  9.     {
  10.     Adobe_packedarray begin
  11.     Adobe_packedarray
  12.         {
  13.         dup xcheck
  14.             {
  15.             bind
  16.             } if
  17.         userdict 3 1 roll put
  18.         } forall
  19.  end
  20.     } ifelse
  21. } def
  22. /terminate
  23. {
  24. } def
  25. /packedarray
  26. {
  27. array astore readonly
  28. } def
  29. /setpacking
  30. {
  31. pop
  32. } def
  33. /currentpacking
  34. {
  35. false
  36. } def
  37. currentdict readonly pop end
  38. %%EndProcSet
  39. Adobe_packedarray /initialize get exec
  40. %%BeginProcSet:Adobe_cmykcolor 0 0
  41. currentpacking true setpacking
  42. userdict /Adobe_cmykcolor 4 dict dup begin put
  43. /initialize
  44. {
  45. /setcmykcolor where
  46.     {
  47.     pop
  48.     }
  49.     {
  50.     userdict /Adobe_cmykcolor_vars 2 dict dup begin put
  51.     /_setgray /setgray load def
  52.     /_currentgray /currentgray load def
  53.     Adobe_cmykcolor begin
  54.     Adobe_cmykcolor
  55.         {
  56.         dup xcheck
  57.             {
  58.             bind
  59.             } if
  60.         pop pop
  61.         } forall
  62.  end
  63.  end
  64.     Adobe_cmykcolor begin
  65.     } ifelse
  66. } def
  67. /terminate
  68. {
  69. currentdict Adobe_cmykcolor eq
  70.     {
  71.  end
  72.     } if
  73. } def
  74. /setcmykcolor
  75. {
  76.     exch .11 mul add exch .59 mul add exch .3 mul add 1 exch sub
  77.     Adobe_cmykcolor_vars /_setgray get exec
  78. } def 
  79. /currentcmykcolor
  80. {
  81. 0 0 0 1 Adobe_cmykcolor_vars /_currentgray get exec sub
  82. } def
  83. currentdict readonly pop end
  84. setpacking
  85. %%EndProcSet
  86. %%BeginProcSet:Adobe_gsproperty 0 0
  87. currentpacking true setpacking
  88. userdict /Adobe_gsproperty 8 dict dup begin put
  89. /initialize
  90. {
  91. /setgsproperty where
  92.     {
  93.     pop
  94.     }
  95.     {
  96.     userdict /Adobe_gsproperty_vars 8 dict dup begin put
  97. /stack
  98.     32 array def
  99. 0 1 stack length 1 sub
  100.     {
  101.     stack exch 10 dict put
  102.     } for
  103. /gtop 0 def
  104. /top 0 def
  105. /time 0 def
  106. /_gsave /gsave load def
  107. /_grestore /grestore load def
  108. /_grestoreall /grestoreall load def
  109. /_save /save load def
  110.     Adobe_gsproperty begin
  111.     Adobe_gsproperty
  112.         {
  113.         dup xcheck
  114.             {
  115.             bind
  116.             } if
  117.         pop pop
  118.         } forall
  119.  end
  120.  end
  121.     Adobe_gsproperty begin
  122.     } ifelse
  123. } def
  124. /terminate
  125. {
  126. currentdict Adobe_gsproperty eq
  127.     {
  128.  end
  129.     } if
  130. } def
  131. /setgsproperty
  132. {
  133. Adobe_gsproperty_vars begin
  134. stack gtop get dup length exch maxlength eq
  135.     {
  136.     stack gtop 2 copy get dup maxlength 2 mul dict copy put
  137.     } if
  138. stack gtop get
  139. 3 1 roll put
  140. end
  141. } def
  142. /getgsproperty
  143. {
  144. Adobe_gsproperty_vars begin
  145. gtop -1 -1
  146.     {
  147.     stack exch get
  148.     2 copy exch known
  149.         {
  150.         2 copy exch get /_notdef ne
  151.             {
  152.             exch get dup
  153.             exit
  154.             } if
  155.         } if
  156.     pop
  157.     } for
  158. pop
  159. end
  160. } def
  161. /gsave
  162. {
  163. Adobe_gsproperty_vars begin
  164. _gsave
  165. /gtop gtop 1 add def
  166. stack gtop get
  167. dup dup
  168.     {
  169.     pop /_notdef put dup
  170.     } forall
  171. pop pop
  172. end
  173. } def
  174. /grestore
  175. {
  176. Adobe_gsproperty_vars begin
  177. gtop top gt
  178.     {
  179.     /gtop gtop 1 sub def
  180.     } if
  181. _grestore
  182. end
  183. } def
  184. /grestoreall
  185. {
  186. Adobe_gsproperty_vars begin
  187. /gtop top def
  188. _grestoreall
  189. end
  190. } def
  191. /save
  192. {
  193. Adobe_gsproperty_vars /_save get exec
  194. Adobe_gsproperty_vars begin
  195. /gtop gtop 1 add def
  196. stack gtop get
  197. dup dup
  198.     {
  199.     pop /_notdef put dup
  200.     } forall
  201. pop pop
  202. /top gtop def
  203. end
  204. } def
  205. currentdict readonly pop end
  206. setpacking
  207. %%EndProcSet
  208.