長穴の作図
<l_hole.bat>
--------------------
@REM 長穴の作図
@echo off
REM
REM #jww
REM #cd
REM #c 幅を入力してください |前回値/スキップ|
REM #0 始点を指示してください (L)/(R)
REM #1 終点を指示してください (L)/(R)
REM #hr
REM #e
REM
copy jwc_temp.txt+vw.txt
jgawk -vVW=%1 -f l_hole.awk jwc_temp.txt>temp.txt
rename vw.txt vvw.txt
jgawk -vVW=%1 'BEGIN{if(VW+0!=0){print "vw",VW;exit}};NR==1{print $0}' vvw.txt>vw.txt
copy temp.txt jwc_temp.txt
del temp.txt
del vvw.txt
--------------------
<l_hole.awk>
--------------------
#長穴の作図(中心点)
#πの設定
BEGIN{pi=atan2(0,-1)}
#終点座標の取得・角度計算
/^hp1/{x1=$2;y1=$3;{if(x1==0){an=pi/2;ang=180;ane=0}
{an=atan2(y1,x1);ang=an*180/pi;ans=ang+90;ane=ang+270}}}
#幅の取得
/^vw/{vw=$2}
{if(VW+0==0){VW=vw};r=VW/2}
#座標計算
{xan=r*sin(an);yan=r*cos(an);x01=xan;y01=-yan;x02=-xan;y02=yan;
x11=x1+xan;y11=y1-yan;x12=x1-xan;y12=y1+yan}
#作図
END{printf ("%s %d %d %.15g %.15g %.15g %d %d\n","ci",0,0,r,ans,ane,1,0);
printf ("%s %.15g %.15g %.15g %.15g %.15g %d %d\n","ci",x1,y1,r,ane,ans,1,0);
printf ("%.15g %.15g %.15g %.15g\n",x01,y01,x11,y11);
printf ("%.15g %.15g %.15g %.15g\n",x02,y02,x12,y12)}
| 固定リンク
コメント