home *** CD-ROM | disk | FTP | other *** search
/ Mundo do CD-ROM 14 / MUNDO14.iso / aplicat / pm65 / ARCHIVE.Z / EPSPARSE.DLL / PROC / ADOBE_LEVEL2_AI5 < prev    next >
Encoding:
Text File  |  1996-10-29  |  3.1 KB  |  171 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 
  4. %%CreationDate: (04/10/93) ()
  5. %%Copyright: ((C) 1987-1993 Adobe Systems Incorporated All Rights Reserved)
  6. userdict /Adobe_level2_AI5 23 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 cvr 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. /level2ScreenFreq
  62. {
  63.  begin
  64.         60
  65.         HalftoneType 1 eq
  66.         {
  67.             pop Frequency
  68.         } if
  69.         HalftoneType 2 eq
  70.         {
  71.             pop GrayFrequency
  72.         } if
  73.         HalftoneType 5 eq
  74.         {
  75.             pop Default level2ScreenFreq
  76.         } if
  77.  end
  78. } bind def
  79. userdict /currentScreenFreq  
  80.     level2? {currenthalftone level2ScreenFreq} {currentscreen pop pop} ifelse put
  81. level2? not
  82.     {
  83.         /setcmykcolor where not
  84.         {
  85.             /setcmykcolor
  86.             {
  87.                 exch .11 mul add exch .59 mul add exch .3 mul add
  88.                 1 exch sub setgray
  89.             } def
  90.         } if
  91.         /currentcmykcolor where not
  92.         {
  93.             /currentcmykcolor
  94.             {
  95.                 0 0 0 1 currentgray sub
  96.             } def
  97.         } if
  98.         /setoverprint where not
  99.         {
  100.             /setoverprint /pop load def
  101.         } if
  102.         /selectfont where not
  103.         {
  104.             /selectfont
  105.             {
  106.                 exch findfont exch
  107.                 dup type /arraytype eq
  108.                 {
  109.                     makefont
  110.                 }
  111.                 {
  112.                     scalefont
  113.                 } ifelse
  114.                 setfont
  115.             } bind def
  116.         } if
  117.         /cshow where not
  118.         {
  119.             /cshow
  120.             {
  121.                 [
  122.                 0 0 5 -1 roll aload pop
  123.                 ] cvx bind forall
  124.             } bind def
  125.         } if
  126.     } if
  127.     cleartomark
  128.     /anyColor?
  129.     {
  130.         add add add 0 ne
  131.     } bind def
  132.     /testColor
  133.     {
  134.         gsave
  135.         setcmykcolor currentcmykcolor
  136.         grestore
  137.     } bind def
  138.     /testCMYKColorThrough
  139.     {
  140.         testColor anyColor?
  141.     } bind def
  142.     userdict /composite?
  143.     level2?
  144.     {
  145.         gsave 1 1 1 1 setcmykcolor currentcmykcolor grestore
  146.         add add add 4 eq
  147.     }
  148.     {
  149.         1 0 0 0 testCMYKColorThrough
  150.         0 1 0 0 testCMYKColorThrough
  151.         0 0 1 0 testCMYKColorThrough
  152.         0 0 0 1 testCMYKColorThrough
  153.         and and and
  154.     } ifelse
  155.     put
  156.     composite? not
  157.     {
  158.         userdict begin
  159.         gsave
  160.         /cyan? 1 0 0 0 testCMYKColorThrough def
  161.         /magenta? 0 1 0 0 testCMYKColorThrough def
  162.         /yellow? 0 0 1 0 testCMYKColorThrough def
  163.         /black? 0 0 0 1 testCMYKColorThrough def
  164.         grestore
  165.         /isCMYKSep? cyan? magenta? yellow? black? or or or def
  166.         /customColor? isCMYKSep? not def
  167.      end
  168.     } if
  169.  end defaultpacking setpacking
  170. %%EndResource
  171.