[plamo:13400] Re: ktest とvftest

[Yoshinori Ariie]

有家です。
多書体文字サイズ変更の件、解決しました。 (^o^)

date: Wed, Mar 13, 2002 at 11:16:55PM +0900
from: 閑舎 <raku@rakunet.org>
>
> platex というコマンドは、結局、ttf とか pfb とか mf とか vf とかいうフォ
> ント本体とは何の関係もなく、tfm ファイルの情報のみを参照して組版します。

私の作ったフォント定義がまちがっていました。
解決の副産物として
$texmf/tex/platex/base/以下にフォント定義を作る関数をひとつ書きました。
（行頭タブを保存したいのでテキスト添付ファイルとします）

添付した関数で

# mkjfd egyo EPSON-GYOSHO-M
# mkjfd ekai EPSON-SEIKAISHO-M
# mkjfd ekyo EPSON-KYOKASHO-M
# mktexlsr

として $texmf/tex/platex/base/jy1{egyo,ekai,ekyo}.fd などをつくり

\documentclass[a4j,12pt]{jarticle}
\newfont{\egyo}{EPSON-GYOSHO-M10}
\newfont{\ekai}{EPSON-SEIKAISHO-M10}
\newfont{\ekyo}{EPSON-KYOKASHO-M10}
%
\begin{document}
\par {\usefont{JY1}{egyo}{m}{n}\fontsize{40}{42}\selectfont 行書体}
\par {\usefont{JY1}{ekai}{m}{n}\fontsize{40}{42}\selectfont 楷書体}
\par {\usefont{JY1}{ekyo}{m}{n}\fontsize{40}{42}\selectfont 教科書体}
\end{document}

を処理すると、それぞれ40ポイントの行書、楷書、教科書体が表示されました。

閑舎さん、ありがとうございました。
今度は縦書きの設定をします。

# 夜明けの前が一番暗い♪

-- 
pba00250@nifty.com
-------------------------
有家佳紀  Yoshinori Ariie

function mkjfd { # make japanese font definition
	local basedir exec
	local jfals jfont fname encode

# definition
	basedir=/usr/share/texmf/tex/platex/base

# parse args
	case $1 in # dry-run or really-execute
		-exec ) exec=1; shift ;;
	esac
	jfals=${1:-(fontalias)}		# Japanese Font Alias
	jfont=${2:-(fontname)}		# Japanese Fontname
	case $3 in
		jt ) # Tate
			encode=JT1
			fname=jt1${jfals}.fd
			;;
		jy | * ) # Yoko (default)
			encode=JY1
			fname=jy1${jfals}.fd
			;;
	esac

# main
	if [ x$exec = x ]; then # show usage
		cat <<- EOS
			title: make japanese font definition
			       v0.9 Copyright (C) 2002 Yoshinori Ariie <PBA00250@nifty.com>
			usage: mkjfd [-exec] <alias> <fontname> [<encode>]
			encode
			       jt   Jananese Tate
			       jy   Japanese Yoko (default)

			ex) mkjfd egyo EPSON-GYOSHO-M
			-----------------------------------
			encode    : $encode
			filename  : $fname
			fontname  : $jfont
			fontalias : $jfals
			-----------------------------------
		EOS
	fi
	if [ x$exec != x -a -f $basedir/$fname ]; then
		echo "$basedir/$fname already exists"
		return
	fi
	( # content of $fname
		cat <<- EOS
			\\ProvidesFile{$fname}
			    [$(date +%Y/%m/%d) v0.9 KANJI font defines]
			\\DeclareKanjiFamily{$encode}{$jfals}{}
			\\DeclareRelationFont{$encode}{$jfals}{m}{}{OT1}{cmr}{m}{}
			\\DeclareRelationFont{$encode}{$jfals}{bx}{}{OT1}{cmr}{bx}{}
			\\DeclareFontShape{$encode}{$jfals}{m}{n}{
			    <5> <6> <7> <8> <9> <10> sgen*$jfont
			    <10.95><12><14.4><17.28><20.74><24.88> ${jfont}10
			    <-> ${jfont}10
			}{}
			\\DeclareFontShape{$encode}{$jfals}{bx}{n}{<->ssub*gt/m/n}{}
			\\endinput
		EOS
	) | ( # filter
		if [ x$exec = x ]; then # dry run
			cat
		else # really execute
			tee $basedir/$fname
		fi
	)
	# execute "mktexlsr" if "-exec" specified
#	[ x$exec = x ] || mktexlsr
}