From: Michael Wiebusch <m.wiebusch@gsi.de>
Date: Thu, 23 Jul 2015 13:56:55 +0000 (+0200)
Subject: added counts_histogram functionality
X-Git-Url: https://jspc29.x-matter.uni-frankfurt.de/git/?a=commitdiff_plain;h=df41949c0cccbb1bb042e99d3114014afb0ce998;p=coral.git

added counts_histogram functionality
---

diff --git a/user_interface/coral_scanner.pm b/user_interface/coral_scanner.pm
index 1b3b473..30d4b68 100644
--- a/user_interface/coral_scanner.pm
+++ b/user_interface/coral_scanner.pm
@@ -140,6 +140,8 @@ sub main_html {
   print "<a href='coral_scanner.log' target='_blank' id='button_log'
   ><input type='button' value='view log'></a>";
   print "<input type='button' value='clear log' id='button_clearlog'>";
+  print "<a href='coral_scanner.pl?sub=scan_to_svg' target='_blank' id='button_svg'
+  ><input type='button' value='svg image'></a>";
   print br;
   print br;
   print "estimated scan duration: ".hms_string($self->scan_ETA());
diff --git a/user_interface/pmt_ro.pl b/user_interface/pmt_ro.pl
index f8dd8ac..4ebee1e 100755
--- a/user_interface/pmt_ro.pl
+++ b/user_interface/pmt_ro.pl
@@ -36,6 +36,7 @@ my $dispatch_table = {
   spectrum_csv  => 1,
   spectrum_delete  => 1,
   clear_spectrum => 1,
+  counts_histogram => 1,
   acquisition_time => 1
 };
 
diff --git a/user_interface/pmt_ro.pm b/user_interface/pmt_ro.pm
index a06689c..77e21de 100644
--- a/user_interface/pmt_ro.pm
+++ b/user_interface/pmt_ro.pm
@@ -35,7 +35,8 @@ sub new {
     net_counter       => 23,
     reset_counter     => 24,
     dead_time         => 25,
-    acquisition_time  => 26
+    acquisition_time  => 26,
+    input_polarity    => 27
   };
   
   $self->{constants} = {
@@ -762,8 +763,22 @@ sub write_register {
 
 
 
+sub counts_histogram {
+  
+  my $self = shift;
+  my %options = @_;
+  
+  my @data = ();
+  
+  for my $i (1..32) {
+    $data[$i] = $self->read_register(addr => $i+100);
+    print "$i\t".$data[$i]."\n";
+  }
+  return " ";
 
 
+}
+
 
 sub help {
   my $self = shift;