Changeset 890

Timestamp:

Feb 15, 2008, 2:58:41 PM (17 years ago)

Author:

gah

Message:

 

File:

• trunk/gui/scripts/nanovisviewer.tcl (modified) (8 diffs)

trunk/gui/scripts/nanovisviewer.tcl

@@ -44 +44 @@
     public method delete {args}
     public method scale {args}
-    public method getLimits { { option ""} } {
+    public method get_limits { { option ""} } {
         return [array get _limits]
     }
@@ -200 +200 @@
     }
 
+    public method get_absolute_value {} {
+        return $_value
+    }
     public method get_relative_value {} {
-        array set limits [$_nvobj getLimits] 
+        array set limits [$_nvobj get_limits] 
+        if { $limits(vmax) == $limits(vmin) } {
+            set limits(vmin) 0.0
+            set limits(vmax) 1.0
+        }
         return [expr {($_value-$limits(vmin))/($limits(vmax) - $limits(vmin))}]
     }
@@ -243 +250 @@
     }
     public method set_relative_value { x } {
-        array set limits [$_nvobj getLimits] 
+        array set limits [$_nvobj get_limits] 
+        if { $limits(vmax) == $limits(vmin) } {
+            set limits(vmin) 0.0
+            set limits(vmax) 1.0
+        }
         set r [expr $limits(vmax) - $limits(vmin)]
         set_absolute_value [expr {($x * $r) + $limits(vmin)}]
     }
     public method handle_event { option args } {
-        puts stderr "option=$option"
         switch -- $option {
             enter {
@@ -1114 +1124 @@
                 _initIsoMarkers $dataobj $comp
             } else {
-                _hideIsoMarkers $dataObj
+                _hideIsoMarkers $dataobj
             }
             foreach {sname cmap wmap} [_genTransfuncData $dataobj $comp] break
@@ -1240 +1250 @@
         $c itemconfigure vmax -text $vmax
         $c coords vmax [expr {$w-10}] [expr {$h-8}]
+        set first [lindex [get] 0]
+        _showIsoMarkers $first
     }
 }
@@ -1650 +1662 @@
                 set dataobj [lindex [get] 0]
                 if {$dataobj != 0} {
-                    set val [$inner.scales.opacity get]
+                    set val [$inner.scales.thickness get]
                     # Scale values between 0.00001 and 0.01000
                     set sval [expr {0.00001*double($val)}]
+                    puts stderr "thickness($dataobj) = $sval"
                     set _thickness($dataobj) $sval
                     update_transfer_function
@@ -1752 +1765 @@
     set isovalues [lsort -real $isovalues]
 
-    set delta 0.0005
+    set delta 0.01
     if { [info exists _thickness($dataobj)]} {
         set delta $_thickness($dataobj)
     }
+    puts stderr "delta=$delta thickness($dataobj)=$_thickness($dataobj)"
     set first [lindex $isovalues 0]
     set last [lindex $isovalues end]
@@ -1763 +1777 @@
     }
     foreach x $isovalues {
-        set x1 [expr {$x-$delta}]
+        set x1 [expr {$x-$delta-0.00001}]
         set x2 [expr {$x-$delta}]
         set x3 [expr {$x+$delta}]
-        set x4 [expr {$x+$delta}]
+        set x4 [expr {$x+$delta+0.00001}]
         if { $x1 < 0.0 } {
             set x1 0.0