外部変形は データのやり取りをテキストファイルで行うので プログラム言語は 自由に選ぶことができます。図形は機能的かつシンプルなため、数多くのユーザーに受け入れられています。
tclshで指示線を確認する(ln)
:tclshで指示線を確認する(ln)
@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 #1%dln 線を指示してください
REM #99#
REM #bz
REM #e
#!この次の行からプログラムを書いてください
set tcl_precision 16; #文字列を数値演算するとき有効桁数 16 (デフォルト 12)
proc lnlength {ln} { #線長を返す
lassign $ln 1 2 3 4
return [expr hypot($3 - $1, $4 - $2)]
}
set f [open myfiles]
foreach 0 [split [read $f] \n] {
switch -regexp -matchvar n -- $0 {
^hq {
puts "bz"
continue
}
{^hp(\d+)ln} {
set hpn [lindex $n 1]
set hp($hpn) [lrange $0 1 2]
continue
}
{^hhp(\d+)ln} {
set lnn [lindex $n 1]
continue
}
{^[ ]} {
lassign $0 1 2 3 4
set ln($lnn) $0
set r [expr [lnlength $ln($lnn)] / 2]
puts "ci [expr ($1 + $3) / 2] [expr ($2 + $4) / 2] $r"
lassign $hp($lnn) x y
puts "ci $x $y 10"
continue
}
}
}
close $f
