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

Set fermi chopper direction when setting speed.

Browse Source
This commit is contained in:
Ferdi Franceschini
2013-05-01 07:32:31 +10:00
parent 82afa86fa0
commit ecd9707eb2
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -60,7 +60,7 @@ namespace eval ::chopper {
variable CW 0 CCW 1 variable CW 0 CCW 1
variable PROPGAIN 1 INTGAIN 2 PHGAIN 3 variable PROPGAIN 1 INTGAIN 2 PHGAIN 3
variable POSDIR variable POSDIR
set POSDIR $CCW set POSDIR $CW
array set ch1_gains { array set ch1_gains {
24000 { 350 { 10 10 } { 10 10 } { 2.33 2.33 } } 24000 { 350 { 10 10 } { 10 10 } { 2.33 2.33 } }
@@ -321,6 +321,7 @@ namespace eval ::chopper {
set intGain [lindex $row 1 2 $dir] set intGain [lindex $row 1 2 $dir]
set phGain [lindex $row 1 3 $dir] set phGain [lindex $row 1 3 $dir]
hset $hpath/$node/control/set_motor_dir $dir
hset $hpath/$node/control/set_vetowin50 $vetowin hset $hpath/$node/control/set_vetowin50 $vetowin
hset $hpath/$node/control/set_prop_gain $propGain hset $hpath/$node/control/set_prop_gain $propGain
hset $hpath/$node/control/set_int_gain $intGain hset $hpath/$node/control/set_int_gain $intGain
@@ -434,7 +435,7 @@ namespace eval ::chopper {
hset $hpath/$node/control/stop 1 hset $hpath/$node/control/stop 1
hsetprop $hpath/$node abort 1 hsetprop $hpath/$node abort 1
} }
return $SCode(OKOK) return $SCode(OKOK)
} }
proc imot_SGetError {hpath node addr name} { proc imot_SGetError {hpath node addr name} {