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