🚀 go-pugleaf

$B$O$8$a$^$7$F!"Bg85!w%;%3EE$G$9!#(B

Hideo YANO (hyano@tansei.cc.u-tokyo.ac.jp) wrote:
: $BElBg65M\J*M}$NLpLn$H$$$$$^$9!#(B

: $B4A;z(BTalk7.1$B$G!"4A;z(BTrueType$B%U%)%s%H$r(BLaserWriterII NTXJ$B$K=PNO$9$k$H!"(B
: $B0u:~$5$l$k$^$G$K$+$J$j$N;~4V$,$+$+$j$^$9!#(BHP$B$N(BDeskWriter$B$X$N=PNO$O$"$^(B
: $B$j;~4V$,$+$+$i$J$$$N$G!"B?J,$J$K$+$N%;%C%F%#%s%0$,$&$^$/$$$C$F$$$J$$$;(B
: $B$$$@$H;W$&$N$G$9$,!"$=$l$,$o$+$j$^$;$s!#$3$N$h$&$K%;%C%F%#%s%0$9$l$P$h(B
: $B$$$H$$$&>pJs$,$"$j$^$7$?$i65$($F$/$@$5$$!#(B

: $B!t(BDeskWriter$B$KHf$Y$F(BLaserWrite$B$X$N=PNO;~4V$O#1#0G\0J>e$b$+$+$C$F$7$^$$(B
: $B$^$9!#$3$s$J$K$+$+$C$A$c!";E;v$K$J$i$J$$!#(B

$BEz(B $B4A;z(B Talk 7 $B$N%j%e%&%_%s%i%$%H(B-KL $B$r!"(BLaserWriter II NTX-J $B$N:YL@D+BN(B
$B$G0u;z$9$kMM$K(B LaserWriter II NTX-J $B$K0J2<$N%]%9%H%9%/%j%W%H!&%U%!%$%k$r(B
$BN.$9;v$G<B8=$G$-$^$9!#$3$l$O!"$$$^$^$G$N4A;z(B Talk 6 $B$r;H$C$F$$$k?M$b(B
$B1F6A$,$G$J$$$N$H?7$7$/4A;z(B Talk 7 $B$N%f!<%6$,%M%C%H%o!<%/$GA}$($F$b(B
$BJQ99$9$kI,MW$,$"$j$;$s!#C"$7!"%]%9%H%9%/%j%W%H!&%U%!%$%k$rN.$9$N$O(B
LaserWriter II NTX-J $B$N%G%#%9%/!&%-%c%7%e$r%/%j%"!<$7$F$+$i$N$[$&$,(B
$B$$$$$H;W$$$^$9!#(B

 1 )$B%j%e%&%_%s%i%$%H(B-KL $BMQ(B
----- cut here cut here ----
%! install Ryumin-Light-KL
save
/Outfile (fonts/Ryumin-Light-KL) (w) file def
/buffer 128 string def 
/storefile 
{ { currentfile buffer readstring 
    exch Outfile exch writestring
    not { Outfile closefile exit } if
  } loop
  restore 
} def 
storefile 
%!PS-Adobe-2.0 
%%Title: Ryumin-Light-KL (ver1.0)
%%Creater:Toshi Omoto
%%CreationDate: 93.1.28
%%EndComments 
/Ryumin-Light-83pv-RKSJ-H findfont
dup maxlength dict begin 
{ 1 index /FID ne { def } { pop pop } ifelse } forall
/FontName /Ryumin-Light-KL def
FontName currentdict end definefont pop
%%End
----- cut here cut here ----

$B>\$7$$;v$O!"%^%C%/%o!<%k%I$N#47n9f$r8+$F$M!";d$,Ej9F$7$?5-;v$,:\$kM=Dj$G$9!#(B

--
	omoto@jkj.sii.co.jp
	$B;~7W20$N$7$,$J$$?&9)(B No.2 $BBg85!!9nIR(B