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

Don't create Pelican fermichopper motors when loading the configuration file.

Browse Source 
This should be done in the local extraconfig.tcl
This commit is contained in:
Ferdi Franceschini
2013-05-31 11:13:10 +10:00
parent 357170a735
commit d872aedbec
1 changed files with 9 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
site_ansto/instrument/pelican/config/chopper/fermimot.tcl
View File

@@ -651,8 +651,8 @@ proc mkFPhaseMot {fmot hdbroot chnode addr lowlim uplim} {
}
##
# @brief Make the fermichopper driver and speed and phase motors for the master and
# slave choppers.
# @brief Make the fermichopper driver, and speed motors for the master and
# slave choppers. NOTE: You can make just one chopper motor.
#
# @param mSpdmot, Name of master chopper speed motor
# @param sSpdmot, Name of slave chopper speed motor
@@ -661,7 +661,6 @@ proc mkFPhaseMot {fmot hdbroot chnode addr lowlim uplim} {
# @param maddr, Master chopper modbus address
# @param slave, Slave chopper hdb node name
# @param saddr, Slave chopper modbus address
#proc mkFermiMotors {mSpdmot sSpdmot master maddr slave saddr} {
proc mkFermiMotors { master maddr {slave "EMPTY"} {saddr "EMPTY"} } {
set mSpdmot ${master}s
set mPhmot ${master}p
@@ -680,7 +679,10 @@ proc mkFermiMotors { master maddr {slave "EMPTY"} {saddr "EMPTY"} } {
mkFPhaseMot $mPhmot $hdbPath $master $maddr 0 166.6667e6
}
mkFermiMotors mch 2 sch 3
mchs mode $fcPHASE
schs mode $fcPHASE
## Example for making a master and slave chopper motor
# mkFermiMotors mch 2 sch 3
# mchs mode $fcPHASE
# schs mode $fcPHASE
## Example which just makes one chopper motor
# mkFermiMotors mch 2
# mchs mode $fcPHASE