EgtInterface/LUA_Scene.cpp

//----------------------------------------------------------------------------
//  EgalTech 2014-2014
//----------------------------------------------------------------------------
// File : LUA_Scene.cpp       Data : 29.09.14        Versione : 1.5i5
// Contenuto : Funzioni di visualizzazione per LUA.
//
//
//
// Modifiche : 29.09.14 DS Creazione modulo.
//
//
//----------------------------------------------------------------------------

//--------------------------- Include ----------------------------------------
#include "stdafx.h"
#include "API.h"
#include "LUA.h"
#include "LUA_Base.h"
#include "LUA_Aux.h"
#include "/EgtDev/Include/EInAPI.h"
#include "/EgtDev/Include/EgnStringUtils.h"

using namespace std ;


//-------------------------------------------------------------------------------
static int
LuaSetBackground( lua_State* L)
{
  // 2 o 3 parametri : colore top, colore bottom [, flag ridisegna]
   Color colTop ;
   LuaCheckParam( L, 1, colTop)
   Color colBot ;
   LuaCheckParam( L, 2, colBot)
   bool bRedraw ;
   if ( lua_gettop( L) >= 3)
      LuaCheckParam( L, 3, bRedraw)
   LuaClearStack( L) ;
  // imposto lo sfondo
   bool bOk = ( EgtSetBackground( colTop, colBot, bRedraw) != FALSE) ;
  // restituisco il risultato
   LuaSetReturn( L, bOk) ;
   return 1 ;
}

//-------------------------------------------------------------------------------
static int
LuaDraw( lua_State* L)
{
  // nessun parametro
   LuaClearStack( L) ;
  // eseguo ridisegno
   bool bOk = ( EgtDraw() != FALSE) ;
  // restituisco il risultato
   LuaSetReturn( L, bOk) ;
   return 1 ;
}

//-------------------------------------------------------------------------------
static int
LuaSetShowMode( lua_State* L)
{
  // 1 o 2 parametri : ShowMode ("WF","HL","SH") [, flag ridisegna]
   string sShowMode ;
   LuaCheckParam( L, 1, sShowMode)
   int nShowMode = SM_SHADING ;
   ToUpper( sShowMode) ;
   if ( sShowMode == "WF")
      nShowMode = SM_WIREFRAME ;
   else if ( sShowMode == "HL")
      nShowMode = SM_HIDDENLINE ;
   bool bRedraw = true ;
   if ( lua_gettop( L) >= 2)
      LuaCheckParam( L, 2, bRedraw)
   LuaClearStack( L) ;
  // imposto il modo di visualizzazione
   bool bOk = ( EgtSetShowMode( nShowMode, bRedraw) != FALSE) ;
  // restituisco il risultato
   LuaSetReturn( L, bOk) ;
   return 1 ;
}

//-------------------------------------------------------------------------------
static int
LuaSetShowCurveDirection( lua_State* L)
{
  // 1 o 2 parametri : flag ShowCrvDir [, flag ridisegna]
   bool bShowCrvDir ;
   LuaCheckParam( L, 1, bShowCrvDir)
   bool bRedraw = true ;
   if ( lua_gettop( L) >= 2)
      LuaCheckParam( L, 2, bRedraw)
   LuaClearStack( L) ;
  // imposto visualizzazione direzione curve
   bool bOk = ( EgtSetShowCurveDirection( bShowCrvDir, bRedraw) != FALSE) ;
  // restituisco il risultato
   LuaSetReturn( L, bOk) ;
   return 1 ;
}

//-------------------------------------------------------------------------------
static int
LuaSetShowTriaAdv( lua_State* L)
{
  // 1 o 2 parametri : flag bAdvanced [, flag ridisegna]
   bool bAdvanced ;
   LuaCheckParam( L, 1, bAdvanced)
   bool bRedraw = true ;
   if ( lua_gettop( L) >= 2)
      LuaCheckParam( L, 2, bRedraw)
   LuaClearStack( L) ;
  // imposto visualizzazione direzione curve
   bool bOk = ( EgtSetShowTriaAdv( bAdvanced, bRedraw) != FALSE) ;
  // restituisco il risultato
   LuaSetReturn( L, bOk) ;
   return 1 ;
}

