外部変形は データのやり取りをテキストファイルで行うので プログラム言語は 自由に選ぶことができます。図形は機能的かつシンプルなため、数多くのユーザーに受け入れられています。
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 #h1
REM #g1
REM #hc 円を選択してください
REM #bz
REM #e
#!この次の行からプログラムを書いてください
set tcl_precision 16; #文字列を数値演算するとき有効桁数 16 (デフォルト 12)
set PI [expr acos(-1)]
set f [open myfiles]
foreach 0 [split [read $f] \n] {
switch -regexp -- $0 {
^hq { puts "bz"; continue }
^ci {
lassign $0 1 x y r 5 6 w d
set NF [llength $0]
if {$NF == 4} { lassign {1 0} w d }
set bai 0.25
set d [expr $d * $PI / 180]
set co [expr cos($d)]
set si [expr sin($d)]
set mx [expr $r * ( 1 + $bai)]
set my [expr $r * ($w + $bai)]
puts "[expr $x - $mx * $co] [expr $y - $mx * $si]\
[expr $x + $mx * $co] [expr $y + $mx * $si]"
puts "[expr $x + $my * $si] [expr $y - $my * $co]\
[expr $x - $my * $si] [expr $y + $my * $co]"
}
}
}
close $f
