Differences From Artifact [b464ba8f0b]:
- Executable file
mttroot/mtt/bin/trans/struc2gnuplot_txt2wish
— part of check-in
[ca4fee02c1]
at
2004-01-21 15:53:29
on branch origin/master
— Added support for zoomable gnuplot (3.8):
allows co-ordinates to be obtained with the mouse, sections to be zoomed
and 3D plots to be rotated by dragging.Added menu item to change data styles to dots, points or lines (default). (user: geraint@users.sourceforge.net, size: 18824) [annotate] [blame] [check-ins using] [more...]
To Artifact [1d1598cc62]:
- Executable file mtt/bin/trans/struc2gnuplot_txt2wish — part of check-in [af3953deae] at 2021-03-01 11:39:42 on branch master — Cleanup repository after cvs2git conversion. (user: jeff@gridfinity.com, size: 19090) [annotate] [blame] [check-ins using] [more...]
- Executable file mttroot/mtt/bin/trans/struc2gnuplot_txt2wish — part of check-in [05b94328ac] at 2004-01-26 10:43:35 on branch origin/master — Reduced length of parameter names: stripped leading top-level name. (user: geraint@users.sourceforge.net, size: 19090) [annotate] [blame] [check-ins using]
| ︙ | ︙ | |||
14 15 16 17 18 19 20 |
## write header
cat <<EOF > ${out}
#!/bin/sh
# -*-tcl-*- Next line replaces shell with wish\\
exec wish "\$0" "\$@"
## main window
| | | 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 |
## write header
cat <<EOF > ${out}
#!/bin/sh
# -*-tcl-*- Next line replaces shell with wish\\
exec wish "\$0" "\$@"
## main window
wm title . "MTT: ${sys}"
# menu bar
canvas .menubar
menubutton .menubar.file -text "File" -underline 0 -menu .menubar.file.menu
menu .menubar.file.menu
.menubar.file.menu add command -label "Open (Gnuplot template)" -underline 0 -command open_plotfile
|
| ︙ | ︙ | |||
231 232 233 234 235 236 237 |
}
EOF
## create states and outputs lists
gawk '
($1 == "state") {
| > > > | > > > | | | 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 |
}
EOF
## create states and outputs lists
gawk '
($1 == "state") {
name=sys"__";
label=$4;
sub (name, "", label);
printf "lappend xl %s\n", label
}
($1 == "output") {
name=sys"__";
label=$4;
sub (name, "", label);
printf "lappend yl %s\n", label
}' sys=${sys} ${struc} >> ${out}
cat <<EOF >> ${out}
lappend xl Time
lappend yl Time
.parameters.list configure -listvar yl
pack .menubar -expand false -fill x -side top
|
| ︙ | ︙ | |||
257 258 259 260 261 262 263 |
## map names to column numbers
proc "get_state_column" "title" {
switch -- \$title {
EOF
gawk '($1 == "state") {
| > > > | | > > > | | | 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 |
## map names to column numbers
proc "get_state_column" "title" {
switch -- \$title {
EOF
gawk '($1 == "state") {
name=sys"__";
label=$4;
sub (name, "", label);
printf "\t\t%s\t{ return %d }\n", label, $2+2+Ny;
}
' Ny=${Ny} sys=${sys} ${struc} >> ${out}
cat <<EOF >> ${out}
}
}
proc "get_output_column" "title" {
switch -- \$title {
EOF
gawk '($1 == "output") {
name=sys"__";
label=$4;
sub (name, "", label);
printf "\t\t%s\t{ return %d }\n", label, $2+1;
}
' Ny=${Ny} sys=${sys} ${struc} >> ${out}
cat <<EOF >> ${out}
}
}
proc "plot" "title" {
global dimension
|
| ︙ | ︙ |