🚀 go-pugleaf

$@Iw4V!w#N#T#T%=%U%H8&$G$9!#(J

In article <2295@akiu.gw.tohoku.ac.jp> kikuchi@noguchi.riec.tohoku.ac.jp (Toshiaki Kikuchi) writes:
 >   $@5FCO!w(J$@ElKLEENO$G$9!#(J
 > $@3X@8$N:"#J#2$G8f0l=o$5$;$F$$$?$@$-$^$7$?$1$I!"3P$($F$*$$$G$G$9$+!)(J

$@!!A0A02s$G$7$?$C(J$@$1!)(J

$@!t(J $@$"$^$j;d$N5-21$r$"$F$K$7$J$$$G$/$@$5$$(J:-P

 > ------------------------+---------------------------------------+-------+
 > $@%a!<%+!<!&@=IJL>(J	|$@%a%b%j(J, CPU, $@%/%m%C%/(J, $@2rA|EY(J		|	|
 > PS$@%P!<%8%g%s(J		|PPST-G	PPST-R	PPST-M			| PPST	|
 > ------------------------+---------------------------------------+-------+
 > XEROX 4109		|20MB, XL-8220, ?, 400dpi		|	|
 > 2.16			| 31.7	1025.2	12.9			|  32.9 |
 > ------------------------+---------------------------------------+-------+
 > 
 >   $@$d$C$Q$j>/?tGI$_$?$$(J$@$G$9$M!#(Jpostscript $@$b(J Adobe $@=c@5$8$c$J$$$7!#(J
 > PPST-R $@$N?t;z$K$O$S$C$/$j$7$^$7$?!#$$$-$J$j7e$,0c$&$s(J$@$@$b$s!#(J

$@!!(JXEROX 4109$@$C$F!"%$%s%?!<%W%j%?$O%o!<%/%9%F!<%7%g%s$NJ}$K$"$k$s$G$7$?$C(J
$@$1!)IaDL$N%]%9%H%9(J$@%/%j%W%H%W%j%s%?$J$iB.$$$1$I!"$=$&$G$J$$$J$i$"$^$jB.(J
$@$/$O$J$$$G$9$M$(!D!#(J

 >   $@JX>h$7$F<ALd$5$;$F$/$@(J$@$5$$!#$3$N(J 4109 $@$G0JA0H>ED$5$s$,%]%9%H$5$l$?%+(J
 > $@%;%C%H%l!<%Y%k0u:~%-%C%H$r;H$C$F$_$?$s$G$9$,!"4A;z$,(J$@=P$^$;$s$G$7$?!#(J
 > $@$=$3$G%U%)%s%H$NItJ,$@$1(J 4109 $@$G%5%]!<%H$7$F$k%U%)%s%H$K$7$?$s$G$9$,!"(J
 > $@7k2L$OF1(J$@$8$G$7$?!#$I$&$9$l$PNI$$$s$G$7$g$&$+!)(J

$@!!1Q;z$O@5>o$K0u;z$5$l$k$1$I!"4A;z$O1Q;z$H$7$F0u;z$5$l$k$N$+$J(J$@!)H>ED$5(J
$@$s$N%W%m%0%i%`$O(Jsetcachedevice2$@%*%Z%l!<%?$NM-L5$GF|K\8l$,;H$($k$+$I$&(J
$@$+$rH=JL$7$F$$$k$1$I!"(J$@$b$7$+$7$F(JXerox4109$@$O$3$N%*%Z%l!<%?$,$J$$$N$G1Q(J
$@8lHG$H$7$F=hM}$7$F$$$k$N$+$J$"!D!#(J

$@!!$H$j$"$($:<!$N%Q(J$@%C%A$rEv$F$F;n$7$F$_$F$/$@$5$$!#$3$l$OD>@\4A;z%U%)%s(J
$@%H$NM-L5$r8!=P$9$k$h$&$K$7$F$"$j$^$9!#(J

*** cmpfont.ps.org	Fri Jul  5 18:28:32 1991
--- cmpfont.ps	Sat May  9 01:35:09 1992
***************
*** 24,55 ****
  } bind def
  
  /compositefont {	% ASCIIFontName EUCFontName  compositefont  font'
!     12 dict begin
!     findfont 1 copyfont dup begin
!     /Encoding Encoding
!     FMapType dup 2 eq {
! 	pop 128 128
!     } { 5 eq {
! 	256 256
!     } {
! 	/compositefont errordict /invalidfont get exec
!     } ifelse } ifelse
!     getinterval def
!     end /eucfont exch definefont
!     exch
!     findfont 1 copyfont dup begin
!     /FontMatrix FontMatrix [1 0 0 1 0 0.05] matrix concatmatrix def
!     end /asciifont exch definefont
!     exch
!     /FDepVector [ 4 2 roll ] def
!     /FontType 0 def
!     /WMode 0 def
!     /FMapType 4 def
!     /FontMatrix matrix def
!     /Encoding [0 1] def
!     /FontBBox {0 0 0 0} def
!     currentdict
!     end
  } def	
  
  /slantfont {	% FontName slant-degree  slantfont  font'
--- 24,63 ----
  } bind def
  
  /compositefont {	% ASCIIFontName EUCFontName  compositefont  font'
!     findfont dup /FontType get 0 eq {
! 	12 dict begin
! 	    1 copyfont dup begin
! 		/Encoding Encoding
! 		FMapType dup 2 eq {
! 		    pop 128 128
! 		}{
! 		    5 eq {
! 			256 256
! 		    }{
! 			/compositefont errordict /invalidfont get exec
! 		    } ifelse
! 		} ifelse
! 		getinterval def
! 	    end
! 	    /eucfont exch definefont
! 	    exch
! 	    findfont 1 copyfont dup begin
! 		/FontMatrix FontMatrix [1 0 0 1 0 0.05] matrix concatmatrix def
! 	    end
! 	    /asciifont exch definefont
! 	    exch
! 	    /FDepVector [ 4 2 roll ] def
! 	    /FontType 0 def
! 	    /WMode 0 def
! 	    /FMapType 4 def
! 	    /FontMatrix matrix def
! 	    /Encoding [0 1] def
! 	    /FontBBox {0 0 0 0} def
! 	    currentdict
! 	end
!     }{
! 	pop findfont 0 copyfont
!     } ifelse
  } def	
  
  /slantfont {	% FontName slant-degree  slantfont  font'
***************
*** 60,67 ****
      end
  } def
  
- systemdict /setcachedevice2 known {	% check if $@F|K\8l(J PostScript
- 					% There should be a better way!
  /Courier-Bold-Gothic
  	/Courier-Bold /GothicBBB-Medium-EUC-H compositefont definefont pop
  /Courier-Ryumin
--- 68,73 ----
***************
*** 81,97 ****
  /Times-Bold-Gothic-Italic
  	/Times-BoldItalic /GothicBBB-Medium-EUC-H-Slant compositefont
  	definefont pop
- } {				% Not $@F|(J$@K\8l(J PostScript
- 
- /Courier-Bold-Gothic /Courier-Bold findfont 0 copyfont definefont pop
- /Courier-Ryumin /Courier findfont 0 copyfont definefont pop
- /Times-Ryumin /Times-Roman findfont 0 copyfont definefont pop
- /Times-Gothic /Times-Roman findfont 0 copyfont definefont pop
- /Helvetica-Gothic /Helvetica findfont 0 copyfont definefont pop
- /Times-Ryumin-Italic /Times-Italic findfont 0 copyfont definefont pop
- /Times-Bold-Gothic-Italic /Times-BoldItalic findfont 0 copyfont definefont pop
- 
- } ifelse
  %%EndProcSet
  
  %%EndProlog
--- 87,92 ----
*** head.ps.org	Sat May  9 01:18:27 1992
--- head.ps	Sat May  9 01:28:49 1992
***************
*** 7,14 ****
  
  save /initial-state exch def
  
- /JPS systemdict /setcachedevice2 known def
- 
  72 25.4 div dup scale	% use mm for global measure unit
  
  /labeldict 50 dict def
--- 7,12 ----
***************
*** 68,74 ****
  /reardict 50 dict def
  reardict begin
  
! /rear-font-name JPS {/Helvetica-Gothic} {/Helvetica} ifelse def
  /rear-scale-max 11 point def
  /rear-top-margin v-margin def
  /rear-bottom-margin v-margin 1 add def
--- 66,72 ----
  /reardict 50 dict def
  reardict begin
  
! /rear-font-name /Helvetica-Gothic def
  /rear-scale-max 11 point def
  /rear-top-margin v-margin def
  /rear-bottom-margin v-margin 1 add def
***************
*** 121,129 ****
  /back-left-margin 2 def
  /back-top-margin 0 def
  /back-bottom-margin 1 def
! /title-font-name JPS {/Helvetica-Gothic} {/Helvetica} ifelse def
! /artist-font-name
! 	JPS {/Times-Bold-Gothic-Italic} {/Times-BoldItalic} ifelse def
  /back-scale-max-normal 15 point def
  /back-scale-max-slim 13 point def
  /by-string (   by ) def
--- 119,126 ----
  /back-left-margin 2 def
  /back-top-margin 0 def
  /back-bottom-margin 1 def
! /title-font-name /Helvetica-Gothic def
! /artist-font-name /Times-Bold-Gothic-Italic def
  /back-scale-max-normal 15 point def
  /back-scale-max-slim 13 point def
  /by-string (   by ) def
***************
*** 272,278 ****
  
  /front-v-margin 2 def
  
! /side-font-name JPS {/Helvetica-Gothic} {/Helvetica} ifelse def
  /side-scale 20 point def
  /side-font {
  	side-font-name findfont side-scale scalefont setfont
--- 269,275 ----
  
  /front-v-margin 2 def
  
! /side-font-name /Helvetica-Gothic def
  /side-scale 20 point def
  /side-font {
  	side-font-name findfont side-scale scalefont setfont
***************
*** 316,322 ****
      grestore
  } def
  
! /front-font-name JPS {/Times-Gothic} {/Times-Roman} ifelse def
  /front-scale 11 point def
  /front-font {
      front-font-name findfont front-scale scalefont setfont
--- 313,319 ----
      grestore
  } def
  
! /front-font-name /Times-Gothic def
  /front-scale 11 point def
  /front-font {
      front-font-name findfont front-scale scalefont setfont
***************
*** 338,344 ****
      grestore
  } def
  
! /comment-font-name JPS {/Times-Ryumin-Italic} {/Times-Italic} ifelse def
  /comment-scale front-scale 2 point sub def
  /comment-font {
      comment-font-name findfont comment-scale scalefont setfont
--- 335,341 ----
      grestore
  } def
  
! /comment-font-name /Times-Ryumin-Italic def
  /comment-scale front-scale 2 point sub def
  /comment-font {
      comment-font-name findfont comment-scale scalefont setfont
***************
*** 591,602 ****
  innerdict begin
  
  /inner-frame-width 2 def
! /inner-font-name JPS {/Helvetica-Gothic} {/Helvetica} ifelse def
  /inner-scale 10 point def
  /inner-font {
      inner-font-name findfont inner-scale scalefont setfont
  } def
! /inner-side-font-name JPS {/Times-Ryumin-Italic} {/Times-Italic} ifelse def
  /inner-side-scale inner-scale def
  /inner-side-font {
      inner-side-font-name findfont inner-side-scale scalefont setfont
--- 588,599 ----
  innerdict begin
  
  /inner-frame-width 2 def
! /inner-font-name /Helvetica-Gothic def
  /inner-scale 10 point def
  /inner-font {
      inner-font-name findfont inner-scale scalefont setfont
  } def
! /inner-side-font-name /Times-Ryumin-Italic def
  /inner-side-scale inner-scale def
  /inner-side-font {
      inner-side-font-name findfont inner-side-scale scalefont setfont
--
	$@Iw4V0lMN(J (kazama@square.ntt.jp)
	NTT$@%=%U%H%&%'%"8&5f=j(J $@%=%U%H%&%'%"4pAC5;=Q8&5fIt(J
	$@J,;67?%=%U%H%&%'%"8&5f%0%k!<%W(J