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 $
# $Date: 2006-08-25 02:33:16 $
# $Revision: 1.11 $
# $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