From 17e0c0b5bc939743e1531a1f73a4eb03619f259a Mon Sep 17 00:00:00 2001 From: Douglas Clowes Date: Thu, 5 Jun 2008 16:24:32 +1000 Subject: [PATCH] get msd into gumtree r2612 | dcl | 2008-06-05 16:24:32 +1000 (Thu, 05 Jun 2008) | 2 lines --- .../hrpd/config/motors/motor_configuration.tcl | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/site_ansto/instrument/hrpd/config/motors/motor_configuration.tcl b/site_ansto/instrument/hrpd/config/motors/motor_configuration.tcl index 133af8e2..ec305d56 100644 --- a/site_ansto/instrument/hrpd/config/motors/motor_configuration.tcl +++ b/site_ansto/instrument/hrpd/config/motors/motor_configuration.tcl @@ -1,5 +1,5 @@ -# $Revision: 1.27 $ -# $Date: 2008-06-05 05:32:42 $ +# $Revision: 1.28 $ +# $Date: 2008-06-05 06:24:32 $ # Author: Ferdi Franceschini (ffr@ansto.gov.au) # Last revision by: $Author: dcl $ source $cfPath(anticollider)/anticollider.tcl @@ -671,9 +671,8 @@ Motor msd ASIM [params\ hardlowerlim 2500\ hardupperlim 3500\ ] -sicslist setatt msd klass sample -sicslist setatt msd units mm -sicslist setatt msd long_name monochromator_sample_distance +msd part sample +msd long_name mono_sample_mm proc mthGet {} { return [expr [SplitReply [mtth]]/2.0]} proc mthSet {val} { return "mtth=[SplitReply [mtth]]"}