Changeset 161 for trunk/MultiChannelUSB/UserInterface.tcl

Timestamp:

Jan 24, 2012, 11:16:15 AM (13 years ago)

Author:

demin

Message:

add multiplexers for spectrum and rate histograms

File:

• trunk/MultiChannelUSB/UserInterface.tcl (modified) (7 diffs)

trunk/MultiChannelUSB/UserInterface.tcl

@@ -7 +7 @@
 package require zlib
 
-wm minsize . 1000 700
+wm minsize . 990 660
 
 namespace eval ::mca {
@@ -237 +237 @@
 
     MuxDisplay instproc start {} {
-        my instvar config chan_val
+        my instvar config chan_val hstmux
 
         set chan_val(1) 0
@@ -246 +246 @@
         set chan_val(6) 0
 
+        set hstmux(1) 0
+        set hstmux(2) 0
+
         trace add variable [myvar chan_val] write [myproc chan_val_update]
         trace add variable [myvar polar] write [myproc polar_update]
+        trace add variable [myvar hstmux] write [myproc hstmux_update]
 
         $config(1).chan_1_1 select
@@ -257 +261 @@
 
         for {set i 1} {$i <= 3} {incr i} {
-          $config(7).polar$i select
-        }
+          $config(7).polar_$i select
+        }
+
+        $config(8).hstmux_1_1 select
+        $config(9).hstmux_2_1 select
     }
 
@@ -276 +283 @@
 
         foreach {osc title} $oscList {
-            set config($osc) [labelframe ${master}.mux_$osc -borderwidth 1 -relief sunken -text $title]
+            set config($osc) [labelframe ${master}.mux_$osc -borderwidth 1 -relief sunken -text $title  -font {-weight bold}]
 
             foreach {ch dummy} $adcList {
@@ -294 +301 @@
             }
             set column [expr {($osc - 1) % 3}]
-            set row [expr {($osc - 1) / 3 * 2 + 1}]
-            grid $config($osc) -row $row -column $column -sticky news -padx 10
-        }
-
-        set config(7) [labelframe ${master}.mux_8 -borderwidth 1 -relief sunken -text {polarity inversion}]
+            set row [expr {($osc - 1) / 3 + 1}]
+            grid $config($osc) -row $row -column $column -sticky news -padx 10 -pady 10
+        }
+
+        set config(7) [labelframe ${master}.mux_7 -borderwidth 1 -relief sunken -text {Polarity inversion} -font {-weight bold}]
+        set config(8) [labelframe ${master}.mux_8 -borderwidth 1 -relief sunken -text {Spectrum histogram} -font {-weight bold}]
+        set config(9) [labelframe ${master}.mux_9 -borderwidth 1 -relief sunken -text {Rate histogram} -font {-weight bold}]
         for {set i 1} {$i <= 3} {incr i} {
-          checkbutton $config(7).polar$i -text "ADC $i" -variable [myvar polar($i)]
-          grid ${config(7)}.polar$i
-        }
-        grid $config(7) -row 2 -column 3 -sticky news -padx 10
+          set value [expr {$i - 1}]
+
+          checkbutton $config(7).polar_$i -text "ADC $i" -variable [myvar polar($i)]
+          grid ${config(7)}.polar_$i
+
+          radiobutton $config(8).hstmux_1_$i -text "ADC $i" -variable [myvar hstmux(1)] -value $value
+          grid ${config(8)}.hstmux_1_$i
+
+          radiobutton $config(9).hstmux_2_$i -text "ADC $i" -variable [myvar hstmux(2)] -value $value
+          grid ${config(9)}.hstmux_2_$i
+        }
+        grid $config(7) -row 3 -column 0 -sticky news -padx 10 -pady 50
+        grid $config(8) -row 3 -column 1 -sticky news -padx 10 -pady 50
+        grid $config(9) -row 3 -column 2 -sticky news -padx 10 -pady 50
 
         grid columnconfigure ${master} 0 -weight 1
         grid columnconfigure ${master} 1 -weight 1
         grid columnconfigure ${master} 2 -weight 1
-        grid columnconfigure ${master} 3 -weight 1
 
         grid rowconfigure ${master} 0 -weight 1
@@ -339 +357 @@
 
         $controller usbCmd 0002000100040${value}
+    }
+
+# -------------------------------------------------------------------------
+
+    MuxDisplay instproc hstmux_update args {
+        my instvar controller hstmux
+
+        set value [format {%x%x} $hstmux(2) $hstmux(1)]
+
+        $controller usbCmd 00020008000400${value}
     }