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