From 76e63de5a3e0426576871ecb69c775e091f0a599 Mon Sep 17 00:00:00 2001
From: Douglas Clowes <dcl@ansto.gov.au>
Date: Mon, 14 Apr 2008 10:30:07 +1000
Subject: [PATCH] adjustments to timings

r2433 | dcl | 2008-04-14 10:30:07 +1000 (Mon, 14 Apr 2008) | 2 lines
---
 .../instrument/util/dmc2280/putDMCprog.tcl     | 18 +++++++++++++-----
 1 file changed, 13 insertions(+), 5 deletions(-)

diff --git a/site_ansto/instrument/util/dmc2280/putDMCprog.tcl b/site_ansto/instrument/util/dmc2280/putDMCprog.tcl
index c0502df7..47032ece 100755
--- a/site_ansto/instrument/util/dmc2280/putDMCprog.tcl
+++ b/site_ansto/instrument/util/dmc2280/putDMCprog.tcl
@@ -40,29 +40,37 @@ proc Echo { chan } {
     flush stdout
     flush $chan
     after 500
+#   puts stdout "XQ #AUTO,0"
+#   puts $chan "XQ #AUTO,0"
+#   flush stdout
+#   flush $chan
+#   after 500
     set forever done
     exit
   } else {
     set line [gets stdin]
     if { "$line" != "" } {
-      set line_num [expr $line_num + 1]
-      puts stdout "$line_num: $line"
+#     puts stdout "$line_num: $line"
+#     set line_num [expr $line_num + 1]
       puts $chan $line
       flush stdout
       flush $chan
-      after 20
+      after 10
     }
   }
 }
 
+puts stdout ""
+puts $con4 ""
+after 500
 # Stop any execution that might interfere with the download
 puts stdout "HX"
 puts $con4 "HX"
-after 50
+after 500
 # Start the download
 puts stdout "DL"
 puts $con4 "DL"
-after 50
+after 500
 if { 0 } {
   fileevent $con4 writable [list Echo $con4]
   fileevent $con4 readable [list puts [gets $con4]]