外部変形は データのやり取りをテキストファイルで行うので プログラム言語は 自由に選ぶことができます。図形は機能的かつシンプルなため、数多くのユーザーに受け入れられています。
tclshで曲線データを確認する(pl)
:tclshで曲線データを確認する(pl)
@echo off
for /f "delims=:" %%n in ('findstr /n "^#!" %0') do (
copy jwc_temp.txt myfiles > nul
more +%%n %0 | tclsh - > jwc_temp.txt
)
goto:eof
REM #jww
REM #h1
REM #hc 曲線を選択してください
REM #e
#!この次の行からプログラムを書いてください
set tcl_precision 16; #文字列を数値演算するとき有効桁数 16 (デフォルト 12)
set plflg 0
set pln 0
set j 0
set f [open myfiles]
foreach 0 [split [read $f] \n] {
switch -regexp -matchvar n -- $0 {
^hq {
puts "hd"
continue
}
^pl {
set plflg 1
incr pln
continue
}
{^[ ]} {
set pl($pln,$j) $0
incr j
continue
}
^# {
if {$plflg == 1} {
set plno($pln) $j
set plflg 0
set j 0
}
continue
}
}
}
close $f
for {set i 1} {$i <= $pln} {incr i} {
puts "pl"
puts "lc[expr 6 + $i]"
for {set j 0} {$j < $plno($i)} {incr j} {
puts $pl($i,$j)
}
puts "#"
}
tcl の ２次元配列は
$pl($i.$j)
あるいは
$pl($i,$j)
のように "." か "," で区切るとなんとかなるようです。ただし "." や "," の前後に空白をいれることはできないようです。
