Added configuration for slit motors.
r995 | ffr | 2006-05-11 12:10:32 +1000 (Thu, 11 May 2006) | 2 lines
This commit is contained in:
Ferdi Franceschini
committed by
Douglas Clowes
Douglas Clowes
parent
162a9c2c67
commit
e6bdd98e71
@@ -1,5 +1,5 @@
|
||||
# $Revision: 1.1 $
|
||||
# $Date: 2006-05-10 04:38:00 $
|
||||
# $Revision: 1.2 $
|
||||
# $Date: 2006-05-11 02:10:32 $
|
||||
# Author: Ferdi Franceschini (ffr@ansto.gov.au)
|
||||
# Last revision by: $Author: ffr $
|
||||
|
||||
@@ -282,7 +282,23 @@ sz softlowerlim 0
|
||||
sz softupperlim 650
|
||||
sz home 0
|
||||
|
||||
Motor psu DMC2280 [params \
|
||||
Motor psp DMC2280 [params \
|
||||
host $dmc2280_controller3(host)\
|
||||
port $dmc2280_controller3(port)\
|
||||
axis xxxx\
|
||||
units xxxx\
|
||||
maxSpeed xxxx\
|
||||
maxAccel xxxx\
|
||||
maxDecel xxxx\
|
||||
stepsPerX xxxx\
|
||||
motorHome xxxx]
|
||||
psp hardlowerlim xxxx
|
||||
psp hardupperlim xxxx
|
||||
psp softlowerlim xxxx
|
||||
psp softupperlim xxxx
|
||||
psp home xxxx
|
||||
|
||||
Motor psw DMC2280 [params \
|
||||
host $dmc2280_controller3(host)\
|
||||
port $dmc2280_controller3(port)\
|
||||
axis xxxx\
|
||||
@@ -292,13 +308,13 @@ Motor psu DMC2280 [params \
|
||||
maxDecel 1\
|
||||
stepsPerX xxxx\
|
||||
motorHome xxxx]
|
||||
psu hardlowerlim 0
|
||||
psu hardupperlim 50
|
||||
psu softlowerlim 0
|
||||
psu softupperlim 50
|
||||
psu home 0
|
||||
psw hardlowerlim 0
|
||||
psw hardupperlim 30
|
||||
psw softlowerlim 0
|
||||
psw softupperlim 30
|
||||
psw home 0
|
||||
|
||||
Motor psd DMC2280 [params \
|
||||
Motor pso DMC2280 [params \
|
||||
host $dmc2280_controller3(host)\
|
||||
port $dmc2280_controller3(port)\
|
||||
axis xxxx\
|
||||
@@ -308,180 +324,63 @@ Motor psd DMC2280 [params \
|
||||
maxDecel 1\
|
||||
stepsPerX xxxx\
|
||||
motorHome xxxx]
|
||||
psd hardlowerlim 0
|
||||
psd hardupperlim 50
|
||||
psd softlowerlim 0
|
||||
psd softupperlim 50
|
||||
psd home 0
|
||||
pso hardlowerlim 0
|
||||
pso hardupperlim 30
|
||||
pso softlowerlim 0
|
||||
pso softupperlim 30
|
||||
pso home 0
|
||||
|
||||
Motor psl DMC2280 [params \
|
||||
Motor ssp DMC2280 [params \
|
||||
host $dmc2280_controller3(host)\
|
||||
port $dmc2280_controller3(port)\
|
||||
axis xxxx\
|
||||
units mm\
|
||||
maxSpeed 1\
|
||||
maxAccel 1\
|
||||
maxDecel 1\
|
||||
units xxxx\
|
||||
maxSpeed xxxx\
|
||||
maxAccel xxxx\
|
||||
maxDecel xxxx\
|
||||
stepsPerX xxxx\
|
||||
motorHome xxxx]
|
||||
psl hardlowerlim 0
|
||||
psl hardupperlim 50
|
||||
psl softlowerlim 0
|
||||
psl softupperlim 50
|
||||
psl home 0
|
||||
ssp hardlowerlim xxxx
|
||||
ssp hardupperlim xxxx
|
||||
ssp softlowerlim xxxx
|
||||
ssp softupperlim xxxx
|
||||
ssp home xxxx
|
||||
|
||||
Motor psr DMC2280 [params \
|
||||
host $dmc2280_controller3(host)\
|
||||
port $dmc2280_controller3(port)\
|
||||
Motor ssw DMC2280 [params \
|
||||
host $dmc2280_controller4(host)\
|
||||
port $dmc2280_controller4(port)\
|
||||
axis xxxx\
|
||||
units mm\
|
||||
maxSpeed 1\
|
||||
maxAccel 1\
|
||||
maxDecel 1\
|
||||
stepsPerX xxxx\
|
||||
motorHome xxxx]
|
||||
psr hardlowerlim 0
|
||||
psr hardupperlim 50
|
||||
psr softlowerlim 0
|
||||
psr softupperlim 50
|
||||
psr home 0
|
||||
ssw hardlowerlim 0
|
||||
ssw hardupperlim 30
|
||||
ssw softlowerlim 0
|
||||
ssw softupperlim 30
|
||||
ssw home 0
|
||||
|
||||
Motor ssu DMC2280 [params \
|
||||
Motor ssh DMC2280 [params \
|
||||
host $dmc2280_controller4(host)\
|
||||
port $dmc2280_controller4(port)\
|
||||
axis xxxx\
|
||||
units mm\
|
||||
stepsPerX xxxx\
|
||||
motorHome xxxx]
|
||||
ssu hardlowerlim 0
|
||||
ssu hardupperlim 50
|
||||
ssu softlowerlim 0
|
||||
ssu softupperlim 50
|
||||
ssu home 0
|
||||
ssh hardlowerlim 0
|
||||
ssh hardupperlim 30
|
||||
ssh softlowerlim 0
|
||||
ssh softupperlim 30
|
||||
ssh home 0
|
||||
|
||||
Motor ssd DMC2280 [params \
|
||||
Motor ssho DMC2280 [params \
|
||||
host $dmc2280_controller4(host)\
|
||||
port $dmc2280_controller4(port)\
|
||||
axis xxxx\
|
||||
units mm\
|
||||
stepsPerX xxxx\
|
||||
motorHome xxxx]
|
||||
ssd hardlowerlim 0
|
||||
ssd hardupperlim 50
|
||||
ssd softlowerlim 0
|
||||
ssd softupperlim 50
|
||||
ssd home 0
|
||||
|
||||
Motor ssl DMC2280 [params \
|
||||
host $dmc2280_controller4(host)\
|
||||
port $dmc2280_controller4(port)\
|
||||
axis xxxx\
|
||||
stepsPerX xxxx\
|
||||
motorHome xxxx]
|
||||
ssl hardlowerlim 0
|
||||
ssl hardupperlim 50
|
||||
ssl softlowerlim 0
|
||||
ssl softupperlim 50
|
||||
ssl home 0
|
||||
|
||||
Motor ssr DMC2280 [params \
|
||||
host $dmc2280_controller4(host)\
|
||||
port $dmc2280_controller4(port)\
|
||||
axis xxxx\
|
||||
stepsPerX xxxx\
|
||||
motorHome xxxx]
|
||||
ssr hardlowerlim 0
|
||||
ssr hardupperlim 50
|
||||
ssr softlowerlim 0
|
||||
ssr softupperlim 50
|
||||
ssr home 0
|
||||
|
||||
|
||||
proc SplitReply { text } {
|
||||
set l [split $text =]
|
||||
return [lindex $l 1]
|
||||
}
|
||||
# virtual motor ss1(h)orizontal (width)
|
||||
#--------------------------------------------------------
|
||||
proc widthscript {val} {
|
||||
set currentWidth [expr [SplitReply [psr]] + [SplitReply [psl]]]
|
||||
set diff [expr $val - $currentWidth]
|
||||
set newD1R [expr [SplitReply [psr]] + $diff/2]
|
||||
set newD1L [expr [SplitReply [psl]] + $diff/2]
|
||||
return "psr=$newD1R,psl=$newD1L"
|
||||
}
|
||||
publish widthscript user
|
||||
#-------------------------------------------------------
|
||||
proc readwidth {} {
|
||||
return [expr [SplitReply [psr]] + [SplitReply [psl]]]
|
||||
}
|
||||
publish readwidth user
|
||||
MakeConfigurableMotor psw
|
||||
psw drivescript widthscript
|
||||
psw readscript readwidth
|
||||
|
||||
# virtual motor ss1(h)orizontal (offset)
|
||||
#--------------------------------------------------------
|
||||
proc horoffsetscript {val} {
|
||||
set SR [SplitReply [psr]]
|
||||
set SL [SplitReply [psl]]
|
||||
set currentOffset [ expr $SR - ($SR + $SL)/2.0 ]
|
||||
set diff [expr $val - $currentOffset]
|
||||
set newD1R [expr $SR + $diff]
|
||||
set newD1L [expr $SL - $diff]
|
||||
return "psr=$newD1R,psl=$newD1L"
|
||||
}
|
||||
publish horoffsetscript user
|
||||
#-------------------------------------------------------
|
||||
proc readhoroffset {} {
|
||||
set SR [SplitReply [psr]]
|
||||
return [ expr $SR - ($SR + [SplitReply [psl]])/2.0 ]
|
||||
}
|
||||
publish readhoroffset user
|
||||
|
||||
#-------------------------------------------------------
|
||||
MakeConfigurableMotor psho
|
||||
psho drivescript horoffsetscript
|
||||
psho readscript readhoroffset
|
||||
|
||||
# virtual motor ss1v(ertical), height
|
||||
#-----------------------------------------------------
|
||||
proc heightscript {val} {
|
||||
set currentWidth [expr [SplitReply [psu]] + [SplitReply [psd]]]
|
||||
set diff [expr $val - $currentWidth]
|
||||
set newD1B [expr [SplitReply [psd]] + $diff/2]
|
||||
set newD1T [expr [SplitReply [psu]] + $diff/2]
|
||||
return "psd=$newD1B,psu=$newD1T"
|
||||
}
|
||||
publish heightscript user
|
||||
#-------------------------------------------------------
|
||||
proc readheight {} {
|
||||
return [expr [SplitReply [psu]] + [SplitReply [psd]]]
|
||||
}
|
||||
publish readheight user
|
||||
#---------------------------------------------------------
|
||||
MakeConfigurableMotor ss1vg
|
||||
ss1vg drivescript heightscript
|
||||
ss1vg readscript readheight
|
||||
|
||||
# virtual motor ss1(v)ertical (offset)
|
||||
#--------------------------------------------------------
|
||||
proc vertoffsetscript {val} {
|
||||
set SU [SplitReply [psu]]
|
||||
set SD [SplitReply [psd]]
|
||||
set currentOffset [ expr $SU - ($SU + $SD)/2.0 ]
|
||||
set diff [expr $val - $currentOffset]
|
||||
set newD1U [expr $SU + $diff]
|
||||
set newD1D [expr $SD - $diff]
|
||||
return "psu=$newD1U,psd=$newD1D"
|
||||
}
|
||||
publish vertoffsetscript user
|
||||
#-------------------------------------------------------
|
||||
proc readvertoffset {} {
|
||||
set SU [SplitReply [psu]]
|
||||
return [ expr $SU - ($SU + [SplitReply [psd]])/2.0 ]
|
||||
}
|
||||
publish readvertoffset user
|
||||
|
||||
#-------------------------------------------------------
|
||||
MakeConfigurableMotor ss1vo
|
||||
ss1vo drivescript vertoffsetscript
|
||||
ss1vo readscript readvertoffset
|
||||
ssho hardlowerlim 0
|
||||
ssho hardupperlim 30
|
||||
ssho softlowerlim 0
|
||||
ssho softupperlim 30
|
||||
ssho home 0
|
||||
|
||||
Reference in New Issue
Block a user