ソリッドデータの書出し

四角/円のソリッドデータを書出しするバッチファイルです。
このままでは外変として使用できませんが・・・・・参考です。m(__)m

--------------------
@REM 四角ソリッドの作図
@echo off
REM
REM #jww
REM #cd
REM #0 基点(左下）を指示
REM #hr
REM #e
REM
jgawk 'BEGIN{x1=0;y1=0;x2=0;y2=5;x3=30;y3=0;x4=30;y4=5;print "sl",x1,y1,x2,y2,x4,y4,x3,y3}' nul>temp.txt
copy temp.txt jwc_temp.txt
del temp.txt

--------------------
@REM 円ソリッドの作図
@echo off
REM
REM #jww
REM #cd
REM #0 中心点を指示
REM #hr
REM #e
REM
jgawk 'BEGIN{pi=atan2(0,-1);x1=0;y1=0;r1=5;hp=1;zk=0;a1=0;a3=2*pi;f1=100;print "sc",x1,y1,r1,hp,zk,a1,a3,f1}' nul>temp.txt
copy temp.txt jwc_temp.txt
del temp.txt