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

adjust limits and add Mono-Samp Distance (msd) simulated motor

Browse Source 
r2606 | dcl | 2008-06-04 15:21:36 +1000 (Wed, 04 Jun 2008) | 2 lines
This commit is contained in:
Douglas Clowes
2008-06-04 15:21:36 +10:00
parent 588a44305a
commit 62de717b11
1 changed files with 24 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

39
site_ansto/instrument/hrpd/config/motors/motor_configuration.tcl
View File

@@ -1,7 +1,7 @@
# $Revision: 1.24 $ # $Revision: 1.25 $
# $Date: 2008-05-30 00:26:56 $ # $Date: 2008-06-04 05:21:36 $
# Author: Ferdi Franceschini (ffr@ansto.gov.au) # Author: Ferdi Franceschini (ffr@ansto.gov.au)
# Last revision by: $Author: ffr $ # Last revision by: $Author: dcl $
source $cfPath(anticollider)/anticollider.tcl source $cfPath(anticollider)/anticollider.tcl
# START MOTOR CONFIGURATION # START MOTOR CONFIGURATION
@@ -119,8 +119,8 @@ Motor mphi $motor_driver_type [params \
asyncqueue mc1\ asyncqueue mc1\
axis A\ axis A\
units degrees\ units degrees\
hardlowerlim -15\ hardlowerlim -2\
hardupperlim 15\ hardupperlim 2\
maxSpeed 1\ maxSpeed 1\
maxAccel 1\ maxAccel 1\
maxDecel 1\ maxDecel 1\
@@ -128,7 +128,7 @@ Motor mphi $motor_driver_type [params \
absEnc 1\ absEnc 1\
absEncHome $mphi_Home\ absEncHome $mphi_Home\
cntsPerX -8192] cntsPerX -8192]
setHomeandRange -motor mphi -home 0 -lowrange 15 -uprange 15 setHomeandRange -motor mphi -home 0 -lowrange 2 -uprange 2
mphi speed 1 mphi speed 1
mphi movecount $move_count mphi movecount $move_count
mphi precision 0.05 mphi precision 0.05
@@ -140,8 +140,8 @@ Motor mchi $motor_driver_type [params \
asyncqueue mc1\ asyncqueue mc1\
axis B\ axis B\
units degrees\ units degrees\
hardlowerlim 75\ hardlowerlim 88\
hardupperlim 105\ hardupperlim 92\
maxSpeed 1\ maxSpeed 1\
maxAccel 1\ maxAccel 1\
maxDecel 1\ maxDecel 1\
@@ -149,7 +149,7 @@ Motor mchi $motor_driver_type [params \
absEnc 1\ absEnc 1\
absEncHome $mchi_Home\ absEncHome $mchi_Home\
cntsPerX 8192] cntsPerX 8192]
setHomeandRange -motor mchi -home 90 -lowrange 15 -uprange 15 setHomeandRange -motor mchi -home 90 -lowrange 2 -uprange 2
mchi speed 1 mchi speed 1
mchi movecount $move_count mchi movecount $move_count
mchi precision 0.01 mchi precision 0.01
@@ -183,7 +183,7 @@ Motor mx $motor_driver_type [params \
axis D\ axis D\
units mm\ units mm\
hardlowerlim -15\ hardlowerlim -15\
hardupperlim 12\ hardupperlim 15\
maxSpeed 1\ maxSpeed 1\
maxAccel 1\ maxAccel 1\
maxDecel 1\ maxDecel 1\
@@ -191,7 +191,7 @@ Motor mx $motor_driver_type [params \
absEnc 1\ absEnc 1\
absEncHome $mx_Home\ absEncHome $mx_Home\
cntsPerX -8192] cntsPerX -8192]
setHomeandRange -motor mx -home 0 -lowrange 15 -uprange 12 setHomeandRange -motor mx -home 0 -lowrange 15 -uprange 15
mx speed 1 mx speed 1
mx movecount $move_count mx movecount $move_count
mx precision 0.01 mx precision 0.01
@@ -203,8 +203,8 @@ Motor mom $motor_driver_type [params \
asyncqueue mc1\ asyncqueue mc1\
axis E\ axis E\
units degrees\ units degrees\
hardlowerlim -10\ hardlowerlim -1\
hardupperlim 150\ hardupperlim 140\
maxSpeed 1\ maxSpeed 1\
maxAccel 1\ maxAccel 1\
maxDecel 1\ maxDecel 1\
@@ -212,7 +212,7 @@ Motor mom $motor_driver_type [params \
absEnc 1\ absEnc 1\
absEncHome $mom_Home\ absEncHome $mom_Home\
cntsPerX -4096] cntsPerX -4096]
setHomeandRange -motor mom -home 0 -lowrange 10 -uprange 150 setHomeandRange -motor mom -home 0 -lowrange 1 -uprange 140
mom speed 1 mom speed 1
mom movecount $move_count mom movecount $move_count
mom precision 0.01 mom precision 0.01
@@ -267,7 +267,7 @@ Motor pcx $motor_driver_type [params \
axis G\ axis G\
units mm\ units mm\
hardlowerlim 0\ hardlowerlim 0\
hardupperlim 148.2\ hardupperlim 154.2\
maxSpeed 10\ maxSpeed 10\
maxAccel 1\ maxAccel 1\
maxDecel 1\ maxDecel 1\
@@ -663,6 +663,15 @@ ss2d movecount $move_count
ss2d part aperture.second ss2d part aperture.second
ss2d long_name bottom ss2d long_name bottom
# Virtual and Simulated Motors
# ----------------------------
Motor msd ASIM [params\
units mm\
hardlowerlim 2500\
hardupperlim 3500\
]
proc mthGet {} { return [expr [SplitReply [mtth]]/2.0]} proc mthGet {} { return [expr [SplitReply [mtth]]/2.0]}
proc mthSet {val} { return "mtth=[SplitReply [mtth]]"} proc mthSet {val} { return "mtth=[SplitReply [mtth]]"}
publish mthSet user publish mthSet user