home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 July & August / Pcwk7897.iso / mgxsuite / mgxfma.z / EMPS_9.FLT / TEXT / ADLVL5RES < prev    next >
Text File  |  1997-01-28  |  3KB  |  152 lines
  1. %%BeginResource: procset Adobe_level2_AI5 1.0 0
  2. %%Title: (Adobe Illustrator (R) Version 5.0 Level 2 Emulation)
  3. %%Version: 1.0 
  4. %%CreationDate: (04/10/93) ()
  5. %%Copyright: ((C) 1987-1993 Adobe Systems Incorporated All Rights Reserved)
  6. userdict /Adobe_level2_AI5 21 dict dup begin
  7.     put
  8.     /packedarray where not
  9.     {
  10.         userdict begin
  11.         /packedarray
  12.         {
  13.             array astore readonly
  14.         } bind def
  15.         /setpacking /pop load def
  16.         /currentpacking false def
  17.      end
  18.         0
  19.     } if
  20.     pop
  21.     userdict /defaultpacking currentpacking put true setpacking
  22.     /initialize
  23.     {
  24.         Adobe_level2_AI5 begin
  25.     } bind def
  26.     /terminate
  27.     {
  28.         currentdict Adobe_level2_AI5 eq
  29.         {
  30.          end
  31.         } if
  32.     } bind def
  33.     mark
  34.     /setcustomcolor where not
  35.     {
  36.         /findcmykcustomcolor
  37.         {
  38.             5 packedarray
  39.         } bind def
  40.         /setcustomcolor
  41.         {
  42.             exch aload pop pop
  43.             4
  44.             {
  45.                 4 index mul 4 1 roll
  46.             } repeat
  47.             5 -1 roll pop
  48.             setcmykcolor
  49.         }
  50.         def
  51.     } if
  52.     
  53.     /gt38? mark {version cvx exec} stopped {cleartomark true} {38 gt exch pop} ifelse def
  54.     userdict /deviceDPI 72 0 matrix defaultmatrix dtransform dup mul exch dup mul add sqrt put
  55.     userdict /level2?
  56.     systemdict /languagelevel known dup
  57.     {
  58.         pop systemdict /languagelevel get 2 ge
  59.     } if
  60.     put
  61.     level2? not
  62.     {
  63.         /setcmykcolor where not
  64.         {
  65.             /setcmykcolor
  66.             {
  67.                 exch .11 mul add exch .59 mul add exch .3 mul add
  68.                 1 exch sub setgray
  69.             } def
  70.         } if
  71.         /currentcmykcolor where not
  72.         {
  73.             /currentcmykcolor
  74.             {
  75.                 0 0 0 1 currentgray sub
  76.             } def
  77.         } if
  78.         /setoverprint where not
  79.         {
  80.             /setoverprint /pop load def
  81.         } if
  82.         /selectfont where not
  83.         {
  84.             /selectfont
  85.             {
  86.                 exch findfont exch
  87.                 dup type /arraytype eq
  88.                 {
  89.                     makefont
  90.                 }
  91.                 {
  92.                     scalefont
  93.                 } ifelse
  94.                 setfont
  95.             } bind def
  96.         } if
  97.         /cshow where not
  98.         {
  99.             /cshow
  100.             {
  101.                 [
  102.                 0 0 5 -1 roll aload pop
  103.                 ] cvx bind forall
  104.             } bind def
  105.         } if
  106.     } if
  107.     cleartomark
  108.     /anyColor?
  109.     {
  110.         add add add 0 ne
  111.     } bind def
  112.     /testColor
  113.     {
  114.         gsave
  115.         setcmykcolor currentcmykcolor
  116.         grestore
  117.     } bind def
  118.     /testCMYKColorThrough
  119.     {
  120.         testColor anyColor?
  121.     } bind def
  122.     userdict /composite?
  123.     level2?
  124.     {
  125.         gsave 1 1 1 1 setcmykcolor currentcmykcolor grestore
  126.         add add add 4 eq
  127.     }
  128.     {
  129.         1 0 0 0 testCMYKColorThrough
  130.         0 1 0 0 testCMYKColorThrough
  131.         0 0 1 0 testCMYKColorThrough
  132.         0 0 0 1 testCMYKColorThrough
  133.         and and and
  134.     } ifelse
  135.     put
  136.     composite? not
  137.     {
  138.         userdict begin
  139.         gsave
  140.         /cyan? 1 0 0 0 testCMYKColorThrough def
  141.         /magenta? 0 1 0 0 testCMYKColorThrough def
  142.         /yellow? 0 0 1 0 testCMYKColorThrough def
  143.         /black? 0 0 0 1 testCMYKColorThrough def
  144.         grestore
  145.         /isCMYKSep? cyan? magenta? yellow? black? or or or def
  146.         /customColor? isCMYKSep? not def
  147.      end
  148.     } if
  149.  end defaultpacking setpacking
  150. %%EndResource
  151. ■
  152.