#!/bin/sh
# °ʸʿΥեץ
# (c)2001 ҥ
#
# heitai <Ĺֹ> <TFM̾>
#
case "$1" in
1) suf="ga" ;;
2) suf="ha" ;;
3) suf="ia" ;;
4) suf="ja" ;;
esac
awk '
BEGIN{
	hei='$1'
	rate=(10.0-hei)/10.0
}
{
	if (($1 ~ /\(CHARACTER/) && ($2 ~ /O/)) {
		if ($3 >= 200) {
			getline
			getline
		}
		else print $0
		next
	}
	if ($1 ~ /\(XHEIGHT/) {
		printf "   (XHEIGHT R %f)\n",$3*rate
		next
	}
	if ($1 ~ /\(CHARHT/) {
		printf "   (CHARHT R %f)\n",$3*rate
		next
	}
	if ($1 ~ /\(CHARDP/) {
		printf "   (CHARDP R %f)\n",$3*rate
		next
	}
	print $0
}' < $2.pl > $2-$suf.pl
pltotf $2-$suf.pl $2-$suf.tfm
rm $2-$suf.pl
