From 282c3e5c0a5b6759df3f2b0b9a76b852ded581ae Mon Sep 17 00:00:00 2001
From: Christopher Lackner <clackner@cerbsim.com>
Date: Wed, 7 Feb 2024 15:05:03 +0100
Subject: [PATCH] fix glued point in sphere (was removed by compress)

---
 libsrc/meshing/meshclass.cpp | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/libsrc/meshing/meshclass.cpp b/libsrc/meshing/meshclass.cpp
index 70eff530..e735bac9 100644
--- a/libsrc/meshing/meshclass.cpp
+++ b/libsrc/meshing/meshclass.cpp
@@ -4043,6 +4043,9 @@ namespace netgen
           pused[seg[j]] = true;
       }
 
+    for(auto& pe : pointelements)
+      pused[pe.pnum] = true;
+
     for (int i = 0; i < openelements.Size(); i++)
       {
         const Element2d & el = openelements[i];
@@ -4129,6 +4132,9 @@ namespace netgen
           seg[j] = op2np[seg[j]];
       }
 
+    for(auto& pe : pointelements)
+      pe.pnum = op2np[pe.pnum];
+
     for (int i = 1; i <= openelements.Size(); i++)
       {
         Element2d & el = openelements.Elem(i);