外部変形は データのやり取りをテキストファイルで行うので プログラム言語は 自由に選ぶことができます。図形は機能的かつシンプルなため、数多くのユーザーに受け入れられています。
jscriptで２点間の勾配を計算する(ptslope)
/* jscriptで２点間の勾配を計算する(ptslope)
@cls & 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) {
lx = p2[0] - p1[0]
ly = p2[1] - p1[1]
d = atan2(ly, lx) * 180 / PI - hk
}
g = WScript.StdOut
g.WriteLine("h#２点間の勾配∠ = " + d.toFixed(3))
// WScript.Echo("h#２点間の勾配∠ = " + d.toFixed(3))
