29 lines
1.1 KiB
Tcl
29 lines
1.1 KiB
Tcl
source $cfPath(nexus)/nxscripts_common_1.tcl
|
|
|
|
proc addnxscanentry {nxobj entryname scanVariable scanVarPos scanVarStep start_time} {
|
|
global dradius ndect angsep;
|
|
set dim0 [SplitReply [hmm configure dim0]]
|
|
set dim1 [SplitReply [hmm configure dim1]]
|
|
putcommon $nxobj $entryname $scanVariable
|
|
putcrystal $nxobj
|
|
putmonitor $nxobj
|
|
putsample $nxobj
|
|
set scanVar_value [string trim [lindex [split [$scanVariable] =] 1]]
|
|
$nxobj putfloat $scanVariable $scanVar_value
|
|
$nxobj putfloat detangle_degrees [SplitReply [detector_angle_deg]]
|
|
$nxobj puttext estart $start_time
|
|
putpolar_angle $nxobj $dim0 $dim1
|
|
$nxobj puttext dtype [SplitReply [detector_type]]
|
|
$nxobj puttext ddesc [SplitReply [detector_description]]
|
|
$nxobj putfloat dradius [SplitReply [detector_radius_mm]]
|
|
$nxobj puttext dlayout area
|
|
$nxobj puthm dcounts hmm $hmm_start $hmm_length [hmmdictitemval $histomem bank]
|
|
$nxobj puthm deff hmm
|
|
$nxobj makelink scandata dcounts
|
|
$nxobj makelink scanvertaxis dvaxis
|
|
$nxobj makelink scandata dtheta
|
|
$nxobj makelink scanvar $scanVariable
|
|
$nxobj putfloat scanstep $scanVarStep
|
|
$nxobj puttext eend [sicstime];
|
|
}
|