弓形ソリッド

円弧に弓型ソリッドを作図する外部変形



@REM 弓型ソリッド
@echo off
REM #jww
REM #cd
REM #1ci 円弧を指定してください
REM #hr
REM #e
jgawk 'BEGIN{pi=atan2(0,-1)}/^^ci/{if(NF==4){print"h#円です";exit}ths=$5;the=$6;if(the^>ths){th=the-ths}if(ths^>the){th=360-ths+the}ths=ths*pi/180;th=th*pi/180;print "sc",$2,$3,$4,1,0,ths,th,5}' jwc_temp.txt>temp.txt
copy temp.txt jwc_temp.txt
del temp.txt
goto end
※gawkm115用
:end