From 5d7206528b838a09e0be500b1e9ee665c9e77810 Mon Sep 17 00:00:00 2001
From: SaraP <sara.perdoncin@egalware.com>
Date: Fri, 5 Jul 2024 12:35:23 +0200
Subject: [PATCH] EgtExecutor 2.6g2 : - aggiunta funzione Exe e Lua
 CurveLengthAtParam.

---
 EXE_GdbGetCurve.cpp |  15 +++++++++++++++
 EgtExecutor.rc      | Bin 18890 -> 18890 bytes
 LUA_GdbGetCurve.cpp |  20 ++++++++++++++++++++
 3 files changed, 35 insertions(+)

diff --git a/EXE_GdbGetCurve.cpp b/EXE_GdbGetCurve.cpp
index 1be905c..d16291b 100644
--- a/EXE_GdbGetCurve.cpp
+++ b/EXE_GdbGetCurve.cpp
@@ -59,6 +59,21 @@ ExeCurveLength( int nId, double* pdLen)
    return ( pCurve != nullptr  &&  pCurve->GetLength( *pdLen)) ;
 }
 
+//----------------------------------------------------------------------------
+bool
+ExeCurveLengthAtParam( int nId, double dPar, double* pdLen)
+{
+   IGeomDB* pGeomDB = GetCurrGeomDB() ;
+   VERIFY_GEOMDB( pGeomDB, false)
+  // verifico il parametro
+   if ( pdLen == nullptr)
+      return false ;
+  // recupero la curva
+   ICurve* pCurve = GetCurve( pGeomDB->GetGeoObj( nId)) ;
+  // recupero la lunghezza
+   return ( pCurve != nullptr  &&  pCurve->GetLengthAtParam( dPar, *pdLen)) ;
+}
+
 //----------------------------------------------------------------------------
 bool
 ExeCurveParamAtLength( int nId, double dLen, double* pdPar)
diff --git a/EgtExecutor.rc b/EgtExecutor.rc
index c44c7be6fade566c98d868eb0a7fb3301ebff405..7c53ecee05f585b9449fccba2899498f452b6ff3 100644
GIT binary patch
delta 236
zcmX>#neo(Q#trM3)jb*V7}6PX7*ZLEfmne-gCUrqgdq`#Gl9HNpll|Hz4<1yA~U1W
z=HG0tAj*+zISZI~oN4j~!74_h$&OsfoBM=pK%%F`z-k1g5Na9}VQS)(_~ePTbn;DR
v>B%45mQCh!STy;UlYn48*nys42j&1BmIzeQx_OSX4l`CM>CGS9ZZQD>qK-hl

delta 249
zcmX>#neo(Q#trM3wOtwV7}6PX7%~}(88R3Y7&I6{fg+g<B@C$yDL{TOkd+AL6;JMW
zl-~S-nT?szaPxOIS0FXnQBZet7FQJuSmZd<<TZj-5Yfq5TxOfQgls@E$Hm}kt)viY
yYZQ^yMk(>hlj4}o{f@<qydd{_f?b%yPziG1<PXeQn`b!dFk?s^+&s<Qgb4t1X+jtP

diff --git a/LUA_GdbGetCurve.cpp b/LUA_GdbGetCurve.cpp
index b75fdad..827600f 100644
--- a/LUA_GdbGetCurve.cpp
+++ b/LUA_GdbGetCurve.cpp
@@ -57,6 +57,25 @@ LuaCurveLength( lua_State* L)
    return 1 ;
 }
 
+//----------------------------------------------------------------------------
+static int
+LuaCurveLengthAtParam( lua_State* L)
+{
+  // 2 parametri : Id, dPar
+   int nId ;
+   LuaCheckParam( L, 1, nId)
+   double dPar ;
+   LuaCheckParam( L, 2, dPar) ;
+   LuaClearStack( L) ;
+  // recupero la lunghezza della curva
+   double dLen ;
+   if ( ExeCurveLengthAtParam( nId, dPar, &dLen))
+      LuaSetParam( L, dLen) ;
+   else
+      LuaSetParam( L) ;
+   return 1 ;
+}
+
 //----------------------------------------------------------------------------
 static int
 LuaCurveParamAtLength( lua_State* L)
@@ -594,6 +613,7 @@ LuaInstallGdbGetCurve( LuaMgr& luaMgr)
    bool bOk = ( &luaMgr != nullptr) ;
    bOk = bOk && luaMgr.RegisterFunction( "EgtCurveDomain", LuaCurveDomain) ;
    bOk = bOk && luaMgr.RegisterFunction( "EgtCurveLength", LuaCurveLength) ;
+   bOk = bOk && luaMgr.RegisterFunction( "EgtCurveLengthAtParam", LuaCurveLengthAtParam) ;
    bOk = bOk && luaMgr.RegisterFunction( "EgtCurveParamAtLength", LuaCurveParamAtLength) ;
    bOk = bOk && luaMgr.RegisterFunction( "EgtCurveParamAtPoint", LuaCurveParamAtPoint) ;
    bOk = bOk && luaMgr.RegisterFunction( "EgtCurveIsClosed", LuaCurveIsClosed) ;