From 5a998a5d13dee48ca36b5baee8f54c19d2b20bbc Mon Sep 17 00:00:00 2001
From: Riccardo Elitropi <riccardo.elitropi@egalware.com>
Date: Tue, 4 Nov 2025 15:52:48 +0100
Subject: [PATCH] EgtExecutor 2.7k2 : - aggiunta funzione per il calcolo della
 Curvatura in un vertice per una Superficie TriMesh.

---
 EXE_GdbGetSurf.cpp |  58 +++++++++++++++++++++++++++++++++++++++++++++
 EgtExecutor.rc     | Bin 19714 -> 19660 bytes
 LUA_GdbGetSurf.cpp |  27 +++++++++++++++++++++
 3 files changed, 85 insertions(+)

diff --git a/EXE_GdbGetSurf.cpp b/EXE_GdbGetSurf.cpp
index 2f89b9e..9e117c2 100644
--- a/EXE_GdbGetSurf.cpp
+++ b/EXE_GdbGetSurf.cpp
@@ -1431,6 +1431,64 @@ ExeSurfTmGetEdges( int nId, int nDestGrpId, bool bSmoothAng, int* pnCount)
    return nFirstId ;
 }
 
+//----------------------------------------------------------------------------
+bool
+ExeSurfTmGetCurvatures( int nId, int nV, int nType, double& dK1, Vector3d& vtK1, double& dK2, Vector3d& vtK2)
+{
+   IGeomDB* pGeomDB = GetCurrGeomDB() ;
+   VERIFY_GEOMDB( pGeomDB, GDB_ID_NULL)
+
+  // Inzializzo i parametri di ritorno
+   dK1 = 0. ; dK2 = 0. ;
+   vtK1 = V_NULL ; vtK2 = V_NULL ;
+
+  // Recupero la superficie TriMesh
+   const ISurfTriMesh* pStm = GetSurfTriMesh( pGeomDB->GetGeoObj( nId)) ;
+   bool bOk = ( pStm != nullptr) ;
+  // Recupero il riferimento globale del gruppo cui appartiene
+   Frame3d frSurf ;
+   bOk = bOk && pGeomDB->GetGlobFrame( nId, frSurf) ;
+
+  // Calcolo la Curvatura
+   bool bPlanar = false ;
+   if ( nType == STM_CURVATURE_STD) {
+     // Se curvatura Standard
+      Vector3d vtNorm = V_NULL ;
+      bOk = bOk && pStm->GetCurvature( nV, dK1, vtK1, dK2, vtK2, bPlanar, vtNorm) ;
+   }
+   else {
+      double dMinK = 0., dMaxK = 0. ;
+      Vector3d vtMinK = V_NULL, vtMaxK = V_NULL ;
+      if ( nType == STM_CURVATURE_GAUSS)
+          bOk = bOk && pStm->GetCurvature( nV, dMinK, vtMinK, dMaxK, vtMaxK, bPlanar, vtK1, &dK1) ;
+      else if ( nType == STM_CURVATURE_MEAN)
+          bOk = bOk && pStm->GetCurvature( nV, dMinK, vtMinK, dMaxK, vtMaxK, bPlanar, vtK1, nullptr, &dK1) ;
+      else if ( nType == STM_CURVATURE_NORM) {
+         bOk = bOk && pStm->GetCurvature( nV, dMinK, vtMinK, dMaxK, vtMaxK, bPlanar, vtK1, nullptr, nullptr, &dK1, &dK2) ;
+         vtK2 = vtK1 ;
+      }
+   }
+  // Se superficie localmente piana
+   if ( bPlanar) {
+      vtK1 = V_NULL ; // Sarebbe un vettore generico parallelo alla superficie ( sempre dK1 circa 0.)
+      vtK2 = V_NULL ; // Sarebbe un vettore generico parallelo alla superficie e perpendicolare a vtK1
+                      // ( sempre dK2 circa 0.)
+   }
+
+   ExeSetModified() ;
+  // Se richiesto, salvo il comando Lua equivalente
+   if ( IsCmdLog()) {
+      string sLua = "EgtSurfTmGetCurvature(" + ToString( nId) +
+                                               ToString( nV) +
+                                               ToString( nType) +
+                    " -- bOk=" + ToString( bOk) ;
+      LOG_INFO( GetCmdLogger(), sLua.c_str()) ;
+   }
+
+  // Restituisco il risultato
+   return bOk ;
+}
+
 //----------------------------------------------------------------------------
 bool
 ExeSurfBezierGetPoint( int nSurfId, double dU, double dV, int nRefId, Point3d& ptP)
