文字下線調整

文字下線を文字長に合わせて長さ調整し、文字を線の中央に移動する外部変形。
※文字下線は、左端点を基準に伸縮します。



◇バッチファイル
※文字コードANSIで保存してください。

@REM 文字下線調整
@echo off
REM #jww
REM #cd
REM #1ch 文字を指示してください
REM #2ln 下線を指示してください
REM #hr
REM #e
jgawk -f ldr_adj.awk jwc_temp.txt>temp.txt
copy temp.txt jwc_temp.txt
del temp.txt
goto end
文字コード ANSIで保存してください
:end

◇AWKスクリプト
※縮尺と突出し長は、ユーザーが変更してください。

#ファイル名 ldr_adj.awk

# 文字コード ANSIで保存してください。

BEGIN{

#ユーザー設定

S=10 #縮尺 1/10の時

dl=2 #下線突出し(図寸)

}

#jwc_temp.txt読込

/hq/{print "hd";next} #選択図形消去

/hhp/{next}

#下線データ取得

/^ /{ yl=$2

if($1<$3){x0=$1;x1=$3}else{x0=$3;x1=$1}

l=x1-x0

next}

#文字データ取得

/^ch/{

ych=$3;wth=$4;chr=$6

next}

{print}

END{

dl=dl*S

lth=wth+2*dl

dl=lth-l

xc=x0+lth/2

x1=x0+lth

#下線再作図

print x0,yl,x1,yl

#文字再作図

print "cc1" #文字基点

print "ch",xc,ych,wth,0,chr

}