外部変形は データのやり取りをテキストファイルで行うので プログラム言語は 自由に選ぶことができます。図形は機能的かつシンプルなため、数多くのユーザーに受け入れられています。
jscriptで矩形に内接する楕円を描く(ov)
/* jscriptで矩形に内接する楕円を描く(ov)
@echo off
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 #e
*/
f = WScript.StdIn
while (! f.AtEndOfStream) {
F = ($_ = f.ReadLine()).split(/\s+/)
if (/^hk/i .test($_)) hk = F[1];
if (/^hp1-/i .test($_)) p1 = F.slice(1, 3);
if (/^hp2 /i .test($_)) p2 = F.slice(1, 3);
}
with (Math) {
co = cos(hk * PI / 180)
si = sin(hk * PI / 180)
x1 = p1[0] * 1.0; y1 = p1[1] * 1.0
x2 = p2[0] * 1.0; y2 = p2[1] * 1.0
ww = (x2 - x1) * co + (y2 - y1) * si
hh = - (x2 - x1) * si + (y2 - y1) * co
x = (x1 + x2) / 2
y = (y1 + y2) / 2
r = abs(ww / 2)
w = abs(hh / ww)
}
g = WScript.StdOut
g.WriteLine(["ci", x, y, r, 0, 360, w, hk].join(" "))
// WScript.echo(["ci", x, y, r, 0, 360, w, hk].join(" "))
