From 0640a1edaf26fb632dbf82ffbae7b628d179c7cb Mon Sep 17 00:00:00 2001
From: Ferdi Franceschini <ffr@ansto.gov.au>
Date: Tue, 20 Mar 2007 11:54:44 +1100
Subject: [PATCH] The wombat specific addnxentry has been made obsolete with
 the addition of hmm_* variables set by the hmm_setup function.

r1683 | ffr | 2007-03-20 11:54:44 +1100 (Tue, 20 Mar 2007) | 2 lines
---
 .../hipd/config/nexus/nxscripts.tcl           | 27 -------------------
 1 file changed, 27 deletions(-)

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];
-}