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

Fix updating parameters when a value changes.

Browse Source
This commit is contained in:
Ferdi Franceschini
2015-02-03 15:51:36 +11:00
parent 56d63ebc30
commit 6b1a192af6
2 changed files with 8 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
site_ansto/instrument/bilby/config/chopper/astrium_chopper.sct
View File

@ -95,14 +95,15 @@ driver astrium_chopper = {
"ASPEED" { "ASPEED" {
if [string is double "${rhs}"] { if [string is double "${rhs}"] {
set freq [expr "${rhs}" / 60.0] set freq [expr "${rhs}" / 60.0]
if { "[hval ${base}/frequency]" != "${freq}" } { if { "[hval ${base}/${lhs}]" != "${rhs}" } {
hset ${base}/${lhs} "${rhs}"
hset ${base}/frequency ${freq} hset ${base}/frequency ${freq}
} }
} }
} }
"RSPEED" - "APHASE" - "RPHASE" - "MASTER" { "RSPEED" - "APHASE" - "RPHASE" - "MASTER" {
if { "[hval ${base}/${node}]" != "${rhs}" } { if { "[hval ${base}/${lhs}]" != "${rhs}" } {
hset ${base}/${node} "${rhs}" hset ${base}/${lhs} "${rhs}"
} }
} }
} }

7
site_ansto/instrument/bilby/config/chopper/astrium_chopper_sct.tcl
View File

@ -181,14 +181,15 @@ proc ::scobj::astrium_chopper::readState {tc_root} {
"ASPEED" { "ASPEED" {
if [string is double "${rhs}"] { if [string is double "${rhs}"] {
set freq [expr "${rhs}" / 60.0] set freq [expr "${rhs}" / 60.0]
if { "[hval ${base}/frequency]" != "${freq}" } { if { "[hval ${base}/${lhs}]" != "${rhs}" } {
hset ${base}/${lhs} "${rhs}"
hset ${base}/frequency ${freq} hset ${base}/frequency ${freq}
} }
} }
} }
"RSPEED" - "APHASE" - "RPHASE" - "MASTER" { "RSPEED" - "APHASE" - "RPHASE" - "MASTER" {
if { "[hval ${base}/${node}]" != "${rhs}" } { if { "[hval ${base}/${lhs}]" != "${rhs}" } {
hset ${base}/${node} "${rhs}" hset ${base}/${lhs} "${rhs}"
} }
} }
} }