fix bug with downscaling in gnuplot 5

diff --git a/tools/hadplot b/tools/hadplot
index efd3fbb059c00d9a652bc8871a64ae5b6cb689c8..ca130e37c504b4a40e9bebe77b3cd5bf96ac1610 100755 (executable)
--- 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;