Set limits to conservative ranges, safe speeds for [ms]tth.

r1084 | ffr | 2006-08-25 15:13:06 +1000 (Fri, 25 Aug 2006) | 2 lines

site_ansto/instrument/hrpd/hrpd_configuration.tcl

@@ -1,5 +1,5 @@
-# $Revision: 1.10 $
+# $Revision: 1.11 $
-# $Date: 2006-08-25 02:33:16 $
+# $Date: 2006-08-25 05:13:06 $
 # Author: Ferdi Franceschini (ffr@ansto.gov.au)
 # Last revision by: $Author: ffr $
 
@@ -78,6 +78,8 @@ set dmc2280_controller4(port) 1034
 #mom softlowerlim -180
 #mom softupperlim 180
 #mom home 0
+#mom speed xxx
+#mom precision xxx
 
 Motor mtth DMC2280 [params \
 	host $dmc2280_controller1(host)\
@@ -92,15 +94,17 @@ Motor mtth DMC2280 [params \
 	absEncHome 10299428\
 	cntsPerX 93207]
 mtth hardlowerlim 85
-mtth hardupperlim 155
+mtth hardupperlim 135
 mtth softlowerlim 85
-mtth softupperlim 155
+mtth softupperlim 135
 mtth home 87.635 
+mtth speed 0.5
 mtth precision 0.001
 
 proc mthGet {} { return [expr [SplitReply [mtth]]/2.0]}
 publish mthGet user
-proc mthSet {val} { return [expr [SplitReply [mtth]] * 2.0]}
+# mth is readonly
+proc mthSet {val} { return "mtth=[SplitReply [mtth]]"}
 publish mthSet user
 MakeConfigurableMotor mth
 mth readscript mthGet
@@ -122,6 +126,7 @@ Motor mchi DMC2280 [params \
 	cntsPerX 8192]
 setHomeandRange -motor mchi -home 90 -lowrange 5 -uprange 5 
 mchi speed 1
+mchi precision 0.001
 
 # Monochromoter Tilt 1, upper
 Motor mphi DMC2280 [params \
@@ -138,6 +143,7 @@ Motor mphi DMC2280 [params \
 	cntsPerX -8192]
 setHomeandRange -motor mphi -home 0 -lowrange 5 -uprange 5
 mphi speed 1
+mphi precision 0.001
 
 # Monochromoter Trans 1, upper
 Motor mz DMC2280 [params \
@@ -154,6 +160,7 @@ Motor mz DMC2280 [params \
 	cntsPerX 8192]
 setHomeandRange -motor mz -home 0 -lowrange 5 -uprange 5
 mz speed 1
+mz precision 0.001
 
 # Monochromoter Trans 2, lower
 Motor mx DMC2280 [params \
@@ -167,9 +174,10 @@ Motor mx DMC2280 [params \
 	stepsPerX 25000\
 	absEnc 1\
 	absEncHome xxxx\
-	cntsPerX xxxx]
+	cntsPerX 8192]
 setHomeandRange -motor mx -home 0 -lowrange 5 -uprange 5
 mx speed 1
+mx precision 0.001
 
 Motor mr DMC2280 [params \
 	host $dmc2280_controller3(host)\
@@ -185,6 +193,7 @@ Motor mr DMC2280 [params \
 	cntsPerX xxxx]
 setHomeandRange -motor mr -home 0 -lowrange 0 -uprange 0
 mr speed 1
+#mr precision 0.001
 
 Motor pc1 DMC2280 [params \
 	host $dmc2280_controller1(host)\
@@ -197,6 +206,7 @@ Motor pc1 DMC2280 [params \
 	stepsPerX xxxx]
 setHomeandRange -motor pc1 -home 0 -lowrange 0 -uprange 0
 pc1 speed 1
+#pc1 precision xxxx
 
 Motor pc2 DMC2280 [params \
 	host $dmc2280_controller1(host)\
@@ -209,6 +219,7 @@ Motor pc2 DMC2280 [params \
 	stepsPerX xxxx]
 setHomeandRange -motor pc2 -home 0 -lowrange 0 -uprange 0
 pc2 speed 1
+#pc2 precision xxxx
 
 Motor som DMC2280 [params \
 	host $dmc2280_controller2(host)\
@@ -224,6 +235,7 @@ Motor som DMC2280 [params \
 	cntsPerX -8192]
 setHomeandRange -motor som -home 0 -lowrange 45 -uprange 45
 som speed 1
+som precision 0.001
 
 Motor stth DMC2280 [params \
 	host $dmc2280_controller2(host)\
@@ -239,11 +251,13 @@ Motor stth DMC2280 [params \
 	absEncHome 6559259\
 	cntsPerX 93207]
 setHomeandRange -motor stth -home 120 -lowrange 15 -uprange 15
-stth speed 0.2
+stth speed 0.5
+stth precision 0.001
 
 proc sthGet {} { return [expr [SplitReply [stth]]/2.0]}
 publish sthGet user
-proc sthSet {val} { return [expr [SplitReply [stth]] * 2.0]}
+# sth is readonly
+proc sthSet {val} { return "stth=[SplitReply [stth]]"}
 publish sthSet user
 MakeConfigurableMotor sth
 sth readscript sthGet
@@ -265,6 +279,7 @@ Motor schi DMC2280 [params \
 	cntsPerX 8192]
 setHomeandRange -motor schi -home 90 -lowrange 5 -uprange 5
 schi speed 1
+schi precision 0.001
 
 # Sample Tilt 1, upper
 Motor sphi DMC2280 [params \
@@ -282,6 +297,7 @@ Motor sphi DMC2280 [params \
 	cntsPerX 8192]
 setHomeandRange -motor sphi -home 0 -lowrange 5 -uprange 5
 sphi speed 1
+sphi precision 0.001
 
 # Sample Trans 1 (upper)
 Motor sz DMC2280 [params \
@@ -298,6 +314,7 @@ Motor sz DMC2280 [params \
 	cntsPerX 8192]
 setHomeandRange -motor sz -home 0 -lowrange 5 -uprange 5 
 sz speed 1
+sz precision 0.001
 
 # Sample Trans2 (lower)
 Motor sx DMC2280 [params \
@@ -314,6 +331,7 @@ Motor sx DMC2280 [params \
 	cntsPerX 8192]
 setHomeandRange -motor sx -home 0 -lowrange 5 -uprange 5 
 sx speed 1
+sx precision 0.001
 
 #Default upper and lower ranges for vertical slits
 set vertSlitLowRange 25