外部変形は データのやり取りをテキストファイルで行うので プログラム言語は 自由に選ぶことができます。図形は機能的かつシンプルなため、数多くのユーザーに受け入れられています。
tclshで矩形を描く
tclsh.exe は tcl のスクリプトを実行するツールです。
:tclshで矩形を描く
@echo off
for /f "delims=:" %%n in ('findstr /n "^#!" %0') do (
copy jwc_temp.txt myfiles > nul
more +%%n %0 | C:\ActiveTcl\bin\tclsh - > jwc_temp.txt
)
goto:eof
REM #jww
REM #1-%d 矩形の始点を指示してください
REM #2%d 対頂点を指示してください
REM #e
#!この次の行からプログラムを書いてください
set tcl_precision 16; #文字列を数値演算するときの有効桁数 16 (デフォルト 12)
set f [open myfiles]
foreach 0 [split [read $f] \n] {
lassign $0 1 2 3
switch -regexp -- $0 {
^hk { set hk $2 }
^hp1 { set p1 "$2 $3" }
^hp2 { set p2 "$2 $3" }
}
}
close $f
set PI [expr acos(-1)]
set d [expr $hk * $PI / 180]
lassign "$p1 $p2" x1 y1 x2 y2
lassign "[expr cos($d)] [expr sin($d)]" co si
set ww [expr ($x2 - $x1) * $co + ($y2 - $y1) * $si]
set hh [expr -($x2 - $x1) * $si + ($y2 - $y1) * $co]
set p3 "[expr $x1 + $ww * $co] [expr $y1 + $ww * $si]"
set p4 "[expr $x1 - $hh * $si] [expr $y1 + $hh * $co]"
puts "$p1 $p3"
puts "$p3 $p2"
puts "$p2 $p4"
puts "$p4 $p1"
