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

The wombat specific addnxentry has been made obsolete with the addition of hmm_* variables set by the hmm_setup function.

Browse Source 
r1683 | ffr | 2007-03-20 11:54:44 +1100 (Tue, 20 Mar 2007) | 2 lines
This commit is contained in:
Ferdi Franceschini
2007-03-20 11:54:44 +11:00
committed by Douglas Clowes
parent f19a328280
commit 0640a1edaf
1 changed files with 0 additions and 27 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,28 +1 @@
source $cfPath(nexus)/nxscripts_common_1.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];
}