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

Return frequency for reference chopper

Browse Source
This commit is contained in:
Ferdi Franceschini
2014-09-03 12:15:38 +10:00
parent 23df15f7e8
commit b6b4c4fb72
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/bilby/config/chopper/chopper.tcl
View File

@ -44,8 +44,8 @@ if [dict exists $::config_dict disk_chopper name] {
} }
::utility::macro::getset float t0_chopper_freq [subst { {chopper $ch_name} }] { ::utility::macro::getset float t0_chopper_freq [subst { {chopper $ch_name} }] {
set cid [SplitReply [t0_chopper_id]] set cid [SplitReply [t0_chopper_id]]
set rpm [hval /instrument/$chopper/disk_$cid/aspeed] set freq [hval /instrument/$chopper/disk_$cid/frequency]
return "t0_chopper_freq = [expr $rpm / 60.0]" return "t0_chopper_freq = $freq"
} }
sicslist setatt t0_chopper_freq klass NXdisk_chopper sicslist setatt t0_chopper_freq klass NXdisk_chopper
sicslist setatt t0_chopper_freq long_name t0_chopper_freq sicslist setatt t0_chopper_freq long_name t0_chopper_freq