Remove obsolete code

r2648 | ffr | 2008-07-11 14:46:01 +1000 (Fri, 11 Jul 2008) | 2 lines

site_ansto/instrument/config/scan/scan_common_1.tcl

@@ -178,7 +178,6 @@ proc ::scan::pre_hmm_scan_prepare {} {}
   ##
   # @brief Do some pre-scan checks and prime the DAE
 proc ::scan::hmm_scan_prepare {sobj uobj} {
-    variable scan_pt_start_time
     variable save_filetype
     variable ic_hmm_datatype
     variable check_instrument_ready
@@ -203,7 +202,6 @@ proc ::scan::hmm_scan_prepare {sobj uobj} {
         ::scan::hdb_hmscan -set scan_start $scanstart
         ::scan::hdb_hmscan -set scan_increment $scanstep
 
-        set scan_pt_start_time [sicstime]
 
         ::scan::hdb_hmscan -set feedback status BUSY
         run_mode "hmscan"
@@ -274,14 +272,6 @@ proc ::scan::bm_scan_finish {sobj uobj} {
     }
   }
 
-# Add an nxentry for the current scan point
-#TODO Is this obsolete?
-proc ::scan::write_nxentry {nxentryCmd point} {
-    variable scan_pt_start_time;
-
-    save $point
-  }
-
 proc ::scan::bm_writepoint {sobj uobj pt} {
     ::nexus::save $pt
 
@@ -309,7 +299,6 @@ proc ::scan::bm_count {sobj uobj point mode preset} {
 
 proc ::scan::bm_scan_prepare {sobj uobj} {
 
-    variable scan_pt_start_time 
     variable check_instrument_ready
     variable force_scan
 
@@ -335,7 +324,6 @@ proc ::scan::bm_scan_prepare {sobj uobj} {
         ::scan::hdb_bmonscan -set scan_start $scanstart
         ::scan::hdb_bmonscan -set scan_increment $scanstep
         set scanvar_pts [SplitReply [$sobj getvardata $varindex]]
-        todo_msg "SET START TIME [sicstime]" 
 
         ::scan::hdb_bmonscan -set feedback status BUSY
         run_mode "bmonscan"
@@ -357,7 +345,6 @@ proc ::scan::bm_scan_prepare {sobj uobj} {
 
 
 
-Publish ::scan::write_nxentry user
 Publish ::scan::hmm_count user
 Publish ::scan::hmm_scan_prepare user
 Publish ::scan::hmm_scan_finish user