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

- New veloisty selector drivers

Browse Source
This commit is contained in:
koennecke
2009-05-26 09:38:53 +00:00
parent 31d1b68309
commit 78b2832cbb
4 changed files with 332 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
tcl/astrium.tcl
View File

@@ -229,7 +229,7 @@ proc astchopcheckphase {chopper} {
chocosct queue /sics/choco/asyst progress read
set p2 [hval /sics/choco/${chopper}/dphas]
if {abs($p2) < .03} {
wait 1
wait 15
return idle
} else {
return busy
@@ -306,6 +306,7 @@ proc astMakeChopperSpeed1 {var} {
hsetprop $path checklimits astchopspeedlimit 0
hsetprop $path halt astchopstop
hsetprop $path checkstatus astchopcheckspeed $ch
hsetprop $path priv manager
makesctdriveobj $var $path DriveAdapter chocosct
}
#----------------------------------------------------------------------
@@ -321,6 +322,7 @@ proc astMakeChopperSpeed2 {var} {
hsetprop $path checklimits astchopspeedlimit 0
hsetprop $path halt astchopstop
hsetprop $path checkstatus astchopcheckspeed $ch
hsetprop $path priv manager
makesctdriveobj $var $path DriveAdapter chocosct
}
#-----------------------------------------------------------------------
@@ -351,6 +353,7 @@ proc astMakeChopperPhase1 {var} {
hsetprop $path checklimits astchopphaselimit
hsetprop $path halt astchopstop
hsetprop $path checkstatus astchopcheckphase $ch
hsetprop $path priv manager
makesctdriveobj $var $path DriveAdapter chocosct
}
#-----------------------------------------------------------------------
@@ -366,6 +369,7 @@ proc astMakeChopperPhase2 {var} {
hsetprop $path checklimits astchopphaselimit
hsetprop $path halt astchopstop
hsetprop $path checkstatus astchopcheckphase $ch
hsetprop $path priv manager
makesctdriveobj $var $path DriveAdapter chocosct
}
#----------------------------------------------------------------------
@@ -380,7 +384,10 @@ proc astchopratiolimit {} {
proc astMakeChopperRatio {var} {
global choppers
set ch [lindex $choppers 1]
set path /sics/choco/${ch}/ratio
set path /sics/choco/${ch}/Ratio
hdel $path
hfactory $path plain mugger float
chocosct connect $path
hsetprop $path write astchopwrite "ratio 2 "
hsetprop $path astchopwritereply astchopwritereply
chocosct write $path
@@ -452,10 +459,10 @@ if {$poldi == 1} {
}
set choppers [list chopper]
set chopperparlist [list amode aspee nspee nphas dphas averl ratio vibra t_cho \
set chopperparlist [list amode aspee nspee nphas dphas averl ratio vibra vibax t_cho \
flowr vakum valve sumsi spver state]
set chopperlonglist [list "Chopper Mode" "Actual Speed" "Set Speed" "Phase" "Phase Error" \
"Loss Current" Ratio Vibration Temperature "Water Flow" Vakuum \
"Loss Current" Ratio Vibration "Actual Vibration" Temperature "Water Flow" Vakuum \
Valve Sumsi]
set chopperheader "POLDI Chopper Status"
makesctcontroller chocosct std psts240:3005 "\r\n" 60