From 492162ed12c19e8f162aa8638b604494c58035eb Mon Sep 17 00:00:00 2001
From: HADES DAQ <hadaq@gsi.de>
Date: Mon, 23 Apr 2018 14:07:23 +0200
Subject: [PATCH] fix bug with downscaling in gnuplot 5

---
 tools/hadplot | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/tools/hadplot b/tools/hadplot
index efd3fbb..ca130e3 100755
--- a/tools/hadplot
+++ b/tools/hadplot
@@ -832,8 +832,8 @@ sub genhist {
   while(1) {
     my $a, my $s, my $t;
     my $val = 0 , my $time;
-    plot_storage_reset($storearr{0});
-    plot_write($plotstr);
+    plot_storage_reset($storearr{0}) if $storearr{0}->{"iteration"} % $storearr{0}->{"downscale"} == 0;
+    plot_write($plotstr) if $storearr{0}->{"iteration"} % $storearr{0}->{"downscale"} == 0;
     for(my $i = 0; $i<scalar(@{$address});$i++) {
       $val = 0;
       my $c = trb_registertime_read($address->[$i], $register->[$i]) or sleep 1 and print "Error\n" and next;
-- 
2.43.0