home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 November / Pcwk1197.iso / Wtestowe / ADOBE / PHOTOSH4 / DATA.3 / plugins / Formats / EPSParsr.8by / PROC / ADOBE_ILLUSTRATOR88 < prev    next >
Text File  |  1996-10-16  |  10KB  |  903 lines
  1. %%BeginProcSet: Adobe_Illustrator88 1.20 0
  2. currentpacking true setpacking
  3. userdict /Adobe_Illustrator88 73 dict dup begin put
  4. userdict /Adobe_Illustrator881 Adobe_Illustrator88 put
  5. /initialize
  6. {
  7. userdict /Adobe_Illustrator88_vars 31 dict dup begin put
  8. userdict /Adobe_Illustrator881_vars Adobe_Illustrator88_vars put
  9. /_lp /none def
  10. /_pf {} def
  11. /_ps {} def
  12. /_psf {} def
  13. /_pss {} def
  14. /_a null def
  15. /_as null def
  16. /_tt 2 array def
  17. /_tl 2 array def
  18. /_tm matrix def
  19. /t {} def
  20. /_gf null def
  21. /_cf 4 array def
  22. /_if null def
  23. /_of false def
  24. /_fc {} def
  25. /_gs null def
  26. /_cs 4 array def
  27. /_is null def
  28. /_os false def
  29. /_sc {} def
  30. /_pd 1 dict def
  31. /_ed 15 dict def
  32. /_pm matrix def
  33. /_fm null def
  34. /_fd null def
  35. /_fdd null def
  36. /_sm null def
  37. /_sd null def
  38. /_sdd null def
  39. /_i null def
  40. Adobe_Illustrator88 begin
  41. Adobe_Illustrator88 dup /nc get begin
  42.     {
  43.     dup xcheck
  44.         {
  45.         bind
  46.         } if
  47.     pop pop
  48.     } forall
  49. end
  50. end
  51. end
  52. Adobe_Illustrator88 begin
  53. Adobe_Illustrator88_vars begin
  54. newpath
  55. } def
  56. /terminate
  57. {
  58. end
  59. end
  60. } def
  61. /_
  62. null def
  63. /ddef
  64. {
  65. Adobe_Illustrator88_vars 3 1 roll put
  66. } def
  67. /xput
  68. {
  69. dup load dup length exch maxlength eq
  70.     {
  71.     dup dup load dup
  72.     length 2 mul dict copy def
  73.     } if
  74. load begin def end
  75. } def
  76. /npop
  77. {
  78.     {
  79.     pop
  80.     } repeat
  81. } def
  82. /sw
  83. {
  84. stringwidth
  85. exch 5 -1 roll 3 index 1 sub mul add
  86. 4 1 roll 3 1 roll 1 sub mul add
  87. } def
  88. /ss
  89. {
  90. 3 -1 roll pop
  91. 4 1 roll
  92.     {
  93.     2 npop (0) exch
  94.     2 copy 0 exch put pop
  95.     gsave
  96.     false charpath
  97.     currentpoint
  98.     4 index setmatrix
  99.     stroke
  100.     grestore
  101.     moveto
  102.     2 copy rmoveto
  103.     } exch cshow
  104. 3 npop
  105. } def
  106. /sp
  107. {
  108. exch pop
  109.     {
  110.     2 npop (0) exch
  111.     2 copy 0 exch put pop
  112.     false charpath
  113.     2 copy rmoveto
  114.     } exch cshow
  115. 2 npop
  116. } def
  117. /pl
  118. {
  119. transform
  120. 0.25 sub round 0.25 add exch
  121. 0.25 sub round 0.25 add exch
  122. itransform
  123. } def
  124. /setstrokeadjust where
  125. {
  126. pop true setstrokeadjust
  127. /c
  128. {
  129. curveto
  130. } def
  131. /C
  132. /c load def
  133. /v
  134. {
  135. currentpoint 6 2 roll curveto
  136. } def
  137. /V
  138. /v load def
  139. /y
  140. {
  141. 2 copy curveto
  142. } def
  143. /Y
  144. /y load def
  145. /l
  146. {
  147. lineto
  148. } def
  149. /L
  150. /l load def
  151. /m
  152. {
  153. moveto
  154. } def
  155. }
  156. {
  157. /c
  158. {
  159. pl curveto
  160. } def
  161. /C
  162. /c load def
  163. /v
  164. {
  165. currentpoint 6 2 roll pl curveto
  166. } def
  167. /V
  168. /v load def
  169. /y
  170. {
  171. pl 2 copy curveto
  172. } def
  173. /Y
  174. /y load def
  175. /l
  176. {
  177. pl lineto
  178. } def
  179. /L
  180. /l load def
  181. /m
  182. {
  183. pl moveto
  184. } def
  185. } ifelse
  186. /d
  187. {
  188. setdash
  189. } def
  190. /cf
  191. currentflat def
  192. /i
  193. {
  194. dup 0 eq
  195.     {
  196.     pop cf
  197.     } if
  198. setflat
  199. } def
  200. /j
  201. {
  202. setlinejoin
  203. } def
  204. /J
  205. {
  206. setlinecap
  207. } def
  208. /M
  209. {
  210. setmiterlimit
  211. } def
  212. /w
  213. {
  214. setlinewidth
  215. } def
  216. /H
  217. {} def
  218. /h
  219. {
  220. closepath
  221. } def
  222. /N
  223. {
  224. newpath
  225. } def
  226. /n
  227. /N load def
  228. /F
  229. {
  230. _pf
  231. } def
  232. /f
  233. {
  234. closepath
  235. F
  236. } def
  237. /S
  238. {
  239. _ps
  240. } def
  241. /s
  242. {
  243. closepath
  244. S
  245. } def
  246. /B
  247. {
  248. gsave F grestore
  249. S
  250. } def
  251. /b
  252. {
  253. closepath
  254. B
  255. } def
  256. /W
  257. {
  258. clip
  259. } def
  260. /ta
  261. {
  262. _as moveto
  263. _tt aload pop 4 -2 roll
  264. } def
  265. /tl
  266. {
  267. _tl aload pop translate
  268. } def
  269. /as
  270. {
  271. {
  272. 0 0
  273. }
  274. {
  275. 2 copy _tt aload pop 4 -2 roll sw
  276. exch neg 2 div exch neg 2 div
  277. }
  278. {
  279. 2 copy _tt aload pop 4 -2 roll sw
  280. exch neg exch neg
  281. }
  282. {
  283. 0 0
  284. }
  285. } cvlit def
  286. /z
  287. {
  288. /_a exch ddef
  289. /_as as _a get ddef
  290. _a 2 le
  291.     {
  292.     0 _tt astore pop
  293.     0 exch neg _tl astore pop
  294.     }
  295.     {
  296.     0 exch neg _tt astore pop
  297.     neg 0 _tl astore pop
  298.     } ifelse
  299. exch findfont exch scalefont setfont
  300. } def
  301. /tm
  302. {
  303. _tm currentmatrix pop
  304. concat
  305. } def
  306. /I
  307. {
  308. tm
  309. /t
  310.     {
  311.     ta sp
  312.     tl
  313.     } ddef
  314. } def
  315. /o
  316. {
  317. tm
  318. /t
  319.     {
  320.     ta 4 npop
  321.     tl
  322.     newpath
  323.     } ddef
  324. } def
  325. /e
  326. {
  327. tm
  328. /t
  329.     {
  330.     ta _psf
  331.     tl
  332.     newpath
  333.     } ddef
  334. } def
  335. /r
  336. {
  337. tm
  338. /t
  339.     {
  340.     ta _tm _pss
  341.     tl
  342.     newpath
  343.     } ddef
  344. } def
  345. /a
  346. {
  347. tm
  348. /t
  349.     {
  350.     2 copy
  351.     ta _psf
  352.     newpath
  353.     ta _tm _pss
  354.     tl
  355.     newpath
  356.     } ddef
  357. } def
  358. /T
  359. {
  360. _tm setmatrix
  361. } def
  362. /Z
  363. {
  364. pop
  365. findfont begin
  366. currentdict dup length 1 add dict begin
  367.     {
  368.     1 index /FID ne
  369.         {
  370.         def
  371.         }
  372.         {
  373.         2 npop
  374.         } ifelse
  375.     } forall
  376. /FontName exch def dup length 0 ne
  377.     {
  378.     /Encoding Encoding 256 array copy def
  379.     0 exch
  380.         {
  381.         dup type /nametype eq
  382.             {
  383.             Encoding 2 index 2 index put pop
  384.             1 add
  385.             }
  386.             {
  387.             exch pop
  388.             } ifelse
  389.         } forall
  390.     } if pop
  391. currentdict dup end end
  392. /FontName get exch definefont pop
  393. } def
  394. /u
  395. {} def
  396. /U
  397. {} def
  398. /q
  399. {
  400. gsave
  401. } def
  402. /Q
  403. {
  404. grestore
  405. } def
  406. /`
  407. {
  408. /_i save ddef
  409. 6 1 roll 4 npop
  410. concat
  411. userdict begin
  412. /showpage {} def
  413. 0 setgray
  414. 0 setlinecap
  415. 1 setlinewidth
  416. 0 setlinejoin
  417. 10 setmiterlimit
  418. [] 0 setdash
  419. /setstrokeadjust where {pop false setstrokeadjust} if
  420. newpath
  421. 0 setgray
  422. false setoverprint
  423. pop
  424. } def
  425. /~
  426. {
  427. end
  428. _i restore
  429. } def
  430. /@
  431. {} def
  432. /&
  433. {} def
  434. /O
  435. {
  436. 0 ne
  437. /_of exch ddef
  438. /_lp /none ddef
  439. } def
  440. /R
  441. {
  442. 0 ne
  443. /_os exch ddef
  444. /_lp /none ddef
  445. } def
  446. /g
  447. {
  448. /_gf exch ddef
  449. /_fc
  450. {
  451. _lp /fill ne
  452.     {
  453.     _of setoverprint
  454.     _gf setgray
  455.     /_lp /fill ddef
  456.     } if
  457. } ddef
  458. /_pf
  459. {
  460. _fc
  461. fill
  462. } ddef
  463. /_psf
  464. {
  465. _fc
  466. exch pop
  467. ashow
  468. } ddef
  469. /_lp /none ddef
  470. } def
  471. /G
  472. {
  473. /_gs exch ddef
  474. /_sc
  475. {
  476. _lp /stroke ne
  477.     {
  478.     _os setoverprint
  479.     _gs setgray
  480.     /_lp /stroke ddef
  481.     } if
  482. } ddef
  483. /_ps
  484. {
  485. _sc
  486. stroke
  487. } ddef
  488. /_pss
  489. {
  490. _sc
  491. ss
  492. } ddef
  493. /_lp /none ddef
  494. } def
  495. /k
  496. {
  497. _cf astore pop
  498. /_fc
  499. {
  500. _lp /fill ne
  501.     {
  502.     _of setoverprint
  503.     _cf aload pop setcmykcolor
  504.     /_lp /fill ddef
  505.     } if
  506. } ddef
  507. /_pf
  508. {
  509. _fc
  510. fill
  511. } ddef
  512. /_psf
  513. {
  514. _fc
  515. exch pop
  516. ashow
  517. } ddef
  518. /_lp /none ddef
  519. } def
  520. /K
  521. {
  522. _cs astore pop
  523. /_sc
  524. {
  525. _lp /stroke ne
  526.     {
  527.     _os setoverprint
  528.     _cs aload pop setcmykcolor
  529.     /_lp /stroke ddef
  530.     } if
  531. } ddef
  532. /_ps
  533. {
  534. _sc
  535. stroke
  536. } ddef
  537. /_pss
  538. {
  539. _sc
  540. ss
  541. } ddef
  542. /_lp /none ddef
  543. } def
  544. /x
  545. {
  546. /_gf exch ddef
  547. findcmykcustomcolor
  548. /_if exch ddef
  549. /_fc
  550. {
  551. _lp /fill ne
  552.     {
  553.     _of setoverprint
  554.     _if _gf 1 exch sub setcustomcolor
  555.     /_lp /fill ddef
  556.     } if
  557. } ddef
  558. /_pf
  559. {
  560. _fc
  561. fill
  562. } ddef
  563. /_psf
  564. {
  565. _fc
  566. exch pop
  567. ashow
  568. } ddef
  569. /_lp /none ddef
  570. } def
  571. /X
  572. {
  573. /_gs exch ddef
  574. findcmykcustomcolor
  575. /_is exch ddef
  576. /_sc
  577. {
  578. _lp /stroke ne
  579.     {
  580.     _os setoverprint
  581.     _is _gs 1 exch sub setcustomcolor
  582.     /_lp /stroke ddef
  583.     } if
  584. } ddef
  585. /_ps
  586. {
  587. _sc
  588. stroke
  589. } ddef
  590. /_pss
  591. {
  592. _sc
  593. ss
  594. } ddef
  595. /_lp /none ddef
  596. } def
  597. /dp
  598. {
  599. dup null eq
  600. {
  601. pop
  602. _dp 0 ne
  603.     {
  604.     0 1 _dp 1 sub _dl mod
  605.         {
  606.         _da exch get 3 get
  607.         } for
  608.     _dp 1 sub _dl mod 1 add packedarray
  609.     _da 0 get aload pop 8 -1 roll 5 -1 roll pop 4 1 roll
  610.     definepattern pop
  611.     } if
  612. }
  613. {
  614. _dp 0 ne _dp _dl mod 0 eq and
  615.     {
  616.     null dp
  617.     } if
  618. 7 packedarray _da exch _dp _dl mod exch put
  619. _dp _dl mod _da 0 get 4 get 2 packedarray
  620. /_dp _dp 1 add def
  621. } ifelse
  622. } def
  623. /E
  624. {
  625. _ed begin
  626. dup 0 get type /arraytype ne
  627.     {
  628.     0
  629.         {
  630.         dup 1 add index type /arraytype eq
  631.             {
  632.             1 add
  633.             }
  634.             {
  635.             exit
  636.             } ifelse
  637.         } loop
  638.     array astore
  639.     } if
  640. /_dd exch def
  641. /_ury exch def
  642. /_urx exch def
  643. /_lly exch def
  644. /_llx exch def
  645. /_n exch def
  646. /_y 0 def
  647. /_dl 4 def
  648. /_dp 0 def
  649. /_da _dl array def
  650. 0 1 _dd length 1 sub
  651.     {
  652.     /_d exch _dd exch get def
  653.     0 2 _d length 2 sub
  654.         {
  655.         /_x exch def
  656.         /_c _d _x get _ ne def
  657.         /_r _d _x 1 add get cvlit def
  658.         _r _ ne
  659.             {
  660.             _urx _llx sub _ury _lly sub [1 0 0 1 0 0] 
  661.                 [
  662.                 /save cvx
  663.                 _llx neg _lly neg /translate cvx
  664.                 _c
  665.                     {
  666.                     nc /begin cvx
  667.                     } if
  668.                 _r dup type /stringtype eq
  669.                     {
  670.                     cvx
  671.                     }
  672.                     {
  673.                     {exec} /forall cvx
  674.                     } ifelse
  675.                 _c
  676.                     {
  677.                     /end cvx
  678.                     } if
  679.                 /restore cvx
  680.                 ] cvx
  681.             /_fn 12 _n length add string def
  682.             _y _fn cvs pop
  683.             /_y _y 1 add def
  684.             _fn 12 _n putinterval
  685.             _fn _c false dp
  686.             _d exch _x 1 add exch put
  687.             } if
  688.         } for
  689.     } for
  690. null dp
  691. _n _dd /_pd
  692. end xput
  693. } def
  694. /fc
  695. {
  696. _fm dup concatmatrix pop
  697. } def
  698. /p
  699. {
  700. /_fm exch ddef
  701. 9 -2 roll _pm translate fc
  702. 7 -2 roll _pm scale fc
  703. 5 -1 roll _pm rotate fc
  704. 4 -2 roll exch 0 ne
  705.     {
  706.     dup _pm rotate fc
  707.     1 -1 _pm scale fc
  708.     neg _pm rotate fc
  709.     }
  710.     {
  711.     pop
  712.     } ifelse
  713. dup _pm rotate fc
  714. exch dup sin exch cos div 1 0 0 1 0 6 2 roll
  715. _pm astore fc
  716. neg _pm rotate fc
  717. _pd exch get /_fdd exch ddef
  718. /_pf
  719. {
  720. save
  721. 0 1 _fdd length 1 sub
  722.     {
  723.     /_fd exch _fdd exch get ddef
  724.     _fd
  725.     0 2 _fd length 2 sub
  726.         {
  727.         gsave
  728.         2 copy get dup _ ne
  729.             {
  730.             cvx exec _fc
  731.             }
  732.             {
  733.             pop
  734.             } ifelse
  735.         2 copy 1 add get dup _ ne
  736.             {
  737.             aload pop findfont _fm
  738.             patternfill
  739.             }
  740.             {
  741.             pop
  742.             fill
  743.             } ifelse
  744.         grestore
  745.         pop
  746.         } for
  747.     pop
  748.     } for
  749. restore
  750. newpath
  751. } ddef
  752. /_psf
  753. {
  754. save
  755. 0 1 _fdd length 1 sub
  756.     {
  757.     /_fd exch _fdd exch get ddef
  758.     _fd
  759.     0 2 _fd length 2 sub
  760.         {
  761.         gsave
  762.         2 copy get dup _ ne
  763.             {
  764.             cvx exec _fc
  765.             }
  766.             {
  767.             pop
  768.             } ifelse
  769.         2 copy 1 add get dup _ ne
  770.             {
  771.             aload pop findfont _fm
  772.             10 copy 6 npop exch pop patternashow
  773.             }
  774.             {
  775.             pop
  776.             7 copy 3 npop exch pop ashow
  777.             } ifelse
  778.         grestore
  779.         pop
  780.         } for
  781.     pop
  782.     } for
  783. restore
  784. 4 npop newpath
  785. } ddef
  786. /_lp /none ddef
  787. } def
  788. /sc
  789. {
  790. _sm dup concatmatrix pop
  791. } def
  792. /P
  793. {
  794. /_sm exch ddef
  795. 9 -2 roll _pm translate sc
  796. 7 -2 roll _pm scale sc
  797. 5 -1 roll _pm rotate sc
  798. 4 -2 roll exch 0 ne
  799.     {
  800.     dup _pm rotate sc
  801.     1 -1 _pm scale sc
  802.     neg _pm rotate sc
  803.     }
  804.     {
  805.     pop
  806.     } ifelse
  807. dup _pm rotate sc
  808. exch dup sin exch cos div 1 0 0 1 0 6 2 roll
  809. _pm astore sc
  810. neg _pm rotate sc
  811. _pd exch get /_sdd exch ddef
  812. /_ps
  813. {
  814. save
  815. 0 1 _sdd length 1 sub
  816.     {
  817.     /_sd exch _sdd exch get ddef
  818.     _sd
  819.     0 2 _sd length 2 sub
  820.         {
  821.         gsave
  822.         2 copy get dup _ ne
  823.             {
  824.             cvx exec _sc
  825.             }
  826.             {
  827.             pop
  828.             } ifelse
  829.         2 copy 1 add get dup _ ne
  830.             {
  831.             aload pop findfont _sm
  832.             patternstroke
  833.             }
  834.             {
  835.             pop stroke
  836.             } ifelse
  837.         grestore
  838.         pop
  839.         } for
  840.     pop
  841.     } for
  842. restore
  843. newpath
  844. } ddef
  845. /_pss
  846. {
  847. save
  848. 0 1 _sdd length 1 sub
  849.     {
  850.     /_sd exch _sdd exch get ddef
  851.     _sd
  852.     0 2 _sd length 2 sub
  853.         {
  854.         gsave
  855.         2 copy get dup _ ne
  856.             {
  857.             cvx exec _sc
  858.             }
  859.             {
  860.             pop
  861.             } ifelse
  862.         2 copy 1 add get dup _ ne
  863.             {
  864.             aload pop findfont _sm
  865.             11 copy 6 npop 3 -1 roll pop patternashowstroke
  866.             }
  867.             {
  868.             pop
  869.             8 copy 3 npop ss
  870.             } ifelse
  871.         grestore
  872.         pop
  873.         } for
  874.     pop
  875.     } for
  876. restore
  877. 5 npop newpath
  878. } ddef
  879. /_lp /none ddef
  880. } def
  881. /A
  882. {
  883. pop
  884. } def
  885. /nc 3 dict def
  886. nc begin
  887. /setgray
  888. {
  889. pop
  890. } bind def
  891. /setcmykcolor
  892. {
  893. 4 npop
  894. } bind def
  895. /setcustomcolor
  896. {
  897. 2 npop
  898. } bind def
  899. currentdict readonly pop end
  900. currentdict readonly pop end
  901. setpacking
  902. %%EndProcSet
  903.