Changeset 180 for trunk/3DEES/UserInterface.tcl

Timestamp:

Jan 15, 2014, 1:30:27 AM (11 years ago)

Author:

demin

Message:

add classifier and remove unneeded modules

File:

• trunk/3DEES/UserInterface.tcl (modified) (47 diffs)

trunk/3DEES/UserInterface.tcl

@@ -38 +38 @@
         5 {ADC 5}
         6 {ADC 6}
-        7 {ADC 7}
-        8 {ADC 8}
-        9 {ADC 9}
-       10 {ADC 10}
-       11 {ADC 11}
-       12 {ADC 12}
     }
 
@@ -114 +108 @@
 # -------------------------------------------------------------------------
 
+    UsbController instproc init {} {
+
+        my set ignore false
+
+        next
+    }
+
+# -------------------------------------------------------------------------
+
     UsbController instproc usbConnect {} {
-        my instvar handle
+        my instvar handle ignore
 
         puts usbConnect
@@ -123 +126 @@
             unset handle
         }
-if {1} {
-        while {[catch {usb::connect 0x09FB 0x6001 1 1 0} result]} {
-            set answer [tk_messageBox -icon error -type retrycancel \
-                -message {Cannot access USB device} -detail $result]
-#            puts $result
-            if {[string equal $answer cancel]} exit
-        }
-
-        set handle $result
-
-}
+        if {!$ignore} {
+            while {[catch {usb::connect 0x09FB 0x6001 1 1 0} result]} {
+                set answer [tk_messageBox -icon error -type abortretryignore \
+                    -message {Cannot access USB device} -detail $result]
+                if {[string equal $answer abort]} exit
+                if {[string equal $answer ignore]} {
+                    set ignore true
+                    return
+                }
+            }
+
+            set handle $result
+
+        }
     }
 
