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

Specialized addnxscanentry for wombat

Browse Source 
r1636 | ffr | 2007-03-13 09:00:50 +1100 (Tue, 13 Mar 2007) | 2 lines
This commit is contained in:
Ferdi Franceschini
2007-03-13 09:00:50 +11:00
committed by Douglas Clowes
parent 1fa195b906
commit d59a3fd642
1 changed files with 27 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
site_ansto/instrument/hipd/config/nexus/nxscripts.tcl
View File

@@ -1 +1,28 @@
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];
}