引出線
2点を指示して引出線を作図する外部変形。
※始点側に矢印、曲線属性。
引出線,bat
----------
@REM 引出線
@echo off
REM
REM #jww
REM #cd
REM #1- 始点を指定してください
REM #2 終点を指定してください
REM #hr
REM #e
jgawk -f leader.awk jwc_temp.txt>temp.txt
copy temp.txt jwc_temp.txt
del temp.txt
goto end
始点→終点を指示
:end
leader.awk
---------
# 引出線
BEGIN{
pi=atan2(0,-1)
arw=3;th=pi/12}
/^hs/{for(i=0;i<=9;i++)S[i]=$(i+2)
S["a"]=$12;S["b"]=$13;S["c"]=$14
S["d"]=$15;S["e"]=$16;S["f"]=$17}
/^lg/{lg=substr($1,3);sc=S[lg]}
/^hp1/{xs=$2;ys=$3}
/^hp2/{xe=$2;ye=$3}
END{
al=sc*arw
anr=atan2((ye-ys),(xe-xs))
xwu=xs+al*cos(anr+th);ywu=ys+al*sin(anr+th)
xwl=xs+al*cos(anr-th);ywl=ys+al*sin(anr-th)
print "pl"
print xs,ys,xe,ye
print xs,ys,xwu,ywu
print xs,ys,xwl,ywl}





最近のコメント