@@ -139 +145 @@
 
     UsbController instproc usbHandle {} {
-        my instvar handle
+        my instvar handle ignore
 
         if {[my exists handle]} {
             return $handle
-        } else {
+        } elseif {!$ignore} {
             my usbConnect
         }
@@ -223 +229 @@
 # -------------------------------------------------------------------------
 
-    Class SpiDisplay -parameter {
+    Class CfgDisplay -parameter {
         {master}
         {controller}
@@ -230 +236 @@
 # -------------------------------------------------------------------------
 
-    SpiDisplay instproc init {} {
+    CfgDisplay instproc init {} {
 
         my setup
@@ -239 +245 @@
 # -------------------------------------------------------------------------
 
-    SpiDisplay instproc destroy {} {
+    CfgDisplay instproc destroy {} {
         next
     }
@@ -245 +251 @@
 # -------------------------------------------------------------------------
 
-    SpiDisplay instproc start {} {
+    CfgDisplay instproc start {} {
+        variable adcCodes
         my instvar config
 
-        trace add variable [myvar dac1] write [myproc dac1_update]
-        trace add variable [myvar dac2] write [myproc dac2_update]
-
-        ${config(1)}.dac1 set 0
-        ${config(1)}.dac2 set 0
-    }
-
-# -------------------------------------------------------------------------
-
-    SpiDisplay instproc setup {} {
+        trace add variable [myvar decay] write [myproc decay_update]
+        trace add variable [myvar delay] write [myproc delay_update]
+        trace add variable [myvar thrs] write [myproc thrs_update]
+
+        foreach {ch id} [array get adcCodes] {
+            ${config(clip)}.delay_${ch} set 32
+            ${config(clip)}.decay_${ch} set 1000
+        }
+
+        for {set i 0} {$i <= 3} {incr i} {
+            ${config(thrs)}.thrs_${i} set 100
+        }
+
+        for {set i 4} {$i <= 19} {incr i} {
+            ${config(bins)}.thrs_${i} set 100
+        }
+    }
+
+# -------------------------------------------------------------------------
+
+    CfgDisplay instproc setup {} {
+        variable adcCodes
         my instvar number master
         my instvar config
 
-        set config(1) [labelframe ${master}.cfg1 -borderwidth 1 -relief sunken -text {DAC}]
-
-        frame ${config(1)}.limits
-        label ${config(1)}.limits.min -text {2.5V}
-        label ${config(1)}.limits.max -text {0.0V}
-
-        scale ${config(1)}.dac1 -orient vertical -from 4095 -to 0 -tickinterval 0 -variable [myvar dac1]
-        scale ${config(1)}.dac2 -orient vertical -from 4095 -to 0 -tickinterval 0 -variable [myvar dac2]
-
-        pack ${config(1)}.limits.min -anchor n -side top -pady 10
-        pack ${config(1)}.limits.max -anchor s -side bottom -pady 9
-
-        grid ${config(1)}.dac1 ${config(1)}.dac2 ${config(1)}.limits -sticky ns -pady 7
-
-        
-        set config(2) [labelframe ${master}.cfg2 -borderwidth 1 -relief sunken -text {ADC}]
-
-        frame ${config(2)}.spc1 -width 130 -height 10
-        frame ${config(2)}.spc2 -width 130 -height 10
-        frame ${config(2)}.spc3 -width 130 -height 10
-
-        button ${config(2)}.reset -text {Reset} -command [myproc adc_reset]
-        button ${config(2)}.pattern -text {Test pattern} -command [myproc adc_pattern]
-        button ${config(2)}.ramp -text {Test ramp} -command [myproc adc_ramp]
-        button ${config(2)}.100mV -text {Test 100 mV} -command [myproc adc_100mV]
-        button ${config(2)}.150mV -text {Test 150 mV} -command [myproc adc_150mV]
-        button ${config(2)}.fltr0 -text {Filter 14MHz} -command [myproc adc_fltr0]
-        button ${config(2)}.fltr1 -text {Filter 10MHz} -command [myproc adc_fltr1]
-        button ${config(2)}.fltr2 -text {Filter 7.5MHz} -command [myproc adc_fltr2]
-
-        grid ${config(2)}.spc1
-        grid ${config(2)}.reset -sticky ew -pady 3 -padx 5
-        grid ${config(2)}.spc2
-        grid ${config(2)}.pattern -sticky ew -pady 3 -padx 5
-        grid ${config(2)}.ramp -sticky ew -pady 3 -padx 5
-        grid ${config(2)}.100mV -sticky ew -pady 3 -padx 5
-        grid ${config(2)}.150mV -sticky ew -pady 3 -padx 5
-        grid ${config(2)}.spc3
-        grid ${config(2)}.fltr0 -sticky ew -pady 3 -padx 5
-        grid ${config(2)}.fltr1 -sticky ew -pady 3 -padx 5
-        grid ${config(2)}.fltr2 -sticky ew -pady 3 -padx 5
-
-        grid ${config(1)} -row 1 -column 1 -sticky ns
-        grid ${config(2)} -row 1 -column 2 -sticky ns
-
-                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 0
-                grid rowconfigure ${master} 1 -weight 1
-                grid rowconfigure ${master} 2 -weight 0
-
-        grid rowconfigure ${config(1)} 0 -weight 1
-    }
-
-# -------------------------------------------------------------------------
-
-    SpiDisplay instproc dac1_update args {
-        my instvar controller dac1
-
-        set value [format {3%03x} $dac1]
-
-        set prefix [format {%x} 12]
+        set thrs [frame ${master}.thrs]
+        set bins [frame ${master}.bins]
+        set clip [frame ${master}.clip]
+
+        set config(thrs) [labelframe ${thrs}.frame -borderwidth 1 -relief sunken -text {Thresholds}]
+
+        set column 0
+        foreach {input} [list "ADC" "noise thrs" "e/p thrs"] {
+            label ${config(thrs)}.label_${column} -text "${input}"
+            grid ${config(thrs)}.label_${column} -row 0 -column ${column} -sticky ew -padx 5 -pady 7
+            incr column
+        }
+
+        foreach {ch id} [array get adcCodes {[1-2]}] {
+            label ${config(thrs)}.chan_${ch} -text "${ch} "
+            grid ${config(thrs)}.chan_${ch} -row ${ch} -column 0 -sticky ew -padx 5 -pady 7
+            foreach {num} [list 0 1] {
+                set column [expr {$num + 1}]
+                set value [expr {2 * ($ch - 1) + $num}]
+                puts "${num} ${ch} ${value}"
+                spinbox ${config(thrs)}.thrs_${value} -from 0 -to 4095 \
+                  -increment 10 -width 10 -textvariable [myvar thrs($value)] \
+                  -validate all -vcmd {::mca::validate 4095 4 %P}
+                grid ${config(thrs)}.thrs_${value} -row ${ch} -column ${column} -sticky w -padx 5 -pady 7
+            }
+        }
+
+        grid $config(thrs) -row 0 -column 0 -sticky news -padx 10
+
+        set config(bins) [labelframe ${bins}.frame -borderwidth 1 -relief sunken -text {Thresholds}]
+
+        set column 0
+        foreach {input} [list "ADC" "thrs 1" "thrs 2" "thrs 3" "thrs 4"] {
+            label ${config(bins)}.label_${column} -text "${input}"
+            grid ${config(bins)}.label_${column} -row 0 -column ${column} -sticky ew -padx 5 -pady 7
+            incr column
+        }
+
+        foreach {ch id} [array get adcCodes {[3-6]}] {
+            label ${config(bins)}.chan_${ch} -text "${ch} "
+            grid ${config(bins)}.chan_${ch} -row ${ch} -column 0 -sticky ew -padx 5 -pady 7
+            foreach {num} [list 0 1 2 3] {
+                set column [expr {$num + 1}]
+                set value [expr {4 * ($ch - 2) + $num}]
+                puts "${num} ${ch} ${value}"
+                spinbox ${config(bins)}.thrs_${value} -from 0 -to 4095 \
+                  -increment 10 -width 10 -textvariable [myvar thrs($value)] \
+                  -validate all -vcmd {::mca::validate 4095 4 %P}
+                grid ${config(bins)}.thrs_${value} -row ${ch} -column ${column} -sticky w -padx 5 -pady 7
+            }
+        }
+
+        grid $config(bins) -row 0 -column 0 -sticky news -padx 10
+
+        set config(clip) [labelframe ${clip}.frame -borderwidth 1 -relief sunken -text {Signal clipping}]
+
+        set column 0
+        foreach {input} [list "ADC" "delay" "decay"] {
+            label ${config(clip)}.label_${column} -text "${input}"
+            grid ${config(clip)}.label_${column} -row 0 -column ${column} -sticky ew -padx 5 -pady 7
+            incr column
+        }
+
+        foreach {ch id} [array get adcCodes] {
+            label ${config(clip)}.chan_${ch} -text "${ch} "
+            grid ${config(clip)}.chan_${ch} -row ${ch} -column 0 -sticky ew -padx 5 -pady 7
+            spinbox ${config(clip)}.delay_${ch} -from 0 -to 62 \
+                -increment 2 -width 10 -textvariable [myvar delay($ch)] \
+                -validate all -vcmd {::mca::validate 63 5 %P}
+            grid ${config(clip)}.delay_${ch} -row ${ch} -column 1 -sticky w -padx 5 -pady 7
+            spinbox ${config(clip)}.decay_${ch} -from 0 -to 65535 \
+                -increment 10 -width 10 -textvariable [myvar decay($ch)] \
+                -validate all -vcmd {::mca::validate 65535 5 %P}
+            grid ${config(clip)}.decay_${ch} -row ${ch} -column 2 -sticky w -padx 5 -pady 7
+        }
+
+        grid $config(clip) -row 0 -column 0 -sticky news -padx 10
+
+        grid ${thrs} -row 0 -column 2 -sticky news
+        grid ${bins} -row 0 -column 1 -sticky news
+        grid ${clip} -row 0 -column 0 -sticky news
+
+        grid columnconfigure ${master} 0 -weight 1
+        grid columnconfigure ${master} 1 -weight 1
+        grid columnconfigure ${master} 2 -weight 1
+        grid rowconfigure ${master} 0 -weight 1
+
+        grid rowconfigure ${thrs} 0 -weight 0
+        grid rowconfigure ${bins} 0 -weight 0
+        grid rowconfigure ${clip} 0 -weight 0
+    }
+
+# -------------------------------------------------------------------------
+
+    CfgDisplay instproc decay_update args {
+        my instvar controller decay delay
 
         set command {}
-        append command 0001${prefix}00000020000000402[string range $value 0 1]
-        append command 0001${prefix}000000200000004[string range $value 2 3]00
+        for {set i 1} {$i <= 6} {incr i} {
+            set a $delay($i).0
+            set b $decay($i).0
+            set value [expr int(exp(-${a}/${b})*1024*17)]
+            append command [format {000200%02x0004%04x} [expr {30 + 2 * (${i} - 1)}] $value]
+        }
 
         $controller usbCmd $command
@@ -336 +390 @@
 # -------------------------------------------------------------------------
 
-    SpiDisplay instproc dac2_update args {
-        my instvar controller dac2
-
-        set value [format {b%03x} $dac1]
-
-        set prefix [format {%x} 12]
+    CfgDisplay instproc delay_update args {
+        my instvar controller delay
 
         set command {}
-        append command 0001${prefix}00000020000000402[string range $value 0 1]
-        append command 0001${prefix}000000200000004[string range $value 2 3]00
+        for {set i 1} {$i <= 6} {incr i} {
+            append command [format {000200%02x0004%04x} [expr {31 + 2 * (${i} - 1)}] $delay($i)]
+        }
 
         $controller usbCmd $command
-    }
-
-# -------------------------------------------------------------------------
-
-    SpiDisplay instproc adc_reset args {
-        my instvar controller
-
-        set prefix [format {%x} 12]
-        
+
+        my decay_update
+    }
+
+# -------------------------------------------------------------------------
+
+    CfgDisplay instproc thrs_update args {
+        my instvar controller thrs
+
         set command {}
-
-        set value {000001}
-        append command 0001${prefix}00000020000000401[string range $value 0 1]
-        append command 0001${prefix}000000200000004[string range $value 2 5]
-
-        set value {040008}
-        append command 0001${prefix}00000020000000401[string range $value 0 1]
-        append command 0001${prefix}000000200000004[string range $value 2 5]
-
-        $controller usbCmd $command
-    }
-
-# -------------------------------------------------------------------------
-
-    SpiDisplay instproc adc_pattern args {
-        my instvar controller
-
-        set value {022000}
-
-        set prefix [format {%x} 12]
-        
-        set command {}
-        append command 0001${prefix}00000020000000401[string range $value 0 1]
-        append command 0001${prefix}000000200000004[string range $value 2 5]
-
-        $controller usbCmd $command
-    }
-
-# -------------------------------------------------------------------------
-
-    SpiDisplay instproc adc_ramp args {
-        my instvar controller
-
-        set value {02E000}
-
-        set prefix [format {%x} 12]
-        
-        set command {}
-        append command 0001${prefix}00000020000000401[string range $value 0 1]
-        append command 0001${prefix}000000200000004[string range $value 2 5]
-
-        $controller usbCmd $command
-    }
-
-# -------------------------------------------------------------------------
-
-    SpiDisplay instproc adc_100mV args {
-        my instvar controller
-
-        set value {070080}
-
-        set prefix [format {%x} 12]
-        
-        set command {}
-        append command 0001${prefix}00000020000000401[string range $value 0 1]
-        append command 0001${prefix}000000200000004[string range $value 2 5]
-
-        $controller usbCmd $command
-    }
-
-# -------------------------------------------------------------------------
-
-    SpiDisplay instproc adc_150mV args {
-        my instvar controller
-
-        set value {070180}
-
-        set prefix [format {%x} 12]
-        
-        set command {}
-        append command 0001${prefix}00000020000000401[string range $value 0 1]
-        append command 0001${prefix}000000200000004[string range $value 2 5]
-
-        $controller usbCmd $command
-    }
-
-# -------------------------------------------------------------------------
-
-    SpiDisplay instproc adc_fltr0 args {
-        my instvar controller
-
-        set value {070000}
-
-        set prefix [format {%x} 12]
-        
-        set command {}
-        append command 0001${prefix}00000020000000401[string range $value 0 1]
-        append command 0001${prefix}000000200000004[string range $value 2 5]
-
-        $controller usbCmd $command
-    }
-
-# -------------------------------------------------------------------------
-
-    SpiDisplay instproc adc_fltr1 args {
-        my instvar controller
-
-        set value {070004}
-
-        set prefix [format {%x} 12]
-        
-        set command {}
-        append command 0001${prefix}00000020000000401[string range $value 0 1]
-        append command 0001${prefix}000000200000004[string range $value 2 5]
-
-        $controller usbCmd $command
-    }
-
-# -------------------------------------------------------------------------
-
-    SpiDisplay instproc adc_fltr2 args {
-        my instvar controller
-
-        set value {070008}
-
-        set prefix [format {%x} 12]
-        
-        set command {}
-        append command 0001${prefix}00000020000000401[string range $value 0 1]
-        append command 0001${prefix}000000200000004[string range $value 2 5]
+        for {set i 0} {$i <= 19} {incr i} {
+            append command [format {000200%02x0004%04x} [expr {10 + ${i}}] $thrs($i)]
+        }
 
         $controller usbCmd $command
@@ -549 +483 @@
         set key [frame ${master}.key]
         set inv [frame ${master}.inv]
-        
+
         foreach {osc title} $oscList {
             set config($osc) [labelframe ${mux}.$osc -borderwidth 1 -relief sunken -text $title]
@@ -580 +514 @@
         label $config(key).f -text "f - filtered signal"
         grid $config(key).f -row 0 -column 1 -sticky news
- 
+
         label $config(key).d -text "d - deconvoluted signal"
         grid $config(key).d -row 0 -column 2 -sticky news
- 
+
         label $config(key).c -text "c - clipped signal"
         grid $config(key).c -row 0 -column 3 -sticky news
@@ -589 +523 @@
         grid $config(key) -row 0 -column 0 -sticky news -padx 10
 
-        
+
         set config(inv) [labelframe ${inv}.frame -borderwidth 1 -relief sunken -text {polarity inversion}]
         label $config(inv).chan_label -text "channel "
@@ -620 +554 @@
         grid columnconfigure $config(key) 3 -weight 1
 
-        
+
         grid columnconfigure ${mux} 0 -weight 1
         grid columnconfigure ${mux} 1 -weight 1
@@ -627 +561 @@
         grid columnconfigure ${mux} 4 -weight 1
         grid columnconfigure ${mux} 5 -weight 1
-
-
-    }
-
+    }
 
 # ------------------------------------------------------------------------
@@ -648 +579 @@
     MuxDisplay instproc polar_update args {
         my instvar controller polar
-        
+
         set value {0b}
-        for {set i 12} {$i >= 1} {incr i -1} {
-            append value $polar($i)  
+        for {set i 6} {$i >= 1} {incr i -1} {
+            append value $polar($i)
         }
 
@@ -673 +604 @@
         my set data {}
 
-        vector create [myvar xvec](4096)
-        vector create [myvar yvec](4096)
-
-        # fill one vector for the x axis with 4096 points
-        [myvar xvec] seq -0.5 4095.5
+        vector create [myvar xvec](64)
+        vector create [myvar yvec](64)
+
+        # fill one vector for the x axis with 64 points
+        [myvar xvec] seq -0.5 63.5
 
         my setup
@@ -696 +627 @@
 
         trace add variable [myvar data] write [myproc data_update]
-        trace add variable [myvar cntr_val] write [myproc cntr_val_update]
-        trace add variable [myvar rate_val] write [myproc rate_val_update]
 
         trace add variable [myvar axis] write [myproc axis_update]
-        trace add variable [myvar thrs] write [myproc thrs_update]
-        trace add variable [myvar thrs_val] write [myproc thrs_update]
-        trace add variable [myvar base] write [myproc base_update]
-        trace add variable [myvar base_typ] write [myproc base_typ_update]
-        trace add variable [myvar base_val] write [myproc base_val_update]
 
         ${config}.axis_check select
 
-        ${config}.thrs_check select
-        ${config}.thrs_field set 25
-
-        ${config}.base_auto select
-        ${config}.base_field set 20
-        ${config}.base_check select
-
-        set cntr_tmp 1200000000
-        my set cntr_val $cntr_tmp
-        my set cntr_bak $cntr_tmp
-        my set cntr_old $cntr_tmp
         my set yvec_bak 0.0
         my set yvec_old 0.0
-
-        my set rate_val(inst) 0.0
-        my set rate_val(mean) 0.0
-
-#        my cntr_reset
     }
 
@@ -741 +649 @@
         $graph grid configure -hide no
         $graph legend configure -hide yes
-        $graph axis configure x -min 0 -max 4096
+        $graph axis configure x -min 0 -max 64
 
         set config [frame ${master}.config -width 170]
@@ -748 +656 @@
 
         frame ${config}.spc1 -width 170 -height 30
-
-        frame ${config}.rate_frame -borderwidth 0 -width 170
-        legendLabel ${config}.rate_frame 0 inst {Inst. rate, 1/s}
-        legendLabel ${config}.rate_frame 1 mean {Avg. rate, 1/s}
-
-        frame ${config}.spc2 -width 170 -height 30
 
         frame ${config}.chan_frame -borderwidth 0 -width 170
@@ -759 +661 @@
         legendLabel ${config}.chan_frame 1 axisx {Bin number}
 
-        frame ${config}.spc3 -width 170 -height 30
-
-        frame ${config}.cntr_frame -borderwidth 0 -width 170
-
-        label ${config}.cntr_frame.h -width 3 -anchor w -text {h}
-        entry ${config}.cntr_frame.h_field -width 3 -textvariable [myvar cntr_h] \
-            -validate all -vcmd {::mca::validate 999 3 %P}
-        label ${config}.cntr_frame.m -width 3 -anchor w -text {m}
-        entry ${config}.cntr_frame.m_field -width 3 -textvariable [myvar cntr_m] \
-            -validate all -vcmd {::mca::validate 59 2 %P}
-        label ${config}.cntr_frame.s -width 3 -anchor w -text {s}
-        entry ${config}.cntr_frame.s_field -width 6 -textvariable [myvar cntr_s] \
-            -validate all -vcmd {::mca::doublevalidate 59.999 %P}
-
-        grid ${config}.cntr_frame.h_field ${config}.cntr_frame.h \
-            ${config}.cntr_frame.m_field ${config}.cntr_frame.m ${config}.cntr_frame.s_field ${config}.cntr_frame.s
-
-        frame ${config}.spc4 -width 170 -height 10
+        frame ${config}.spc2 -width 170 -height 30
 
         button ${config}.start -text Start \
@@ -783 +668 @@
             -bg red -activebackground red -command [myproc cntr_reset]
 
-        frame ${config}.spc5 -width 170 -height 30
-
-        checkbutton ${config}.thrs_check -text threshold -variable [myvar thrs]
-        spinbox ${config}.thrs_field -from 1 -to 4095 \
-            -increment 5 -width 10 -textvariable [myvar thrs_val] \
-            -validate all -vcmd {::mca::validate 4095 4 %P}
-
-        frame ${config}.spc6 -width 170 -height 30
-
-        checkbutton ${config}.base_check -text baseline -variable [myvar base]
-        radiobutton ${config}.base_auto -text automatic -variable [myvar base_typ] -value 1
-        radiobutton ${config}.base_const -text constant -variable [myvar base_typ] -value 0
-        spinbox ${config}.base_field -from 1 -to 4095 \
-            -increment 5 -width 10 -textvariable [myvar base_val] \
-            -validate all -vcmd {::mca::validate 4095 4 %P}
-
-        frame ${config}.spc7 -width 170 -height 30
+        frame ${config}.spc3 -width 170 -height 30
 
         button ${config}.register -text Register \
@@ -806 +675 @@
         grid ${config}.axis_check -sticky w
         grid ${config}.spc1
-        grid ${config}.rate_frame -sticky ew -padx 5
+        grid ${config}.chan_frame -sticky ew -padx 5
         grid ${config}.spc2
-        grid ${config}.chan_frame -sticky ew -padx 5
-        grid ${config}.spc3
-        grid ${config}.cntr_frame -sticky ew -padx 5
-        grid ${config}.spc4
         grid ${config}.start -sticky ew -pady 3 -padx 5
         grid ${config}.reset -sticky ew -pady 3 -padx 5
-        grid ${config}.spc5
-        grid ${config}.thrs_check -sticky w
-        grid ${config}.thrs_field -sticky ew -pady 1 -padx 5
-        grid ${config}.spc6
-        grid ${config}.base_check -sticky w
-        grid ${config}.base_auto -sticky w
-        grid ${config}.base_const -sticky w
-        grid ${config}.base_field -sticky ew -pady 1 -padx 5
-        grid ${config}.spc7
+        grid ${config}.spc3
         grid ${config}.register -sticky ew -pady 3 -padx 5
 
@@ -832 +689 @@
         grid columnconfigure ${master} 1 -weight 0 -minsize 80
 
-        grid columnconfigure ${config}.rate_frame 1 -weight 1
         grid columnconfigure ${config}.chan_frame 1 -weight 1
 
@@ -886 +742 @@
 # -------------------------------------------------------------------------
 
-    HstDisplay instproc thrs_update args {
-        my instvar controller config number thrs thrs_val
-
-        if {[string equal $thrs_val {}]} {
-            set thrs_val 0
-        }
-
-        set val_addr [format %02x [expr {6 + 2 * ${number}}]]
-
-        if {$thrs} {
-            ${config}.thrs_field configure -state normal
-            set value [format %03x $thrs_val]
-        } else {
-            ${config}.thrs_field configure -state disabled
-            set value 000
-        }
-
-        $controller usbCmd 000200${val_addr}00040${value}
-    }
-
-# -------------------------------------------------------------------------
-
-    HstDisplay instproc base_update args {
-        my instvar controller config number base base_typ
-
-        set val_addr [format %02x [expr {7 + 2 * ${number}}]]
-
-        if {$base} {
-            ${config}.base_auto configure -state normal
-            ${config}.base_const configure -state normal
-            my base_typ_update
-        } else {
-            ${config}.base_auto configure -state disabled
-            ${config}.base_const configure -state disabled
-            ${config}.base_field configure -state disabled
-            $controller usbCmd 000200${val_addr}0004${base_typ}000
-        }
-    }
-
-# -------------------------------------------------------------------------
-
-    HstDisplay instproc base_typ_update args {
-        my instvar config base_typ
-
-        switch -- $base_typ {
-            1 {
-                ${config}.base_field configure -state disabled
-            }
-            0 {
-                ${config}.base_field configure -state normal
-            }
-        }
-
-        my base_val_update
-    }
-
-# -------------------------------------------------------------------------
-
-    HstDisplay instproc base_val_update args {
-        my instvar controller number base_typ base_val
-
-        if {[string equal $base_val {}]} {
-            set base_val 0
-        }
-
-        set val_addr [format %02x [expr {7 + 2 * ${number}}]]
-        set value [format %03x $base_val]
-
-        $controller usbCmd 000200${val_addr}0004${base_typ}${value}
-    }
-
-# -------------------------------------------------------------------------
-
-    HstDisplay instproc rate_val_update {name key op} {
-        my instvar config rate_val
-
-        ${config}.rate_frame.${key}_value configure -text [format {%.2e} $rate_val(${key})]
-    }
-
-# -------------------------------------------------------------------------
-
-    HstDisplay instproc cntr_val_update args {
-        my instvar cntr_val cntr_h cntr_m cntr_s
-
-        set cntr_tmp [expr {${cntr_val}/20000}]
-        set cntr_h [expr {${cntr_tmp}/3600000}]
-        set cntr_m [expr {${cntr_tmp}%3600000/60000}]
-        set cntr_s [expr {${cntr_tmp}%3600000%60000/1000.0}]
-    }
-
-# -------------------------------------------------------------------------
-
-    HstDisplay instproc cntr_setup {} {
-        my instvar controller number cntr_val
-
-        set word0 [format %08x [expr {${cntr_val} & 0xFFFFFFFF}]]
-        set word1 [format %08x [expr {${cntr_val} >> 32}]]
-
-        set prefix [format %x [expr {5 + ${number}}]]
-
-        set command {}
-        append command 0001${prefix}000000200000004[string range $word0 4 7]
-        append command 0001${prefix}000000200010004[string range $word0 0 3]
-        append command 0001${prefix}000000200020004[string range $word1 4 7]
-        append command 0001${prefix}000000200030004[string range $word1 0 3]
-
-        # send counter value
-        $controller usbCmd $command
-
-        # load counter value
-#        set val_addr [format %02x [expr {12 + ${number}}]]
-#        $controller usbCmd 000200${val_addr}00040001000200${val_addr}00040000
-    }
-
-# -------------------------------------------------------------------------
-
     HstDisplay instproc cntr_reset {} {
-        my instvar controller number after_handle
-        my instvar cntr_val cntr_bak cntr_old yvec_bak yvec_old
+        my instvar controller number
 
         my cntr_stop
@@ -1011 +750 @@
         $controller usbCmd 000200000004${value}0002000000040000
 
-        set cntr_val $cntr_bak
-        my cntr_setup
-
-        set cntr_old $cntr_bak
-        set yvec_bak 0.0
-        set yvec_old 0.0
-        
         my acquire
-
-        my cntr_ready
-    }
-
-# -------------------------------------------------------------------------
-
-    HstDisplay instproc cntr_ready {} {
-        my instvar config cntr_val cntr_bak
-
-        set cntr_val $cntr_bak
-
-        ${config}.start configure -text Start -command [myproc cntr_start]
-        ${config}.reset configure -state active
-
-        ${config}.cntr_frame.h_field configure -state normal
-        ${config}.cntr_frame.m_field configure -state normal
-        ${config}.cntr_frame.s_field configure -state normal
     }
 
@@ -1041 +756 @@
 
     HstDisplay instproc cntr_start {} {
-        my instvar config
-        my instvar cntr_h cntr_m cntr_s
-        my instvar cntr_val cntr_bak cntr_old yvec_bak yvec_old
-
-        set h $cntr_h
-        set m $cntr_m
-        set s $cntr_s
-
-        if {[string equal $h {}]} {
-            set h 0
-        }
-        if {[string equal $m {}]} {
-            set m 0
-        }
-        if {[string equal $s {}]} {
-            set s 0
-        }
-
-        set cntr_tmp [expr {${h}*3600000 + ${m}*60000 + ${s}*1000}]
-        set cntr_tmp [expr {entier(20000 * ${cntr_tmp})}]
-
-        if {$cntr_tmp > 0} {
-            ${config}.cntr_frame.h_field configure -state disabled
-            ${config}.cntr_frame.m_field configure -state disabled
-            ${config}.cntr_frame.s_field configure -state disabled
-
-            set cntr_val $cntr_tmp
-            set cntr_bak $cntr_tmp
-            set cntr_old $cntr_tmp
-            set yvec_bak [usb::integrateBlt [myvar yvec] 0]
-            set yvec_old $yvec_bak
-
-            my cntr_setup
-
-            my cntr_resume
-        }
-    }
-
-# -------------------------------------------------------------------------
-
-    HstDisplay instproc cntr_pause {} {
-        my instvar config
-
-        my cntr_stop
-
-        ${config}.start configure -text Resume -command [myproc cntr_resume]
-#        ${config}.reset configure -state active
-
-    }
-
-# -------------------------------------------------------------------------
-
-    HstDisplay instproc cntr_resume {} {
         my instvar controller config number auto
 
-        set val_addr [format %02x [expr {13 + ${number}}]]
-
-        ${config}.start configure -text Pause -command [myproc cntr_pause]
+        set val_addr [format %02x [expr {6 + ${number}}]]
+
+        ${config}.start configure -text Stop -command [myproc cntr_stop]
 #        ${config}.reset configure -state disabled
 
-        $controller usbCmd 000200${val_addr}00040002
+        $controller usbCmd 000200${val_addr}00040001
 
         set auto 1
@@ -1113 +775 @@
         my instvar controller config number auto
 
-        set val_addr [format %02x [expr {13 + ${number}}]]
+        set val_addr [format %02x [expr {6 + ${number}}]]
+
+        ${config}.start configure -text Start -command [myproc cntr_start]
 
         $controller usbCmd 000200${val_addr}00040000
 
         set auto 0
+
+        my acquire
     }
 
@@ -1134 +800 @@
         my acquire
 
-        if {$cntr_val == 0} {
-            my cntr_stop
-            my cntr_ready
-        } elseif {$auto} {
+        if {$auto} {
             after 1000 [myproc acquire_loop]
         }
@@ -1146 +809 @@
     HstDisplay instproc acquire {} {
         my instvar controller config number
-        my instvar cntr_val cntr_bak cntr_old yvec_bak yvec_old rate_val
-
-        set size 4096
+
+        set size 64
 
         set prefix [format {%x} [expr {$number + 2}]]
@@ -1157 +819 @@
 
         $controller usbCmdReadRaw $command [expr {$size * 4}] [myvar data]
-        set yvec_new [usb::integrateBlt [myvar yvec]]
-
-        set prefix [format {%x} [expr {$number + 5}]]
-        set command 0001${prefix}000000200000003000400050000
-
-        $controller usbCmdReadHex $command 8 1 [myvar cntr_val]
-        set cntr_new $cntr_val
-
-        if {$cntr_new < $cntr_old} {
-            set rate_val(inst) [expr {($yvec_new - $yvec_old)*20000000/($cntr_old - $cntr_new)}]
-            set rate_val(mean) [expr {($yvec_new - $yvec_bak)*20000000/($cntr_bak - $cntr_new)}]
-            set yvec_old $yvec_new
-            set cntr_old $cntr_new
-        }
    }
 
@@ -1209 +857 @@
 
     HstDisplay instproc register {} {
-        my save_data [join [[myvar yvec] range 0 4095] \n]
-    }
-
-# -------------------------------------------------------------------------
-
-    Class CntDisplay -parameter {
+        my save_data [join [[myvar yvec] range 0 63] \n]
+    }
+
+# -------------------------------------------------------------------------
+
+    Class OscDisplay -parameter {
         {master}
         {controller}
@@ -1221 +869 @@
 # -------------------------------------------------------------------------
 
-    CntDisplay instproc init {} {
-
-        my set data {}
-        my set cntr 0
-        my set recs 0
-
-        vector create [myvar xvec](16384)
-        vector create [myvar yvec](16384)
-
-        # fill one vector for the x axis with 16384 points
-        [myvar xvec] seq -0.5 16384.5
+    OscDisplay instproc init {} {
+        my instvar sequence data xvec yvec
+
+        set data {}
+
+        set sequence 0
+
+#        set xvec [vector create #auto(262144)]
+#        set xvec [vector create #auto(10000)]
+        set xvec [vector create #auto(60000)]
+
+        for {set i 1} {$i <= 9} {incr i} {
+#          dict set yvec $i [vector create #auto(262144)]
+#          dict set yvec $i [vector create #auto(10000)]
+          dict set yvec $i [vector create #auto(60000)]
+        }
+
+        # fill one vector for the x axis
+#        $xvec seq 0 262143
+#        $xvec seq 0 10000
+        $xvec seq 0 60000
 
         my setup
@@ -1240 +898 @@
 # -------------------------------------------------------------------------
 
-    CntDisplay instproc destroy {} {
+    OscDisplay instproc destroy {} {
         next
     }
@@ -1246 +904 @@
 # -------------------------------------------------------------------------
 
-    CntDisplay instproc start {} {
+    OscDisplay instproc start {} {
         my instvar config
+        my instvar recs_val directory
+
+        set directory $::env(HOME)
+        set recs_val 100
+
+        trace add variable [myvar chan] write [myproc chan_update]
 
         trace add variable [myvar data] write [myproc data_update]
 
-        trace add variable [myvar thrs_val] write [myproc thrs_val_update]
-
-        trace add variable [myvar cntr] write [myproc cntr_update]
-        trace add variable [myvar recs] write [myproc recs_update]
-
-        trace add variable [myvar axis] write [myproc axis_update]
-
-        ${config}.axis_check select
-
-        my set thrs_val 100
-
-        my set cntr_val 100
-        my set cntr_bak 100
-        my set recs_val 100
-        my set recs_bak 100
-
-#        my cntr_reset
-    }
-
-# -------------------------------------------------------------------------
-
-    CntDisplay instproc setup {} {
+        trace add variable [myvar auto] write [myproc auto_update]
+
+        trace add variable [myvar thrs] write [myproc thrs_update 0]
+        trace add variable [myvar thrs_val] write [myproc thrs_update 0]
+
+        trace add variable [myvar recs_val] write [myproc recs_val_update]
+
+        trace add variable [myvar last] write [myproc last_update]
+
+        for {set i 1} {$i <= 6} {incr i} {
+            ${config}.chan_frame.chan${i}_check select
+            ${config}.chan_frame.chan${i}_value configure -text 0.0
+        }
+        ${config}.chan_frame.axisx_value configure -text 0.0
+
+        ${config}.thrs_check select
+        ${config}.thrs_field set 100
+    }
+
+# -------------------------------------------------------------------------
+
+    OscDisplay instproc setup {} {
         my instvar master
         my instvar xvec yvec graph
         my instvar config
-        my instvar cntr_ms
 
         # create a graph widget and show a grid
@@ -1283 +946 @@
         $graph grid configure -hide no
         $graph legend configure -hide yes
-        $graph axis configure x -min 0 -max 16384
-
-        set config [frame ${master}.config -width 170]
-
-        checkbutton ${config}.axis_check -text {log scale} -variable [myvar axis]
-
-        frame ${config}.spc1 -width 170 -height 30
-
-        frame ${config}.chan_frame -borderwidth 0 -width 170
-        legendLabel ${config}.chan_frame 0 mean  {Mean value}
-        legendLabel ${config}.chan_frame 1 entr  {Total entries}
-        legendLabel ${config}.chan_frame 2 empty {}
-        legendLabel ${config}.chan_frame 3 axisy {Bin entries}
-        legendLabel ${config}.chan_frame 4 axisx {Bin number}
-
-        frame ${config}.spc3 -width 170 -height 30
-
-        label ${config}.thrs -text {amplitude threshold}
-        spinbox ${config}.thrs_field -from 1 -to 4095 \
-            -increment 5 -width 10 -textvariable [myvar thrs_val] \
-            -validate all -vcmd {::mca::validate 4095 4 %P}
-
-        frame ${config}.spc4 -width 170 -height 30
-
-        label ${config}.cntr -text {time of exposure (s)}
-        spinbox ${config}.cntr_field -from 0 -to 9999 \
-            -increment 10 -width 10 -textvariable [myvar cntr_val] \
-            -validate all -vcmd {::mca::validate 9999 4 %P}
-
-        frame ${config}.spc5 -width 170 -height 10
-
-        label ${config}.recs -text {number of exposures}
-        spinbox ${config}.recs_field -from 0 -to 99999 \
-            -increment 10 -width 10 -textvariable [myvar recs_val] \
-            -validate all -vcmd {::mca::validate 99999 5 %P}
-
-        frame ${config}.spc6 -width 170 -height 10
-
-        button ${config}.start -text {Start}  \
-            -bg yellow -activebackground yellow -command [myproc recs_start]
-
-        button ${config}.reset -text Reset \
-            -bg red -activebackground red -command [myproc cntr_reset]
-
-        frame ${config}.spc7 -width 170 -height 30
-
-        button ${config}.register -text Register \
-            -bg lightblue -activebackground lightblue -command [myproc register]
-
-        grid ${config}.axis_check -sticky w
-        grid ${config}.spc1
-        grid ${config}.chan_frame -sticky ew -padx 5
-        grid ${config}.spc3
-        grid ${config}.thrs -sticky w -pady 1 -padx 3
-        grid ${config}.thrs_field -sticky ew -pady 1 -padx 5
-        grid ${config}.spc4
-        grid ${config}.cntr -sticky w -pady 1 -padx 3
-        grid ${config}.cntr_field -sticky ew -pady 1 -padx 5
-        grid ${config}.spc5
-        grid ${config}.recs -sticky w -pady 1 -padx 3
-        grid ${config}.recs_field -sticky ew -pady 1 -padx 5
-        grid ${config}.spc6
-        grid ${config}.start -sticky ew -pady 3 -padx 5
-        grid ${config}.reset -sticky ew -pady 3 -padx 5
-        grid ${config}.spc7
-        grid ${config}.register -sticky ew -pady 3 -padx 5
-
-        grid ${graph} -row 0 -column 0 -sticky news
-        grid ${config} -row 0 -column 1
-
-        grid rowconfigure ${master} 0 -weight 1
-        grid columnconfigure ${master} 0 -weight 1
-        grid columnconfigure ${master} 1 -weight 0 -minsize 80
-
-        grid columnconfigure ${config}.chan_frame 1 -weight 1
-
-        # enable zooming
-        Blt_ZoomStack $graph
-
-        my crosshairs $graph
-
-        #bind .graph <Motion> {%W crosshairs configure -position @%x,%y}
-
-        # create one element with data for the x and y axis, no dots
-        $graph element create Spectrum1 -color blue -linewidth 2 -symbol none -smooth step -xdata [myvar xvec] -ydata [myvar yvec]
-    }
-
-# -------------------------------------------------------------------------
-
-    CntDisplay instproc coor_update {W x y} {
-        my instvar config graph
-
-        $W crosshairs configure -position @${x},${y}
-
-        set index [$W axis invtransform x $x]
-        set index [::tcl::mathfunc::round $index]
-        catch {
-            ${config}.chan_frame.axisy_value configure -text [[myvar yvec] index $index]
-            ${config}.chan_frame.axisx_value configure -text ${index}.0
-        }
-    }
-# -------------------------------------------------------------------------
-
-    CntDisplay instproc crosshairs {graph} {
-        set method [myproc coor_update]
-        bind $graph <Motion> [list [self] coor_update %W %x %y]
-        bind $graph <Leave> {
-            %W crosshairs off
-        }
-        bind $graph <Enter> {
-            %W crosshairs on
-        }
-    }
-
-# -------------------------------------------------------------------------
-
-    CntDisplay instproc thrs_val_update args {
-        my instvar controller config thrs_val
-
-        if {[string equal $thrs_val {}]} {
-            set thrs_val 0
-        }
-
-        set val_addr [format %02x 12]
-
-        ${config}.thrs_field configure -state normal
-        set value [format %03x $thrs_val]
-
-        $controller usbCmd 000200${val_addr}00040${value}
-    }
-
-# -------------------------------------------------------------------------
-
-    CntDisplay instproc cntr_update args {
-        my instvar cntr cntr_val
-        set cntr_val [expr {${cntr}/20000000}]
-
-    }
-
-# -------------------------------------------------------------------------
-
-    CntDisplay instproc recs_update args {
-        my instvar recs recs_val
-        set recs_val [expr {${recs}*1}]
-    }
-
-# -------------------------------------------------------------------------
-
-    CntDisplay instproc cntr_setup {} {
-        my instvar controller cntr_val
-
-        set cntr_tmp [expr {${cntr_val} * 20000000}]
-        set word0 [format {%08x} [expr {${cntr_tmp} & 0xFFFFFFFF}]]
-        set word1 [format {%08x} [expr {${cntr_tmp} >> 32}]]
-
-        set prefix [format {%x} 9]
-
-        set command {}
-        append command 0001${prefix}000000200000004[string range $word0 4 7]
-        append command 0001${prefix}000000200010004[string range $word0 0 3]
-        append command 0001${prefix}000000200020004[string range $word1 4 7]
-        append command 0001${prefix}000000200030004[string range $word1 0 3]
-
-        # send counter value
-        $controller usbCmd $command
-    }
-
-# -------------------------------------------------------------------------
-
-    CntDisplay instproc recs_setup {} {
-        my instvar controller recs_val
-
-        set word0 [format {%08x} [expr {${recs_val} & 0xFFFFFFFF}]]
-        set word1 [format {%08x} [expr {${recs_val} >> 32}]]
-
-        set prefix [format {%x} 10]
-
-        set command {}
-        append command 0001${prefix}000000200000004[string range $word0 4 7]
-        append command 0001${prefix}000000200010004[string range $word0 0 3]
-        append command 0001${prefix}000000200020004[string range $word1 4 7]
-        append command 0001${prefix}000000200030004[string range $word1 0 3]
-
-        # send counter value
-        $controller usbCmd $command
-    }
-
-# -------------------------------------------------------------------------
-
-    CntDisplay instproc cntr_reset {} {
-        my instvar controller after_handle
-        my instvar cntr_val cntr_bak recs_val recs_bak
-
-        my cntr_stop
-
-        set value [format {%04x} [expr {1 << 11}]]
-        $controller usbCmd 000200000004${value}0002000000040000
-
-        my recs_stop
-    }
-
-# -------------------------------------------------------------------------
-
-    CntDisplay instproc cntr_ready {} {
-        my instvar config cntr_val cntr_bak recs_val recs_bak
-
-        set cntr_val $cntr_bak
-        set recs_val $recs_bak
-
-        ${config}.start configure -text Start -command [myproc recs_start]
-        ${config}.reset configure -state active
-
-        ${config}.start configure -state active
-        ${config}.cntr_field configure -state normal
-        ${config}.recs_field configure -state normal
-    }
-
-# -------------------------------------------------------------------------
-
-    CntDisplay instproc recs_start {} {
-        my instvar controller config auto
-        my instvar cntr_val cntr_bak recs_val recs_bak
-
-        if {$cntr_val > 0 && $recs_val > 0} {
-            ${config}.start configure -text {Stop} -command [myproc recs_stop]
-            ${config}.cntr_field configure -state disabled
-            ${config}.recs_field configure -state disabled
-
-            set cntr_bak $cntr_val
-            set recs_bak $recs_val
-
-            my cntr_setup
-            my recs_setup
-
-            set val_addr [format {%02x} 16]
-
-            $controller usbCmd 000200${val_addr}00040002
-
-            set auto 1
-
-            after 100 [myproc acquire_loop]
-        }
-    }
-
-# -------------------------------------------------------------------------
-
-    CntDisplay instproc recs_stop {} {
-        my instvar cntr_val cntr_bak recs_val recs_bak
-
-        my cntr_stop
-
-        set cntr_val $cntr_bak
-        my cntr_setup
-
-        set recs_val $recs_bak
-        my recs_setup
-
-        my acquire
-
-        my cntr_ready
-    }
-
-# -------------------------------------------------------------------------
-
-    CntDisplay instproc cntr_stop {} {
-        my instvar controller config auto
-
-        set val_addr [format {%02x} 16]
-
-        $controller usbCmd 000200${val_addr}00040000
-
-        set auto 0
-    }
-
-# -------------------------------------------------------------------------
-
-    CntDisplay instproc acquire_loop {} {
-        my instvar recs_val auto
-
-        my acquire
-
-        if {$recs_val == 0} {
-            my cntr_stop
-            my cntr_ready
-        } elseif {$auto} {
-            after 1000 [myproc acquire_loop]
-        }
-    }
-
-# -------------------------------------------------------------------------
-
-    CntDisplay instproc data_update args {
-        my instvar config data
-        usb::convertBlt $data 2 [myvar yvec]
-
-        ${config}.chan_frame.mean_value configure \
-            -text [format {%.2e} [usb::integrateBlt [myvar yvec] 1]]
-        ${config}.chan_frame.entr_value configure \
-            -text [usb::integrateBlt [myvar yvec] 0]
-
-    }
-
-# -------------------------------------------------------------------------
-
-    CntDisplay instproc axis_update args {
-        my instvar axis graph
-        if {$axis} {
-            $graph axis configure y -min 1 -max 1E5 -logscale yes
-        } else {
-            $graph axis configure y -min {} -max {} -logscale no
-        }
-    }
-
-# -------------------------------------------------------------------------
-
-    CntDisplay instproc acquire {} {
-        my instvar controller config
-        my instvar cntr cntr_val recs recs_val
-
-        set size 16384
-
-        set prefix [format {%x} 8]
-
-        set value [format {%08x} $size]
-
-        set command 0001${prefix}000000200000001[string range $value 0 3]0003[string range $value 4 7]00050000
-
-        $controller usbCmdReadRaw $command [expr {$size * 2}] [myvar data]
-
-        set prefix [format {%x} 9]
-        set command 0001${prefix}000000200000003000400050000
-
-        $controller usbCmdReadHex $command 8 1 [myvar cntr]
-
-        set prefix [format {%x} 10]
-        set command 0001${prefix}000000200000003000400050000
-
-        $controller usbCmdReadHex $command 8 1 [myvar recs]
-   }
-
-# -------------------------------------------------------------------------
-
-    CntDisplay instproc save_data {data} {
-
-        set types {
-            {{Data Files}       {.dat}        }
-            {{All Files}        *             }
-        }
-
-        set stamp [clock format [clock seconds] -format %Y%m%d_%H%M%S]
-        set fname counts_${stamp}.dat
-
-        set fname [tk_getSaveFile -filetypes $types -initialfile $fname]
-        if {[string equal $fname {}]} {
-            return
-        }
-
-        set x [catch {
-            set fid [open $fname w+]
-            puts $fid $data
-            close $fid
-        }]
-
-        if { $x || ![file exists $fname] || ![file isfile $fname] || ![file readable $fname] } {
-            tk_messageBox -icon error \
-                -message "An error occurred while writing to \"$fname\""
-        } else {
-            tk_messageBox -icon info \
-                -message "File \"$fname\" written successfully"
-        }
-    }
-
-# -------------------------------------------------------------------------
-
-    CntDisplay instproc register {} {
-        my save_data [join [[myvar yvec] range 0 16383] \n]
-    }
-
-# -------------------------------------------------------------------------
-
-    Class OscDisplay -parameter {
-        {master}
-        {controller}
-    }
-
-# -------------------------------------------------------------------------
-
-    OscDisplay instproc init {} {
-        my instvar sequence data xvec yvec
-
-        set data {}
-        
-        set sequence 0
-
-#        set xvec [vector create #auto(262144)]
-        set xvec [vector create #auto(10000)]
-
-        for {set i 1} {$i <= 9} {incr i} {
-#          dict set yvec $i [vector create #auto(262144)]
-          dict set yvec $i [vector create #auto(10000)]
-        }
-
-        # fill one vector for the x axis
-#        $xvec seq 0 262143
-        $xvec seq 0 10000
-
-        my setup
-
-        next
-    }
-
-# -------------------------------------------------------------------------
-
-    OscDisplay instproc destroy {} {
-        next
-    }
-
-# -------------------------------------------------------------------------
-
-    OscDisplay instproc start {} {
-        my instvar config
-        my instvar recs_val directory
-
-        set directory $::env(HOMEPATH)
-        set recs_val 100
-
-        trace add variable [myvar chan] write [myproc chan_update]
-
-        trace add variable [myvar data] write [myproc data_update]
-
-        trace add variable [myvar auto] write [myproc auto_update]
-
-        trace add variable [myvar thrs] write [myproc thrs_update 0]
-        trace add variable [myvar thrs_val] write [myproc thrs_update 0]
-
-        trace add variable [myvar recs_val] write [myproc recs_val_update]
-
-        trace add variable [myvar last] write [myproc last_update]
-
-        ${config}.chan_frame.chan1_check select
-        ${config}.chan_frame.chan2_check select
-        ${config}.chan_frame.chan3_check select
-        ${config}.chan_frame.chan4_check select
-        ${config}.chan_frame.chan5_check select
-        ${config}.chan_frame.chan6_check select
-
-        ${config}.thrs_check select
-        ${config}.thrs_field set 100
-    }
-
-# -------------------------------------------------------------------------
-
-    OscDisplay instproc setup {} {
-        my instvar master
-        my instvar xvec yvec graph
-        my instvar config
-
-        # create a graph widget and show a grid
-        set graph [graph ${master}.graph -height 250 -leftmargin 80]
-        $graph crosshairs configure -hide no -linewidth 1 -color darkblue -dashes {2 2}
-        $graph grid configure -hide no
-        $graph legend configure -hide yes
-        $graph axis configure x -min 0 -max 10000
+        $graph axis configure x -min 0 -max 60000
         $graph axis configure y -min 0 -max 4100
 
@@ -1791 +992 @@
             -bg yellow -activebackground yellow
 
-        frame ${config}.spc6 -width 170 -height 10
+        frame ${config}.spc6 -width 170 -height 30
 
         button ${config}.recover -text {Read file} \
@@ -1920 +1121 @@
         if {$thrs} {
             ${config}.thrs_field configure -state normal
-            set value [format %03x $thrs_val]
+            set value [format {%03x} $thrs_val]
         } else {
             ${config}.thrs_field configure -state disabled
@@ -1979 +1180 @@
 
 #        set size 262144
-        set size 10000
+#        set size 10000
+        set size 60000
 
         set value [format {%08x} [expr {$size * 4}]]
 
         set command 00011000000200000001[string range $value 0 3]0003[string range $value 4 7]00050000
-        
+
         $controller usbCmdReadRaw $command [expr {$size * 8}] [myvar data]
 
@@ -2071 +1273 @@
         }
 
-        set stamp [clock format [clock seconds] -format %Y%m%d_%H%M%S]
+        set stamp [clock format [clock seconds] -format {%Y%m%d_%H%M%S}]
         set fname oscillogram_${stamp}.dat
 
@@ -2078 +1280 @@
             return
         }
-    
+
         if {[catch {my save_data $fname} result]} {
             tk_messageBox -icon error \
@@ -2115 +1317 @@
         ${config}.register configure -state disabled
         ${config}.recover configure -state disabled
-        
+
         set recs_bak $recs_val
 
@@ -2140 +1342 @@
             return
         }
-        
+
         my sequence_stop
     }
@@ -2150 +1352 @@
 
         set sequence 0
-        
+
         set recs_val $recs_bak
 
@@ -2164 +1366 @@
     namespace export MuxDisplay
     namespace export HstDisplay
-    namespace export CntDisplay
+    namespace export CfgDisplay
     namespace export OscDisplay
 }
@@ -2176 +1378 @@
 
 ::mca::UsbController usb
-usb usbCmd 00000000
-
-set window [frame ${notebook}.spi]
-$notebook insert end -text "DAC & ADC control" -window $window -fill both
-::mca::SpiDisplay spi -master $window -controller usb
 
 set window [frame ${notebook}.mux]
@@ -2186 +1383 @@
 ::mca::MuxDisplay mux -master $window -controller usb
 
+set window [frame ${notebook}.cfg]
+$notebook insert end -text "Configuration" -window $window -fill both
+::mca::CfgDisplay cfg -master $window -controller usb
+
+set window [frame ${notebook}.hst]
+$notebook insert end -text "Histogram" -window $window -fill both
+::mca::HstDisplay hst -number 0 -master $window -controller usb
+
 set window [frame ${notebook}.ept]
 $notebook insert end -text "Oscilloscope" -window $window -fill both
@@ -2192 +1397 @@
 update
 
-spi start
+cfg start
 
 mux start
 
+hst start
+
 osc start
-
-spi adc_reset