外部変形は データのやり取りをテキストファイルで行うので プログラム言語は 自由に選ぶことができます。図形は機能的かつシンプルなため、数多くのユーザーに受け入れられています。
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 #1ln 線を指示してください
REM #bz
REM #e
#!この次の行からプログラムを書いてください
proc lnlength {ln} { #線長を返す
lassign $ln x1 y1 x2 y2
return [expr hypot($x2 - $x1, $y2 - $y1)]
}
proc lnslope {ln} { #線の角度を返す
lassign $ln x1 y1 x2 y2
return [expr atan2($y2 - $y1, $x2 - $x1)]
}
set tcl_precision 16; #文字列を数値演算するとき有効桁数 16 (デフォルト 12)
set f [open myfiles]
foreach 0 [split [read $f] \n] {
lassign $0 1 2 3 4
switch -regexp -- $0 {
^hq { puts "bz"; continue }
^hp1ln { set p0 "$2 $3"; continue }
{^[ ]} {
set NF [llength $0]
if {$NF == 4} {
set p1 "$1 $2"
set p2 "$3 $4"
set pc "[expr ($1 + $3) / 2] [expr ($2 + $4) / 2]"
set l1 [lnlength "$p0 $p1"]
set l2 [lnlength "$p0 $p2"]
set l3 [lnlength "$p0 $pc"]
if {$l2 > $l1 && $l3 > $l1} {set pc $p1}
if {$l1 > $l2 && $l3 > $l2} {set pc $p2}
set l [expr [lnlength $0] / 2]
set d [lnslope $0]
set co [expr cos($d) * $l]
set si [expr sin($d) * $l]
lassign $pc xc yc
puts "[expr $xc + $si] [expr $yc - $co]\
[expr $xc - $si] [expr $yc + $co]"
}
}
}
}
close $f
