home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 November / Pcwk1197.iso / Corel / PROGRAMS / DATA / TEXT70.PS < prev    next >
Text File  |  1996-04-10  |  2KB  |  30 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/@ftx{{currentpoint 3 -1 roll(0)dup 3 -1 roll 0 exch put dup @gs true
  17. charpath $ctm setmatrix @@txt @gr @np stringwidth pop 3 -1 roll add exch m}
  18. forall}bd/@ft{matrix currentmatrix exch $sdf{$scf $sca $scp @ss}if $fil 1 eq
  19. {/@@txt/@pf ld @ftx}{$fil 2 eq{/@@txt/@ff ld @ftx}{$fil 3 eq{/@@txt/@Pf ld
  20. @ftx}{$t $c $m $y $k $n $o @scc_5{show}{pop}ifelse}ifelse}ifelse}ifelse $sdf
  21. {$dsf $dsa $dsp @ss}if setmatrix}bd/@st{matrix currentmatrix exch $SDF{$SCF
  22. $SCA $SCP @ss}if $T $C $M $Y $K $N $O @scc_5{{currentpoint 3 -1 roll(0)dup 3 -1
  23. roll 0 exch put dup @gs true charpath $ctm setmatrix $ptm concat stroke @gr @np
  24. stringwidth pop 3 -1 roll add exch m}forall}{pop}ifelse $SDF{$dsf $dsa $dsp
  25. @ss}if setmatrix}bd/@te{@ft}bd/@tr{@st}bd/@ta{dup @gs @ft @gr @st}bd/@t@a{dup
  26. @gs @st @gr @ft}bd/@tm{@sm concat}bd/e{/t{@te}def}bd/r{/t{@tr}def}bd/o{/t{pop}
  27. def}bd/a{/t{@ta}def}bd/@a{/t{@t@a}def}bd/t{@te}def/T{@np $ctm setmatrix/$ttm
  28. matrix def}bd/ddt{t}def/@t{/$stm $stm currentmatrix def 3 1 roll m $ttm concat
  29. ddt $stm setmatrix}bd/@n{/$ttm exch matrix rotate def}bd/@s{}bd/@l{}bd
  30.