146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
|
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
|
+
-
+
|
' Title=\$title Ny=${Ny} ${struc} >> ${out}
cat <<EOF >> ${out}
## call gnuplot
proc "plot_var" "title column" {
exec echo set grid\; > ${tmp}
exec echo plot \"${dat2}\" using 1:\$column title \"\$title\" with lines\; > ${tmp}
exec echo plot \"${dat2}\" using 1:\$column title \"\$title\" with lines\; >> ${tmp}
exec echo exit\; >> ${tmp}
exec gnuplot -geometry 400x300 -persist -title "\$title" ${tmp} &
}
## print output
proc "print" "parameter" {
set filename [tk_getSaveFile\
|