外部変形は データのやり取りをテキストファイルで行うので プログラム言語は 自由に選ぶことができます。図形は機能的かつシンプルなため、数多くのユーザーに受け入れられています。
jscriptでソリッド図形の円環を描く
/* jscriptでソリッド図形の円環を描く
@cls & 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
)
copy jwc_temp.txt myfiles > nul
cscript //nologo //e:jscript %0 < myfiles > jwc_temp.txt
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
*/
f = WScript.StdIn
while (! f.AtEndOfStream) {
F = ($_ = f.ReadLine()).split(/\s+/)
if (/^hk/i .test($_)) { hk = F[1] } //hk 軸角
if (/^hp1-/i .test($_)) { p1 = F.slice(1, 3) }
if (/^hp2 /i .test($_)) { p2 = F.slice(1, 3) }
}
ENV = new ActiveXObject("WScript.Shell").Environment("Process")
w = ENV("w") * 1.0
r2 = ENV("r2") * 1.0
r = 0; g = 128; b = 128
rgb = r + g * 256 + b * 256 * 256
g = WScript.StdOut
with (Math) {
x1 = p1[0] * 1.0; y1 = p1[1] * 1.0
x2 = p2[0] * 1.0; y2 = p2[1] * 1.0
r = sqrt( (x2 - x1) * (x2 - x1) + (y2 - y1) * (y2 - y1))
d = hk * PI / 180
g.WriteLine("lc10 " + rgb)
g.WriteLine(["so", x1, y1, r, w, d, 0, PI * 2, r * r2].join(" "))
g.WriteLine("h#扁平率(0.1~10.0) w, 内円半径比 r2/r ="+w+", "+r2)
}