外部変形は データのやり取りをテキストファイルで行うので プログラム言語は 自由に選ぶことができます。図形は機能的かつシンプルなため、数多くのユーザーに受け入れられています。
tclshで２線の交点に点を打つ
:tclshで２線の交点に点を打つ
@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 #2%dln 線を指示してください
REM #bz
REM #e
#!この次の行からプログラムを書いてください
proc line_x_poi {ln1 ln2} { #線と線の交点
lassign $ln1 x1 y1 x2 y2
set dx1 [expr $x2 - $x1]
set dy1 [expr $y2 - $y1]
set m1 [expr $dx1 ? $dy1 / $dx1 : 1e20]
lassign $ln2 x3 y3 x4 y4
set dx2 [expr $x4 - $x3]
set dy2 [expr $y4 - $y3]
set m2 [expr $dx2 ? $dy2 / $dx2 : 1e20]
set aa [expr $m1 - $m2]
if {abs($aa) < 1e-10} { set aa 0 }
if {$aa != 0} {
set b1 [expr $y1 - $m1 * $x1]
set b2 [expr $y3 - $m2 * $x3]
return [list [expr ($b2 - $b1) / $aa] [expr ($m1 * $b2 - $m2 * $b1) / $aa]]
} else {
puts "he処理できません"; exit
}
}
set tcl_precision 16; #文字列を数値演算するとき有効桁数 16 (デフォルト 12)
set f [open myfiles]
foreach 0 [split [read $f] \n] {
switch -regexp -matchvar n -- $0 {
^hq { puts "bz"; continue }
{^hhp(\d+)} {
set lnn [lindex $n 1]
continue
}
{^[ ]} {
set NF [llength $0]
if {$NF == 4} {
if {$lnn == 1} { set ln1 $0 }
if {$lnn == 2} { set ln2 $0 }
}
}
}
}
close $f
puts "pt [line_x_poi $ln1 $ln2]"
