外部変形は データのやり取りをテキストファイルで行うので プログラム言語は 自由に選ぶことができます。図形は機能的かつシンプルなため、数多くのユーザーに受け入れられています。
tclshで点データを確認する(pt)
:tclshで点データを確認する(pt)
@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 #bz
REM #e
#!この次の行からプログラムを書いてください
set tcl_precision 16; #文字列を数値演算するとき有効桁数 16 (デフォルト 12)
set PI [expr acos(-1)]
set ptn 0
set f [open myfiles]
foreach 0 [split [read $f] \n] {
switch -regexp -matchvar n -- $0 {
^hq {
puts "hd"
puts "bz"
continue
}
^hk {
lassign $0 1 hk
continue
}
^pt {
incr ptn
lassign $0 1 x y bai d code
set NF [llength $0]
if {$NF == 3} {
set pt($ptn) "pt $x $y"
} else {
set pt($ptn) "pt $x $y $bai $d $code"
}
set lx [expr cos($hk * $PI / 180)]
set ly [expr sin($hk * $PI / 180)]
set str "ようこそ ありがとう"
puts "cc4"
puts "cn0 5 5 0.5 2"
puts "ch $x $y $lx $ly \"$str"
puts $0
continue
}
. { puts $0 }
}
}
close $f
