#!/bin/sh
# ʸʿΥեץ
# (c)2001 ҥ
#
# theitai <ʿֹ> <PSե̾> <PSTFM̾>
#
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 =="(XHEIGHT") {
		printf "   (XHEIGHT R %.6f)\n",$3*rate
		next
	}
	if ($1 =="(TYPE") {
		printf "(TYPE O %s (CHARWD R %.6f) (CHARHT R %.6f) (CHARDP R %.6f))\n",$3,$6,$9*rate,$12*rate
		next
	}
	print $0
}' < jtate.pl > $2-V-$suf.pl
pltotf $2-V-$suf.pl $2-V-$suf.tfm
makejvf -m $2-V-$suf.tfm $3-v-$suf.tfm
rm $2-V-$suf.pl
