Changeset 188 for trunk/3DEES/UserInterface.tcl

Timestamp:

Mar 25, 2014, 12:44:12 AM (11 years ago)

Author:

demin

Message:

fix bin numbers

File:

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

trunk/3DEES/UserInterface.tcl

@@ -450 +450 @@
             set b $decay($i).0
             set value [expr int(exp(-${a}/${b})*1024*20)]
-            append command [format {000200%02x0004%04x} [expr {36 + 2 * (${i} - 1)}] $value]
+            append command [format {000200%02x0004%04x} [expr {38 + 2 * (${i} - 1)}] $value]
         }
 
@@ -463 +463 @@
         set command {}
         for {set i 1} {$i <= 6} {incr i} {
-            append command [format {000200%02x0004%04x} [expr {35 + 2 * (${i} - 1)}] $delay($i)]
+            append command [format {000200%02x0004%04x} [expr {39 + 2 * (${i} - 1)}] $delay($i)]
         }