41 lines
944 B
Tcl
41 lines
944 B
Tcl
|
|
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
|