Updated scan configuration from ics1-kookaburra.

site_ansto/instrument/kookaburra/config/scan/scan.tcl

@@ -4,3 +4,57 @@ proc ::scan::pre_hmm_scan_prepare {} {}
 proc ::scan::isc_initialize {} {
   ::scan::ic_initialize
 }
+
+proc filecounts_log {fname txt} {
+    set fd [open $fname a]
+    puts $fd "$txt"
+    close $fd
+}
+
+proc thresholdscan {minVoltage maxVoltage stepVoltage minBMThreshold manBMThreshold stepBMThreshold scantime} {
+
+  # following is used to obtain an optimal BM threshold 
+  set  fileCounts      ../log/bmcounts.log
+  set  fileCountsDiff  ../log/bmcountsdiff.log
+
+  variable curCount
+  
+  set fd [open $fileCounts w]
+  close $fd
+  set fd [open $fileCountsDiff  w]
+  close $fd
+  
+  set txt ""
+  for {set thres $minBMThreshold} {$thres <= $manBMThreshold} {incr thres $stepBMThreshold} {
+    lappend txt $thres
+  }
+  filecounts_log $fileCounts "Thres: $txt"
+
+  clientput "Start scanning loop now"
+  for {set vol $minVoltage} {$vol <= $maxVoltage} {incr vol $stepVoltage} {
+    emHV1 $vol
+    set curCount ""
+    for {set thres $minBMThreshold} {$thres <= $manBMThreshold} {incr thres $stepBMThreshold} {
+      clientput "set thredshold to $thres"
+      bmthreshold $thres
+
+      setcounter stop
+      clientput "Threshold= $thres, scanning $scantime seconds now..."
+      setcounter start time=$scantime
+      clientput "Store count now..."
+      lappend curCount [hval /sample/emHV/count1]
+    }
+    set txt "$vol : $curCount"
+    filecounts_log $fileCounts $txt
+    set diff ""
+    for {set ind 1} {$ind < [llength $curCount]} {incr ind} {
+      lappend diff [expr [lindex $curCount $ind]-[lindex $curCount [expr $ind-1]]]
+    }
+    set txt "$vol : $diff"
+    filecounts_log $fileCountsDiff $txt  
+    
+  }
+}
+
+publish thresholdscan  user
+