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

SICS-771 Add frequency for each chopper disk.

Browse Source
This commit is contained in:
Ferdi Franceschini
2014-09-03 12:14:27 +10:00
parent eb4746652f
commit 23df15f7e8
2 changed files with 68 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -13,6 +13,7 @@ driver astrium_chopper = {
var aspeed = { type = float; mutable = true; }
var rphase = { type = float; }
var aphase = { type = float; mutable = true; }
var frequency = { type = float; mutable = true; }
}
group disk_2 = {
@@ -26,6 +27,7 @@ driver astrium_chopper = {
var aspeed = { type = float; mutable = true; }
var rphase = { type = float; }
var aphase = { type = float; mutable = true; }
var frequency = { type = float; mutable = true; }
}
group disk_3 = {
@@ -39,6 +41,7 @@ driver astrium_chopper = {
var aspeed = { type = float; mutable = true; }
var rphase = { type = float; }
var aphase = { type = float; mutable = true; }
var frequency = { type = float; mutable = true; }
}
group disk_4 = {
@@ -52,6 +55,7 @@ driver astrium_chopper = {
var aspeed = { type = float; mutable = true; }
var rphase = { type = float; }
var aphase = { type = float; mutable = true; }
var frequency = { type = float; mutable = true; }
}
code fetch_function fetchState = {%%
@@ -87,8 +91,16 @@ driver astrium_chopper = {
set rhs "[string trim [lindex ${lst} 1]]"
sct "attr_${lhs}" "${rhs}"
set base [pathname [sct]]
foreach node [list ASPEED RSPEED APHASE RPHASE MASTER] {
if { [string equal -nocase "${lhs}" "${node}"] } {
switch [string toupper [string trim ${node}]] {
"ASPEED" {
if [string is double "${rhs}"] {
set freq [expr "${rhs}" / 60.0]
if { "[hval ${base}/frequency]" != "${freq}" } {
hset ${base}/frequency ${freq}
}
}
}
"RSPEED" "APHASE" "RPHASE" "MASTER" {
if { "[hval ${base}/${node}]" != "${rhs}" } {
hset ${base}/${node} "${rhs}"
}