Scan config to test Nexus file writing

r1320 | ffr | 2006-11-24 16:57:38 +1100 (Fri, 24 Nov 2006) | 2 lines

site_ansto/instrument/hrpd/scan.tcl

@@ -0,0 +1,40 @@
+
+MakeScanCommand  escan counter echidna.hdd recover.bin
+proc scan_prepare {sobj uobj} {
+  global omstart omstep;
+  stdscan prepare $sobj $uobj;
+  set vlist [split [$sobj getvarpar 0] = ];
+  set omstart [lindex $vlist 1];
+  set omstep [lindex $vlist 2];
+  clientput [$sobj getvarpar 0] value;
+#  nxscript create5 junk5.nx5 echidna.dic;
+}
+
+#proc scan_finish {sobj uobj} {
+#  nxscript close;
+#}
+
+# Add an nxentry for the current scan point
+proc nxaddpoint {sobj uobj pt} {
+  global omstart omstep;
+  set ompos [expr $omstart + $pt * $omstep];
+  addnxentry nxscript scan_$pt $ompos;
+}
+
+proc donothing {args} {}
+
+proc ecount {sobj uobj pt mode preset} {
+  hm count;
+}
+
+publish scan_prepare user
+publish scan_finish user
+publish nxaddpoint user
+publish ecount user
+publish donothing user
+
+escan configure script
+escan function writeheader donothing
+escan function writepoint nxaddpoint
+escan function prepare scan_prepare
+escan function count ecount