Changeset 56 for trunk/gui/scripts/curve.tcl
- Timestamp:
- Sep 11, 2005, 10:49:16 PM (19 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gui/scripts/curve.tcl
r54 r56 116 116 set max "" 117 117 switch -- $which { 118 x { set pos 0; set log 0 }119 xlog { set pos 0; set log 1 }120 y - v { set pos 1; set log 0 }121 ylog - vlog { set pos 1; set log 1 }118 x { set pos 0; set log 0; set axis xaxis } 119 xlog { set pos 0; set log 1; set axis xaxis } 120 y - v { set pos 1; set log 0; set axis yaxis } 121 ylog - vlog { set pos 1; set log 1; set axis yaxis } 122 122 default { 123 123 error "bad option \"$which\": should be x, xlog, y, ylog, v, vlog" … … 156 156 } 157 157 blt::vector destroy tmp zero 158 159 set val [$_curve get $axis.min] 160 if {"" != $val && "" != $min} { 161 if {$val > $min} { 162 # tool specified this min -- don't go any lower 163 set min $val 164 } 165 } 166 167 set val [$_curve get $axis.max] 168 if {"" != $val && "" != $max} { 169 if {$val < $max} { 170 # tool specified this max -- don't go any higher 171 set max $val 172 } 173 } 158 174 159 175 return [list $min $max]
Note: See TracChangeset
for help on using the changeset viewer.