Provide add_oxmag command to instantiate an oxford magnet driver.

2013-08-15 07:59:02 +10:00
parent 9b6a7f38e7
commit 5acb398b42
1 changed files with 9 additions and 9 deletions
--- a/site_ansto/instrument/config/environment/magneticField/sct_oxford_labview.tcl
+++ b/site_ansto/instrument/config/environment/magneticField/sct_oxford_labview.tcl
@@ -493,12 +493,12 @@ publish OxfordSetHTemp  user
 publish OxfordSetDTemp  user
 publish OxfordSetHS     user

-# main driver call
-#::scobj::magnetic::mkMagnetic {
-#  name "magnetic"
-#  IP 137.157.201.91
-#  PORT 55001
-#  tuning 0
-#  interval 10
-#}
-
+proc add_oxmag { name IP PORT {interval 5} } {
+  ::scobj::magnetic::mkMagnetic [subst {
+    name $name
+    IP $IP
+    PORT $PORT
+    tuning 0
+    interval $interval
+  }]
+}