🚀 go-pugleaf

$@8VED!w6eBg$G$9!#(J
$@;d$b$3$&$$$&$N$J$$$+$J$H;W$C$?$3$H$,$"$j$^$7$?!#(J

In article <1992Oct19.100420.6017@kuamp.kyoto-u.ac.jp> ishidakz@kuamp.kyoto-u.ac.jp (Kazuo Ishida) writes:

> $@4A;z$H%"%k%U%!%Y%C%H$N:.$6$C$?J8$r=PNO$9$k$H$-(J
> ($@N,(J)

$@<!$N%W%m%0%i%`$r;n$7$F$/$@$5$$!#(JEUC$@MQ$G$9!#(J
-----$@$3$3$+$i(J
%! PS-Adobe-1.0
%%DocumentFonts:Times-Roman,Ryumin-Light-H
%%Title:eshow.ps
%%Creator: komoda@csce.kyushu-u.ac.jp
%%CreationDate: Thu Aug 20,1992
%%Pages: 1
%%EndComments

% define Ryumin-Times-H font
50 dict begin
  /FontName /Ryumin-Times-H def
  /FontType 0 def
  /WMode 0 def
  /FMapType 3 def
  /FontMatrix matrix def
  /Encoding [0 1] def
  /FDepVector
  [/Times-Roman findfont [1 0 0 1 0 0.01] makefont
   /Ryumin-Light-EUC-H findfont
  ] def
  FontName currentdict
end
definefont pop

/eshow {
  /str exch def
  /sstr 11 string def
  /strlng str length def

  /idx 0 def
  /sidx 0 def
  {
    idx strlng ge { exit } if
    str idx get 128 lt
     {
      % ASCII
      /sstr (\377\000 ) def
      sstr 2  str idx 1 getinterval  putinterval
      sstr show
    /idx idx 1 add def
     } {
      % EUC
      /sstr (\377\001  ) def
      sstr 2  str idx 2 getinterval  putinterval
      sstr show
    /idx idx 2 add def
     } ifelse
  } loop

strlng
} def

/Ryumin-Times-H findfont [30 0 6 20 0 0] makefont setfont 

100 200 moveto
(times$@N5L@(J) eshow

showpage

-----$@$3$3$^$G(J

$@$D$$$G$K(Jstringwidth$@$K$D$$$F$b!"(J
-----$@$3$3$+$i(J
/estringwidth {
  /str exch def
  /sstr 11 string def
  /strlng str length def
  /idx 0 def
  /swdtx 0 def
  /swdty 0 def
  {
    idx strlng ge { exit } if
    str idx get 128 lt
     {
      % ASCII
      /sstr (\377\000\0) def
      sstr 2  str idx 1 getinterval  putinterval
      sstr stringwidth
      /swdtx exch swdtx add def
      /swdty exch swdty add def
    /idx idx 1 add def
     } {
      % EUC
      /sstr (\377\001\0\0) def
      sstr 2  str idx 2 getinterval  putinterval
      sstr stringwidth
      /swdtx exch swdtx add def
      /swdty exch swdty add def
    /idx idx 2 add def
     } ifelse
  } loop
  swdty swdtx
} def
----$@$3$3$^$G(J
$@$3$l$G$$$$$G$9$h$M!#(J
$@$3$N$^$^$G$OG=N($,$h$/$J$$$N$G!"$b$C$H2~A1$,I,MW$G$9$,!#(J
--$@!]0l(J
$@!~(J $@8VEDIR9T(J $@!~(J $@6eBg>pJs#M#1(J $@!~(J komoda@csce.kyushu-u.ac.jp $@!~(J
$@$b$&(JTeX$@;H$C$F$J$$$d(J^_^