Added configuration for slit motors.

r995 | ffr | 2006-05-11 12:10:32 +1000 (Thu, 11 May 2006) | 2 lines

site_ansto/instrument/rsd/rsd_configuration.tcl

@@ -1,5 +1,5 @@
-# $Revision: 1.1 $
+# $Revision: 1.2 $
-# $Date: 2006-05-10 04:38:00 $
+# $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
+psw hardlowerlim 0
-psu hardupperlim 50
+psw hardupperlim 30
-psu softlowerlim 0
+psw softlowerlim 0
-psu softupperlim 50
+psw softupperlim 30
-psu home 0
+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
+pso hardlowerlim 0
-psd hardupperlim 50
+pso hardupperlim 30
-psd softlowerlim 0
+pso softlowerlim 0
-psd softupperlim 50
+pso softupperlim 30
-psd home 0
+pso home 0
 
-Motor psl DMC2280 [params \
+Motor ssp DMC2280 [params \
 	host $dmc2280_controller3(host)\
 	port $dmc2280_controller3(port)\
 	axis xxxx\
-  units mm\
+  units xxxx\
-  maxSpeed 1\
+  maxSpeed xxxx\
-  maxAccel 1\
+  maxAccel xxxx\
-  maxDecel 1\
+  maxDecel xxxx\
 	stepsPerX xxxx\
   motorHome xxxx]
-psl hardlowerlim 0
+ssp hardlowerlim xxxx
-psl hardupperlim 50
+ssp hardupperlim xxxx
-psl softlowerlim 0
+ssp softlowerlim xxxx
-psl softupperlim 50
+ssp softupperlim xxxx
-psl home 0
+ssp home xxxx
 
-Motor psr DMC2280 [params \
+Motor ssw DMC2280 [params \
-	host $dmc2280_controller3(host)\
+	host $dmc2280_controller4(host)\
-	port $dmc2280_controller3(port)\
+	port $dmc2280_controller4(port)\
 	axis xxxx\
   units mm\
-  maxSpeed 1\
-  maxAccel 1\
-  maxDecel 1\
 	stepsPerX xxxx\
   motorHome xxxx]
-psr hardlowerlim 0
+ssw hardlowerlim 0
-psr hardupperlim 50
+ssw hardupperlim 30
-psr softlowerlim 0
+ssw softlowerlim 0
-psr softupperlim 50
+ssw softupperlim 30
-psr home 0
+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
+ssh hardlowerlim 0
-ssu hardupperlim 50
+ssh hardupperlim 30
-ssu softlowerlim 0
+ssh softlowerlim 0
-ssu softupperlim 50
+ssh softupperlim 30
-ssu home 0
+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
+ssho hardlowerlim 0
-ssd hardupperlim 50
+ssho hardupperlim 30
-ssd softlowerlim 0
+ssho softlowerlim 0
-ssd softupperlim 50
+ssho softupperlim 30
-ssd home 0
+ssho 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