@REM 基点（中中）の文字を座標ファイル出力する。
@echo off
REM #jww
REM #cd
REM #h0
REM #c文字種を指定してください (1〜10) 無指定:3/_/a
REM #c文字の X 基点（中）座標値を入力してください。 無指定:0/_/b
REM #c文字の Y 基点（中）座標値を入力してください。 無指定:0/_/c
REM #c文字の X 方向数値を入力してください。 無指定:1/_/d
REM #c文字の Y 方向数値を入力してください。 無指定:0/_/e
REM #c記入文字を入力してください 無指定:文字/_/f
REM #0文字記入点を指示してください
REM #e
copy jwc_temp.txt temp.txt > nul
ruby -Ks 文字中中.rb temp.txt %1 %2 %3 %4 %5 %6 > jwc_temp.txt
$cn="cn3";$x=0;$y=0;$mojix=1;$mojiy=0;$moji="文字"
while ARGV.length > 1
case argument=ARGV.pop
when/^\/a/
$cn="cn"+argument[2..-1]
when/^\/b/
$x="cn"+argument[2..-1].to_f
when/^\/c/
$y="cn"+argument[2..-1].to_f
when/^\/d/
$mojix=argument[2..-1].to_f
when/^\/e/
$mojiy=argument[2..-1].to_f
when/^\/f/
$moji=argument[2..-1]
end
end
}
def moji_naka_naka(cn,x,y,x1,y1,ward)
by=[];hcw=[];hch=[];hcd=[];zahyo2=[]
puts cn;zahyo2 << cn
open("temp.txt","r"){|f|
while line=f.gets
xy =line.split
if xy[0] =~ /^hs/
xy[1..-1].each{|item| by << item.to_i}
end
if xy[0] =~ /^lg/
lg=xy[0].delete("lg");$zusun=by[lg.to_i]
end
if xy[0] =~ /^hcw/
xy[1..-1].each{|item| hcw << item.to_f}
end
if xy[0] =~ /^hch/
xy[1..-1].each{|item| hch << item.to_f}
end
if xy[0] =~ /^hcd/
xy[1..-1].each{|item| hcd << item.to_f}
end
end
}
mojisyu=cn.split
cnn=mojisyu[0].delete("cn")
if cnn=="0"
moji_w=mojisyu[1].to_f
moji_h=mojisyu[2].to_f
moji_d=mojisyu[3].to_f
else
moji_w=hcw[cnn.to_i-1]
moji_h=hch[cnn.to_i-1]
moji_d=hcd[cnn.to_i-1]
end
tango=ward.split('')
mojin=tango.size
if tango[0].size==1
mojil=mojin*moji_w/2+moji_d/2*(mojin-1)
else
mojil=mojin*moji_w+moji_d*(mojin-1)
end
xy1=Math.sqrt(x1**2+y1**2)
dy=y1/xy1
dx=x1/xy1