EgtInterface/LUA_GdbModifyCurve.cpp

//----------------------------------------------------------------------------
//  EgalTech 2014-2014
//----------------------------------------------------------------------------
// File : LUA_GdbModifyCurve.cpp       Data : 28.12.14        Versione : 1.5l2
// Contenuto : Funzioni di modifica delle curve per LUA.
//
//
//
// Modifiche : 03.10.14 DS Creazione modulo.
//
//
//----------------------------------------------------------------------------

//--------------------------- Include ----------------------------------------
#include "stdafx.h"
#include "LUA.h"
#include "API.h"
#include "/EgtDev/Include/EInAPI.h"
#include "/EgtDev/Include/EInConst.h"
#include "/EgtDev/Include/EGkCurve.h"
#include "/EgtDev/Include/EgnStringUtils.h"
#include "/EgtDev/Extern/Lua/Include/lua.hpp"

using namespace std ;

//----------------------------------------------------------------------------
static int
LuaInvertCurve( lua_State* L)
{
  // 1 parametro : Id/s
   INTVECTOR vId ;
   LuaCheckParam( L, 1, vId)
   LuaClearStack( L) ;
  // eseguo inversione curve
   bool bOk = true ;
   for ( size_t i = 0 ; i < vId.size() && bOk ; ++ i) {
      if ( EgtInvertCurve( vId[i]) == FALSE)
         bOk = false ;
   }
  // restituisco il risultato
   LuaSetReturn( L, bOk) ;
   return 1 ;
}

//-------------------------------------------------------------------------------
static int
LuaOffsetCurve( lua_State* L)
{
  // 2 o 3 parametri : Id, dDist [, nType]
   int nId ;
   LuaCheckParam( L, 1, nId)
   double dDist ;
   LuaCheckParam( L, 2, dDist)
   int nType = ICurve::OFF_FILLET ;
   if ( lua_gettop( L) >= 3) {
      string sType ;
      LuaCheckParam( L, 3, sType)
      if ( sType == "CHAMFER")
         nType = ICurve::OFF_CHAMFER ;
      else if ( sType == "EXTEND")
         nType = ICurve::OFF_EXTEND ;
   }
   LuaClearStack( L) ;
  // offset della curva
   bool bOk = ( EgtOffsetCurve( nId, dDist, nType) != FALSE) ;
   LuaSetReturn( L, bOk) ;
   return 1 ;
}

//----------------------------------------------------------------------------
static int
LuaModifyCurveStartPoint( lua_State* L)
{
  // 2 o 3 parametri : Id, NewStart [, sRefType]
   int nId ;
   LuaCheckParam( L, 1, nId)
   Point3d ptStart ;
   LuaCheckParam( L, 2, ptStart)
   int nRefType = RTY_DEFAULT ;
   LuaGetRefType( L, 3, nRefType) ;
   LuaClearStack( L) ;
  // modifico il punto iniziale
   bool bOk = ( EgtModifyCurveStartPoint( nId, ptStart.v, nRefType) != FALSE) ;
   LuaSetReturn( L, bOk) ;
   return 1 ;
}

//----------------------------------------------------------------------------
static int
LuaModifyCurveEndPoint( lua_State* L)
{
  // 2 o 3 parametri : Id, NewEnd [, sRefType]
   int nId ;
   LuaCheckParam( L, 1, nId)
   Point3d ptEnd ;
   LuaCheckParam( L, 2, ptEnd)
   int nRefType = RTY_DEFAULT ;
   LuaGetRefType( L, 3, nRefType) ;
   LuaClearStack( L) ;
  // modifico il punto finale
   bool bOk = ( EgtModifyCurveEndPoint( nId, ptEnd.v, nRefType) != FALSE) ;
   LuaSetReturn( L, bOk) ;
   return 1 ;
}

//----------------------------------------------------------------------------
static int
LuaModifyCurveExtrusion( lua_State* L)
{
  // 2 o 3 parametri : Id/s, vtExtr [, sRefType]
   INTVECTOR vId ;
   LuaCheckParam( L, 1, vId)
   Vector3d vtExtr ;
   LuaCheckParam( L, 2, vtExtr)
   int nRefType = RTY_DEFAULT ;
   LuaGetRefType( L, 3, nRefType) ;
   LuaClearStack( L) ;
  // modifico il vettore estrusione
   bool bOk = EgtModifyCurveExtrusion( vId, vtExtr, nRefType) ;
  // restituisco il risultato
   LuaSetReturn( L, bOk) ;
   return 1 ;
}

