From 577013fe41d0914445bbf79523e1ac6369929222 Mon Sep 17 00:00:00 2001
From: hadaq <hadaq@hades33.gsi.de>
Date: Sat, 21 Sep 2024 19:54:30 +0200
Subject: [PATCH] add clear function to hplot

---
 tools/HPlot.pm | 8 ++++++++
 1 file changed, 8 insertions(+)

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) = @_;
-- 
2.43.0