#!/bin/sh
# ʸĹΥեץ
# (c)2001 ҥ
#
# tchotai <Ĺֹ> <PSե̾> <PSTFM̾>
#
case "$1" in
1) suf="ba" ;;
2) suf="ca" ;;
3) suf="da" ;;
4) suf="ea" ;;
esac
awk '
BEGIN{
	cho='$1'
	rate=(10.0-cho)/10.0
}
{
	if ($1 == "(SPACE") {
		printf "   (SPACE R %.6f)\n",$3*rate
		next
	}
	if ($1 == "(STRETCH") {
		printf "   (STRETCH R %.6f)\n",$3*rate
		next
	}
	if ($1 == "(SHRINK") {
		printf "   (SHRINK R %.6f)\n",$3*rate
		next
	}
	if ($1 == "(QUAD") {
		printf "   (QUAD R %.6f)\n",$3*rate
		next
	}
	if ($1 =="(EXTRASPACE") {
		printf "   (EXTRASPACE R %.6f)\n",$3*rate
		next
	}
	if ($1 == "(EXTRASTRETCH") {
		printf "   (EXTRASTRETCH R %.6f)\n",$3*rate
		next
	}
	if ($1 =="(EXTRASHRINK") {
		printf "   (EXTRASHRINK 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*rate,$9,$12
		next
	}
	if ($1 == "(GLUE") {
		printf "   (GLUE O %s R %.6f R %.6f R %.6f)\n",$3,$5*rate,$7*rate,$9*rate
		next
	}
	if ($1 =="(KRN") {
		printf "   (KRN  O %s R %.6f)\n",$3,$5*rate
		next
	}
	print $0
}' < jtate.pl > $2-V-$suf.pl
pltotf $2-V-$suf.pl $2-V-$suf.tfm
makejvf -C -m $2-V-$suf.tfm $3-v-$suf.tfm
rm $2-V-$suf.pl
