lakeshore340_common.tcl

Lakeshore controllers will be connected to the ca5-[instrument] moxa box
Default config parameters are now available via a tc_dfltPar array
IP and socket number are now mandatory when creating an ls340 object

hrpd/.../lakeshore340.tcl
Multiple lakeshores can now be added to the hdb tree

echidna_configuration.tcl
Provide example  for configuring two lakeshores

SICS-134 reflectometer/../commands.tcl
First draft of beam/attenuator command, currently sends POS=xx (this won't work)

reflectometer/../motor_configuration.tcl
Add bat position feedback via action

sans/../motor_configuration.tcl
Renamed action parameter (aoid) to "action"

server_config.tcl
Initialise motor movecount to 500 to reduce number of position updates by a factor of 50

SICS-134 action.c
Update the beam/attenuator command feedback variable when POS changes.

SICS-134 motor_dmc2280.c
Added PLP:BAT:POS status response handler for platypus bat position updates
Only send IDLE state position updates if position change is greater than the precision.
Rename action parameter (aoid) to "action"

r2679 | ffr | 2008-08-19 15:11:55 +1000 (Tue, 19 Aug 2008) | 31 lines

site_ansto/instrument/reflectometer/config/commands/commands.tcl

@@ -5,6 +5,26 @@ namespace eval motor {
     variable is_homing_list ""
 }
 
+namespace eval beam {
+  command attenuator {text=in,out,osc pos} {
+    switch $pos {
+      "in" {
+        bat send POS=0
+      }
+      "out" {
+        bat send POS=-1
+      }
+      "osc" {
+        bat send POS=1
+      }
+      default {
+        return -code error "ERROR: valid values are in, out, osc"
+      }
+    }
+  }
+}
+::beam::attenuator -addfb text BeamAttenuator
+
 namespace eval exp_mode {
     variable valid_modes  
     variable guide_for_mode		;#guide element for a specific mode

site_ansto/instrument/reflectometer/config/motors/motor_configuration.tcl

@@ -275,6 +275,7 @@ m1ro precision 0.001
 # Beam Attenuator (16mm/turn, 200mm travel)
 Motor bat $motor_driver_type [params \
   asyncqueue mc1\
+  action MC1\
   axis D\
   units mm\
   hardlowerlim 0\