Changeset 890 for trunk/gui/scripts
- Timestamp:
- Feb 15, 2008, 2:58:41 PM (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gui/scripts/nanovisviewer.tcl
r885 r890 44 44 public method delete {args} 45 45 public method scale {args} 46 public method get Limits { { option ""} } {46 public method get_limits { { option ""} } { 47 47 return [array get _limits] 48 48 } … … 200 200 } 201 201 202 public method get_absolute_value {} { 203 return $_value 204 } 202 205 public method get_relative_value {} { 203 array set limits [$_nvobj getLimits] 206 array set limits [$_nvobj get_limits] 207 if { $limits(vmax) == $limits(vmin) } { 208 set limits(vmin) 0.0 209 set limits(vmax) 1.0 210 } 204 211 return [expr {($_value-$limits(vmin))/($limits(vmax) - $limits(vmin))}] 205 212 } … … 243 250 } 244 251 public method set_relative_value { x } { 245 array set limits [$_nvobj getLimits] 252 array set limits [$_nvobj get_limits] 253 if { $limits(vmax) == $limits(vmin) } { 254 set limits(vmin) 0.0 255 set limits(vmax) 1.0 256 } 246 257 set r [expr $limits(vmax) - $limits(vmin)] 247 258 set_absolute_value [expr {($x * $r) + $limits(vmin)}] 248 259 } 249 260 public method handle_event { option args } { 250 puts stderr "option=$option"251 261 switch -- $option { 252 262 enter { … … 1114 1124 _initIsoMarkers $dataobj $comp 1115 1125 } else { 1116 _hideIsoMarkers $data Obj1126 _hideIsoMarkers $dataobj 1117 1127 } 1118 1128 foreach {sname cmap wmap} [_genTransfuncData $dataobj $comp] break … … 1240 1250 $c itemconfigure vmax -text $vmax 1241 1251 $c coords vmax [expr {$w-10}] [expr {$h-8}] 1252 set first [lindex [get] 0] 1253 _showIsoMarkers $first 1242 1254 } 1243 1255 } … … 1650 1662 set dataobj [lindex [get] 0] 1651 1663 if {$dataobj != 0} { 1652 set val [$inner.scales. opacityget]1664 set val [$inner.scales.thickness get] 1653 1665 # Scale values between 0.00001 and 0.01000 1654 1666 set sval [expr {0.00001*double($val)}] 1667 puts stderr "thickness($dataobj) = $sval" 1655 1668 set _thickness($dataobj) $sval 1656 1669 update_transfer_function … … 1752 1765 set isovalues [lsort -real $isovalues] 1753 1766 1754 set delta 0.0 0051767 set delta 0.01 1755 1768 if { [info exists _thickness($dataobj)]} { 1756 1769 set delta $_thickness($dataobj) 1757 1770 } 1771 puts stderr "delta=$delta thickness($dataobj)=$_thickness($dataobj)" 1758 1772 set first [lindex $isovalues 0] 1759 1773 set last [lindex $isovalues end] … … 1763 1777 } 1764 1778 foreach x $isovalues { 1765 set x1 [expr {$x-$delta }]1779 set x1 [expr {$x-$delta-0.00001}] 1766 1780 set x2 [expr {$x-$delta}] 1767 1781 set x3 [expr {$x+$delta}] 1768 set x4 [expr {$x+$delta }]1782 set x4 [expr {$x+$delta+0.00001}] 1769 1783 if { $x1 < 0.0 } { 1770 1784 set x1 0.0
Note: See TracChangeset
for help on using the changeset viewer.