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