Add virtual motors (e.g. for wavelength)

r3729 | dcl | 2012-08-30 11:16:06 +1000 (Thu, 30 Aug 2012) | 1 line
2012-08-30 11:16:06 +10:00
parent acf91f494d
commit d287611f03
2 changed files with 28 additions and 12 deletions
--- a/site_ansto/instrument/pelican/config/motors/motor_configuration.tcl
+++ b/site_ansto/instrument/pelican/config/motors/motor_configuration.tcl
@@ -891,7 +891,7 @@ proc get_vei {} {
 proc set_vwi {wavelength} {
  set dd 3.35416
  set theta [expr (180.0 / 3.141592654) * asin($wavelength / (2.0 * $dd))]
-  set result [format "mom=%f,mtth=%f" $theta [expr 2.0 * $theta]]
+  set result [format "moma=%f,momb=%f,momc=%f,mtth=%f" $theta $theta $theta [expr 2.0 * $theta]]
  return $result
 }