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

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

Browse Source 
r1084 | ffr | 2006-08-25 15:13:06 +1000 (Fri, 25 Aug 2006) | 2 lines
This commit is contained in:
Ferdi Franceschini
2006-08-25 15:13:06 +10:00
committed by Douglas Clowes
parent 8b3816b612
commit ba27774e4a
1 changed files with 26 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

34
site_ansto/instrument/hrpd/hrpd_configuration.tcl
View File

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