home *** CD-ROM | disk | FTP | other *** search
/ PC World 1999 August / PCWorld_1999-08_cd.bin / Novinky / adobe / Instal / archive.z / AIRes.dll / TEXT / 1011 < prev    next >
Text File  |  1998-10-05  |  4KB  |  216 lines
  1. %%BeginResource: procset Adobe_level2_AI5 1.2 0
  2. %%Title: (Adobe Illustrator (R) Version 5.0 Level 2 Emulation)
  3. %%Version: 1.2 0
  4. %%CreationDate: (04/10/93) ()
  5. %%Copyright: ((C) 1987-1996 Adobe Systems Incorporated All Rights Reserved)
  6. userdict /Adobe_level2_AI5 26 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.             (AI8_CMYK_CustomColor)
  39.             6 packedarray
  40.         } bind def
  41.         /findrgbcustomcolor
  42.         {
  43.             (AI8_RGB_CustomColor)
  44.             5 packedarray
  45.         } bind def
  46.         /setcustomcolor
  47.         {
  48.             exch 
  49.             aload pop dup
  50.             (AI8_CMYK_CustomColor) eq
  51.             {
  52.                 pop pop
  53.                 4
  54.                 {
  55.                     4 index mul
  56.                     4 1 roll
  57.                 } repeat
  58.                 5 -1 roll pop
  59.                 setcmykcolor
  60.             }
  61.             {
  62.                 dup (AI8_RGB_CustomColor) eq
  63.                 {
  64.                     pop pop
  65.                     3
  66.                     {
  67.                         1 exch sub
  68.                         3 index mul 
  69.                         1 exch sub
  70.                         3 1 roll
  71.                     } repeat
  72.                     4 -1 roll pop
  73.                     setrgbcolor
  74.                 }
  75.                 {
  76.                     pop
  77.                     4
  78.                     {
  79.                         4 index mul 4 1 roll
  80.                     } repeat
  81.                     5 -1 roll pop
  82.                     setcmykcolor
  83.                 } ifelse
  84.             } ifelse
  85.         }
  86.         def
  87.     } if
  88.     /setAIseparationgray
  89.     {
  90.         false setoverprint
  91.         0 setgray
  92.         /setseparationgray where{
  93.             pop setseparationgray
  94.         }{
  95.             /setcolorspace where{
  96.                 pop
  97.                 [/Separation (All) /DeviceCMYK {dup dup dup}] setcolorspace
  98.                 1 exch sub setcolor
  99.             }{
  100.                 setgray
  101.             }ifelse
  102.         }ifelse
  103.     } def
  104.     
  105.     /gt38? mark {version cvr cvx exec} stopped {cleartomark true} {38 gt exch pop} ifelse def
  106.     userdict /deviceDPI 72 0 matrix defaultmatrix dtransform dup mul exch dup mul add sqrt put
  107.     userdict /level2?
  108.     systemdict /languagelevel known dup
  109.     {
  110.         pop systemdict /languagelevel get 2 ge
  111.     } if
  112.     put
  113. /level2ScreenFreq
  114. {
  115.  begin
  116.         60
  117.         HalftoneType 1 eq
  118.         {
  119.             pop Frequency
  120.         } if
  121.         HalftoneType 2 eq
  122.         {
  123.             pop GrayFrequency
  124.         } if
  125.         HalftoneType 5 eq
  126.         {
  127.             pop Default level2ScreenFreq
  128.         } if
  129.  end
  130. } bind def
  131. userdict /currentScreenFreq  
  132.     level2? {currenthalftone level2ScreenFreq} {currentscreen pop pop} ifelse put
  133. level2? not
  134.     {
  135.         /setcmykcolor where not
  136.         {
  137.             /setcmykcolor
  138.             {
  139.                 exch .11 mul add exch .59 mul add exch .3 mul add
  140.                 1 exch sub setgray
  141.             } def
  142.         } if
  143.         /currentcmykcolor where not
  144.         {
  145.             /currentcmykcolor
  146.             {
  147.                 0 0 0 1 currentgray sub
  148.             } def
  149.         } if
  150.         /setoverprint where not
  151.         {
  152.             /setoverprint /pop load def
  153.         } if
  154.         /selectfont where not
  155.         {
  156.             /selectfont
  157.             {
  158.                 exch findfont exch
  159.                 dup type /arraytype eq
  160.                 {
  161.                     makefont
  162.                 }
  163.                 {
  164.                     scalefont
  165.                 } ifelse
  166.                 setfont
  167.             } bind def
  168.         } if
  169.         /cshow where not
  170.         {
  171.             /cshow
  172.             {
  173.                 [
  174.                 0 0 5 -1 roll aload pop
  175.                 ] cvx bind forall
  176.             } bind def
  177.         } if
  178.     } if
  179.     cleartomark
  180.     /anyColor?
  181.     {
  182.         add add add 0 ne
  183.     } bind def
  184.     /testColor
  185.     {
  186.         gsave
  187.         setcmykcolor currentcmykcolor
  188.         grestore
  189.     } bind def
  190.     /testCMYKColorThrough
  191.     {
  192.         testColor anyColor?
  193.     } bind def
  194.     userdict /composite?
  195.     1 0 0 0 testCMYKColorThrough
  196.     0 1 0 0 testCMYKColorThrough
  197.     0 0 1 0 testCMYKColorThrough
  198.     0 0 0 1 testCMYKColorThrough
  199.     and and and
  200.     put
  201.     composite? not
  202.     {
  203.         userdict begin
  204.         gsave
  205.         /cyan? 1 0 0 0 testCMYKColorThrough def
  206.         /magenta? 0 1 0 0 testCMYKColorThrough def
  207.         /yellow? 0 0 1 0 testCMYKColorThrough def
  208.         /black? 0 0 0 1 testCMYKColorThrough def
  209.         grestore
  210.         /isCMYKSep? cyan? magenta? yellow? black? or or or def
  211.         /customColor? isCMYKSep? not def
  212.      end
  213.     } if
  214.  end defaultpacking setpacking
  215. %%EndResource
  216.