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