//----------------------------------------------------------------------------
static int
LuaModifyCurveThickness( lua_State* L)
{
  // 2 parametri : Id/s, Thick
   INTVECTOR vId ;
   LuaCheckParam( L, 1, vId)
   double dThick ;
   LuaCheckParam( L, 2, dThick)
   LuaClearStack( L) ;
  // modifico il vettore estrusione
   bool bOk = true ;
   for ( size_t i = 0 ; i < vId.size() && bOk ; ++ i) {
      if ( EgtModifyCurveThickness( vId[i], dThick) == 0)
         bOk = false ;
   }
  // restituisco il risultato
   LuaSetReturn( L, bOk) ;
   return 1 ;
}

//----------------------------------------------------------------------------
static int
LuaTrimCurveStartAtLen( lua_State* L)
{
  // 2 parametri : Id, dLen
   int nId ;
   LuaCheckParam( L, 1, nId)
   double dLen ;
   LuaCheckParam( L, 2, dLen)
   LuaClearStack( L) ;
  // taglio la curva all'inizio
   bool bOk = ( EgtTrimCurveStartAtLen( nId, dLen) != FALSE) ;
   LuaSetReturn( L, bOk) ;
   return 1 ;
}

//----------------------------------------------------------------------------
static int
LuaTrimCurveEndAtLen( lua_State* L)
{
  // 2 parametri : Id, dLen
   int nId ;
   LuaCheckParam( L, 1, nId)
   double dLen ;
   LuaCheckParam( L, 2, dLen)
   LuaClearStack( L) ;
  // taglio la curva alla fine
   bool bOk = ( EgtTrimCurveEndAtLen( nId, dLen) != FALSE) ;
   LuaSetReturn( L, bOk) ;
   return 1 ;
}

//----------------------------------------------------------------------------
static int
LuaTrimCurveStartAtParam( lua_State* L)
{
  // 2 parametri : Id, dPar
   int nId ;
   LuaCheckParam( L, 1, nId)
   double dPar ;
   LuaCheckParam( L, 2, dPar)
   LuaClearStack( L) ;
  // taglio la curva all' inizio
   bool bOk = ( EgtTrimCurveStartAtParam( nId, dPar) != FALSE) ;
   LuaSetReturn( L, bOk) ;
   return 1 ;
}

//----------------------------------------------------------------------------
static int
LuaTrimCurveEndAtParam( lua_State* L)
{
  // 2 parametri : Id, dPar
   int nId ;
   LuaCheckParam( L, 1, nId)
   double dPar ;
   LuaCheckParam( L, 2, dPar)
   LuaClearStack( L) ;
  // taglio la curva alla fine
   bool bOk = ( EgtTrimCurveEndAtParam( nId, dPar) != FALSE) ;
   LuaSetReturn( L, bOk) ;
   return 1 ;
}

//----------------------------------------------------------------------------
static int
LuaTrimCurveStartEndAtParam( lua_State* L)
{
  // 3 parametri : Id, dParS, dParE
   int nId ;
   LuaCheckParam( L, 1, nId)
   double dParS ;
   LuaCheckParam( L, 2, dParS)
   double dParE ;
   LuaCheckParam( L, 3, dParE)
   LuaClearStack( L) ;
  // taglio la curva alla fine
   bool bOk = ( EgtTrimCurveStartEndAtParam( nId, dParS, dParE) != FALSE) ;
   LuaSetReturn( L, bOk) ;
   return 1 ;
}

//----------------------------------------------------------------------------
static int
LuaTrimExtendCurveByLen( lua_State* L)
{
  // 3 o 4 parametri : Id, dLen, ptNear [, sRefType]
   int nId ;
   LuaCheckParam( L, 1, nId)
   double dLen ;
   LuaCheckParam( L, 2, dLen)
   Point3d ptNear ;
   LuaCheckParam( L, 3, ptNear)
   int nRefType = RTY_DEFAULT ;
   LuaGetRefType( L, 4, nRefType) ;
   LuaClearStack( L) ;
  // taglio o allungo la curva nell'estremo più vicino al punto
   bool bOk = ( EgtTrimExtendCurveByLen( nId, dLen, ptNear.v, nRefType) != FALSE) ;
   LuaSetReturn( L, bOk) ;
   return 1 ;
}

