home *** CD-ROM | disk | FTP | other *** search
/ PC World 1999 August / PCWorld_1999-08_cd.bin / Novinky / adobe / Instal / archive.z / AIRes.dll / TEXT / 1015 < prev    next >
Text File  |  1998-10-05  |  14KB  |  856 lines
  1. %%BeginResource: procset Adobe_pattern_AI5 1.1 0
  2. %%Title: (Adobe Illustrator (R) Version 5.0 Pattern Operators)
  3. %%Version: 1.1 0
  4. %%CreationDate: (03/26/93) ()
  5. %%Copyright: ((C) 1987-1996 Adobe Systems Incorporated All Rights Reserved)
  6. currentpacking true setpacking
  7. userdict /Adobe_Illustrator_AI5 known not {
  8.     userdict /Adobe_Illustrator_AI5 95 dict put
  9. } if
  10. userdict /Adobe_Illustrator_AI5 get begin
  11. /@
  12. {
  13. } def
  14. /&
  15. {
  16. } def
  17. /dp
  18. {
  19.     dup null eq
  20.     {
  21.         pop
  22.         _dp 0 ne
  23.         {
  24.             0 1 _dp 1 sub _dl mod
  25.             {
  26.                 _da exch get 3 get
  27.             } for
  28.             _dp 1 sub _dl mod 1 add packedarray
  29.             _da 0 get aload pop 8 -1 roll 5 -1 roll pop 4 1 roll
  30.             definepattern pop
  31.         } if
  32.     }
  33.     {
  34.         _dp 0 ne _dp _dl mod 0 eq and
  35.         {
  36.             null dp
  37.         } if
  38.         7 packedarray _da exch _dp _dl mod exch put
  39.         _dp _dl mod _da 0 get 4 get 2 packedarray
  40.         /_dp _dp 1 add def
  41.     } ifelse
  42. } def
  43. /E
  44. {
  45.     _ed begin
  46.     dup 0 get type /arraytype ne
  47.     {
  48.         0
  49.         {
  50.             dup 1 add index type /arraytype eq
  51.             {
  52.                 1 add
  53.             }
  54.             {
  55.                 exit
  56.             } ifelse
  57.         } loop
  58.         array astore
  59.     } if
  60.     /_dd exch def
  61.     /_ury exch def
  62.     /_urx exch def
  63.     /_lly exch def
  64.     /_llx exch def
  65.     /_n exch def
  66.     /_y 0 def
  67.     /_dl 4 def
  68.     /_dp 0 def
  69.     /_da _dl array def
  70.     0 1 _dd length 1 sub
  71.     {
  72.         /_d exch _dd exch get def
  73.         0 2 _d length 2 sub
  74.         {
  75.             /_x exch def
  76.             /_c false def
  77.             /_r _d _x 1 add get cvlit def
  78.             _r _ ne
  79.             {
  80.                 _urx _llx sub _ury _lly sub
  81.                 [
  82.                 1 0 0 1 0 0
  83.                 ]
  84.                 [
  85.                 /save cvx
  86.                 _llx neg _lly neg /translate cvx
  87.                 _c
  88.                 {
  89.                     nc /begin cvx
  90.                 } if
  91.                 _r dup type /stringtype eq
  92.                 {
  93.                     cvx
  94.                 }
  95.                 {
  96.                     {
  97.                         exec
  98.                     } /forall cvx
  99.                 } ifelse
  100.                 _c
  101.                 {
  102.                     /end cvx
  103.                 } if
  104.                 /restore cvx
  105.                 ] cvx
  106.                 /_fn 12 _n length add string def
  107.                 _y _fn cvs pop
  108.                 /_y _y 1 add def
  109.                 _fn 12 _n putinterval
  110.                 _fn _c false dp
  111.                 _d exch _x 1 add exch put
  112.             } if
  113.         } for
  114.     } for
  115.     null dp
  116.     _n _dd /_pd
  117.  end
  118.     xput
  119. } def
  120. /fc
  121. {
  122.     _fm dup concatmatrix pop
  123. } def
  124. /p
  125. {
  126.     /_fm exch ddef
  127.     9 -2 roll _pm translate fc
  128.     7 -2 roll _pm scale fc
  129.     5 -1 roll _pm rotate fc
  130.     4 -2 roll exch 0 ne
  131.     {
  132.         dup _pm rotate fc
  133.         1 -1 _pm scale fc
  134.         neg _pm rotate fc
  135.     }
  136.     {
  137.         pop
  138.     } ifelse
  139.     dup _pm rotate fc
  140.     exch dup sin exch cos div 1 0 0 1 0 6 2 roll
  141.     _pm astore fc
  142.     neg _pm rotate fc
  143.     _pd exch get /_fdd exch ddef
  144.     /_pf
  145.     {
  146.         save
  147.         /_doClip 0 ddef
  148.         0 1 _fdd length 1 sub
  149.         {
  150.             /_fd exch _fdd exch get ddef
  151.             _fd
  152.             0 2 _fd length 2 sub
  153.             {
  154.                 gsave
  155.                 2 copy get dup _ ne
  156.                 {
  157.                     cvx exec _fc
  158.                 }
  159.                 {
  160.                     pop
  161.                 } ifelse
  162.                 2 copy 1 add get dup _ ne
  163.                 {
  164.                     aload pop findfont _fm
  165.                     patternfill
  166.                 }
  167.                 {
  168.                     pop
  169.                     fill
  170.                 } ifelse
  171.                 grestore
  172.                 pop
  173.             } for
  174.             pop
  175.         } for
  176.         restore
  177.         newpath
  178.     } ddef
  179.     /_psf
  180.     {
  181.         save
  182.         /_doClip 0 ddef
  183.         0 1 _fdd length 1 sub
  184.         {
  185.             /_fd exch _fdd exch get ddef
  186.             _fd
  187.             0 2 _fd length 2 sub
  188.             {
  189.                 gsave
  190.                 2 copy get dup _ ne
  191.                 {
  192.                     cvx exec _fc
  193.                 }
  194.                 {
  195.                     pop
  196.                 } ifelse
  197.                 2 copy 1 add get dup _ ne
  198.                 {
  199.                     aload pop findfont _fm
  200.                     9 copy 6 npop patternashow
  201.                 }
  202.                 {
  203.                     pop
  204.                     6 copy 3 npop hvashow
  205.                 } ifelse
  206.                 grestore
  207.                 pop
  208.             } for
  209.             pop
  210.         } for
  211.         restore
  212.         sw rmoveto
  213.     } ddef
  214.     /_pjsf
  215.     {
  216.         save
  217.         /_doClip 0 ddef
  218.         0 1 _fdd length 1 sub
  219.         {
  220.             /_fd exch _fdd exch get ddef
  221.             _fd
  222.             0 2 _fd length 2 sub
  223.             {
  224.                 gsave
  225.                 2 copy get dup _ ne
  226.                 {
  227.                     cvx exec _fc
  228.                 }
  229.                 {
  230.                     pop
  231.                 } ifelse
  232.                 2 copy 1 add get dup _ ne
  233.                 {
  234.                     aload pop findfont _fm
  235.                     12 copy 6 npop patternawidthshow
  236.                 }
  237.                 {
  238.                     pop 9 copy 3 npop hvawidthshow
  239.                 } ifelse
  240.                 grestore
  241.                 pop
  242.             } for
  243.             pop
  244.         } for
  245.         restore
  246.         swj rmoveto
  247.     } ddef
  248.     /_lp /none ddef
  249. } def
  250. /sc
  251. {
  252.     _sm dup concatmatrix pop
  253. } def
  254. /P
  255. {
  256.     /_sm exch ddef
  257.     9 -2 roll _pm translate sc
  258.     7 -2 roll _pm scale sc
  259.     5 -1 roll _pm rotate sc
  260.     4 -2 roll exch 0 ne
  261.     {
  262.         dup _pm rotate sc
  263.         1 -1 _pm scale sc
  264.         neg _pm rotate sc
  265.     }
  266.     {
  267.         pop
  268.     } ifelse
  269.     dup _pm rotate sc
  270.     exch dup sin exch cos div 1 0 0 1 0 6 2 roll
  271.     _pm astore sc
  272.     neg _pm rotate sc
  273.     _pd exch get /_sdd exch ddef
  274.     /_ps
  275.     {
  276.         save
  277.         /_doClip 0 ddef
  278.         0 1 _sdd length 1 sub
  279.         {
  280.             /_sd exch _sdd exch get ddef
  281.             _sd
  282.             0 2 _sd length 2 sub
  283.             {
  284.                 gsave
  285.                 2 copy get dup _ ne
  286.                 {
  287.                     cvx exec _sc
  288.                 }
  289.                 {
  290.                     pop
  291.                 } ifelse
  292.                 2 copy 1 add get dup _ ne
  293.                 {
  294.                     aload pop findfont _sm
  295.                     patternstroke
  296.                 }
  297.                 {
  298.                     pop stroke
  299.                 } ifelse
  300.                 grestore
  301.                 pop
  302.             } for
  303.             pop
  304.         } for
  305.         restore
  306.         newpath
  307.     } ddef
  308.     /_pss
  309.     {
  310.         save
  311.         /_doClip 0 ddef
  312.         0 1 _sdd length 1 sub
  313.         {
  314.             /_sd exch _sdd exch get ddef
  315.             _sd
  316.             0 2 _sd length 2 sub
  317.             {
  318.                 gsave
  319.                 2 copy get dup _ ne
  320.                 {
  321.                     cvx exec _sc
  322.                 }
  323.                 {
  324.                     pop
  325.                 } ifelse
  326.                 2 copy 1 add get dup _ ne
  327.                 {
  328.                     aload pop findfont _sm
  329.                     10 copy 6 npop patternashowstroke
  330.                 }
  331.                 {
  332.                     pop 7 copy 3 npop ss
  333.                 } ifelse
  334.                 grestore
  335.                 pop
  336.             } for
  337.             pop
  338.         } for
  339.         restore
  340.         pop sw rmoveto
  341.     } ddef
  342.     /_pjss
  343.     {
  344.         save
  345.         /_doClip 0 ddef
  346.         0 1 _sdd length 1 sub
  347.         {
  348.             /_sd exch _sdd exch get ddef
  349.             _sd
  350.             0 2 _sd length 2 sub
  351.             {
  352.                 gsave
  353.                 2 copy get dup _ ne
  354.                 {
  355.                     cvx exec _sc
  356.                 }
  357.                 {
  358.                     pop
  359.                 } ifelse
  360.                 2 copy 1 add get dup _ ne
  361.                 {
  362.                     aload pop findfont _sm
  363.                     13 copy 6 npop patternawidthshowstroke
  364.                 }
  365.                 {
  366.                     pop 10 copy 3 npop jss
  367.                 } ifelse
  368.                 grestore
  369.                 pop
  370.             } for
  371.             pop
  372.         } for
  373.         restore
  374.         pop swj rmoveto
  375.     } ddef
  376.     /_lp /none ddef
  377. } def
  378. end
  379. userdict /Adobe_pattern_AI5 18 dict dup begin
  380. put
  381. /initialize
  382. {
  383.     /definepattern where
  384.     {
  385.         pop
  386.         pop pop
  387.     }
  388.     {
  389.      begin
  390.      begin
  391.         Adobe_pattern_AI5 begin
  392.         Adobe_pattern_AI5
  393.         {
  394.             dup xcheck
  395.             {
  396.                 bind
  397.             } if
  398.             pop pop
  399.         } forall
  400.         mark
  401.         cachestatus 7 1 roll pop pop pop pop exch pop exch
  402.         {
  403.             {
  404.                 10000 add
  405.                 dup 2 index gt
  406.                 {
  407.                     exit
  408.                 } if
  409.                 dup setcachelimit
  410.             } loop
  411.         } stopped
  412.         cleartomark
  413.      end     
  414.         
  415.      end
  416.      end
  417.         
  418.         Adobe_pattern_AI5 begin
  419.     } ifelse
  420. } def
  421. /terminate
  422. {
  423.     currentdict Adobe_pattern_AI5 eq
  424.     {
  425.      end
  426.     } if
  427. } def
  428. errordict
  429. /nocurrentpoint
  430. {
  431.     pop
  432.     stop
  433. } put
  434. errordict
  435. /invalidaccess
  436. {
  437.     pop
  438.     stop
  439. } put
  440. /patternencoding
  441. 256 array def
  442. 0 1 255
  443. {
  444.     patternencoding exch ( ) 2 copy exch 0 exch put cvn put
  445. } for
  446. /definepattern
  447. {
  448.     17 dict begin
  449.     /uniform exch def
  450.     /cache exch def
  451.     /key exch def
  452.     /procarray exch def
  453.     /mtx exch matrix invertmatrix def
  454.     /height exch def
  455.     /width exch def
  456.     /ctm matrix currentmatrix def
  457.     /ptm matrix def
  458.     /str 32 string def
  459.     /slice 9 dict def
  460.     slice /s 1 put
  461.     slice /q 256 procarray length div sqrt floor cvi put
  462.     slice /b 0 put
  463.     /FontBBox
  464.     [
  465.     0 0 0 0
  466.     ] def
  467.     /FontMatrix mtx matrix copy def
  468.     /Encoding patternencoding def
  469.     /FontType 3 def
  470.     /BuildChar
  471.     {
  472.         exch
  473.      begin
  474.         /setstrokeadjust where {pop true setstrokeadjust} if
  475.         slice begin
  476.         dup q dup mul mod s idiv /i exch def
  477.         dup q dup mul mod s mod /j exch def
  478.         q dup mul idiv procarray exch get
  479.         /xl j width s div mul def
  480.         /xg j 1 add width s div mul def
  481.         /yl i height s div mul def
  482.         /yg i 1 add height s div mul def
  483.         uniform
  484.         {
  485.             1 1
  486.         }
  487.         {
  488.             width 0 dtransform
  489.             dup mul exch dup mul add sqrt dup 1 add exch div
  490.             0 height dtransform
  491.             dup mul exch dup mul add sqrt dup 1 add exch div
  492.         } ifelse
  493.         width 0 cache
  494.         {
  495.             xl 4 index mul yl 4 index mul xg 6 index mul yg 6 index mul
  496.             setcachedevice
  497.         }
  498.         {
  499.             setcharwidth
  500.         } ifelse
  501.         gsave
  502.         scale
  503.         newpath
  504.         xl yl moveto
  505.         xg yl lineto
  506.         xg yg lineto
  507.         xl yg lineto
  508.         closepath
  509.         clip
  510.         newpath
  511.      end
  512.      end
  513.         exec
  514.         grestore
  515.     } def
  516.     key currentdict definefont
  517.  end
  518. } def
  519. /patterncachesize
  520. {
  521.     gsave
  522.     newpath
  523.     0 0 moveto
  524.     width 0 lineto
  525.     width height lineto
  526.     0 height lineto
  527.     closepath
  528.     patternmatrix setmatrix
  529.     pathbbox
  530.     exch ceiling 4 -1 roll floor sub 3 1 roll
  531.     ceiling exch floor sub
  532.     mul 1 add
  533.     grestore
  534. } def
  535. /patterncachelimit
  536. {
  537.     cachestatus 7 1 roll 6 npop 8 mul
  538. } def
  539. /patternpath
  540. {
  541.     exch dup begin
  542.     setfont
  543.     ctm setmatrix
  544.     concat
  545.     slice exch /b exch slice /q get dup mul mul put
  546.     FontMatrix concat
  547.     uniform
  548.     {
  549.         width 0 dtransform round width div exch round width div exch
  550.         0 height dtransform round height div exch height div exch
  551.         0 0 transform round exch round exch
  552.         ptm astore setmatrix
  553.     }
  554.     {
  555.         ptm currentmatrix pop
  556.     } ifelse
  557.     {
  558.         currentpoint
  559.     } stopped not
  560.     {
  561.         2 npop
  562.         pathbbox
  563.         true
  564.         4 index 3 index eq
  565.         4 index 3 index eq
  566.         and
  567.         {
  568.             pop false
  569.             {
  570.                 {
  571.                     2 npop
  572.                 }
  573.                 {
  574.                     3 npop true
  575.                 }
  576.                 {
  577.                     7 npop true
  578.                 }
  579.                 {
  580.                     pop true
  581.                 } pathforall
  582.             } stopped
  583.             {
  584.                 5 npop true
  585.             } if
  586.         } if
  587.         {
  588.             height div ceiling height mul 4 1 roll
  589.             width div ceiling width mul 4 1 roll
  590.             height div floor height mul 4 1 roll
  591.             width div floor width mul 4 1 roll
  592.             2 index sub height div ceiling cvi exch
  593.             3 index sub width div ceiling cvi exch
  594.             4 2 roll moveto
  595.             FontMatrix mtx invertmatrix
  596.             dup dup 4 get exch 5 get rmoveto
  597.             ptm ptm concatmatrix pop
  598.             slice /s
  599.             patterncachesize patterncachelimit div ceiling sqrt ceiling cvi
  600.             dup slice /q get gt
  601.             {
  602.                 pop slice /q get
  603.             } if
  604.             put
  605.             0 1 slice /s get dup mul 1 sub
  606.             {
  607.                 slice /b get add
  608.                 gsave
  609.                 0 1 str length 1 sub
  610.                 {
  611.                     str exch 2 index put
  612.                 } for
  613.                 pop
  614.                 dup
  615.                 {
  616.                     gsave
  617.                     ptm setmatrix
  618.                     1 index str length idiv
  619.                     {
  620.                         str show
  621.                     } repeat
  622.                     1 index str length mod str exch 0 exch getinterval show
  623.                     grestore
  624.                     0 height rmoveto
  625.                 } repeat
  626.                 grestore
  627.             } for
  628.             2 npop
  629.         }
  630.         {
  631.             4 npop
  632.         } ifelse
  633.     } if
  634.  end
  635. } def
  636. /patternclip
  637. {
  638.     _eo {eoclip} {clip} ifelse
  639. } def
  640. /patternstrokepath
  641. {
  642.     strokepath
  643. } def
  644. /patternmatrix
  645. matrix def
  646. /patternfill
  647. {
  648.     dup type /dicttype eq
  649.     {
  650.         Adobe_pattern_AI5 /patternmatrix get
  651.     } if
  652.     gsave
  653.     patternclip
  654.     Adobe_pattern_AI5 /patternpath get exec
  655.     grestore
  656.     newpath
  657. } def
  658. /patternstroke
  659. {
  660.     dup type /dicttype eq
  661.     {
  662.         Adobe_pattern_AI5 /patternmatrix get
  663.     } if
  664.     gsave
  665.     patternstrokepath
  666.     true
  667.     {
  668.         {
  669.             {
  670.                 newpath
  671.                 moveto
  672.             }
  673.             {
  674.                 lineto
  675.             }
  676.             {
  677.                 curveto
  678.             }
  679.             {
  680.                 closepath
  681.                 3 copy
  682.                 Adobe_pattern_AI5 /patternfill get exec
  683.             } pathforall
  684.             3 npop
  685.         } stopped
  686.         {
  687.             5 npop
  688.             patternclip
  689.             Adobe_pattern_AI5 /patternfill get exec
  690.         } if
  691.     }
  692.     {
  693.         patternclip
  694.         Adobe_pattern_AI5 /patternfill get exec
  695.     } ifelse
  696.     grestore
  697.     newpath
  698. } def
  699. /vpatternawidthshow
  700. {
  701.     6 1 roll
  702.     /_hvay exch ddef
  703.     /_hvax exch ddef
  704.     /_hvwb exch ddef
  705.     /_hvcy exch ddef
  706.     /_hvcx exch ddef
  707.     
  708.     {
  709.         dup cstring
  710.         dup length 1 eq
  711.         _charorientation 1 eq
  712.         and
  713.         {
  714.             -90 rotate
  715.             currentpoint
  716.             _fontRotateAdjust add
  717.             moveto
  718.             gsave
  719.             false charpath currentpoint
  720.             5 index 5 index 5 index Adobe_pattern_AI5 /patternfill get exec
  721.             grestore
  722.             _fontRotateAdjust sub
  723.             moveto
  724.             _hvwb eq { _hvcx _hvcy rmoveto } if
  725.             _hvax _hvay rmoveto
  726.             90 rotate
  727.         }
  728.         {
  729.             currentpoint
  730.             _fontHeight sub
  731.             _hvax sub
  732.             3 index _hvwb eq { _hvcx sub } if
  733.             currentpoint
  734.             exch 4 index stringwidth pop 2 div sub
  735.             exch _fontAscent sub
  736.             moveto
  737.             gsave
  738.             2 index false charpath
  739.             6 index 6 index 6 index Adobe_pattern_AI5 /patternfill get exec
  740.             grestore
  741.             newpath moveto pop pop
  742.         } ifelse
  743.     } cforall
  744.     3 npop
  745. } def
  746. /hpatternawidthshow
  747. {
  748.     {
  749.         dup cstring exch
  750.         gsave
  751.         3 index eq { 5 index 5 index rmoveto } if
  752.         false charpath currentpoint
  753.         9 index 9 index 9 index
  754.         Adobe_pattern_AI5 /patternfill get exec
  755.         grestore
  756.         newpath moveto
  757.         2 copy rmoveto
  758.     } cforall
  759.     8 npop
  760. } def
  761. /patternashow
  762. {
  763. 0 0 0 6 3 roll
  764. patternawidthshow
  765. } def
  766. /patternawidthshow
  767. {
  768.     6 index type /dicttype eq
  769.     {
  770.         Adobe_pattern_AI5 /patternmatrix get 7 1 roll
  771.     } if
  772.     _lineorientation 0 eq { hpatternawidthshow } { vpatternawidthshow } ifelse
  773. } def
  774. /vpatternawidthshowstroke
  775. {
  776.     7 1 roll
  777.     6 1 roll
  778.     /_hvay exch ddef
  779.     /_hvax exch ddef
  780.     /_hvwb exch ddef
  781.     /_hvcy exch ddef
  782.     /_hvcx exch ddef
  783.     {
  784.         dup cstring
  785.         dup length 1 eq
  786.         _charorientation 1 eq
  787.         and
  788.         {
  789.             -90 rotate
  790.             currentpoint
  791.             _fontRotateAdjust add
  792.             moveto
  793.             gsave
  794.             false charpath currentpoint
  795.             3 index setmatrix
  796.             6 index 6 index 6 index Adobe_pattern_AI5 /patternstroke get exec
  797.             grestore
  798.             _fontRotateAdjust sub
  799.             moveto
  800.             _hvwb eq { _hvcx _hvcy rmoveto } if
  801.             _hvax _hvay rmoveto
  802.             90 rotate
  803.         }
  804.         {
  805.             currentpoint
  806.             _fontHeight sub
  807.             _hvax sub
  808.             3 index _hvwb eq { _hvcx sub } if
  809.             currentpoint
  810.             exch 4 index stringwidth pop 2 div sub
  811.             exch _fontAscent sub
  812.             moveto
  813.             gsave
  814.             2 index false charpath
  815.             4 index setmatrix
  816.             7 index 7 index 7 index Adobe_pattern_AI5 /patternstroke get exec
  817.             grestore
  818.             newpath moveto pop pop
  819.         } ifelse
  820.     } cforall
  821.     4 npop
  822. } def
  823. /hpatternawidthshowstroke
  824. {
  825.     7 1 roll
  826.     {
  827.         dup cstring exch
  828.         gsave
  829.         3 index eq { 5 index 5 index rmoveto } if
  830.         false charpath currentpoint
  831.         7 index setmatrix
  832.         10 index 10 index 10 index
  833.         Adobe_pattern_AI5 /patternstroke get exec
  834.         grestore
  835.         newpath moveto
  836.         2 copy rmoveto
  837.     } cforall
  838.     9 npop
  839. } def
  840. /patternashowstroke
  841. {
  842.     0 0 0 7 3 roll
  843.     patternawidthshowstroke
  844. } def
  845. /patternawidthshowstroke
  846. {
  847.     7 index type /dicttype eq
  848.     {
  849.         patternmatrix /patternmatrix get 8 1 roll
  850.     } if
  851.     _lineorientation 0 eq { hpatternawidthshowstroke } { vpatternawidthshowstroke } ifelse
  852. } def
  853. end
  854. setpacking
  855. %%EndResource
  856.