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

Added command to make virtual motor which hdbchains to a real motor.

Browse Source
This commit is contained in:
Ferdi Franceschini
2014-06-20 08:14:40 +10:00
parent 84fa02a5a5
commit 35c5ccbb19
1 changed files with 13 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
site_ansto/instrument/util/motor_utility.tcl
View File

@@ -151,6 +151,19 @@ proc get_virtual_2 { phys1 phys2 } {
#publish get_virtual_2 user #publish get_virtual_2 user
# Generator functions # Generator functions
proc make_vmot { vm1 pm1 aunits } {
eval "proc get_$vm1 {} { get_virtual_1 $pm1 }"
set v {$var}
eval "proc set_$vm1 {var} { set_virtual_1 $pm1 $v }"
MakeConfigurableMotor $vm1
$vm1 readscript get_$vm1
$vm1 drivescript set_$vm1
sicslist setatt $vm1 units $aunits
sicslist setatt $vm1 klass [SplitReply [sicslist klass $pm1]]
sicslist setatt $vm1 long_name $vm1
sicslist setatt $vm1 hdbchain $pm1
}
proc make_coll_motor_1 { vm1 vm1_name pm1 aunits } { proc make_coll_motor_1 { vm1 vm1_name pm1 aunits } {
eval "proc get_$vm1 {} { get_virtual_1 $pm1 }" eval "proc get_$vm1 {} { get_virtual_1 $pm1 }"
set v {$var} set v {$var}