From: kazama@square.ntt.jp (Kazuhiro Kazama)
Newsgroups: fj.lang.postscript
Subject: Re: on the \special command for TeX to included Mac PostScript files
Date: 14 Aug 92 13:44:41 GMT
	<1992Jul20.090022.12388@ee.t.u-tokyo.ac.jp>
	<MURAYAMA.92Aug9190405@benten.tuhep.phys.tohoku.ac.jp>
	<MURAYAMA.92Aug10103926@tuhep.tuhep.phys.tohoku.ac.jp>
	<3vm.cqhao@lab.ntt.jp> <HANDA.92Aug11125353@etlk
Distribution: fj
Organization: NTT Basic Research Laboratories, Tokyo, Japan.

$@Iw4V!w#N#T#T4pAC8&$G$9!#(J

In article <HANDA.92Aug11125353@etlken.etl.go.jp> handa@etlken.etl.go.jp (Kenichi Handa) writes:
 > In article <3vm.cqhao@lab.ntt.jp>
 > 	   kazama@square.ntt.jp (Kazuhiro Kazama) writes:
 > >> $@!!(JTeX$@$G(JPostScript$@$N%U%)%s%H$r;H$&J}K!$O3N$+$K#2$D$"$j$^$9!#(J
 > >> $@#1!"(JTeX$@$G;H$o$l$F$$$k%U%)%s%H$N(Jtfm$@$K(JPostScript$@$N%U%)%s%H$r9g$o$;$k!#(J
 > 
 > $@@h$KKM$,Ej9F$7$?J}K!$b(J$@$3$&$7$F$$$^$9!#(J

$@!!(JOzTeX$@$G$O$=$N$^$^;H$&$H4A;z%U%)%s%H$NBg$-$5$,$*$+$7$$$N$G$9$,!"(Jdvips
$@$G$OBg>fIW$G(J$@$9$+!)(J

$@!!$"$HH>ED$5$s$NJ}K!$G$O!"I8=`$G$O(JFontDirectory$@$K$J$$%G%#%9%/>e$N%U%)(J
$@%s%H$,;H$($J$$$N$G!"$=$l(J$@$r=$@5$7$?J}$,$$$$$H;W$$$^$9!#(J

 > >> $@!!$J$s$H$+$9$l$P!J0-$$8@MU$G$O$4$^$+$;$P!K2DG=$G$9!#;d$O(JOzTeX$@$G(J$@Hs>o$K(J
 > >> $@$$$$$+$2$s$JJ}K!$G<B8=$7$^$7$?!#$3$N$$$$$+$2$s$JJ}K!$G$bH>ED$5$s$O$$$$(J
 > >> $@$N$@$m$&$+!D(J$@!)!J$^$@H>ED$5$s$K$OAw$C$F$$$^$;$s!#!K(J
 > 
 > $@@'HsAw$C$F2<$5$$!"$b$7$/$O%]%9%H$7$F2<$5$$!#$G$-$l$P$I$N(J$@ItJ,(J
 > $@$,$$$$2C8:$J$N$+$b65$($FD:$1$l$P$"$j$,$?$$$N$G$9$,!#$=$NJ}K!(J
 > $@$r;H$&$+$I$&$+$OJL$K$7$F$b!"$=(J$@$&$$$&J}K!$,$"$k$H$$$&CN<1$OLr(J
 > $@$KN)$D$H$*$b$$$^$9!#(J

$@!!<!$N$h$&$JHs>o$K$$$$$+$2$s$JJ}K!$G$9!#2?$7$m(J$@$&$^$/F0$/$+$I$&$+$o$+$i(J
$@$J$$>uBV$GO+NO$r3]$1$?$/$J$+$C$?$N$G!#(J

$@!!#6%Z!<%8DxEY$NJ8=q$r;H$C$FH>ED$5$s(J$@$NJ}K!!J0lIt$@$1;H$$$^$7$?!K$HHf3S(J
$@$7$F$$$?$N$G$9$,!"H>ED$5$s$NJ}K!$NJ}$,:G=i$OB.$$$N$G$9$,!"2?2s$d$C(J$@$F$b(J
$@3]$+$k;~4V$,JQ$o$i$J$$$h$&$G$9!#(J

$@!!;d$NJ}K!$OHs>o$K$$$$$+$2$s$G$9$,!"#2EYL\$K$O#1!?#3$/$i$$$K;~(J$@4V$,C;=L(J
$@$5$l$^$7$?!#(J

$@!!$3$l$O!"%U%)%s%H%-%c%C%7%e$N8z2L$G$7$g$&$+!)%U%)%s%H%-%c%C%7%e$r%/%j(J
$@%"$7$F0u(J$@:~$7$?>uBV$H$"$kDxEY%-%c%C%7%e$K$"$k>uBV$G0u:~$9$k$N$H$G$O3N$+(J
$@$KBgI}$K;~4V$,0c$&$N$O<B83$7$?$N$G$9$,(J$@!"%U%)%s%H$N:n@.J}K!$N0c$$$K$h$k(J
$@%-%c%C%7%e$NMxMQ8zN($NJQ2=$O(JPostScript$@$N%U%)%s%H%-%c%C%7%e$N<jK!$K$D(J$@$$(J
$@$F$O$^$@$h$/M}2r$7$F$$$J$$$N$G!"$h$/$o$+$j$^$;$s!#H>ED$5$s$b;n$7$FD:$1(J
$@$^$9$+!)(J

$@!t(J $@K\Ev$O:#$3$s$J(J$@$3$H$d$C$F$$$k;~4V$O$J$+$C$?$j$9$k(J:-P
--- cut here --- cut here --- cut here --- cut here ---
%%BeginProcSet: nttkanji 1 0
% version 1.0 14/8/1992
% Copyright (C) 1992
% Kazuhiro Kazama (kazama@square.ntt.jp)
% NTT Basic Research Laboratories
% All rights reserved.
/sfarray [
    [
	{
	    exch begin
		dup 100 lt{32 add (\041 )}{68 sub (\042 )}ifelse
		dup 1 4 -1 roll put
		KanjiFont setfont dup stringwidth setcharwidth
		newpath 0 0 moveto show
	    end
	} (jsy)
    ][
	{
	    exch begin
		(\043 ) dup 1 4 -1 roll put
		KanjiFont setfont dup stringwidth setcharwidth
		newpath 0 0 moveto show
	    end
	} (jroma)
    ][
	{
	    exch begin
		dup 224 lt{
		    32 add
		    (\044 ) dup 1 4 -1 roll put
		    KanjiFont setfont dup stringwidth setcharwidth
		    newpath 0 0 moveto show
		}{
		    pop
		}ifelse
	    end
	} (jhira)
    ][
	{
	    exch begin
		dup 224 lt{
		    32 add
		    (\045 ) dup 1 4 -1 roll put
		    KanjiFont setfont dup stringwidth setcharwidth
		    newpath 0 0 moveto show
		}{
		    pop
		}ifelse
	    end
	} (jkata)
    ][
	{
	    exch begin
		dup 224 lt{
		    32 add
		    (\046 ) dup 1 4 -1 roll put
		    KanjiFont setfont dup stringwidth setcharwidth
		    newpath 0 0 moveto show
		}{
		    pop
		}ifelse
	    end
	} (jgreek)
    ][
	{
	    exch begin
		dup 224 lt{
		    32 add
		    (\047 ) dup 1 4 -1 roll put
		    KanjiFont setfont dup stringwidth setcharwidth
		    newpath 0 0 moveto show
		}{
		    pop
		}ifelse
	    end
	} (jrussian)
    ][
	{
	    exch begin
		dup 224 lt{
		    32 add
		    (\050 ) dup 1 4 -1 roll put
		    KanjiFont setfont dup stringwidth setcharwidth
		    newpath 0 0 moveto show
		}{
		    pop
		}ifelse
	    end
	} (jkeisen)
    ][
	{
	    exch begin
		dup 94 idiv 48 add exch 94 mod 33 add
		(  ) dup 1 4 -1 roll put dup 0 4 -1 roll put
		KanjiFont setfont dup stringwidth setcharwidth
		newpath 0 0 moveto show
	    end
	} (jka)
    ][
	{
	    exch begin
		256 add dup 94 idiv 48 add exch 94 mod 33 add
		(  ) dup 1 4 -1 roll put dup 0 4 -1 roll put
		KanjiFont setfont dup stringwidth setcharwidth
		newpath 0 0 moveto show
	    end
	} (jkb)
    ][
	{
	    exch begin
		512 add dup 94 idiv 48 add exch 94 mod 33 add
		(  ) dup 1 4 -1 roll put dup 0 4 -1 roll put
		KanjiFont setfont dup stringwidth setcharwidth
		newpath 0 0 moveto show
	    end
	} (jkc)
    ][
	{
	    exch begin
		768 add dup 94 idiv 48 add exch 94 mod 33 add
		(  ) dup 1 4 -1 roll put dup 0 4 -1 roll put
		KanjiFont setfont dup stringwidth setcharwidth
		newpath 0 0 moveto show
	    end
	} (jkd)
    ][
	{
	    exch begin
		1024 add dup 94 idiv 48 add exch 94 mod 33 add
		(  ) dup 1 4 -1 roll put dup 0 4 -1 roll put
		KanjiFont setfont dup stringwidth setcharwidth
		newpath 0 0 moveto show
	    end
	} (jke)
    ][
	{
	    exch begin
		1280 add dup 94 idiv 48 add exch 94 mod 33 add
		(  ) dup 1 4 -1 roll put dup 0 4 -1 roll put
		KanjiFont setfont dup stringwidth setcharwidth
		newpath 0 0 moveto show
	    end
	} (jkf)
    ][
	{
	    exch begin
		1536 add dup 94 idiv 48 add exch 94 mod 33 add
		(  ) dup 1 4 -1 roll put dup 0 4 -1 roll put
		KanjiFont setfont dup stringwidth setcharwidth
		newpath 0 0 moveto show
	    end
	} (jkg)
    ][
	{
	    exch begin
		1792 add dup 94 idiv 48 add exch 94 mod 33 add
		(  ) dup 1 4 -1 roll put dup 0 4 -1 roll put
		KanjiFont setfont dup stringwidth setcharwidth
		newpath 0 0 moveto show
	    end
	} (jkh)
    ][
	{
	    exch begin
		2048 add dup 94 idiv 48 add exch 94 mod 33 add
		(  ) dup 1 4 -1 roll put dup 0 4 -1 roll put
		KanjiFont setfont dup stringwidth setcharwidth
		newpath 0 0 moveto show
	    end
	} (jki)
    ][
	{
	    exch begin
		2304 add dup 94 idiv 48 add exch 94 mod 33 add
		(  ) dup 1 4 -1 roll put dup 0 4 -1 roll put
		KanjiFont setfont dup stringwidth setcharwidth
		newpath 0 0 moveto show
	    end
	} (jkj)
    ][
	{
	    exch begin
		2560 add dup 94 idiv 48 add exch 94 mod 33 add
		(  ) dup 1 4 -1 roll put dup 0 4 -1 roll put
		KanjiFont setfont dup stringwidth setcharwidth
		newpath 0 0 moveto show
	    end
	} (jkk)
    ][
	{
	    exch begin
		2816 add dup 94 idiv 48 add exch 94 mod 33 add
		(  ) dup 1 4 -1 roll put dup 0 4 -1 roll put
		KanjiFont setfont dup stringwidth setcharwidth
		newpath 0 0 moveto show
	    end
	} (jkl)
    ][
	{
	    exch begin
		dup 94 idiv 80 add exch 94 mod 33 add
		(  ) dup 1 4 -1 roll put dup 0 4 -1 roll put
		KanjiFont setfont dup stringwidth setcharwidth
		newpath 0 0 moveto show
	    end
	} (jkm)
    ][
	{
	    exch begin
		256 add dup 94 idiv 80 add exch 94 mod 33 add
		(  ) dup 1 4 -1 roll put dup 0 4 -1 roll put
		KanjiFont setfont dup stringwidth setcharwidth
		newpath 0 0 moveto show
	    end
	} (jkn)
    ][
	{
	    exch begin
		512 add dup 94 idiv 80 add exch 94 mod 33 add
		(  ) dup 1 4 -1 roll put dup 0 4 -1 roll put
		KanjiFont setfont dup stringwidth setcharwidth
		newpath 0 0 moveto show
	    end
	} (jko)
    ][
	{
	    exch begin
		768 add dup 94 idiv 80 add exch 94 mod 33 add
		(  ) dup 1 4 -1 roll put dup 0 4 -1 roll put
		KanjiFont setfont dup stringwidth setcharwidth
		newpath 0 0 moveto show
	    end
	} (jkp)
    ][
	{
	    exch begin
		1024 add dup 94 idiv 80 add exch 94 mod 33 add
		(  ) dup 1 4 -1 roll put dup 0 4 -1 roll put
		KanjiFont setfont dup stringwidth setcharwidth
		newpath 0 0 moveto show
	    end
	} (jkq)
    ][
	{
	    exch begin
		1280 add dup 94 idiv 80 add exch 94 mod 33 add
		(  ) dup 1 4 -1 roll put dup 0 4 -1 roll put
		KanjiFont setfont dup stringwidth setcharwidth
		newpath 0 0 moveto show
	    end
	} (jkr)
    ][
	{
	    exch begin
		1536 add dup 94 idiv 80 add exch 94 mod 33 add
		(  ) dup 1 4 -1 roll put dup 0 4 -1 roll put
		KanjiFont setfont dup stringwidth setcharwidth
		newpath 0 0 moveto show
	    end
	} (jks)
    ][
	{
	    exch begin
		1792 add dup 94 idiv 80 add exch 94 mod 33 add
		(  ) dup 1 4 -1 roll put dup 0 4 -1 roll put
		KanjiFont setfont dup stringwidth setcharwidth
		newpath 0 0 moveto show
	    end
	} (jkt)
    ][
	{
	    exch begin
		2048 add dup 94 idiv 80 add exch 94 mod 33 add
		(  ) dup 1 4 -1 roll put dup 0 4 -1 roll put
		KanjiFont setfont dup stringwidth setcharwidth
		newpath 0 0 moveto show
	    end
	} (jku)
    ][
	{
	    exch begin
		2304 add dup 94 idiv 80 add exch 94 mod 33 add
		(  ) dup 1 4 -1 roll put dup 0 4 -1 roll put
		KanjiFont setfont dup stringwidth setcharwidth
		newpath 0 0 moveto show
	    end
	} (jkv)
    ][
	{
	    exch begin
		2560 add dup 94 idiv 80 add exch 94 mod 33 add
		(  ) dup 1 4 -1 roll put dup 0 4 -1 roll put
		KanjiFont setfont dup stringwidth setcharwidth
		newpath 0 0 moveto show
	    end
	} (jkw)
    ][
	{
	    exch begin
		2816 add dup 94 idiv 80 add exch 94 mod 33 add
		(  ) dup 1 4 -1 roll put dup 0 4 -1 roll put
		KanjiFont setfont dup stringwidth setcharwidth
		newpath 0 0 moveto show
	    end
	} (jkx)
    ][
	{
	    exch begin
		3072 add dup 94 idiv 80 add exch 94 mod 33 add
		(  ) dup 1 4 -1 roll put dup 0 4 -1 roll put
		KanjiFont setfont dup stringwidth setcharwidth
		newpath 0 0 moveto show
	    end
	} (jky)
    ][
	{
	    exch begin
		3328 add dup 94 idiv 80 add exch 94 mod 33 add
		(  ) dup 1 4 -1 roll put dup 0 4 -1 roll put
		KanjiFont setfont dup stringwidth setcharwidth
		newpath 0 0 moveto show
	    end
	} (jkz)
    ]
] def

/makenttsubfonts {
    findfont % 0.911976 scalefont
    sfarray {
	aload pop 3 index dup 3 1 roll
	2 copy length exch length add string dup
	3 1 roll copy pop dup 4 2 roll exch length exch putinterval
	cvlit
	10 dict begin
	    dup /FontName exch def
	    exch /BuildChar exch bind def
	    1 index /KanjiFont exch def
	    /FontMatrix [1 0 0 1 0 0] def
	    /FontType 3 def
	    /FontBBox [0 0 0 0] def
	    /Encoding StandardEncoding def
	    currentdict
	end
	definefont pop
    } forall
    pop pop
} bind def
%%EndProcSet
(dm) /Ryumin-Light-H makenttsubfonts
(dg) /GothicBBB-Medium-H makenttsubfonts
--- cut here --- cut here --- cut here --- cut here ---
--
	$@Iw4V0lMN(J (kazama@square.ntt.jp)
	NTT$@4pAC8&5f=j(J $@>pJs2J3X8&5fIt(J
	$@J,;6%3%s%T%e!<%F%#%s%086M}8&5f%0%k!<%W(J