From: hadaq <hadaq@hades33.gsi.de>
Date: Sat, 21 Sep 2024 17:54:30 +0000 (+0200)
Subject: add clear function to hplot
X-Git-Url: https://jspc29.x-matter.uni-frankfurt.de/git/?a=commitdiff_plain;h=577013fe41d0914445bbf79523e1ac6369929222;p=daqtools.git

add clear function to hplot
---

diff --git a/tools/HPlot.pm b/tools/HPlot.pm
index 362abcc..b559cdf 100755
--- a/tools/HPlot.pm
+++ b/tools/HPlot.pm
@@ -327,6 +327,14 @@ sub PlotDraw {
     }
   }
 
+sub PlotClear {
+  my ($name) = @_;
+  for(my $j=0; $j<$p->{$name}->{curves}; $j++) {
+    for(my $i=0; $i< $p->{$name}->{entries}; $i++) {
+      $p->{$name}->{value}->[$j]->[$i] = undef;
+      }
+    }
+  }
 
 sub PlotAdd {
   my($name,$value,$curve) = @_;