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

Fix chopper frequency modification.

Browse Source
This commit is contained in:
Ferdi Franceschini
2014-09-03 13:21:22 +10:00
parent 9a7f4608b7
commit 2d2b76dcb5
2 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -91,7 +91,7 @@ driver astrium_chopper = {
set rhs "[string trim [lindex ${lst} 1]]"
sct "attr_${lhs}" "${rhs}"
set base [pathname [sct]]
switch [string toupper [string trim ${node}]] {
switch [string toupper ${lhs}] {
"ASPEED" {
if [string is double "${rhs}"] {
set freq [expr "${rhs}" / 60.0]
@ -100,7 +100,7 @@ driver astrium_chopper = {
}
}
}
"RSPEED" "APHASE" "RPHASE" "MASTER" {
"RSPEED" - "APHASE" - "RPHASE" - "MASTER" {
if { "[hval ${base}/${node}]" != "${rhs}" } {
hset ${base}/${node} "${rhs}"
}

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

@ -174,7 +174,7 @@ proc ::scobj::astrium_chopper::readState {tc_root} {
set rhs "[string trim [lindex ${lst} 1]]"
sct "attr_${lhs}" "${rhs}"
set base [pathname [sct]]
switch [string toupper [string trim ${node}]] {
switch [string toupper ${lhs}] {
"ASPEED" {
if [string is double "${rhs}"] {
set freq [expr "${rhs}" / 60.0]
@ -183,7 +183,7 @@ proc ::scobj::astrium_chopper::readState {tc_root} {
}
}
}
"RSPEED" "APHASE" "RPHASE" "MASTER" {
"RSPEED" - "APHASE" - "RPHASE" - "MASTER" {
if { "[hval ${base}/${node}]" != "${rhs}" } {
hset ${base}/${node} "${rhs}"
}