home *** CD-ROM | disk | FTP | other *** search
/ Boot Disc 12 / boot-disc-1997-08.iso / ILSTRATR / ARCHIVE.Z / ProcSets.aip / TEXT / 1809 < prev    next >
Text File  |  1997-05-07  |  6KB  |  588 lines
  1. %%BeginProcSet: Adobe_Illustrator881 1.20 0
  2. currentpacking true setpacking
  3. userdict /Adobe_Illustrator881 72 dict dup begin put
  4. /initialize
  5. {
  6. userdict /Adobe_Illustrator881_vars 29 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. /_i null def
  29. Adobe_Illustrator881 begin
  30. Adobe_Illustrator881
  31.     {
  32.     dup xcheck
  33.         {
  34.         bind
  35.         } if
  36.     pop pop
  37.     } forall
  38. end
  39. end
  40. Adobe_Illustrator881 begin
  41. Adobe_Illustrator881_vars begin
  42. newpath
  43. } def
  44. /terminate
  45. {
  46. end
  47. end
  48. } def
  49. /_
  50. null def
  51. /ddef
  52. {
  53. Adobe_Illustrator881_vars 3 1 roll put
  54. } def
  55. /xput
  56. {
  57. dup load dup length exch maxlength eq
  58.     {
  59.     dup dup load dup
  60.     length 2 mul dict copy def
  61.     } if
  62. load begin def end
  63. } def
  64. /npop
  65. {
  66.     {
  67.     pop
  68.     } repeat
  69. } def
  70. /sw
  71. {
  72. stringwidth
  73. exch 5 -1 roll 3 index 1 sub mul add
  74. 4 1 roll 3 1 roll 1 sub mul add
  75. } def
  76. /ss
  77. {
  78. 3 -1 roll pop
  79. 4 1 roll
  80.     {
  81.     2 npop (0) exch
  82.     2 copy 0 exch put pop
  83.     gsave
  84.     false charpath
  85.     currentpoint
  86.     4 index setmatrix
  87.     stroke
  88.     grestore
  89.     moveto
  90.     2 copy rmoveto
  91.     } exch cshow
  92. 3 npop
  93. } def
  94. /sp
  95. {
  96. exch pop
  97.     {
  98.     2 npop (0) exch
  99.     2 copy 0 exch put pop
  100.     false charpath
  101.     2 copy rmoveto
  102.     } exch cshow
  103. 2 npop
  104. } def
  105. /pl
  106. {
  107. transform
  108. 0.25 sub round 0.25 add exch
  109. 0.25 sub round 0.25 add exch
  110. itransform
  111. } def
  112. /setstrokeadjust where
  113. {
  114. pop true setstrokeadjust
  115. /c
  116. {
  117. curveto
  118. } def
  119. /C
  120. /c load def
  121. /v
  122. {
  123. currentpoint 6 2 roll curveto
  124. } def
  125. /V
  126. /v load def
  127. /y
  128. {
  129. 2 copy curveto
  130. } def
  131. /Y
  132. /y load def
  133. /l
  134. {
  135. lineto
  136. } def
  137. /L
  138. /l load def
  139. /m
  140. {
  141. moveto
  142. } def
  143. }
  144. {
  145. /c
  146. {
  147. pl curveto
  148. } def
  149. /C
  150. /c load def
  151. /v
  152. {
  153. currentpoint 6 2 roll pl curveto
  154. } def
  155. /V
  156. /v load def
  157. /y
  158. {
  159. pl 2 copy curveto
  160. } def
  161. /Y
  162. /y load def
  163. /l
  164. {
  165. pl lineto
  166. } def
  167. /L
  168. /l load def
  169. /m
  170. {
  171. pl moveto
  172. } def
  173. } ifelse
  174. /d
  175. {
  176. setdash
  177. } def
  178. /cf
  179. currentflat def
  180. /i
  181. {
  182. dup 0 eq
  183.     {
  184.     pop cf
  185.     } if
  186. setflat
  187. } def
  188. /j
  189. {
  190. setlinejoin
  191. } def
  192. /J
  193. {
  194. setlinecap
  195. } def
  196. /M
  197. {
  198. setmiterlimit
  199. } def
  200. /w
  201. {
  202. setlinewidth
  203. } def
  204. /H
  205. {} def
  206. /h
  207. {
  208. closepath
  209. } def
  210. /N
  211. {
  212. newpath
  213. } def
  214. /n
  215. /N load def
  216. /F
  217. {
  218. _pf
  219. } def
  220. /f
  221. {
  222. closepath
  223. F
  224. } def
  225. /S
  226. {
  227. _ps
  228. } def
  229. /s
  230. {
  231. closepath
  232. S
  233. } def
  234. /B
  235. {
  236. gsave F grestore
  237. S
  238. } def
  239. /b
  240. {
  241. closepath
  242. B
  243. } def
  244. /W
  245. {
  246. clip
  247. } def
  248. /ta
  249. {
  250. _as moveto
  251. _tt aload pop 4 -2 roll
  252. } def
  253. /tl
  254. {
  255. _tl aload pop translate
  256. } def
  257. /as
  258. {
  259. {
  260. 0 0
  261. }
  262. {
  263. 2 copy _tt aload pop 4 -2 roll sw
  264. exch neg 2 div exch neg 2 div
  265. }
  266. {
  267. 2 copy _tt aload pop 4 -2 roll sw
  268. exch neg exch neg
  269. }
  270. {
  271. 0 0
  272. }
  273. } cvlit def
  274. /z
  275. {
  276. /_a exch ddef
  277. /_as as _a get ddef
  278. _a 2 le
  279.     {
  280.     0 _tt astore pop
  281.     0 exch neg _tl astore pop
  282.     }
  283.     {
  284.     0 exch neg _tt astore pop
  285.     neg 0 _tl astore pop
  286.     } ifelse
  287. exch findfont exch scalefont setfont
  288. } def
  289. /tm
  290. {
  291. _tm currentmatrix pop
  292. concat
  293. } def
  294. /I
  295. {
  296. tm
  297. /t
  298.     {
  299.     ta sp
  300.     tl
  301.     } ddef
  302. } def
  303. /o
  304. {
  305. tm
  306. /t
  307.     {
  308.     ta 4 npop
  309.     tl
  310.     newpath
  311.     } ddef
  312. } def
  313. /e
  314. {
  315. tm
  316. /t
  317.     {
  318.     ta _psf
  319.     tl
  320.     newpath
  321.     } ddef
  322. } def
  323. /r
  324. {
  325. tm
  326. /t
  327.     {
  328.     ta _tm _pss
  329.     tl
  330.     newpath
  331.     } ddef
  332. } def
  333. /a
  334. {
  335. tm
  336. /t
  337.     {
  338.     2 copy
  339.     ta _psf
  340.     newpath
  341.     ta _tm _pss
  342.     tl
  343.     newpath
  344.     } ddef
  345. } def
  346. /T
  347. {
  348. _tm setmatrix
  349. } def
  350. /Z
  351. {
  352. pop
  353. findfont begin
  354. currentdict dup length 1 add dict begin
  355.     {
  356.     1 index /FID ne
  357.         {
  358.         def
  359.         }
  360.         {
  361.         2 npop
  362.         } ifelse
  363.     } forall
  364. /FontName exch def dup length 0 ne
  365.     {
  366.     /Encoding Encoding 256 array copy def
  367.     0 exch
  368.         {
  369.         dup type /nametype eq
  370.             {
  371.             Encoding 2 index 2 index put pop
  372.             1 add
  373.             }
  374.             {
  375.             exch pop
  376.             } ifelse
  377.         } forall
  378.     } if pop
  379. currentdict dup end end
  380. /FontName get exch definefont pop
  381. } def
  382. /u
  383. {} def
  384. /U
  385. {} def
  386. /q
  387. {
  388. gsave
  389. } def
  390. /Q
  391. {
  392. grestore
  393. } def
  394. /`
  395. {
  396. /_i save ddef
  397. 6 1 roll 4 npop
  398. concat
  399. userdict begin
  400. /showpage {} def
  401. 0 setgray
  402. 0 setlinecap
  403. 1 setlinewidth
  404. 0 setlinejoin
  405. 10 setmiterlimit
  406. [] 0 setdash
  407. /setstrokeadjust where {pop false setstrokeadjust} if
  408. newpath
  409. 0 setgray
  410. false setoverprint
  411. pop
  412. } def
  413. /~
  414. {
  415. end
  416. _i restore
  417. } def
  418. /O
  419. {
  420. 0 ne
  421. /_of exch ddef
  422. /_lp /none ddef
  423. } def
  424. /R
  425. {
  426. 0 ne
  427. /_os exch ddef
  428. /_lp /none ddef
  429. } def
  430. /g
  431. {
  432. /_gf exch ddef
  433. /_fc
  434. {
  435. _lp /fill ne
  436.     {
  437.     _of setoverprint
  438.     _gf setgray
  439.     /_lp /fill ddef
  440.     } if
  441. } ddef
  442. /_pf
  443. {
  444. _fc
  445. fill
  446. } ddef
  447. /_psf
  448. {
  449. _fc
  450. exch pop
  451. ashow
  452. } ddef
  453. /_lp /none ddef
  454. } def
  455. /G
  456. {
  457. /_gs exch ddef
  458. /_sc
  459. {
  460. _lp /stroke ne
  461.     {
  462.     _os setoverprint
  463.     _gs setgray
  464.     /_lp /stroke ddef
  465.     } if
  466. } ddef
  467. /_ps
  468. {
  469. _sc
  470. stroke
  471. } ddef
  472. /_pss
  473. {
  474. _sc
  475. ss
  476. } ddef
  477. /_lp /none ddef
  478. } def
  479. /k
  480. {
  481. _cf astore pop
  482. /_fc
  483. {
  484. _lp /fill ne
  485.     {
  486.     _of setoverprint
  487.     _cf aload pop setcmykcolor
  488.     /_lp /fill ddef
  489.     } if
  490. } ddef
  491. /_pf
  492. {
  493. _fc
  494. fill
  495. } ddef
  496. /_psf
  497. {
  498. _fc
  499. exch pop
  500. ashow
  501. } ddef
  502. /_lp /none ddef
  503. } def
  504. /K
  505. {
  506. _cs astore pop
  507. /_sc
  508. {
  509. _lp /stroke ne
  510.     {
  511.     _os setoverprint
  512.     _cs aload pop setcmykcolor
  513.     /_lp /stroke ddef
  514.     } if
  515. } ddef
  516. /_ps
  517. {
  518. _sc
  519. stroke
  520. } ddef
  521. /_pss
  522. {
  523. _sc
  524. ss
  525. } ddef
  526. /_lp /none ddef
  527. } def
  528. /x
  529. {
  530. /_gf exch ddef
  531. findcmykcustomcolor
  532. /_if exch ddef
  533. /_fc
  534. {
  535. _lp /fill ne
  536.     {
  537.     _of setoverprint
  538.     _if _gf 1 exch sub setcustomcolor
  539.     /_lp /fill ddef
  540.     } if
  541. } ddef
  542. /_pf
  543. {
  544. _fc
  545. fill
  546. } ddef
  547. /_psf
  548. {
  549. _fc
  550. exch pop
  551. ashow
  552. } ddef
  553. /_lp /none ddef
  554. } def
  555. /X
  556. {
  557. /_gs exch ddef
  558. findcmykcustomcolor
  559. /_is exch ddef
  560. /_sc
  561. {
  562. _lp /stroke ne
  563.     {
  564.     _os setoverprint
  565.     _is _gs 1 exch sub setcustomcolor
  566.     /_lp /stroke ddef
  567.     } if
  568. } ddef
  569. /_ps
  570. {
  571. _sc
  572. stroke
  573. } ddef
  574. /_pss
  575. {
  576. _sc
  577. ss
  578. } ddef
  579. /_lp /none ddef
  580. } def
  581. /A
  582. {
  583. pop
  584. } def
  585. currentdict readonly pop end
  586. setpacking
  587. %%EndProcSet
  588.