home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 March / Chip_1998-03_cd.bin / tema / Adobe / Illustr / archive.z / ProcSets.aip / TEXT / 1001 next >
Text File  |  1997-08-01  |  639b  |  43 lines
  1. %%BeginResource: procset Adobe_packedarray 2.0 0
  2. %%Title: (Packed Array Operators)
  3. %%Version: 2.0 0
  4. %%CreationDate: (8/2/90) ()
  5. %%Copyright: ((C) 1987-1996 Adobe Systems Incorporated All Rights Reserved)
  6. userdict /Adobe_packedarray 5 dict dup begin put
  7. /initialize
  8. {
  9. /packedarray where
  10.     {
  11.     pop
  12.     }
  13.     {
  14.     Adobe_packedarray begin
  15.     Adobe_packedarray
  16.         {
  17.         dup xcheck
  18.             {
  19.             bind
  20.             } if
  21.         userdict 3 1 roll put
  22.         } forall
  23.  end
  24.     } ifelse
  25. } def
  26. /terminate
  27. {
  28. } def
  29. /packedarray
  30. {
  31. array astore readonly
  32. } def
  33. /setpacking
  34. {
  35. pop
  36. } def
  37. /currentpacking
  38. {
  39. false
  40. } def
  41. currentdict readonly pop end
  42. %%EndResource
  43.