外部変形は データのやり取りをテキストファイルで行うので プログラム言語は 自由に選ぶことができます。図形は機能的かつシンプルなため、数多くのユーザーに受け入れられています。
gawkでソリッド図形の円環を描く
:gawkでソリッド図形の円環を描く
@echo off
set c=%*
if defined c call:set %c%
if exist %~dpn0.txt (
for /f "tokens=*" %%a in (%~dpn0.txt) do call:set %%a
)
if not defined w set w=1
if not defined r2 set r2=0.5
if defined c (
echo %w% %r2% > %~dpn0.txt
)
for /f "tokens=1,3* delims=:!" %%1 in ('findstr /n "^#!" %0') do (
copy jwc_temp.txt myfiles > nul
more +%%1 %0 | if "%%3"=="" (%%2) else (%%2:%%3)
)
goto:eof
REM #jww
REM #1-%d 中心点を指示してください
REM #2%d 円周上の点を指示してください
REM #c 扁平率(0.1～10.0) w, 内円半径比 r2/r =
REM #e
:set
if not defined w set w=%1
if not defined r2 set r2=%2
goto:eof
#!gawk -v r=0 -v g=128 -v b=128 -f - myfiles > jwc_temp.txt
BEGIN {
CONVFMT = OFMT = "%.15g"
PI = atan2(1, 1) * 4
}
/^hk/ {
hk = $2
co = cos(d = hk * PI / 180)
si = sin(d)
}
/^hp1/ { p1 = $2 FS $3 }
/^hp2/ { $0 = p1 FS (p2 = $2 FS $3)
print "lc10", r + 256 * g + 256 * 256 * b
r1 = sqrt(($3 - $1) ^ 2 + ($4 - $2) ^ 2)
print "so", p1, r1, ENVIRON["w"], d, 0, 2 * PI, r1 * ENVIRON["r2"]
}
