home *** CD-ROM | disk | FTP | other *** search
/ CorelDRAW! 10 / cd10_pgrm.iso / Corel / Graphics10 / Programs / Data / text100.ps < prev    next >
Encoding:
Text File  |  2000-09-05  |  2.5 KB  |  33 lines
  1. /z{exch findfont exch scalefont setfont}bd/ZB{9 dict dup begin 4 1 roll
  2. /FontType 3 def/FontMatrix xd/FontBBox xd/Encoding 256 array def 0 1 255{
  3. Encoding exch/.notdef put}for/CharStrings 256 dict def CharStrings/.notdef{}
  4. put/Metrics 256 dict def Metrics/.notdef 3 -1 roll put/BuildChar{exch dup
  5. /$char exch/Encoding get 3 index get def dup/Metrics get $char get aload pop
  6. setcachedevice begin Encoding exch get CharStrings exch get end exec}def end
  7. definefont pop}bd/ZBAddChar{findfont begin dup 4 1 roll dup 6 1 roll Encoding 3
  8. 1 roll put CharStrings 3 1 roll put Metrics 3 1 roll put end}bd/Z{findfont dup
  9. maxlength 2 add dict exch dup{1 index/FID ne{3 index 3 1 roll put}{pop pop}
  10. ifelse}forall pop dup dup/Encoding get 256 array copy dup/$fe xd/Encoding exch
  11. put dup/Fontname 3 index put 3 -1 roll dup length 0 ne{0 exch{dup type 0 type
  12. eq{exch pop}{$fe exch 2 index exch put 1 add}ifelse}forall pop}if dup 256 dict
  13. dup/$met xd/Metrics exch put dup/FontMatrix get 0 get 1000 mul 1 exch div 3
  14. index length 256 eq{0 1 255{dup $fe exch get dup/.notdef eq{pop pop}{5 index 3
  15. -1 roll get 2 index mul $met 3 1 roll put}ifelse}for}if pop definefont pop pop
  16. }bd/CorelIsValidCharpath{pathbbox 3 -1 roll sub abs 0.5 ge 3 1 roll sub abs 0.5
  17. ge and}bd/@ftx{{currentpoint 3 -1 roll(0)dup 3 -1 roll 0 exch put dup @gs true
  18. charpath $ctm setmatrix CorelIsValidCharpath{@@txt}if @gr @np stringwidth pop 3
  19. -1 roll add exch m}forall}bd/@ft{matrix currentmatrix exch $sdf{$scf $sca $scp
  20. @ss}if $fil 1 eq{/@@txt/@pf ld @ftx}{$fil 2 eq{/@@txt/@ff ld @ftx}{$fil 3 eq
  21. {/@@txt/@Pf ld @ftx}{$fil 4 eq{/@@txt/CorelShfillDoFill ld @ftx}{$t $c $m $y $k
  22. $n $o @scc_5{show}{pop}ifelse}ifelse}ifelse}ifelse}ifelse $sdf{$dsf $dsa $dsp
  23. @ss}if setmatrix}bd/@st{matrix currentmatrix exch $SDF{$SCF $SCA $SCP @ss}if $T
  24. $C $M $Y $K $N $O @scc_5{{currentpoint 3 -1 roll(0)dup 3 -1 roll 0 exch put dup
  25. @gs true charpath $ctm setmatrix $ptm concat stroke @gr @np stringwidth pop 3
  26. -1 roll add exch m}forall}{pop}ifelse $SDF{$dsf $dsa $dsp @ss}if setmatrix}bd
  27. /@te{@ft}bd/@tr{@st}bd/@ta{dup @gs @ft @gr @st}bd/@t@a{dup @gs @st @gr @ft}bd
  28. /@tm{@sm concat}bd/e{/t{@te}def}bd/r{/t{@tr}def}bd/o{/t{pop}def}bd/a{/t{@ta}
  29. def}bd/@a{/t{@t@a}def}bd/t{@te}def/T{@np $ctm setmatrix/$ttm matrix def}bd/ddt
  30. {t}def/@t{/$stm $stm currentmatrix def 3 1 roll m $ttm concat ddt $stm
  31. setmatrix}bd/@n{/$ttm exch matrix rotate def}bd/@s{}bd/@l{}bd/_lineorientation
  32. 0 def/_bitfont null def/_bitlobyte 0 def/_bitkey null def/_bithibyte 0 def
  33.