Make wavelength reporting more like the NVS software.

r2873 | ffr | 2010-01-21 09:38:59 +1100 (Thu, 21 Jan 2010) | 2 lines
2010-01-21 09:38:59 +11:00
parent 30002eb404
commit 4a7bfba81e
1 changed files with 2 additions and 2 deletions
--- a/site_ansto/instrument/sans/config/velsel/sct_velsel.tcl
+++ b/site_ansto/instrument/sans/config/velsel/sct_velsel.tcl
@@ -297,10 +297,10 @@ proc rdPwdAck {} {

    set angle [lindex [hval $statuspath] $paramindex(ttang) end]
    set aspeed [lindex [hval $statuspath] $paramindex(aspeed) end]
-    if {$aspeed >= 3100} {
+    if {$aspeed >= 800} {
      set lambda [AngleSpeedToWavelength $angle $aspeed]
    } else {
-      set lambda 99999
+      set lambda 9999
    }
    if {$lambda != [sct oldval]} {
      sct oldval $lambda