//-------------------------------------------------------------------------------
static int
LuaZoom( lua_State* L)
{
  // 1 o 2 parametri : ZoomType ("ALL","IN","OUT") [, flag ridisegna]
   string sZoomType ;
   LuaCheckParam( L, 1, sZoomType)
   int nZoomType = 1 ;
   ToUpper( sZoomType) ;
   if ( sZoomType == "IN")
      nZoomType = 2 ;
   else if ( sZoomType == "OUT")
      nZoomType = 3 ;
   bool bRedraw = true ;
   if ( lua_gettop( L) >= 2)
      LuaCheckParam( L, 2, bRedraw)
   LuaClearStack( L) ;
  // imposto zoom
   bool bOk = ( EgtZoom( nZoomType, bRedraw) != FALSE) ;
  // restituisco il risultato
   LuaSetReturn( L, bOk) ;
   return 1 ;
}

//-------------------------------------------------------------------------------
static int
LuaSetView( lua_State* L)
{
  // 1 o 2 parametri : ViewDir ("T","F","R","B","L","BO","SW","SE","NE","NW","GRID") [, flag ridisegna]
   string sViewDir ;
   LuaCheckParam( L, 1, sViewDir)
   int nViewDir = CT_TOP ;
   ToUpper( sViewDir) ;
   if ( sViewDir == "F")
      nViewDir = CT_FRONT ;
   else if ( sViewDir == "R")
      nViewDir = CT_RIGHT ;
   else if ( sViewDir == "B")
      nViewDir = CT_BACK ;
   else if ( sViewDir == "L")
      nViewDir = CT_LEFT ;
   else if ( sViewDir == "SW")
      nViewDir = CT_ISO_SW ;
   else if ( sViewDir == "SE")
      nViewDir = CT_ISO_SE ;
   else if ( sViewDir == "NE")
      nViewDir = CT_ISO_NE ;
   else if ( sViewDir == "NW")
      nViewDir = CT_ISO_NW ;
   else if ( sViewDir == "GRID")
      nViewDir = CT_CPLANE ;
   bool bRedraw = true ;
   if ( lua_gettop( L) >= 2)
      LuaCheckParam( L, 2, bRedraw)
   LuaClearStack( L) ;
  // imposto direzione di vista
   bool bOk = ( EgtSetView( nViewDir, bRedraw) != FALSE) ;
  // restituisco il risultato
   LuaSetReturn( L, bOk) ;
   return 1 ;
}

//-------------------------------------------------------------------------------
static int
LuaSetGenericView( lua_State* L)
{
  // 2 o 3 parametri : dAngVertDeg, dAngHorizDeg [, flag ridisegna]
   double dAngVertDeg ;
   LuaCheckParam( L, 1, dAngVertDeg)
   double dAngHorizDeg ;
   LuaCheckParam( L, 2, dAngHorizDeg)
   bool bRedraw = true ;
   if ( lua_gettop( L) >= 3)
      LuaCheckParam( L, 3, bRedraw)
   LuaClearStack( L) ;
  // imposto direzione di vista
   bool bOk = ( EgtSetGenericView( dAngVertDeg, dAngHorizDeg, bRedraw) != FALSE) ;
  // restituisco il risultato
   LuaSetReturn( L, bOk) ;
   return 1 ;
}

//-------------------------------------------------------------------------------
static int
LuaSetViewCenter( lua_State* L)
{
  // 1 o 2 parametri : ptCen [, flag ridisegna]
   Point3d ptCen ;
   LuaCheckParam( L, 1, ptCen)
   bool bRedraw = true ;
   if ( lua_gettop( L) >= 2)
      LuaCheckParam( L, 2, bRedraw)
   LuaClearStack( L) ;
  // imposto centro di vista
   bool bOk = ( EgtSetViewCenter( ptCen.v, bRedraw) != FALSE) ;
  // restituisco il risultato
   LuaSetReturn( L, bOk) ;
   return 1 ;
}

//-------------------------------------------------------------------------------
bool
LuaInstallScene( void)
{
   bool bOk = true ;
   bOk = bOk && LuaRegisterFunction( "EgtSetBackground", LuaSetBackground) ;
   bOk = bOk && LuaRegisterFunction( "EgtDraw", LuaDraw) ;
   bOk = bOk && LuaRegisterFunction( "EgtSetShowMode", LuaSetShowMode) ;
   bOk = bOk && LuaRegisterFunction( "EgtSetShowCurveDirection", LuaSetShowCurveDirection) ;
   bOk = bOk && LuaRegisterFunction( "EgtSetShowTriaAdv", LuaSetShowTriaAdv) ;
   bOk = bOk && LuaRegisterFunction( "EgtZoom", LuaZoom) ;
   bOk = bOk && LuaRegisterFunction( "EgtSetView", LuaSetView) ;
   bOk = bOk && LuaRegisterFunction( "EgtSetGenericView", LuaSetGenericView) ;
   bOk = bOk && LuaRegisterFunction( "EgtSetViewCenter", LuaSetViewCenter) ;
   return bOk ;
}