From f308ade3bdfa729c7c4e0386cf6d2ce753963af8 Mon Sep 17 00:00:00 2001
From: Ferdi Franceschini <ffr@ansto.gov.au>
Date: Fri, 24 Nov 2006 16:57:38 +1100
Subject: [PATCH] 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 | 40 +++++++++++++++++++++++++++++
 1 file changed, 40 insertions(+)
 create mode 100644 site_ansto/instrument/hrpd/scan.tcl

diff --git a/site_ansto/instrument/hrpd/scan.tcl b/site_ansto/instrument/hrpd/scan.tcl
new file mode 100644
index 00000000..b50a0245
--- /dev/null
+++ b/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