home *** CD-ROM | disk | FTP | other *** search
/ Carousel / CAROUSEL.cdr / mactosh / unix / paintps.sha / laser-prep.pro next >
Text File  |  1986-07-08  |  23KB  |  740 lines
  1. %!Laser Prep version 12.  
  2. % Decompiled with rekamr and then cleaned up and slightly modified
  3. % for downloading over rs232 by Alan Crosswell,  Columbia U.
  4. % Modification to eexec to work when cat'ed with a data file.  This
  5. % version is not installed permanently, must precede each Mac file.
  6. % Ron Hitchens, Brian Powell - U of Texas Austin.
  7.  
  8. %{appledict version #12
  9. /md 200 dict def md begin
  10. /av 12 def
  11. /mtx matrix currentmatrix def
  12. /s30 30 string def
  13. /s1 ( ) def
  14. /pys 1 def
  15. /pxs 1 def
  16. /pyt 760 def
  17. /pxt 29.5 def
  18. /por true def
  19. /xl{translate}def
  20. /fp{pnsh 0 ne pnsv 0 ne and}def
  21. /vrb [
  22. {fp{gsave 1 setlinewidth pnsh pnsv scale stroke grestore}if newpath}
  23. {eofill}
  24. dup
  25. {newpath}
  26. 2 index
  27. dup
  28. {initclip eoclip newpath}
  29. {}
  30. dup
  31. 2 copy
  32. ] def
  33. /xdf{exch def}def
  34. currentscreen /spf xdf /rot xdf /freq xdf
  35. /doop {vrb exch get exec} def
  36. /psu{2 index .72 mul exch div /pys xdf div .72 mul /pxs xdf /pyt xdf /pxt xdf /por xdf}def
  37. /txpose{dup 1680 eq userdict /note known{{legal}{note}ifelse}{pop}ifelse
  38. dup 1212 eq{54 32.4 xl}if 1321 eq{8.64 -.6 xl}if
  39. pxs pys scale pxt pyt xl por not{270 rotate}if 1 -1 scale}def
  40. /obl {{0.212557 mul}{pop 0} ifelse} def
  41. /sfd {[ps 0 ps 6 -1 roll obl ps neg 0 0] makefont dup setfont} def
  42. /fnt{findfont sfd}def
  43. /bt{1 index and 0 ne exch}def
  44. /sa 6 array def
  45. /fs{1 bt
  46.     2 bt
  47.     4 bt
  48.     8 bt
  49.    16 bt
  50.    sa astore pop
  51. }def
  52. /mx1 matrix def
  53. /mx2 matrix def
  54. /gf{currentfont}def
  55.  
  56. /tc{32768 div add 3 1 roll 32768 div add 2t astore pop}def
  57. /3a [0 0 0] def
  58. /2t 2 array def
  59. /tp{3a astore pop}def
  60. /ee{}def
  61. /tt{gsave currentpoint 2 copy 2t aload pop qa 2 copy xl 3a aload pop exch dup 0 eq
  62. {pop}{1 eq{-1 1}{1 -1}ifelse scale}ifelse rotate pop neg exch neg exch xl moveto}def
  63. /te{currentpoint currentfont grestore setfont moveto}def
  64. /tb{/tg currentgray def 3 -1 roll 3 eq{1 setgray}if /ml 0 def /al 0 def}def
  65. /am{ml add /ml xdf}def
  66. /aa{[currentgray /setgray cvx]cvx exch dup wi pop dup al add /al xdf exch}def
  67. /th{3 -1 roll div 3 1 roll exch div 2 copy mx1 scale pop scale /scaleflag true def}def
  68. /tu{1 1 mx1 itransform scale /scaleflag false def}def
  69. /ts{1 1 mx1 transform scale /scaleflag true def}def
  70. /fz{/ps xdf}def
  71. /fx{dup exec}def
  72. /st{show pop pop}def
  73. /tm{
  74.       {
  75.       dup type dup /integertype eq exch /realtype eq or
  76.          {
  77.          dup ml mul
  78.          }
  79.          {
  80.          dup type /stringtype eq
  81.             {
  82.             rs
  83.             }
  84.             {
  85.             dup type /dicttype eq
  86.                {
  87.                setfont
  88.                }
  89.                {
  90.                dup type /arraytype eq
  91.                   {
  92.                   exec
  93.                   }
  94.                   {
  95.                   pop
  96.                   }ifelse
  97.                }ifelse
  98.             }ifelse
  99.          }ifelse
  100.       }forall
  101.    }def
  102. /es{3 -1 roll dup sa 5 get dup type /nulltype eq
  103. {pop4 pop}
  104. {
  105. sa 1 get {/ml ml .2 ps mul sub def}if  %Italic Hack Hack Hack
  106.    ne{fs}{pop}ifelse exch
  107.    dup 1 eq
  108.    {pop
  109.       al ml gt{/tv{ll}/ml ml al dup 0 ne{div}{pop}ifelse def}{/tv{st}/ml 1 def}ifelse def
  110.       tm
  111.    }
  112.    {
  113.    dup 3 eq
  114.    {pop
  115.    al ml gt{/tv{ll}/ml ml al dup 0 ne{div}{pop}ifelse def}{ml al sub 0 rmoveto /tv{st}/ml 1 def}ifelse def
  116.       tm
  117.    }
  118.    {
  119.    2 eq
  120.    {
  121.    al ml gt{/tv{ll}/ml ml al dup 0 ne{div}{pop}ifelse def}{ml al sub 2 div 0 rmoveto /tv{st}/ml 1 def}ifelse def
  122.       tm
  123.    }
  124.    {
  125.    /tv{ll}def
  126.    /ml ml al dup 0 ne{div}{pop}ifelse def
  127.       tm
  128.    }ifelse}ifelse}ifelse
  129.    }ifelse
  130. tg setgray
  131. }def
  132.  
  133. /pop4 {pop pop pop pop} def
  134. /gm{scaleflag{mx1 itransform}if moveto}def
  135. /ly{exch pop currentpoint exch pop sub 0 exch rmoveto}def
  136. /page{1 add /#copies xdf showpage}def
  137. /sk{systemdict /statusdict known}def
  138. /jn{sk{statusdict /jobname 3 -1 roll put}{pop}ifelse}def
  139. /pen {/pnsv xdf /pnsh xdf pnsh setlinewidth} def
  140. /dlin{currentpoint newpath moveto lineto currentpoint stroke grestore moveto}def
  141. /lin {currentpoint /pnlv xdf /pnlh xdf gsave newpath /@y xdf /@x xdf fp{pnlh @x lt {pnlv @y ge
  142. {pnlh pnlv moveto @x @y lineto pnsh 0 rlineto
  143. 0 pnsv rlineto pnlh pnsh add pnlv pnsv add lineto pnsh neg 0 rlineto}
  144. {pnlh pnlv moveto pnsh 0 rlineto @x pnsh add @y lineto 0 pnsv rlineto
  145. pnsh neg 0 rlineto pnlh pnlv pnsv add lineto} ifelse} {pnlv @y gt
  146. {@x @y moveto pnsh 0 rlineto pnlh pnsh add pnlv lineto 0 pnsv rlineto
  147. pnsh neg 0 rlineto @x @y pnsv add lineto} {pnlh pnlv moveto pnsh 0 rlineto
  148. 0 pnsv rlineto @x pnsh add @y pnsv add lineto pnsh neg 0 rlineto
  149. 0 pnsv neg rlineto} ifelse} ifelse
  150. closepath fill}if @x @y grestore moveto} def
  151. /barc {/@f xdf /@op xdf /@e xdf /@s xdf /@r xdf
  152. /@b xdf /@l xdf /@t xdf gsave
  153. @r @l add 2 div @b @t add 2 div xl 0 0 moveto
  154. @r @l sub @b @t sub mtx currentmatrix pop scale @f {newpath} if
  155. 0 0 0.5 @s @e arc
  156. mtx setmatrix @op doop grestore} def
  157. /doarc {dup 0 eq barc} def
  158. /doval {0 exch 360 exch true barc} def
  159. /dorect {/@op xdf currentpoint 6 2 roll newpath 4 copy
  160. 4 2 roll exch moveto 6 -1 roll lineto lineto lineto closepath
  161. @op doop moveto} def
  162. /dorrect {/@op xdf 2. div /@h xdf 2. div /@w xdf
  163. /@r xdf /@b xdf /@l xdf /@t xdf
  164. @t @b eq @l @r eq or{@t @l @b @r @op dorect}
  165.    {
  166.    @r @l sub 2. div dup @w lt{/@w xdf}{pop}ifelse
  167.    @b @t sub 2. div dup @w lt{/@w xdf}{pop}ifelse
  168.    @op 0 eq{/@w @w pnsh 2 div sub def}if    %this helps solve overlap gap for wide line widths
  169.    currentpoint
  170.    newpath
  171.    @r @l add 2. div @t moveto
  172.    @r @t @r @b @w arcto pop4
  173.    @r @b @l @b @w arcto pop4
  174.    @l @b @l @t @w arcto pop4
  175.    @l @t @r @t @w arcto pop4
  176.    closepath @op doop
  177.    moveto
  178.    }ifelse
  179. } def
  180. /pr{gsave newpath /pl{moveto /pl{lineto}def}def}def
  181. /pl{lineto}def
  182. /ep{dup 0 eq
  183.    {
  184.    {moveto}{lin}{}{}pathforall  %nothing but movetos and linetos should be called
  185.    pop grestore
  186.    }
  187.    {
  188.    doop grestore
  189.    }ifelse
  190. }def
  191. /bs 8 string def
  192. /bd{/bs xdf}def
  193. /bit {bs exch get exch 7 sub bitshift 1 and} def
  194. /bix {1 add 4 mul cvi} def
  195. /pp{exch bix exch bix bit}def
  196. /grlevel {64. div setgray} def
  197. /setpat {/bs xdf 9.375 0{pp}setscreen grlevel} def
  198. /setgry {freq rot {spf} setscreen grlevel} def
  199. /x4 {2 bitshift} def
  200. /d4 {-2 bitshift} def
  201. /xf {.96 mul exch 2 sub .96 mul exch} def
  202. /dobits
  203. {
  204. /bmode xdf
  205. save 9 1 roll
  206.    {
  207.    x4 /@dy xdf 2 sub x4 /@dx xdf /@idx xdf
  208.    .96 mul exch 2 sub exch xl 0 0 moveto xf
  209.    0 2 2 index 4 index 1.759 add 10 dorect clip newpath 0 0 moveto scale
  210.    bmode 0 eq bmode 4 eq or{1 setgray 1 @dy div 1 @dx div 1 1 2 dorect}if
  211.    bmode 3 eq bmode 7 eq or{1}{0}ifelse setgray
  212.    @idx 5 bitshift @dy bmode 4 eq bmode 5 eq bmode 7 eq or or [@dx 0 0 @dy 0 0]
  213.      {(%stdin)(r) file @dy d4 4 add @idx mul string readhexstring pop
  214.      dup length @idx x4 sub 4 bitshift string
  215.      dup 3 1 roll @dx 8 add d4 smooth} imagemask
  216.    }
  217.    {
  218.    /@dy xdf 2 sub /@dx xdf /@idx xdf
  219.    /@xs @idx string def
  220.    /@f (%stdin)(r) file def
  221.    /@p{@f @xs readhexstring pop}def
  222.    .96 mul xl 0 0 moveto xf scale
  223.    0 0 1 1 10 dorect clip newpath 0 0 moveto
  224.    bmode 0 eq bmode 4 eq or{1 setgray .25 @dy div .25 @dx div 1 1 2 dorect}if
  225.    bmode 3 eq bmode 7 eq or{1}{0}ifelse setgray
  226.    @p @p
  227.    @idx 3 bitshift @dy bmode 0 eq bmode 1 eq bmode 3 eq or or [@dx 0 0 @dy 0 0]
  228.    {@p} imagemask
  229.    @p @p pop4
  230.    }ifelse
  231. restore
  232. } bind def
  233.  
  234. /mfont 14 dict def
  235. /wd 14 dict def
  236. /mdef {mfont wcheck not{/mfont 14 dict def}if mfont begin xdf end} def
  237. /dc {transform round .5 sub exch round .5 sub exch itransform} def
  238. /cf{{1 index /FID ne {tmp 3 1 roll put}{pop pop}ifelse}forall}def
  239. /mv{tmp /Encoding macvec put}def
  240. /bf{
  241. mfont begin
  242. /FontType 3 def
  243. /FontMatrix [1 0 0 1 0 0] def
  244. /FontBBox [0 0 1 1] def
  245. /Encoding macvec def
  246. /BuildChar
  247.   {
  248.   wd begin
  249.     /cr xdf
  250.     /fd xdf
  251.     fd /low get cr get 2 get -1 ne
  252.     {
  253.     fd begin
  254.       low cr get aload pop
  255.       sd
  256.       low cr 1 add get 0 get
  257.       sh
  258.       sw
  259.     end
  260.     /sw xdf
  261.     /sh xdf
  262.     sw div /clocn xdf
  263.     dup 0 ne {0 exch sh div neg dc xl}{pop}ifelse
  264.     exch sw div /coff xdf
  265.     exch sw div /cloc xdf
  266.     /bitw clocn cloc sub def
  267.     sw sh div 1 scale
  268.     sw div 0 coff 0 bitw coff add 1 setcachedevice
  269.     coff cloc sub 0 dc xl
  270.     cloc .5 sw div add 0 dc newpath moveto
  271.     bitw 0 ne
  272.       {0 1 rlineto bitw .5 sw div sub 0 rlineto 0 -1 rlineto
  273.         closepath clip
  274.       sw sh false [sw 0 0 sh neg 0 sh]{fd /hm get}imagemask}if
  275.     } if
  276.   end
  277.   } def
  278. end
  279. mfont definefont pop
  280. } def
  281. /wi{save exch /show{pop}def
  282. stringwidth 3 -1 roll restore}def
  283. /aps {0 get 124 eq}def
  284. /apn {s30 cvs aps} def
  285. /xc{s30 cvs dup}def
  286. /xp{put cvn}def
  287. /scs{xc 3 67 put dup 0 95 xp}def
  288. /sos{xc 3 79 xp}def
  289. /sbs{xc 1 66 xp}def
  290. /sis{xc 2 73 xp}def
  291. /sob{xc 2 79 xp}def
  292. /sss{xc 4 83 xp}def
  293. /dd{exch 1 index add 3 1 roll add exch} def
  294. /smc{moveto dup show} def
  295. /kwn{dup FontDirectory exch known{findfont exch pop}}def
  296. /fb{/ps ps 1 add def}def
  297.  
  298. /mb
  299. {dup sbs kwn
  300.    {
  301.    exch{pop}{bbc}{} mm
  302.    }ifelse
  303. sfd
  304. }def
  305. /mo
  306. {dup sos kwn
  307.    {
  308.    exch{pop}{boc}{} mm
  309.    }ifelse
  310. sfd
  311. }def
  312. /ms
  313. {dup sss kwn
  314.    {
  315.    exch{pop}{bsc}{} mm
  316.    }ifelse
  317. sfd
  318. }def
  319. /ao
  320. {dup sos kwn
  321.    {
  322.    exch dup ac pop
  323.    {scs findfont /df2 xdf}{aoc}{} mm
  324.    }ifelse
  325. sfd
  326. }def
  327. /as
  328. {dup sss kwn
  329.    {
  330.    exch dup ac pop
  331.    {scs findfont /df2 xdf}{asc}{} mm
  332.    }ifelse
  333. sfd
  334. }def
  335. /ac
  336.    {
  337.    dup scs kwn
  338.       {exch /ofd exch findfont def
  339.       /tmp ofd maxlength 1 add dict def
  340.       ofd cf mv
  341.       tmp /PaintType 1 put
  342.       tmp definefont}ifelse
  343.    }def
  344. /mm{
  345. /mfont 10 dict def
  346. mfont begin
  347. /FontMatrix [1 0 0 1 0 0] def
  348. /FontType 3 def
  349. /Encoding macvec def
  350. /df 4 index findfont def
  351. /FontBBox [0 0 1 1] def
  352. /xda xdf
  353. /mbc xdf
  354. /BuildChar { wd begin
  355.   /cr xdf
  356.   /fd xdf
  357.   /cs s1 dup 0 cr put def
  358.   fd /mbc get exec
  359.   end
  360. } def
  361. exec
  362. end
  363. mfont definefont} def
  364. /bbc
  365. {
  366.   /da .03 def
  367.   fd /df get setfont
  368.   gsave
  369.     cs wi exch da add exch
  370.   grestore
  371.   setcharwidth
  372.   cs 0  0 smc
  373.     da  0 smc
  374.     da da smc
  375.      0 da moveto show
  376. } def
  377. /boc
  378. {
  379.   /da 1 ps div def
  380.   fd /df get setfont
  381.   gsave
  382.     cs wi
  383.     exch da add exch
  384.   grestore
  385.   setcharwidth
  386.   cs 0  0 smc
  387.     da  0 smc
  388.     da da smc
  389.      0 da smc
  390.   1 setgray
  391.      da 2. div dup moveto show
  392. } def
  393. /bsc
  394. {
  395.   /da 1 ps div def
  396.   /ds .05 def %da dup .03 lt {pop .03}if def
  397.   /da2 da 2. div def
  398.   fd /df get setfont
  399.   gsave
  400.     cs wi
  401.     exch ds add da2 add exch
  402.   grestore
  403.   setcharwidth
  404.   cs ds da2 add .01 add 0 smc
  405.       0 ds da2 sub xl
  406.       0  0 smc
  407.      da  0 smc
  408.      da da smc
  409.       0 da smc
  410.   1 setgray
  411.       da 2. div dup moveto show
  412. } def
  413. /aoc
  414. {
  415.   fd /df get setfont
  416.   gsave
  417.     cs wi
  418.   grestore
  419.   setcharwidth
  420.   1 setgray
  421.   cs 0 0 smc
  422.   fd /df2 get setfont
  423.   0 setgray
  424.   0 0 moveto show
  425. }def
  426. /asc
  427. {
  428.   /da .05 def
  429.   fd /df get setfont
  430.   gsave
  431.     cs wi
  432.     exch da add exch
  433.   grestore
  434.   setcharwidth
  435.   cs da .01 add 0 smc
  436.       0 da xl
  437.   1 setgray
  438.       0 0 smc
  439.   0 setgray
  440.   fd /df2 get setfont
  441.       0 0 moveto show
  442. }def
  443.  
  444. /mf{gsave
  445. 32 760 xl 1 -1 scale
  446. 1 1 pen
  447. 128 152 moveto
  448. 27.5 27.5 693.5 522.5 0 dorect
  449. 6 6 pen
  450. 63. 63. 657. 486. 0 dorect
  451. 48 fz F /|B---1Times fnt pop
  452. (Manual Feed)show
  453. 118 275 moveto
  454. 14 fz F /|----1Times fnt pop
  455. (document: )show
  456. sk{statusdict /jobname get dup null ne{show}{pop}ifelse}if
  457. 118 362 moveto
  458. (Manual Feed Instructions)show
  459. 127 398 moveto
  460. (1.  Wait until the yellow light on the front of your)show
  461. 145 416 moveto
  462. (LaserWriter comes on steadily \(not flashing\).)show
  463. 127 458 moveto
  464. (2.  Insert your paper or envelope in the manual feed)show
  465. 145 478 moveto
  466. (guide on the right side of the LaserWriter.)show
  467. 127 517 moveto
  468. (3.  Repeat steps 1 and 2 until your document is)show
  469. 145 537 moveto
  470. (completed.)show
  471. 0 page
  472. sk{statusdict /manualfeed true put 5 dly}if
  473. grestore}def
  474. /dly{
  475. usertime exch 1000 mul add
  476.    {
  477.    dup usertime le{exit}if
  478.    }loop
  479. pop
  480. }def
  481. /lsf {FontDirectory {pop dup apn{= flush}{pop}ifelse}forall /* = flush}def
  482. /dl{gsave 0 setlinewidth 0 setgray}def
  483.  
  484. /T true def
  485. /F false def
  486. /6a 6 array def
  487. /2a 2 array def
  488. /5a 5 array def
  489. /qs{3 -1 roll sub exch 3 -1 roll sub exch}def
  490. /qa{3 -1 roll add exch 3 -1 roll add exch}def
  491. %multiply point: pt factor qm newpt
  492. /qm{3 -1 roll 1 index mul 3 1 roll mul}def
  493. /qn{6a exch get mul}def
  494. /qA .166667 def /qB .833333 def /qC .5 def
  495. /qx{
  496.    6a astore pop
  497.    qA 0 qn qB 2 qn add   qA 1 qn qB 3 qn add
  498.    qB 2 qn qA 4 qn add   qB 3 qn qA 5 qn add
  499.    qC 2 qn qC 4 qn add   qC 3 qn qC 5 qn add
  500. }def
  501. /qp{6 copy 12 -2 roll pop pop}def
  502. /qc{qp qx curveto}def
  503. /qi{{4 copy 2a astore aload pop qa .5 qm newpath moveto}{2 copy 6 -2 roll 2 qm qs 4 2 roll}ifelse}def
  504. /qq{{qc 2a aload pop qx curveto}{4 copy qs qa qx curveto}ifelse}def
  505. /pt{gsave currentpoint newpath moveto}def
  506. /qf{gsave eofill grestore}def
  507. /tr{currentgray currentscreen bs 5a astore pop /fillflag 1 def}def
  508. /bc{/fillflag 0 def}def
  509. /ec{
  510.    1 and 0 ne
  511.    {currentgray currentscreen bs 5a aload pop bd setscreen setgray 0 doop bd setscreen setgray}
  512.    {newpath}ifelse
  513. }def
  514. /bp{currentpoint newpath 2 copy moveto currentgray currentscreen bs 5a astore pop}def
  515. /eu{
  516.    fillflag 0 ne
  517.    {
  518.    gsave currentgray currentscreen bs
  519.    5a aload pop bd setscreen setgray
  520.    4 ep
  521.    bd setscreen setgray
  522.    }if
  523.    fp{0 ep}{grestore newpath}ifelse
  524. }def
  525.  
  526. /sm
  527. {
  528. dup 0 exch
  529. {32 eq{1 add}if}forall
  530. }
  531. def
  532. /ll
  533. {
  534. 3 1 roll exch dup .0001 lt 1 index -.0001 gt and
  535. {pop pop pop}
  536. {sub dup 0 eq
  537.    {
  538.    pop show
  539.    }
  540.    {
  541.    1 index sm dup 0 eq 3 index 0 le or
  542.       {
  543.       pop length div
  544.       0 3 -1 roll ashow
  545.       }
  546.       {
  547.       10 mul exch length add div
  548.       dup 10 mul 0 32 4 -1 roll 0 6 -1 roll awidthshow
  549.       }ifelse
  550.    }ifelse
  551. }ifelse
  552. }def
  553. /ss
  554. {  /pft currentfont def sa aload pop pop /|----2Symbol 4 1 roll
  555.    {pop{as}}
  556.    {{{ao}}{{fnt}}ifelse}ifelse
  557.    exch pop exec exch pop
  558. }def
  559. /pf{pft dup setfont}def
  560. /rs
  561. {
  562.    sa 2 get
  563.    {
  564.    gsave
  565.    1 index 0
  566.    currentfont
  567.    dup /FontInfo known
  568.       {
  569.       /FontInfo get
  570.       dup /UnderlinePosition known
  571.          {
  572.          dup /UnderlinePosition get 1000 div ps mul
  573.          }
  574.          {
  575.          ps 10 div neg   %15 makes line closer to text
  576.          }ifelse
  577.       exch
  578.       dup /UnderlineThickness known
  579.          {
  580.          /UnderlineThickness get 1000 div ps mul
  581.          }
  582.          {
  583.          pop
  584.          ps 15 div       %20 makes slightly narrower line
  585.          }ifelse
  586.       }
  587.       {
  588.       pop
  589.       ps 10 div neg   %15 makes line closer to text
  590.       ps 15 div       %20 makes slightly narrower line
  591.       }ifelse
  592.    setlinewidth
  593.    0 setgray
  594.    currentpoint 3 -1 roll sub moveto
  595.    sa 4 get{gsave currentlinewidth 2. div dup rmoveto currentpoint xl 2 copy rlineto
  596.    stroke grestore}if
  597.    sa 3 get sa 4 get or 3 1 roll 2 index{gsave 1 setgray 2 copy rlineto stroke grestore}if
  598.    rlineto{strokepath 0 setlinewidth}if stroke
  599.    grestore
  600.    }if
  601.    tv
  602. }
  603. def
  604.  
  605. /macvec 256 array def
  606. macvec 0
  607. /Times-Roman findfont /Encoding get
  608. 0 128 getinterval putinterval macvec 39 /quotesingle put
  609.  /dotlessi /grave /circumflex /tilde /cedilla /registerserif /copyrightserif /trademarkserif
  610. macvec 0 8 getinterval astore pop
  611.  /Adieresis /Aring /Ccedilla /Eacute /Ntilde /Odieresis /Udieresis /aacute
  612.  /agrave /acircumflex /adieresis /atilde /aring /ccedilla /eacute /egrave
  613.  /ecircumflex /edieresis /iacute /igrave /icircumflex /idieresis /ntilde /oacute
  614.  /ograve /ocircumflex /odieresis /otilde /uacute /ugrave /ucircumflex /udieresis
  615.  /dagger /ring /cent /sterling /section /bullet /paragraph /germandbls
  616.  /registersans /copyrightsans /trademarksans /acute /dieresis /notequal /AE /Oslash
  617.  /infinity /plusminus /lessequal /greaterequal /yen /mu /partialdiff /summation
  618.  /product /pi /integral /ordfeminine /ordmasculine /Omega /ae /oslash
  619.  /questiondown /exclamdown /logicalnot /radical /florin /approxequal /Delta /guillemotleft
  620.  /guillemotright /ellipsis /space /Agrave /Atilde /Otilde /OE /oe
  621.  /endash /emdash /quotedblleft /quotedblright /quoteleft /quoteright /divide /lozenge
  622.  /ydieresis /Ydieresis /fraction /currency /guilsinglleft /guilsinglright /fi /fl
  623.  /daggerdbl /periodcentered /quotesinglbase /quotedblbase /perthousand /Acircumflex /Ecircumflex /Aacute
  624.  /Edieresis /Egrave /Iacute /Icircumflex /Idieresis /Igrave /Oacute /Ocircumflex
  625.  /apple /Ograve /Uacute /Ucircumflex /Ugrave /dotlessi /asciicircum /asciitilde
  626.  /macron /breve /dotaccent /ring /cedilla /hungarumlaut /ogonek /caron
  627. macvec 128 128 getinterval astore pop
  628. FontDirectory
  629. {exch dup s30 cvs /@s xdf @s aps
  630.    {pop pop}
  631.    {exch dup length dict /tmp xdf
  632.       cf
  633.       /Symbol ne {mv} if
  634.       /@i false def /@o false def /@b false def
  635.       mark @s (Italic) search {/@i true def} if (Oblique) search {/@o true def} if
  636.       (Bold) search {/@b true def} if (Roman) search pop (-) search pop /@s xdf cleartomark
  637.       @s cvn dup /Symbol eq{pop 50}{/Courier eq{51}{49}ifelse}ifelse
  638.       s30 0 @s length 6 add getinterval dup 6 @s putinterval dup 0 (|-----) putinterval
  639.       @b {dup 1 66 put} if @i @o or {dup 2 73 put} if % @o {dup 2 79 put} if
  640.       dup 5 4 -1 roll put
  641.       cvn tmp definefont pop
  642.    }ifelse
  643. }forall
  644. /_--C-2Symbol /Symbol findfont /tmp 1 index maxlength 1 add dict def cf tmp /PaintType 1 put tmp definefont
  645. /|----4Seattle /Helvetica findfont dup length 1 add dict /tmp xdf cf mv
  646. /mxv [/zero /one /two /three /four /five /six /seven /eight /nine /comma /period /dollar /numbersign
  647. /percent /plus /hyphen /E /parenleft /parenright /space] def
  648. tmp /Metrics 21 dict dup begin mxv{600 def}forall end put
  649. tmp begin /FontBBox FontBBox [0 0 0 0] astore def end
  650. tmp definefont pop
  651. /od{txpose 10 fz 0 fs F /|----3Courier fnt pop}def
  652. /op{/scaleflag false def /pm save def}def
  653. /cp{pm restore}def
  654. end
  655. %
  656. % eexec reads the PSHX resources
  657. %currentfile eexec
  658. <652E29AE551935C9A82086907FB876D510EC4D451220E0F80D63DBC0EA379346
  659. C055B673F7BED773F332BDE5107DC0B1322DF36267320C226DBEBD9299B29C86
  660. 5D1876ABB7E19F6A45F52C588810FD0A9FFBB1073AD1B6BDCA3D2BAE3283AC88
  661. 35259ADDA98433676B8B757B19473F2C0C3D36AF93B3DD15AFC47F4D3BECB87B
  662. ABAAB5613FCD319A712E7D4A8C5A3C0BA96A376CC93C52ABDE43A980670C1E6B
  663. 78E4D14D5CA032FE07255D5E5A084CCF4B8E23C64F574932EA53E8CD7F00F47B
  664. 4179A6DAFE3BC43B1D091902E6E4B5699C7322FC23B5FBE833E4114C4544E29E
  665. 6225A5B48E6F2A840F44E827681E1AC9F28EB8FEC32105CA4056D863BCAECE65
  666. 1AAF3B12BC38A77CA241A66FAE92939A6EFACD49711E5D7355E634041C378FFC
  667. 1F3BF8B903E5F8961E7480259EB0AA90B0C38E75D264ACE71F1307D4894BFDCF
  668. 9C9D0F3C026BA190A3F6F7E06F3ED092E8CF0D4F22AD6C55C6FED836290F9611
  669. 442BF4DEDBBA0B67D2AF782A796D474ECE7B2B788B4771D4BBCDF0E8F48A2874
  670. D1CF78D3B1C5AA2987C6A22135B1508C7C5EC5AD86ABAE8D1E34A5314F703337
  671. C7A2C0CF52DBBF046F0BD67BE5E65AAD9CE43FAB6E7C9F669801849C9366E5AE
  672. 76C77D8DDBF188CD18C120FEA4C1B510FC00434A2629BB82A9336EB36A5D5552
  673. F4971ED40EF839771762E60509A2A3214DEA9C58C2E53E76CE24B99E3C472719
  674. C66B31A38DE21135FF1390CCA7E0F6B92CEEAF9524317A427DA7CB9B4ED08BF0
  675. 9868FCD9ECAAFF2C520E0EAAB8730FD6CE85B4ACAEE82FC53C5D948C8858A8A3
  676. CF945546556FB3DC9CE69D87BD793DAC57E3F4FB9D056C163C3EE134EDDF7B7D
  677. 186C9A0D79759CD9BF94A4B1E2A6070727DFC08806828B53799090725D4B2D6E
  678. 9BCB6C2B90AA4E47D1774F3A58868E4EB3464C7FB07854CE66E3AB03A5D515A1
  679. 69AC0EA62BAE9A2A419C9AAB14F09A864F4228A098FB288B60E87B85EB16A6D4
  680. EF27B835BAC40E45BF48F78E6CE74AE0C1E81316F630BFE0D7661116B6A92187
  681. 9A1036437280BDA64F85CB37CA0DDBF827C3E4885F1C75E3C84CB8EBED892810
  682. 450DA08029A611AEE126FD6BEFF6830EDA28E4C54649D93C23270703B2F7FEAA
  683. A6524192A2D7F1151B2827EF4B27C823D385EA683F024299B1EFE64871AFD4CD
  684. 6C54C484AA53030CC7F8254BF9E525A00E51867660A3409BECA98DEB37A568F6
  685. D1026ECBFCCF8C9B9BFD11CE017CB2271E7BDEE1D459FFA23062D5B42552C04B
  686. 9BC02C0D7F5CC926ABE694A185FDE2ECC76506DEF1435CBC1225475E4D98A04C
  687. 2CF1DD03915DEB659BC23DE29A6E6734CF49CE39A1BF450A55B0F14D350E79B0
  688. 5C690B84003AB669678B3A416828F376F78946C44009A14A49ED90980B6E4589
  689. 56D188D9AC3FA7F781C8670C83B403B73237B6B0C2862C51C33D559C005D6C9D
  690. D39914B79DBE81291EF8D7CE3EC844176FB7C08A6F344E26C0563C29FCC3B0CB
  691. 2CCCF9412832300CBCDE6BFF39A8804ACCB8375752EEECB1BBA0851ED8DF9E17
  692. 4A5C747E354402DE217C6A7DE35BDE29F50284F66EC5F9DC0032FE3E05842472
  693. 6F9E50555FCBEFF246264D503DCFEB5C5F3384798E5C622FD0450DC62DCE36CA
  694. 9007DBA236A7CE56A57C0B0C531AC5766684DE4BDD2DFEC3BA4D99B930B2EDB2
  695. 0C2AC0F032BB6E5C75AF97AE24DD7FF33FA0F643BBB39331E7E4A474ED5612A1
  696. 7AEF558F8281D4E9EC01AC3D04C4A4C4B8A67F7A6199BA35448298E177554A20
  697. 81DFA1E8D1BC88BDB9938CFEC498918BF3AD690924F295A03D17F28C5FF47F43
  698. D495B74827BD54A2524F53750D4C030843986C97B59A63E08EFB9B14582088BA
  699. FC257BCEF07F2E4B8DCADCC9FAEF7388055483470D5FA4A8CE8CC118CA91FAA5
  700. B0DCCC7F3638A2F9F40628186990C2EE0E25B0FB34DAD8521A6735485ADBE4DD
  701. 7A937036C5EF7E741FF4543FDEE19DD0CFF59A89656F80F8E5E84C10878CB651
  702. 0DD3C3C7A346AC1877FFA88E5ADDCFF95D37163A5350AA5C71BB801ACB0D0FA1
  703. 154DE2C2D039CAAB85F389554044E8F90F9992DEBCCBEACE55F69E31061FB052
  704. A25343ECBEDE16C8999218AF370378901B36655D83D4B9BC5F4F43B361BB2134
  705. 3A88E0350E5C4342407DEFA79877B3C5DAFE15B0F58520FDBE5B8362BE3549AE
  706. 03BD77CDFEC962C539252312ECC5D841F55BEBAD9F7BB03A2D2CAC844E82A568
  707. 7CB2D8E599E356D9A23802439B056F1CC104F9F0D3F01EE2593C59483154FCCA
  708. 3973F487593C9DE94FC0863B6669100B46AFC5B261493A4B50CB9F802EBC31AB
  709. 7B7903A1957EA078A0C4D90E204E44335131C9B65F15D3E5C9A87ADAA7FE5E49
  710. D3654F021F460E5E2AC56A69E8F50E45B0D859D8EC27333DF2AE409015973D7E
  711. ED59F45720DD271D081F3DF62032358E0D4B1D4A528FB4E96A6B2007E13E55E2
  712. 10DAED32AF76F3396D60295D116EC4EE4D42DF4BC764ED9BC11A369FE070815F
  713. FEB5662551561354788EFA98612D09BC964428767E0CBE5DC3EC5B599E9B2074
  714. AA3D446752A4E34485C3D111034676AF67EE5345263E883CF46C8BEF1BD4D51D
  715. D2B625481880254888AB0C186E2D0549F657E59026E2A3C49FE0DFD2A2CAD076
  716. 586B6F248C11E81C41F9525A5D2F77CE5D76FD9104F39F4E4E31CF75045A9061
  717. B16B20CDC2AFD0595F5B6ADF45CA0DC6A37C4ED090AADCFE9EA7847217777A8E
  718. 88C7FBC247EC02973EF656BF1A4A2E71ED21142EC48CC9FDBF5EAE8B46C3E477
  719. 59D9C304C6862D43AF1DE66B44B4AC18B47C6518FA5747D3D8C9A19612DAEE4E
  720. 83C141561421A1360FD847997148932568D3E6CA93BF0D5874BCD90A3A363739
  721. 1FAD35F574797D6160BD4F1AEC3A326D5D73C9BD699C41524B18BC6CDF9169E7
  722. 51FFAB19B9FD7ABE3B2F9D3E0F67ADB05CA85D484ACBC84E287DAA1EDC3BCD95
  723. 694EF05F77A59004B1C3E223AA4A5A063EC238B4A5A25D335FA51B165963621F
  724. 57B7F2C54E59CFED574370399A03E2DFB0F1E35678A6A509A912ED27AD755C67
  725. E045CC1CFEFE41CAD8EA73DD666757D90170EF9C3F218120F38FC1D38224160E
  726. 7F5DE6BDF39665FF231079296B94A7DE674847D299C711E77C9DA408FF9CDCFA
  727. 8F7FE175BE275EB0AE21512D074DBDDCF1CDF75642EF656E2555F9F3E60A2822
  728. F214CC81EEF0E4866387799F21B1F4B296E7F3A2206795457A33E85B397A5F20
  729. 10809D1F43B2267BD762A6CC12DF31BB0817496FE666A6955CD2BA96549B4D1F
  730. 827E54A835ABA03B1079F1F5C3C4D2F4F698D3C235BDFA829F079A0DCF788913
  731. 77B31EBACF4E61A01487ED1F80ABBF5CF000B1EAA8527EC6064AB06B921916CB
  732. 65045B86E9BB2D2E854C5124C218B6FDA0732ABF424EE1696BC86F8987E48CC5
  733. 038C8A557E9534A48E7C55F21F021AA7A370A7CC1B55E777972883433F454450
  734. D18ABFC489D5AA518171884FB7103D92E479ECAEA449341F7C8DB1BD39ECB1ED
  735. 45AF5D9628EF37CAF8DB3C9A65856A97FB9698DD68F8BE27B3C4174F1838C7A0
  736. 674A9460333A059BF214C0690F35BC0352AF9B82CB0F46EAE63A3C0302B4118D
  737. 9E65479030F1EFE34909FA458E31A500483B68601B480D51B7FFCD004A1B5360
  738. 905B88019BC3EF0FF064AC6477442573C18EF7090E2C08EAA1A9>
  739. eexec
  740.