linse/sics
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Make wavelength reporting more like the NVS software.

Browse Source 
r2873 | ffr | 2010-01-21 09:38:59 +1100 (Thu, 21 Jan 2010) | 2 lines
This commit is contained in:
Ferdi Franceschini
2010-01-21 09:38:59 +11:00
committed by Douglas Clowes
parent 30002eb404
commit 4a7bfba81e
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
site_ansto/instrument/sans/config/velsel/sct_velsel.tcl
View File

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