diff --git a/site_ansto/instrument/hipd/config/nexus/nxscripts.tcl b/site_ansto/instrument/hipd/config/nexus/nxscripts.tcl index d3a71eaf..1845cac3 100644 --- a/site_ansto/instrument/hipd/config/nexus/nxscripts.tcl +++ b/site_ansto/instrument/hipd/config/nexus/nxscripts.tcl @@ -1,28 +1 @@ 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]; -}