Integrating the ansto hmm/hmc with hdf file writing.
r1342 | ffr | 2006-12-04 09:45:20 +1100 (Mon, 04 Dec 2006) | 2 lines
This commit is contained in:
committed by
Douglas Clowes
parent
4f3413abc6
commit
31f0fca6f5
@@ -1,5 +1,5 @@
|
||||
# $Revision: 1.7 $
|
||||
# $Date: 2006-11-29 21:28:47 $
|
||||
# $Revision: 1.8 $
|
||||
# $Date: 2006-12-03 22:45:20 $
|
||||
# Author: Ferdi Franceschini (ffr@ansto.gov.au)
|
||||
# Last revision by: $Author: ffr $
|
||||
|
||||
@@ -23,11 +23,14 @@ Instrument lock
|
||||
|
||||
fileeval motor_configuration.tcl
|
||||
|
||||
proc nxcreatefile {{type hdf}} {
|
||||
proc nxcreatefile {{type nx5}} {
|
||||
global dataFileName;
|
||||
SicsDataPostFix .$type;
|
||||
|
||||
array set nxmode [list hdf create5 nx5 create5 xml createxml];
|
||||
nxscript $nxmode($type) [nxscript makefilename] echidna.dic;
|
||||
array set nxmode [list h5 create5 nx5 create5 xml createxml];
|
||||
set dataFileName [nxscript makefilename]
|
||||
nxscript $nxmode($type) $dataFileName echidna.dic;
|
||||
nxscript close;
|
||||
}
|
||||
|
||||
publish nxcreatefile user
|
||||
@@ -35,7 +38,7 @@ publish nxcreatefile user
|
||||
########
|
||||
source gen_hipadaba.tcl
|
||||
source counter.tcl
|
||||
source histogram.tcl
|
||||
source scan.tcl
|
||||
source nxscripts.tcl
|
||||
fileeval hmm_configuration.tcl
|
||||
fileeval scan.tcl
|
||||
fileeval nxscripts.tcl
|
||||
fileeval extraconfig.tcl
|
||||
|
||||
Reference in New Issue
Block a user