//----------------------------------------------------------------------------
static int
LuaSplitCurveAtPoint( lua_State* L)
{
  // 2 o 3 parametri : Id, ptOn [, sRefType]
   int nId ;
   LuaCheckParam( L, 1, nId)
   Point3d ptOn ;
   LuaCheckParam( L, 2, ptOn)
   int nRefType = RTY_DEFAULT ;
   LuaGetRefType( L, 3, nRefType) ;
   LuaClearStack( L) ;
  // divido la curva nel punto
   bool bOk = ( EgtSplitCurveAtPoint( nId, ptOn.v, nRefType) != FALSE) ;
   LuaSetReturn( L, bOk) ;
   return 1 ;
}

//-------------------------------------------------------------------------------
static int
LuaModifyCurveArcRadius( lua_State* L)
{
  // 2 parametri : Id, dNewRad
   int nId ;
   LuaCheckParam( L, 1, nId)
   double dNewRad ;
   LuaCheckParam( L, 2, dNewRad)
   LuaClearStack( L) ;
  // modifica del raggio
   bool bOk = ( EgtModifyCurveArcRadius( nId, dNewRad) != FALSE) ;
   LuaSetReturn( L, bOk) ;
   return 1 ;
}

//-------------------------------------------------------------------------------
static int
LuaExplodeCurveCompo( lua_State* L)
{
  // 1 parametro : Id
   int nId ;
   LuaCheckParam( L, 1, nId)
   LuaClearStack( L) ;
  // esplosione della curva composita
   bool bOk = ( EgtExplodeCurveCompo( nId) != FALSE) ;
   LuaSetReturn( L, bOk) ;
   return 1 ;
}

//-------------------------------------------------------------------------------
static int
LuaExplodeCurveBezier( lua_State* L)
{
  // 2 o 3 parametri : Id, bArcsVsLines [, dLinTol]
   int nId ;
   LuaCheckParam( L, 1, nId)
   bool bArcsVsLines ;
   string sTemp ;
   LuaCheckParam( L, 2, sTemp)
   ToUpper( sTemp) ;
   if ( sTemp == "LINES")
      bArcsVsLines = false ;
   double dLinTol = 0.01 ;
   if ( lua_gettop( L) >= 3)
      LuaCheckParam( L, 3, dLinTol)
   LuaClearStack( L) ;
  // esplosione della curva composita
   bool bOk = ( EgtExplodeCurveBezier( nId, bArcsVsLines, dLinTol) != FALSE) ;
   LuaSetReturn( L, bOk) ;
   return 1 ;
}

//-------------------------------------------------------------------------------
bool
LuaInstallGdbModifyCurve( lua_State* L)
{
   try {
      lua_register( L, "EgtInvertCurve", LuaInvertCurve) ;
      lua_register( L, "EgtOffsetCurve", LuaOffsetCurve) ;
      lua_register( L, "EgtModifyCurveStartPoint", LuaModifyCurveStartPoint) ;
      lua_register( L, "EgtModifyCurveEndPoint", LuaModifyCurveEndPoint) ;
      lua_register( L, "EgtModifyCurveExtrusion", LuaModifyCurveExtrusion) ;
      lua_register( L, "EgtModifyCurveThickness", LuaModifyCurveThickness) ;
      lua_register( L, "EgtTrimCurveStartAtLen", LuaTrimCurveStartAtLen) ;
      lua_register( L, "EgtTrimCurveEndAtLen", LuaTrimCurveEndAtLen) ;
      lua_register( L, "EgtTrimCurveStartAtParam", LuaTrimCurveStartAtParam) ;
      lua_register( L, "EgtTrimCurveEndAtParam", LuaTrimCurveEndAtParam) ;
      lua_register( L, "EgtTrimCurveStartEndAtParam", LuaTrimCurveStartEndAtParam) ;
      lua_register( L, "EgtTrimExtendCurveByLen", LuaTrimExtendCurveByLen) ;
      lua_register( L, "EgtSplitCurveAtPoint", LuaSplitCurveAtPoint) ;
      lua_register( L, "EgtModifyCurveArcRadius", LuaModifyCurveArcRadius) ;
      lua_register( L, "EgtExplodeCurveCompo", LuaExplodeCurveCompo) ;
      lua_register( L, "EgtExplodeCurveBezier", LuaExplodeCurveBezier) ;
   }
   catch ( ...) {
      return false ;
   }
   return true ;
}