Changeset 993 for trunk/liveplot
- Timestamp:
- Aug 10, 2010 5:27:26 PM (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
TabularUnified trunk/liveplot ¶
r990 r993 80 80 set expgui(hklbox) 1 81 81 set expgui(autotick) 0 82 set expgui(phaselabel) 0 82 83 set expgui(pixelregion) 5 83 84 # location for web pages, if not found locally … … 134 135 color1 magenta 135 136 color2 cyan 136 color3 yellow137 color3 black 137 138 color4 sienna 138 139 color5 orange … … 572 573 global lasthst graph expgui box 573 574 575 foreach p $::expmap(phaselist) { 576 if {$expgui(phaselabel)} { 577 # 20 characters, max 578 set graph(label$p) [string range [phaseinfo $p name] 0 19] 579 580 } else { 581 set graph(label$p) Phase$p 582 } 583 } 574 584 # is there a new histogram to load? 575 585 if {$hst != $lasthst} { … … 636 646 $box marker config peaks${i}_$j \ 637 647 $graph(MarkerColorOpt) [list $peakinfo(color$i)] 638 if $peakinfo(dashes$i){648 if {$peakinfo(dashes$i) && ! $expgui(autotick)} { 639 649 $box marker config peaks${i}_$j -dashes "5 5" 640 650 } … … 998 1008 puts $fp "set graph(color_$v) [list $graph(color_$v)]" 999 1009 } 1000 foreach v {font lblfontsize fadetime hklbox pixelregion autotick } {1010 foreach v {font lblfontsize fadetime hklbox pixelregion autotick phaselabel} { 1001 1011 puts $fp "set expgui($v) [list $expgui($v)]" 1002 1012 } … … 2073 2083 -value 1 -variable expgui(autotick) -command plotdata 2074 2084 .a.options.menu.tick add separator 2075 .a.options.menu.tick add command -label "Label by name" \ 2076 -command { 2077 foreach p $expmap(phaselist) { 2078 # 20 characters, max 2079 set graph(label$p) [string range [phaseinfo $p name] 0 19] 2080 plotdata 2081 } 2082 } 2085 .a.options.menu.tick add radiobutton -label "Label by phase number" \ 2086 -value 0 -variable expgui(phaselabel) -command plotdata 2087 .a.options.menu.tick add radiobutton -label "Label by phase name" \ 2088 -value 1 -variable expgui(phaselabel) -command plotdata 2083 2089 .a.options.menu.tick add separator 2084 2090
Note: See TracChangeset
for help on using the changeset viewer.