148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
|
cat <<EOF >> ${out}
## call gnuplot
proc "plot_var" "title column" {
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"\
|
|
|
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
|
cat <<EOF >> ${out}
## call gnuplot
proc "plot_var" "title column" {
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\
-initialdir ".."\
-initialfile "\$parameter.ps"\
|