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

Integrated hmm with nexus data file writing.

Browse Source 
Now have hm and bm scans.

r1354 | ffr | 2006-12-08 09:12:48 +1100 (Fri, 08 Dec 2006) | 3 lines
This commit is contained in:
Ferdi Franceschini
2006-12-08 09:12:48 +11:00
committed by Douglas Clowes
parent 280d440494
commit 641ed5227e
7 changed files with 185 additions and 104 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -1,48 +1,89 @@
namespace eval scanCommand {
#MakeScanCommand escan counter echidna.hdd recover.bin
proc scan_prepare {sobj uobj} {
global omstart omstep;
nxcreatefile
# stdscan prepare $sobj $uobj;
set vlist [split [$sobj getvarpar 0] = ];
set omstart [lindex $vlist 1];
set omstep [lindex $vlist 2];
hs_prepare $sobj $uobj
# clientput [$sobj getvarpar 0] value;
# nxscript create5 junk5.nx5 echidna.dic;
}
variable scanVariable scan_var scanVarStart 0 scanVarStep 1
proc scan_prepare {sobj uobj} {
variable scanVarStart;
variable scanVarStep;
variable scanVariable;
proc scan_finish {sobj uobj} {
nxscript close
}
nxcreatefile;
# stdscan prepare $sobj $uobj;
set vlist [split [$sobj getvarpar 0] = ];
set scanVariable [string trim [lindex [split [lindex $vlist 0] . ] 1]];
set scanVarStart [lindex $vlist 1];
set scanVarStep [lindex $vlist 2];
hs_prepare $sobj $uobj
}
proc scan_finish {sobj uobj} {
nxscript close
}
#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];
nxreopenfile;
addnxentry nxscript scan_$pt $ompos;
nxscript close
proc nxaddpoint {sobj uobj pt} {
variable scanVarStart;
variable scanVarStep;
variable scanVariable;
set scanVarPos [expr $scanVarStart + $pt * $scanVarStep];
nxreopenfile;
addnxentry nxscript scan_$pt $scanVariable $scanVarPos;
nxscript close
}
proc donothing {args} {}
proc bmcount {sobj uobj pt mode preset} {
bm setmode $mode
bm count $preset;
}
proc bm_scan_prepare {sobj uobj} {
variable scanVarStart;
variable scanVarStep;
variable scanVariable;
nxcreatefile;
set vlist [split [$sobj getvarpar 0] = ];
set scanVariable [string trim [lindex [split [lindex $vlist 0] . ] 1]];
set scanVarStart [lindex $vlist 1];
set scanVarStep [lindex $vlist 2];
stdscan prepare $sobj $uobj;
}
proc bm_nxaddpoint {sobj uobj pt} {
variable scanVarStart;
variable scanVarStep;
variable scanVariable;
set scanVarPos [expr $scanVarStart + $pt * $scanVarStep];
nxreopenfile;
bm_addnxentry nxscript scan_$pt $scanVariable $scanVarPos;
nxscript close
}
}
proc donothing {args} {}
publish ::scanCommand::scan_prepare user
publish ::scanCommand::scan_finish user
publish ::scanCommand::nxaddpoint user
publish ::scanCommand::donothing user
#proc ecount {sobj uobj pt mode preset} {
# hmc count;
#}
publish ::scanCommand::bm_scan_prepare user
publish ::scanCommand::scan_finish user
publish ::scanCommand::bm_nxaddpoint user
publish ::scanCommand::donothing user
publish ::scanCommand::bmcount user
publish scan_prepare user
publish scan_finish user
publish nxaddpoint user
#publish ecount user
publish donothing user
hmscan function writeheader ::scanCommand::donothing
hmscan function writepoint ::scanCommand::nxaddpoint
hmscan function prepare ::scanCommand::scan_prepare
#scan2 configure script
scan2 function writeheader donothing
scan2 function writepoint nxaddpoint
#scan2 function prepare scan_prepare
#scan2 function count ecount
scan2 function writeheader ::scanCommand::donothing
scan2 function writepoint ::scanCommand::nxaddpoint
scan2 function prepare ::scanCommand::scan_prepare
MakeScanCommand bmonscan bm echidna.hdd recover.bin
bmonscan configure script
bmonscan function writeheader ::scanCommand::donothing
bmonscan function writepoint ::scanCommand::bm_nxaddpoint
bmonscan function prepare ::scanCommand::bm_scan_prepare
bmonscan function count ::scanCommand::bmcount