外部変形は データのやり取りをテキストファイルで行うので プログラム言語は 自由に選ぶことができます。図形は機能的かつシンプルなため、数多くのユーザーに受け入れられています。
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 code set code=0
if not defined size set size=1
if defined c (
echo %code% %size% > %~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 #99#
REM #c マーカコード番号, 倍率
REM #e
:set
if not defined code set code=%1
if not defined size set size=%2
if "%1" == "/" set code=
if "%2" == "/" set size=
goto:eof
*/
ENV = new ActiveXObject("WScript.Shell").Environment("Process")
hp = []
f = WScript.StdIn
while (! f.AtEndOfStream) {
F = ($_ = f.ReadLine()).split(/\s+/)
if (/^hk/i .test($_)) { hk = F[1] } //hk 軸角
if (/^hp\d+/i .test($_)) { hp[ F[0].match(/\d+/) ] = F.slice(1, 3) }
}
code = ENV("code")
size = ENV("size") * 1.0
if (size == 0) { size = 1 }
g = WScript.StdOut
for (i = 1; i < hp.length; i++) {
g.WriteLine(["pt", hp[i][0], hp[i][1], size, hk, code].join(" "))
// WScript.Echo(["pt", hp[i][0], hp[i][1], size, hk, code].join(" "))
}
