linse/sics
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Integrating the ansto hmm/hmc with hdf file writing.

Browse Source 
r1342 | ffr | 2006-12-04 09:45:20 +1100 (Mon, 04 Dec 2006) | 2 lines
This commit is contained in:
Ferdi Franceschini
2006-12-04 09:45:20 +11:00
committed by Douglas Clowes
parent 4f3413abc6
commit 31f0fca6f5
6 changed files with 62 additions and 41 deletions
Download Patch File Download Diff File Expand all files Collapse all files

32
site_ansto/instrument/hrpd/scan.tcl
View File

@@ -1,15 +1,21 @@
MakeScanCommand escan counter echidna.hdd recover.bin
#MakeScanCommand escan counter echidna.hdd recover.bin
proc scan_prepare {sobj uobj} {
global omstart omstep;
stdscan prepare $sobj $uobj;
nxcreatefile
# 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;
hs_prepare $sobj $uobj
# clientput [$sobj getvarpar 0] value;
# nxscript create5 junk5.nx5 echidna.dic;
}
proc scan_finish {sobj uobj} {
nxscript close
}
#proc scan_finish {sobj uobj} {
# nxscript close;
#}
@@ -18,23 +24,25 @@ proc scan_prepare {sobj uobj} {
proc nxaddpoint {sobj uobj pt} {
global omstart omstep;
set ompos [expr $omstart + $pt * $omstep];
nxreopenfile;
addnxentry nxscript scan_$pt $ompos;
nxscript close
}
proc donothing {args} {}
proc ecount {sobj uobj pt mode preset} {
hm count;
}
#proc ecount {sobj uobj pt mode preset} {
# hmc count;
#}
publish scan_prepare user
publish scan_finish user
publish nxaddpoint user
publish ecount 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
#scan2 configure script
scan2 function writeheader donothing
scan2 function writepoint nxaddpoint
#scan2 function prepare scan_prepare
#scan2 function count ecount