home *** CD-ROM | disk | FTP | other *** search
/ Corel Draw 3 / CorelDRAW-v3.0.iso / filters / aihead.dat < prev    next >
Text File  |  1992-10-25  |  10KB  |  799 lines
  1. %!PS-Adobe-2.0 EPSF-1.2
  2. %%Creator: Adobe Illustrator exported from Corel Draw 3.0
  3. %%Title:
  4. %%BoundingBox:
  5. %%CreationDate: 
  6. %%DocumentFonts:Courier
  7. %%ColorUsage:
  8. %%TemplateBox:
  9. %%EndComments
  10. %%BeginProcSet:Adobe_Illustrator_1.1 0 0
  11. % Version 1.0 3/27/1990
  12. % Copyright (C) 1990,1991,1992
  13. % Corel Corporation
  14. % All Rights Reserved
  15.  
  16. /wPmsDict 150 dict def 
  17. wPmsDict begin 
  18.  
  19. /$debug 25 string def 
  20.  
  21. /bd {bind def} bind def 
  22. /ld {load def} bd 
  23. /xd {exch def} bd 
  24. /_ null def 
  25.  
  26. /$c 0 def 
  27. /$m 0 def 
  28. /$y 0 def 
  29. /$k 0 def 
  30. /$t 1 def 
  31. /$n _ def 
  32. /$o 0 def 
  33. /$pf false def 
  34.  
  35. /$C 0 def 
  36. /$M 0 def 
  37. /$Y 0 def 
  38. /$K 0 def 
  39. /$T 1 def 
  40. /$N _ def 
  41. /$O 0 def 
  42. /$PF false def 
  43.  
  44. /$h false def 
  45.  
  46. /$al 0 def 
  47. /$tr 0 def 
  48. /$le 0 def 
  49. /$lx 0 def 
  50. /$ly 0 def 
  51.  
  52. /$ctm matrix currentmatrix def 
  53. /$ptm matrix def 
  54.  
  55. /$pn () def 
  56. /$pm matrix def 
  57. /$px 0 def 
  58. /$py 0 def 
  59. /$pxf 0 def 
  60. /$pyf 0 def 
  61. /$psx 10 def 
  62. /$psy 0 def 
  63.  
  64. /$llx 0 def 
  65. /$lly 0 def 
  66. /$urx 0 def 
  67. /$ury 0 def 
  68.  
  69.  
  70. /$Bbllx 0 def 
  71. /$Bblly 0 def 
  72. /$Bburx 0 def 
  73. /$Bbury 0 def 
  74.  
  75. /$tllx 0 def 
  76. /$tlly 0 def 
  77. /$turx 0 def 
  78. /$tury 0 def 
  79.  
  80. /$pd [] def 
  81. /$tx 0 def 
  82. /$ty 0 def 
  83.  
  84. /$sv 0 def 
  85. /@cp /closepath ld 
  86. /@gs /gsave ld 
  87. /@gr /grestore ld 
  88. /@np /newpath ld 
  89. /@sv {/$sv save def}bd 
  90. /@rs {$sv restore}bd 
  91.  
  92. /@MN { 
  93. 2 copy le{pop}{exch pop}ifelse 
  94. }bd 
  95.  
  96. /setcmykcolor where {pop} 
  97. { 
  98. /setcmykcolor 
  99. { 
  100. 4 1 roll 
  101. 3 {3 index add 1 @MN 1 exch sub 3 1 roll} repeat 
  102. setrgbcolor 
  103. pop 
  104. }bd 
  105. }ifelse 
  106.  
  107. /@tc 
  108. { 
  109. dup 1 ge 
  110. {pop} 
  111. { 
  112. 4 { 
  113. dup 
  114. 6 -1 roll 
  115. mul 
  116. exch 
  117. }repeat 
  118. pop 
  119. }ifelse 
  120. }bd 
  121.  
  122. /@scc 
  123. { 
  124. $c $m $y $k $t @tc 
  125. setcmykcolor 
  126. true 
  127. }bd 
  128. /@SCC 
  129. { 
  130. $C $M $Y $K $T @tc 
  131. setcmykcolor 
  132. true 
  133. }bd 
  134.  
  135. /@sft 
  136. { 
  137. (setfirsttile sft )print 
  138. /$tx $tllx $pxf add dup $tllx gt {$pwid $psx add sub}if def 
  139. /$ty $tury $pyf sub dup $tury lt {$phei $psy add add}if def 
  140. (setfirsttile exit )print 
  141. }bd 
  142.  
  143. /@stb 
  144. { 
  145. pathbbox /$ury xd /$urx xd /$lly xd /$llx xd 
  146. }bd 
  147.  
  148. /@ep 
  149. { 
  150. { 
  151. cvx exec 
  152. }forall 
  153. }bd 
  154.  
  155. /@tp 
  156. { 
  157.  
  158. (tile pattern tp )print 
  159. @sv 
  160. /$in true def 
  161. 2 copy 
  162. dup $lly le {/$in false def}if 
  163. $phei sub $ury ge {/$in false def}if 
  164. dup $urx ge {/$in false def}if 
  165. $pwid add $llx le {/$in false def}if 
  166. $in 
  167. { 
  168. @np 
  169. 2 copy moveto 
  170. $pwid 0 rlineto 
  171. 0 $phei neg rlineto 
  172. $pwid neg 0 rlineto 
  173. 0 $phei rlineto 
  174. clip @np 
  175.  
  176. $pn cvlit load aload pop 
  177. 7 -1 roll 
  178. 5 index sub 
  179. 7 -1 roll 
  180. 3 index sub 
  181. translate 
  182. @ep 
  183. pop pop pop pop 
  184. } 
  185. {pop pop}ifelse 
  186. @rs 
  187. (tile pattern exit )print 
  188. }bd 
  189.  
  190. /@th 
  191. { 
  192. (tile horizontal th)print 
  193. @sft 
  194. 0 1 $tly 1 sub 
  195. { 
  196. dup $psx mul $tx add 
  197. { 
  198. dup $llx gt {$pwid sub}{exit}ifelse 
  199. }loop 
  200. exch $phei mul $ty exch sub 
  201.  
  202. 0 1 $tlx 1 sub 
  203. { 
  204. $pwid mul 
  205. 3 copy 
  206. 3 -1 roll add exch 
  207. @tp 
  208. pop 
  209. }for 
  210. pop pop 
  211. } for 
  212. (tile horizontal exiting )print 
  213. }bd 
  214.  
  215. /@tv 
  216. { 
  217. (tile vertical tv)print 
  218. @sft 
  219. 0 1 $tlx 1 sub 
  220. { 
  221. dup $pwid mul $tx add 
  222. exch $psy mul $ty exch sub 
  223. { 
  224. dup $ury lt {$phei add}{exit}ifelse 
  225. }loop 
  226.  
  227. 0 1 $tly 1 sub 
  228. { 
  229. $phei mul 
  230. 3 copy sub 
  231. @tp 
  232. pop 
  233. }for 
  234. pop pop 
  235. } for 
  236. (tile vertical exit )print 
  237. }bd 
  238.  
  239. /@pf 
  240. { 
  241. (pattern fill pf)print 
  242. @gs 
  243. $pm concat 
  244. @stb 
  245. @gs 1 setgray eofill @gr 
  246. eoclip 
  247. $Bburx $Bbury $pm itransform /$tury xd /$turx xd 
  248. $Bbllx $Bblly $pm itransform /$tlly xd /$tllx xd 
  249. /$wid $turx $tllx sub def 
  250. /$hei $tury $tlly sub def 
  251. $wid 0 gt $hei 0 gt and 
  252. { 
  253. $pn cvlit load aload pop 
  254. $pd xd 
  255. 3 -1 roll sub /$phei xd 
  256. exch sub /$pwid xd 
  257. /$tlx $wid $pwid div ceiling 1 add def 
  258. /$tly $hei $phei div ceiling 1 add def 
  259. $psx 0 eq 
  260. { 
  261. @tv 
  262. } 
  263. { 
  264. @th 
  265. }ifelse 
  266. }if 
  267.  
  268. @gr 
  269. @np 
  270. (pattern fill exit)print 
  271. }bd 
  272.  
  273. /@xp 
  274. { 
  275. { 
  276. dup (text Character is:) print == 
  277. usertime (time before is:)print == 
  278. (0) dup 3 -1 roll 0 exch put 
  279. @gs 
  280. true charpath currentpoint 
  281. $ctm setmatrix 
  282. @pf 
  283. @gr 
  284. @np 
  285. moveto $tr 0 rmoveto 
  286. usertime (time after is:)print == 
  287. }forall 
  288. pop 
  289. }bd 
  290.  
  291. /@sm 
  292. { 
  293. /$ctm $ctm currentmatrix def 
  294. }bd 
  295.  
  296. %--@lorg  move to line origin   length string @torg length string
  297. /@lorg    % moves currentpoint to line origin according to current alignment
  298.   {      
  299.   $lx $ly moveto    
  300.   /$ly $ly $le sub def      % - prepare for next line(tracking)
  301.   $al 0 ne
  302.     {dup      % ->len str len str
  303.     stringwidth   % ->len str len dx dy
  304.     exch 3 index  % ->len str dy len dx
  305.     1 sub         % ->len str dy len dx (len-1)
  306.     $tr mul add   % ->len str dy len dx+(len-1)*$tr
  307.     neg
  308.     exch neg      % ->len str -dx_total dy len
  309.     $al 1 eq      % check for centered alignment
  310.     {2 div exch 2 div exch} if  
  311.     rmoveto} if
  312.   }bd
  313.  
  314. /@ft 
  315. { 
  316. $pf 
  317. {@xp} 
  318. { 
  319. @scc 
  320. {$tr exch 0 exch ashow pop} 
  321. {pop pop}ifelse 
  322. }ifelse 
  323. }bd 
  324.  
  325. /@st 
  326. { 
  327. $PF 
  328. {} 
  329. { 
  330. @SCC 
  331. { 
  332. { 
  333. (0) dup 3 -1 roll 0 exch put 
  334. @gs 
  335. true charpath currentpoint 
  336. $ctm setmatrix $ptm concat 
  337. stroke 
  338. @gr 
  339. moveto $tr 0 rmoveto 
  340. }forall 
  341. pop 
  342. } 
  343. {pop pop}ifelse 
  344. }ifelse 
  345. }bd 
  346. /@pt 
  347. { 
  348. dup length exch 
  349. }bd 
  350. /@te 
  351. { 
  352. @pt 
  353. @lorg 
  354. @ft 
  355. }bd 
  356.  
  357. /@tr 
  358. { 
  359. @pt 
  360. @lorg 
  361. @st 
  362. }bd 
  363. /@ta 
  364. { 
  365. @pt 
  366. @lorg 
  367. 2 copy 
  368. @gs @ft @gr 
  369. /$lx 0 def 
  370. /$ly 0 def 
  371. @st 
  372. }bd 
  373.  
  374.  
  375.  
  376.  
  377.  
  378.  
  379.  
  380.  
  381.  
  382.  
  383.  
  384.  
  385.  
  386.  
  387.  
  388. /g { 
  389. 1 exch sub /$k xd 
  390. /$c 0 def /$m 0 def /$y 0 def /$t 1 def /$n _ def /$pf false def 
  391. }bd 
  392.  
  393. /G { 
  394. 1 exch sub /$K xd 
  395. /$C 0 def /$M 0 def /$Y 0 def /$T 1 def /$N _ def /$PF false def 
  396. }bd 
  397.  
  398. /k { 
  399. /$k xd /$y xd /$m xd /$c xd 
  400. /$t 1 def /$n _ def /$pf false def 
  401. }bd 
  402.  
  403. /K { 
  404. /$K xd /$Y xd /$M xd /$C xd 
  405. /$T 1 def /$N _ def /$PF false def 
  406. }bd 
  407.  
  408. /x { 
  409. /$t xd /$n xd 
  410. /$k xd /$y xd /$m xd /$c xd /$pf false def 
  411. }bd 
  412.  
  413. /X { 
  414. /$T xd /$N xd 
  415. /$K xd /$Y xd /$M xd /$C xd /$PF false def 
  416. }bd 
  417.  
  418. /d /setdash ld 
  419.  
  420. /i { 
  421. dup 0 ne {setflat} {pop} ifelse 
  422. }bd 
  423.  
  424. /j /setlinejoin ld 
  425.  
  426. /J /setlinecap ld 
  427.  
  428. /M /setmiterlimit ld 
  429.  
  430. /w /setlinewidth ld 
  431.  
  432. /O { 
  433. /$o xd 
  434. }bd 
  435.  
  436. /R { 
  437. /$O xd 
  438. }bd 
  439.  
  440.  
  441. /c /curveto ld 
  442.  
  443. /C /c ld 
  444.  
  445. /v { 
  446. currentpoint
  447. 6 2 roll 
  448. curveto 
  449. }bd
  450.  
  451. /V /v ld 
  452.  
  453. /y { 
  454. 2 copy curveto 
  455. }bd 
  456.  
  457. /Y /y ld 
  458.  
  459. /l /lineto ld 
  460.  
  461. /L /l ld 
  462.  
  463. /m /moveto ld 
  464.  
  465.  
  466.  
  467. /n /newpath ld 
  468.  
  469. /N /newpath ld 
  470.  
  471. /F { 
  472. $pf 
  473. {@pf} 
  474. { 
  475. @scc 
  476. {eofill}if 
  477. }ifelse 
  478. }bd 
  479.  
  480. /f { 
  481. @cp F 
  482. }bd 
  483. /S { 
  484. $PF 
  485. {} 
  486. { 
  487. @SCC 
  488. { 
  489. @sm 
  490. $ptm concat 
  491. stroke 
  492. $ctm setmatrix 
  493. }if 
  494. }ifelse 
  495. }bd 
  496. /s { 
  497. @cp 
  498. S 
  499. }bd 
  500.  
  501. /B { 
  502. @gs F @gr 
  503. S 
  504. }bd 
  505. /b { 
  506. @cp 
  507. B 
  508. }bd 
  509.  
  510. /W { 
  511. oeclip 
  512. @np 
  513. }bd 
  514.  
  515. /p { 
  516. /$pm xd 
  517. 7 {pop} repeat 
  518. /$pyf xd /$pxf xd 
  519. /$pn xd 
  520. /$pf true def 
  521. }bd 
  522.  
  523. /P { 
  524. 11 {pop} repeat 
  525. }bd 
  526.  
  527. /@p { 
  528. /$pm xd 
  529. /$psy xd 
  530. /$psx xd 
  531. /$pyf xd /$pxf xd 
  532. /$pn xd 
  533. /$pf true def 
  534. }bd 
  535.  
  536. /@b { 
  537. /$Bbury xd /$Bburx xd 
  538. /$Bblly xd /$Bbllx xd 
  539. }bd 
  540.  
  541.  
  542. /z { 
  543. /$al xd 
  544. /$tr xd 
  545. /$le xd 
  546. exch findfont exch scalefont setfont 
  547. }bd 
  548.  
  549. /Z { 
  550. dup type 0 type eq { /$bDir xd } if
  551. findfont 
  552. dup maxlength 1 add dict exch 
  553.  
  554.  
  555.  
  556. dup 
  557. {1 index /FID ne 
  558. { 
  559. 3 index 
  560. 3 1 roll put 
  561. } 
  562. {pop pop}ifelse 
  563. } forall 
  564.  
  565.  
  566.  
  567. pop 
  568. dup dup /Encoding get 
  569. 256 array copy 
  570. dup /$fe xd
  571. /Encoding exch put 
  572.  
  573. dup /Fontname 3 index put 
  574.  
  575. 3 -1 roll
  576. dup length 0 ne
  577. {0 exch
  578.   {
  579.   dup type 0 type eq
  580.     {exch pop}
  581.       {
  582.       $fe exch 2 index exch put
  583.       1 add
  584.       }ifelse
  585.   }forall pop
  586. }if
  587. definefont pop
  588.  
  589. }bd 
  590.  
  591. /e { 
  592. @sm 
  593. concat 
  594. [ 
  595. /t {@te}def 
  596. }bd 
  597.  
  598. /r { 
  599. @sm 
  600. concat 
  601. [ 
  602. /t {@tr}def 
  603. }bd 
  604.  
  605. /o { 
  606. @sm 
  607. concat 
  608. [ 
  609. /t {pop}def 
  610. }bd 
  611.  
  612. /a { 
  613. @sm 
  614. concat 
  615. [ 
  616. /t {@ta}def 
  617. }bd 
  618.  
  619. /@o{
  620. @sm 
  621. concat 
  622. [ 
  623. /t {@t@a}def 
  624. }bd 
  625.  
  626. /I { 
  627. @sm 
  628. concat 
  629. [ 
  630. /t {pop}def 
  631. }bd 
  632.  
  633. /t {@te}def 
  634.  
  635. /T { 
  636. cleartomark 
  637. /$lx 0 def 
  638. /$ly 0 def 
  639. $ctm setmatrix 
  640. }bd 
  641.  
  642.  
  643. /u {}bd 
  644.  
  645. /U {}bd 
  646.  
  647. /A {pop}bd 
  648.  
  649. /h { 
  650. $h true def 
  651. }bd 
  652.  
  653. /h { 
  654. $h true def 
  655. }bd 
  656.  
  657. /q /@gs ld 
  658.  
  659. /Q /@gr ld 
  660.  
  661.  
  662.  
  663. /E { 
  664. 5 array astore 
  665. exch cvlit exch def 
  666. }bd 
  667.  
  668. /` {}bd 
  669.  
  670. /~ {}bd 
  671.  
  672. /@ {}bd 
  673.  
  674. /& {}bd 
  675.  
  676. /CorelDrawRencodeVect [ 
  677. 16#80/grave 
  678. 16#81/circumflex 
  679. 16#82/tilde 
  680. 16#83/dotlessi 
  681. 16#84/florin 
  682. 16#85/quotedblleft 
  683. 16#86/quotedblright 
  684. 16#87/guilsinglleft 
  685. 16#88/guilsinglright 
  686. 16#89/fi 
  687. 16#8a/fl 
  688. 16#8b/dagger 
  689. 16#8c/daggerdbl 
  690. 16#8d/endash 
  691. 16#8e/periodcentered 
  692. 16#8f/breve 
  693. 16#90/quotedblbase 
  694. 16#91/ellipsis 
  695. 16#92/perthousand 
  696. 16#a1/exclamdown 
  697. 16#a2/cent 
  698. 16#a3/sterling 
  699. 16#a4/currency 
  700. 16#a5/yen 
  701. 16#a6/bar 
  702. 16#a7/section 
  703. 16#a8/dieresis 
  704. 16#a9/copyright 
  705. 16#aa/ordfeminine 
  706. 16#ab/guillemotleft 
  707. 16#ac/logicalnot 
  708. 16#ad/emdash 
  709. 16#ae/registered 
  710. 16#af/spac 
  711. 16#b0/ring 
  712. 16#b1/spac 
  713. 16#b2/spac 
  714. 16#b3/spac 
  715. 16#b4/acute 
  716. 16#b5/spac 
  717. 16#b6/paragraph 
  718. 16#b7/bullet 
  719. 16#b8/cedilla 
  720. 16#b9/spac 
  721. 16#ba/ordmasculine 
  722. 16#bb/guillemotright 
  723. 16#bc/spac 
  724. 16#bd/spac 
  725. 16#be/spac 
  726. 16#bf/questiondown 
  727. 16#c0/Agrave 
  728. 16#c1/Aacute 
  729. 16#c2/Acircumflex 
  730. 16#c3/Atilde 
  731. 16#c4/Adieresis 
  732. 16#c5/Aring 
  733. 16#c6/AE 
  734. 16#c7/Ccedilla 
  735. 16#c8/Egrave 
  736. 16#c9/Eacute 
  737. 16#ca/Ecircumflex 
  738. 16#cb/Edieresis 
  739. 16#cc/Igrave 
  740. 16#cd/Iacute 
  741. 16#ce/Icircumflex 
  742. 16#cf/Idieresis 
  743. 16#d0/spac 
  744. 16#d1/Ntilde 
  745. 16#d2/Ograve 
  746. 16#d3/Oacute 
  747. 16#d4/Ocircumflex 
  748. 16#d5/Otilde 
  749. 16#d6/Odieresis 
  750. 16#d7/OE 
  751. 16#d8/Oslash 
  752. 16#d9/Ugrave 
  753. 16#da/Uacute 
  754. 16#db/Ucircumflex 
  755. 16#dc/Udieresis 
  756. 16#dd/space 
  757. 16#de/spac 
  758. 16#df/germandbls 
  759. 16#e0/agrave 
  760. 16#e1/aacute 
  761. 16#e2/acircumflex 
  762. 16#e3/atilde 
  763. 16#e4/adieresis 
  764. 16#e5/aring 
  765. 16#e6/ae 
  766. 16#e7/ccedilla 
  767. 16#e8/egrave 
  768. 16#e9/eacute 
  769. 16#ea/ecircumflex 
  770. 16#eb/edieresis 
  771. 16#ec/igrave 
  772. 16#ed/iacute 
  773. 16#ee/icircumflex 
  774. 16#ef/idieresis 
  775. 16#f0/space 
  776. 16#f1/ntilde 
  777. 16#f2/ograve 
  778. 16#f3/oacute 
  779. 16#f4/ocircumflex 
  780. 16#f5/otilde 
  781. 16#f6/odieresis 
  782. 16#f7/oe 
  783. 16#f8/oslash 
  784. 16#f9/ugrave 
  785. 16#fa/uacute 
  786. 16#fb/ucircumflex 
  787. 16#fc/udieresis 
  788. 16#fd/spac 
  789. 16#fe/spac 
  790. 16#ff/ydieresis 
  791. ] def
  792. %%EndProlog
  793. %%BeginSetup
  794. %%BeginEncoding:_Times-Bold Times-Bold
  795. [
  796. ]/_Times-Bold/Times-Bold Z
  797. %%EndEncoding
  798. %%EndSetup
  799.