🚀 go-pugleaf

$B$I$b!"IY;NDL8&$N@FF#$G$9!#(B

In article <970722162142.M0602477@gctech.co.jp>,
Shingo Ueda <zombi@gctech.co.jp> wrote:
>$B8=:_!"(BUnix$B>e$N(Btgif(Tgif-2.16J-p12)$B$G:n@.$7$?(BPS$B$r(BWindowsNT$B>e$N(B
>Adobe Acrobat-3.0J$B$N(BDistiller$B$rMQ$$$F(BPDF$B$KJQ49$,$G$-$::$$C$F(B
>$B$$$^$9!#(B

$B;d$bF1$87P83$r$7$^$7$?!#(B

>$B;W$&$K!"(Btgif$B$NJ8=q$KF|K\8l(Bfont$B$,$"$k>l9g$K%(%i!<$H$J$k$N$G!"(B
>tgif$B$,EG$-=P$9F|K\8l(BPS$B$KLdBj$,$"$k$N$+$HA[A|$9$k$N$G$9$,!"(B
>$BBP=hJ}K!$J$I$,4{$K$"$l$P!"%]%$%s%?!<$@$1$G$b$465<x$/$@$5$$!#(B

$B%(%i!<%a%C%;!<%8$K$"$k$h$&$K!"(BAcrobat-3.0J$B$N(BDistiller$B$O!"(B
tgif$B$G;HMQ$7$F$$$k(Bcompositefont$B$rG'<1$G$-$J$$$N$@$H;W$$$^$9!#(B

$B;d$O!"0J2<$N$h$&$KBP=h$7$?$i$&$^$/JQ49$9$k$3$H$,$G$-$^$7$?$N$G!"(B
$B;29M$K$7$F$_$F$/$@$5$$!#(B

  tgif$B$G$NBP=h(B

    $B!&1Q8l$HF|K\8l$r:.$<$F0l$D$N%F%-%9%H$H$7$F=q$$$F$"$k$b$N$O!"(B
      $BA4$FFHN)$5$;$k!#(B

  PostScript$B$KJQ498e$NBP=h(B

    $B!&(Beucfont$B$rDj5A$7$F$"$kItJ,$rA4$F:o=|$9$k!#(B
    $B!&1Q8l$@$1$N%F%-%9%H$O!"1Q8l%U%)%s%H$@$1$r;XDj$9$k!#(B
    $B!&F|K\8l$@$1$N%F%-%9%H$O!"F|K\8l%U%)%s%H$@$1$r;XDj$9$k!#(B

$B6qBNE*$K$O!"<!$N$h$&$J%Q%C%A$rEv$F$k%$%a!<%8$G$9!#(B

--- a.ps.orig	Wed Jul 23 18:52:31 1997
+++ a.ps	Wed Jul 23 18:53:10 1997
@@ -12,65 +12,6 @@
 /tgifdict 3 dict def
 tgifdict begin
 
-%
-%%Title: eucfont.ps
-%%Creator: shikida@cs.titech.ac.jp, ueno@cs.titech.ac.jp
-%%CreationDate: 1991-2-27
-%%EndComments
-
-% <font> copyfont <font>
-/copyfont {
-    dup maxlength 1 add dict begin
-    {
-	1 index /FID ne 2 index /UniqueID ne and
-	{def} {pop pop} ifelse
-    } forall
-    currentdict
-    end
-} bind def
-
-% <newfont> <asciifont> <kanjifont> eucfont
-/eucfont {
-    12 dict begin
-	dup type /nametype eq { findfont } if
-	dup /WMode known {
-	    dup /WMode get /WMode exch def
-	    WMode 1 eq {
-		[0.0 1.0 -1.0 0.0 0.0 0.30] makefont
-	    } if
-	} if
-	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
-	/kanjifont exch definefont
-	exch
-
-	dup type /nametype eq { findfont } if
-	exch
-
-	/FDepVector [ 4 2 roll ] def
-	/FontType 0 def
-	/FMapType 4 def
-	/FontMatrix matrix def
-	/Encoding [ 0 1 ] def
-	/FontBBox {0 0 0 0} def
-	dup /FontName exch def
-	currentdict
-    end
-    definefont pop
-} def
-
-end
-
 %%EndProlog
 %%Page: 1 1
 
@@ -90,15 +31,14 @@
 
 % TEXT
 0 setgray
-/Helvetica-Ryumin-Light-EUC-H /Helvetica /Ryumin-Light-EUC-H eucfont
-/Helvetica-Ryumin-Light-EUC-H findfont [14 0 0 -14 0 0] makefont setfont
+/Helvetica findfont [14 0 0 -14 0 0] makefont setfont
    gsave
       64 79 moveto (abc) show
    grestore
 
 % TEXT
 0 setgray
-/Helvetica-Ryumin-Light-EUC-H findfont [14 0 0 -14 0 0] makefont setfont
+/Ryumin-Light-EUC-H findfont [14 0 0 -14 0 0] makefont setfont
    gsave
       64 111 moveto (\244\242\244\244\244\246\244\250\244\252) show
    grestore

-- 
$B@FF#!wIY;NDL8&5f=j(B <cen122@flab.fujitsu.co.jp>