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

Put start and end times in each scan point entry.

Browse Source 
r1581 | ffr | 2007-03-03 09:24:40 +1100 (Sat, 03 Mar 2007) | 2 lines
This commit is contained in:
Ferdi Franceschini
2007-03-03 09:24:40 +11:00
committed by Douglas Clowes
parent 99c55c1a07
commit fbe9e006bc
1 changed files with 1 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
site_ansto/instrument/hipd/config/scan/scan.tcl
View File

@@ -26,16 +26,12 @@ variable scanVariable scan_var scanVarStart 0 scanVarStep 1
proc hm_scan_finish {sobj uobj} { proc hm_scan_finish {sobj uobj} {
hs_finish $sobj $uobj; hs_finish $sobj $uobj;
nxreopenfile; nxreopenfile;
nxscript updatedictvar entryName stop;
nxscript puttext eend [sicstime];
nxclosefile; nxclosefile;
} }
proc bm_scan_finish {sobj uobj} { proc bm_scan_finish {sobj uobj} {
stdscan finish $sobj $uobj; stdscan finish $sobj $uobj;
nxreopenfile; nxreopenfile;
nxscript updatedictvar entryName stop;
nxscript puttext eend [sicstime];
nxclosefile; nxclosefile;
} }
#proc hm_scan_finish {sobj uobj} { #proc hm_scan_finish {sobj uobj} {
@@ -84,7 +80,7 @@ variable scanVariable scan_var scanVarStart 0 scanVarStep 1
set scanVarPos [expr $scanVarStart + $pt * $scanVarStep]; set scanVarPos [expr $scanVarStart + $pt * $scanVarStep];
nxreopenfile; nxreopenfile;
bm_addnxentry nxscript scan_$pt $scanVariable $scanVarPos $scanVarStep $scan_pt_start_time; bm_addnxentry nxscript scan_[format "%05d" $pt] $scanVariable $scanVarPos $scanVarStep $scan_pt_start_time;
nxclosefile nxclosefile
} }
} }