Changeset 64 for trunk/gui/scripts/radiodial.tcl

Timestamp:

Sep 25, 2005 12:40:17 PM (19 years ago)

Author:

mmc

Message:

Lots of fixes for app-pntoy and other tools:

• Fixed plotting to recognize "-color name" in the style section, and to use auto colors for overlayed plots.
• Fixed x-y plotting to keep axes instead of resetting when flipping back and forth between plots.
• Fixed 1D fields to support new lin/log limits queries, so it plots properly.
• Added support for <string> output values.
• Fixed molecular viewer so that 3D rotation is unconstrained and more intuitive.
• Fixed Rappture::exec to handle newlines properly. Sometimes output would get all mixed together without newlines. Works better now.

File:

• trunk/gui/scripts/radiodial.tcl (modified) (2 diffs)

trunk/gui/scripts/radiodial.tcl

@@ -17 +17 @@
 option add *Radiodial.dialFillColor white widgetDefault
 option add *Radiodial.lineColor gray widgetDefault
-option add *Radiodial.activeLineColor red widgetDefault
+option add *Radiodial.activeLineColor black widgetDefault
 option add *Radiodial.valueWidth 10 widgetDefault
 option add *Radiodial.font \
@@ -192 +192 @@
                 $op rlist [lindex $_values $i]
             }
+            position {
+                foreach {min max} [_limits] break
+                set v [lindex $_values $i]
+                set frac [expr {double($v-$min)/($max-$min)}]
+                $op rlist $frac
+            }
             all {
                 set v [lindex $_values $i]
-                $op rlist [list $_val2label($v) $v]
+                foreach {min max} [_limits] break
+                set frac [expr {double($v-$min)/($max-$min)}]
+                $op rlist [list $_val2label($v) $v $frac]
             }
             default {
-                error "bad value \"$v\": should be label, value, all"
+                error "bad value \"$v\": should be label, value, position, all"
             }
         }