From 5089849fbebbbd9601cdcee1495ce90a5ae61279 Mon Sep 17 00:00:00 2001
From: Erich Eckner <git@eckner.net>
Date: Sun, 26 Jun 2022 22:00:26 +0200
Subject: hat() neu

---
 fhunit.pas | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/fhunit.pas b/fhunit.pas
index 555999c..7a00db1 100644
--- a/fhunit.pas
+++ b/fhunit.pas
@@ -54,6 +54,7 @@ type
     function count: longint;
     property items[i: longint]: tMessPunkt
       read rItem; default;
+    function hat(zeit: extended): boolean;
     function minMaxY(startZeit,stopZeit: extended): tMessWerteExtPoints;
     procedure dump(p: pointer);
     procedure pmud(p: pointer; version,len: longint);
@@ -367,6 +368,17 @@ begin
   end;
 end;
 
+function tMessPunkteListe.hat(zeit: extended): boolean;
+var
+  i: longint;
+begin
+  result:=false;
+  i:=bisekt(zeit);
+  if (i<0) or (i>=count) then
+    exit;
+  result:= round((items[i].zeit - zeit) * 6 * 24) = 0;
+end;
+
 function tMessPunkteListe.statistics: string;
 var
   i,gaps: longint;
-- 
cgit v1.2.3-54-g00ecf