円外ソリッド

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



@REM 円外ソリッド
@echo off
REM #jww
REM #cd
REM #1ci円弧を指定してください
REM #hr
REM #e
jgawk 'BEGIN{pi=atan2(0,-1)}/^^ci/{x=$2;y=$3;r=$4;ths=$5;the=$6;if(the^>ths){th=the-ths}if(ths^>the){th=360-ths+the};if(th^>0 ^&^& th^<90){dth=th;n=1};if(th^>=90 ^&^& th^<180){dth=th/2;n=2};if(th^>=180 ^&^& th^<270){dth=th/3;n=3};if(th^>=270 ^&^& th^<360){dth=th/4;n=4}}END{ths=ths*pi/180;dth=dth*pi/180;for(i=1;i^<=n;i++){thi=ths+(i-1)*dth;print "sc",x,y,r,1,0,thi,dth,-1}}' jwc_temp.txt>temp.txt
copy temp.txt jwc_temp.txt
del temp.txt
goto end
※gawkm115用
:end