diff --git a/EgtExecutor.rc b/EgtExecutor.rc
index 2e22e9b94f0e4dfa4233006bdeb735f2b8eb3483..9743bcf8e147de3f3699acf405a1098de1f8beab 100644
GIT binary patch
delta 252
zcmZpg#du~W<A!z2>YfaF4CxFx45<voK&-%^!4S+)!jK5WnLu7BP&O09p6u_|x;c(z
z9uuR{=8Iz2nI>Q1%wsf~9LTM^xqz#N1t@w@?lRNl1A;J710^@c&5MNfn86xcffQ7+
zALHgp(qQ3(a*i-z1Ep>9llfE?HrqI5FcIsf&F5W;83psfj`jpQItS?3#LfP08<{bM
OC!cpYxcQuy2@?PTM?)z9

delta 286
zcmX>zld)+Q<A!z2+O7<F4CxFx44DkY3>gdx3>plfK#@#_5{6WU6d*qs$VvqBiYHHW
zk>31)nS+_paPwKQ>r9g`aON=@PBs+Q-RvOc$GCYHw;o7puiRy($$JE$Qj;B|%r^H4
z*|C5%xdIhHHPnDa_R2XzMWE^g7&jLw7syS%Ai*&?#8HOTgu#HpVzR%A_+$rBvB`Zt
re47QFqL@f=_2!8##f-clk9mT<lEY95_K1PoG-eFpgPUh~nJ@tWDjrKh

diff --git a/LUA_GdbGetSurf.cpp b/LUA_GdbGetSurf.cpp
index cee8fbd..6014f2a 100644
--- a/LUA_GdbGetSurf.cpp
+++ b/LUA_GdbGetSurf.cpp
@@ -977,6 +977,32 @@ LuaSurfTmGetEdges( lua_State* L)
    return 2 ;
 }
 
+//----------------------------------------------------------------------------
+static int
+LuaSurfTmGetCurvature( lua_State* L)
+{
+  // 3 parametri : nStmId, nIndV
+   int nStmId ;
+   LuaCheckParam( L, 1, nStmId) ;
+   int nIndVertex ;
+   LuaCheckParam( L, 2, nIndVertex) ;
+   int nType = STM_CURVATURE_STD ;
+   LuaGetParam( L, 3, nType) ;
+   LuaClearStack( L) ;
+   double dK1 = 0., dK2 = 0. ;
+   Vector3d vtK1 = V_NULL, vtK2 = V_NULL ;
+   bool bOk = ExeSurfTmGetCurvatures( nStmId, nIndVertex, nType, dK1, vtK1, dK2, vtK2) ;
+   LuaSetParam( L, bOk) ;
+   if ( bOk) {
+      LuaSetParam( L, dK1) ;
+      LuaSetParam( L, vtK1) ;
+      LuaSetParam( L, dK2) ;
+      LuaSetParam( L, vtK2) ;
+      return 5 ;
+   }
+   return 1 ;
+}
+
 //----------------------------------------------------------------------------
 static int
 LuaSurfBezierGetPoint( lua_State* L)
@@ -1282,6 +1308,7 @@ LuaInstallGdbGetSurf( LuaMgr& luaMgr)
    bOk = bOk && luaMgr.RegisterFunction( "EgtExtractSurfTmTriaLoop", LuaExtractSurfTmTriaLoop) ;
    bOk = bOk && luaMgr.RegisterFunction( "EgtCopySurfTmFacet", LuaCopySurfTmFacet) ;
    bOk = bOk && luaMgr.RegisterFunction( "EgtSurfTmGetEdges", LuaSurfTmGetEdges) ;
+   bOk = bOk && luaMgr.RegisterFunction( "EgtSurfTmGetCurvature", LuaSurfTmGetCurvature) ;
    bOk = bOk && luaMgr.RegisterFunction( "EgtSurfBezierGetPoint", LuaSurfBezierGetPoint) ;
    bOk = bOk && luaMgr.RegisterFunction( "EgtSurfBezierGetPointD1", LuaSurfBezierGetPointD1) ;
    bOk = bOk && luaMgr.RegisterFunction( "EgtSurfBezierGetPointNrmD1", LuaSurfBezierGetPointNrmD1) ;