bd533e6131
- Mapped fileeval to exe manager - Updates for TRICS file formats SKIPPED: psi/libpsi.a psi/sinqhmdriv.c psi/sinqhttp.c psi/tabledrive.c psi/tasscan.c psi/hardsup/asynsrv_utility.c psi/hardsup/sinqhm.c
130 lines
4.0 KiB
Tcl
130 lines
4.0 KiB
Tcl
#--------------------------------------------------------------------------
|
|
# NeXus file writing for DMC
|
|
#
|
|
# This is the scripted version using nxscript
|
|
#
|
|
# Mark Koennecke, May 2004
|
|
# This is a special version for virtual DMC on lns00
|
|
#---------------------------------------------------------------------------
|
|
|
|
proc storeMonochromator {} {
|
|
nxscript puttext mname "Pyrolithic Graphite 002"
|
|
writeFloatVar mtheta OmegaM
|
|
writeFloatVar mttheta TwoThetaM
|
|
writeFloatVar mlambda lambda
|
|
writeFloatVar mcurve CurveM
|
|
writeFloatVar monox MonoX
|
|
writeFloatVar monoy MonoY
|
|
writeFloatVar mchi MonoChi
|
|
writeFloatVar mphi MonoPhi
|
|
set dd [SplitReply [mono dd]]
|
|
set dd [string trim $dd]
|
|
set ret [catch {expr $dd * 1.0} msg]
|
|
if {$ret != 0} {
|
|
clientput "ERROR: failed to read monochromator d spacing"
|
|
} else {
|
|
nxscript putfloat mdd $dd
|
|
}
|
|
}
|
|
#------------------------------------------------------------------------
|
|
proc storeSample {} {
|
|
writeTextVar saname sample
|
|
writeFloatVar saangle Table
|
|
set ret [catch {set temp [SplitReply [temperature]]} msg]
|
|
if {$ret == 0} {
|
|
nxscript putfloat stemp $temp
|
|
set dname [string trim [SplitReply [temperature driver]]]
|
|
if {"$dname" == "tecs"} {
|
|
set dname [SplitReply [temperature device]]
|
|
}
|
|
nxscript puttext devname $dname
|
|
set ret [catch {temperature log getmean} msg]
|
|
if {$ret == 0} {
|
|
set l [split $msg =]
|
|
set stddev [string trim [lindex $l 2]]
|
|
set l2 [split [string trim [lindex $l 1]]]
|
|
set mean [string trim [lindex $l2 0]]
|
|
nxscript putfloat smean $mean
|
|
nxscript putfloat stddev $stddev
|
|
}
|
|
}
|
|
writeFloatVar smur sample_mur
|
|
set ret [catch {set mtemp [SplitReply [magfield]]} msg]
|
|
if {$ret == 0} {
|
|
nxscript putfloat mfield $mtemp
|
|
}
|
|
}
|
|
#---------------------------------------------------------------------
|
|
proc storeDetector {ndet stepwidth} {
|
|
nxscript udpatedictvar noofdetectors $ndet
|
|
set start [string trim [SplitReply [TwoThetaD]]]
|
|
for {set i 0} { $i < $ndet} {incr i} {
|
|
set th($i) [expr $start + $i * $stepwidth]
|
|
}
|
|
nxscript putfloat dthst $start
|
|
nxscript putfloat dtstep $stepwidth
|
|
nxscript putint dtnstep [string trim $ndet]
|
|
nxscript putarray dtheta th 400
|
|
nxscript puthm dcounts banana
|
|
}
|
|
#----------------------------------------------------------------------
|
|
proc makeLinks {} {
|
|
nxscript makelink dana dcounts
|
|
nxscript makelink dana dtheta
|
|
nxscript makelink dana dthst
|
|
nxscript makelink dana dtstep
|
|
nxscript makelink dana dtnstep
|
|
nxscript makelink dana mlambda
|
|
}
|
|
#------------------------------------------------------------------------
|
|
proc makeSimFileName args {
|
|
global datahome
|
|
sicsdatanumber incr
|
|
set num [SplitReply [sicsdatanumber]]
|
|
return [makeSimForNum $num]
|
|
}
|
|
#------------------------------------------------------------------------
|
|
proc makeSimForNum {num} {
|
|
global datahome
|
|
set pre [string trim [SplitReply [sicsdataprefix]]]
|
|
set po [string trim [SplitReply [sicsdatapostfix]]]
|
|
return [format "%s/%s2006n%6.6d%s" $datahome $pre $num $po]
|
|
}
|
|
#-------------------------------------------------------------------------
|
|
# store DMC data
|
|
#-------------------------------------------------------------------------
|
|
proc storedata {} {
|
|
global home wwwMode
|
|
|
|
if {$wwwMode == 1} {
|
|
set fil [makeSimFileName]
|
|
} else {
|
|
set fil [newFileName]
|
|
}
|
|
lastdatafile $fil
|
|
clientput "Opening $fil for writing"
|
|
nxscript createxml $fil $home/dmc.dic
|
|
|
|
writeStandardAttributes $fil
|
|
writeTextVar etitle title
|
|
nxscript puttext estart [sicstime]
|
|
nxscript puttext iname "DMC at SINQ"
|
|
nxscript puttext sname "SINQ"
|
|
nxscript puttext stype "Continuous flux spallation source"
|
|
|
|
nxscript updatedictvar inst DMC
|
|
nxscript updatedictvar detector "DMC-BF3-Detector"
|
|
|
|
storeMonochromator
|
|
|
|
storeSample
|
|
|
|
nxscript putcounter cter counter
|
|
|
|
storeDetector 400 .2
|
|
|
|
makeLinks
|
|
|
|
nxscript close
|
|
}
|