From 93bfbbb77b96d56b97175e425e556397b10e0fae Mon Sep 17 00:00:00 2001
From: Michael Stangl <m.stangl@schoenenberger.de>
Date: Thu, 7 May 2026 16:21:30 +0200
Subject: [PATCH] =?UTF-8?q?identify-connection-point=20repariert:=20Fehlen?=
 =?UTF-8?q?de=20<=20Vergleiche=20erg=C3=A4nzt:=20(<=20(abs=20...)=20tolera?=
 =?UTF-8?q?nce)=20statt=20(and=20(abs=20...)=20tolerance).=20=20Extra-Klam?=
 =?UTF-8?q?mer=20in=20Zeile=20136=20entfernt,=20die=20das=20defun=20vorzei?=
 =?UTF-8?q?tig=20beendet=20hat.=20Alle=208=20cond-Klauseln=20korrigiert.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Lisp/ILSModulInsert.lsp | 50 ++++++++++++++++++++---------------------
 1 file changed, 25 insertions(+), 25 deletions(-)

diff --git a/Lisp/ILSModulInsert.lsp b/Lisp/ILSModulInsert.lsp
index 21b027b..eaeba31 100644
--- a/Lisp/ILSModulInsert.lsp
+++ b/Lisp/ILSModulInsert.lsp
@@ -119,48 +119,48 @@
   (setq pickX (car pickPoint) pickY (cadr pickPoint))
   (setq tolerance 50.0)  ;; Toleranz 50mm
   
-  ;; Verbindungspunkte prüfen
+  ;; Verbindungspunkte pruefen
   (cond
     ;; T_O (Mittelpunkt obere Tangente)
-    ((and (abs (- pickX (+ x 400.0 (/ abstand 2.0)))) tolerance)
-          (abs (- pickY (+ y 400.0))) tolerance)
+    ((and (< (abs (- pickX (+ x 400.0 (/ abstand 2.0)))) tolerance)
+          (< (abs (- pickY (+ y 400.0))) tolerance))
      (setq type "T_O"))
-    
+
     ;; T_U (Mittelpunkt untere Tangente)
-    ((and (abs (- pickX (+ x 400.0 (/ abstand 2.0)))) tolerance)
-          (abs (- pickY (- y 400.0))) tolerance)
+    ((and (< (abs (- pickX (+ x 400.0 (/ abstand 2.0)))) tolerance)
+          (< (abs (- pickY (- y 400.0))) tolerance))
      (setq type "T_U"))
-    
+
     ;; M_O (Linker Kreis, oberer Rand)
-    ((and (abs (- pickX (+ x 400.0))) tolerance)
-          (abs (- pickY (+ y 400.0)))) tolerance)
+    ((and (< (abs (- pickX (+ x 400.0))) tolerance)
+          (< (abs (- pickY (+ y 400.0))) tolerance))
      (setq type "M_O"))
-    
+
     ;; M_U (Linker Kreis, unterer Rand)
-    ((and (abs (- pickX (+ x 400.0))) tolerance)
-          (abs (- pickY (- y 400.0))) tolerance)
+    ((and (< (abs (- pickX (+ x 400.0))) tolerance)
+          (< (abs (- pickY (- y 400.0))) tolerance))
      (setq type "M_U"))
-    
+
     ;; M_L (Linker Kreis, linker Rand)
-    ((and (abs (- pickX x)) tolerance)
-          (abs (- pickY y)) tolerance)
+    ((and (< (abs (- pickX x)) tolerance)
+          (< (abs (- pickY y)) tolerance))
      (setq type "M_L"))
-    
+
     ;; S_O (Rechter Kreis, oberer Rand)
-    ((and (abs (- pickX (+ x 400.0 abstand))) tolerance)
-          (abs (- pickY (+ y 400.0))) tolerance)
+    ((and (< (abs (- pickX (+ x 400.0 abstand))) tolerance)
+          (< (abs (- pickY (+ y 400.0))) tolerance))
      (setq type "S_O"))
-    
+
     ;; S_U (Rechter Kreis, unterer Rand)
-    ((and (abs (- pickX (+ x 400.0 abstand))) tolerance)
-          (abs (- pickY (- y 400.0))) tolerance)
+    ((and (< (abs (- pickX (+ x 400.0 abstand))) tolerance)
+          (< (abs (- pickY (- y 400.0))) tolerance))
      (setq type "S_U"))
-    
+
     ;; S_R (Rechter Kreis, rechter Rand)
-    ((and (abs (- pickX (+ x 800.0 abstand))) tolerance)
-          (abs (- pickY y)) tolerance)
+    ((and (< (abs (- pickX (+ x 800.0 abstand))) tolerance)
+          (< (abs (- pickY y)) tolerance))
      (setq type "S_R"))
-    
+
     (t (setq type "UNKNOWN"))
   )
   type