moMoldeoObject.cpp

Go to the documentation of this file.

/*******************************************************************************

                              moMoldeoObject.cpp

  ****************************************************************************
  *                                                                          *
  *   This source is free software; you can redistribute it and/or modify    *
  *   it under the terms of the GNU General Public License as published by   *
  *   the Free Software Foundation; either version 2 of the License, or      *
  *  (at your option) any later version.                                    *
  *                                                                          *
  *   This code is distributed in the hope that it will be useful, but       *
  *   WITHOUT ANY WARRANTY; without even the implied warranty of             *
  *   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU      *
  *   General Public License for more details.                               *
  *                                                                          *
  *   A copy of the GNU General Public License is available on the World     *
  *   Wide Web at <http://www.gnu.org/copyleft/gpl.html>. You can also       *
  *   obtain it by writing to the Free Software Foundation,                  *
  *   Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.         *
  *                                                                          *
  ****************************************************************************

  Copyright(C) 2006 Fabricio Costa

  Authors:
  Fabricio Costa
  Andrés Colubri

*******************************************************************************/

#include <moMoldeoObject.h>
#include <moTextureFilterIndex.h>
#include <moScriptManager.h>
#include <moMathManager.h>
#include <moFontManager.h>
#include <mo3dModelManager.h>
#include <moFilterManager.h>

#include "moArray.h"
moDefineDynamicArray(moMoldeoObjects)



moMobState::moMobState() {
    m_Activated = MO_OFF;
    m_Selected = MO_OFF;
}

moMobState::~moMobState() {
}

moMobState::moMobState( const moMobState& p_MobState ) {
    (*this) = p_MobState;
}

moMobState&
moMobState::operator=( const moMobState& src) {
    m_Activated = src.m_Activated;
    m_Selected = src.m_Selected;
    return (*this);
}

void moMobState::Activate() {
    m_Activated = MO_ON;

}

void moMobState::Deactivate() {
    m_Activated = MO_OFF;
}

bool moMobState::Activated() const {
    return (m_Activated==MO_ON);
}


void moMobState::Select() {
    m_Selected = MO_ON;
}

void moMobState::Unselect() {
    m_Selected = MO_OFF;
}

bool moMobState::Selected() const {
    return (m_Selected==MO_ON);
}

const moText&
moMobState::ToJSON() {
  moText fieldSeparation = ",";

  m_FullJSON = "{";
  m_FullJSON+= "'activated': " + IntToStr(m_Activated);
  m_FullJSON+= fieldSeparation + "'selected': " + IntToStr(m_Selected);
  m_FullJSON+= "}";

  return m_FullJSON;
}


moMobDefinition::moMobDefinition() {

  m_Name = moText("");
  m_ConfigName = moText("");
  m_MoldeoLabelName = moText("");
  m_MoldeoId = -1;
  m_Type = MO_OBJECT_UNDEFINED;
  m_MoldeoFatherId = -1;
  m_MoldeoFatherLabelName = "";
  m_KeyName = "";

}

moMobDefinition::moMobDefinition(const moMobDefinition& mb) {
  (*this) = mb;
}

moMobDefinition::~moMobDefinition() {

}

moMobDefinition&
moMobDefinition::operator = ( const moMobDefinition& mb) {
  m_Name = mb.m_Name;
  m_ConfigName = mb.m_ConfigName;
  m_Type = mb.m_Type;
  m_MoldeoLabelName = mb.m_MoldeoLabelName;
  m_MoldeoId = mb.m_MoldeoId;
  m_MobIndex = mb.m_MobIndex;
  m_MoldeoFatherId = mb.m_MoldeoFatherId;
  m_MoldeoFatherLabelName = mb.m_MoldeoFatherLabelName;
  m_KeyName = mb.m_KeyName;
  m_Activate = mb.m_Activate;
  return(*this);
}


const moText&
moMobDefinition::GetName() const {
    return m_Name;
}


void
moMobDefinition::SetName( const moText& p_name ) {
    m_Name = p_name;
}

const moText&
moMobDefinition::GetConfigName() const {
    return m_ConfigName;
}

void
moMobDefinition::SetConfigName( const moText& p_configname ) {
    m_ConfigName = p_configname;
}

moMoldeoObjectType
moMobDefinition::GetType() const {
    return m_Type;
}

moText
moMobDefinition::GetTypeStr() const {
    return moMobDefinition::GetTypeToClass( m_Type );
}

moMoldeoObjectType
moMobDefinition::GetStrToType( const moText& p_Str ) const {

    if (p_Str == moText("effect") || p_Str == moText("moEffect")) {
        return MO_OBJECT_EFFECT;
    } else if (p_Str == moText("mastereffect") || p_Str == moText("moMasterEffect")) {
        return MO_OBJECT_MASTEREFFECT;
    } else if (p_Str == moText("posteffect") || p_Str == moText("moPostEffect")) {
        return MO_OBJECT_POSTEFFECT;
    } else if (p_Str == moText("preeffect") || p_Str == moText("moPreEffect")) {
        return MO_OBJECT_PREEFFECT;
    } else if (p_Str == moText("iodevice") || p_Str == moText("moIODevice")) {
        return MO_OBJECT_IODEVICE;
    } else if (p_Str == moText("resource") || p_Str == moText("moResource")) {
        return MO_OBJECT_RESOURCE;
    } else if (p_Str == moText("console") || p_Str == moText("moConsole")) {
        return MO_OBJECT_CONSOLE;
    }

    return MO_OBJECT_UNDEFINED;

}

moText
moMobDefinition::GetTypeToClass( moMoldeoObjectType p_Type ) {

    switch(p_Type) {
        case MO_OBJECT_EFFECT:
            return moText("moEffect");
            break;
        case MO_OBJECT_MASTEREFFECT:
            return moText("moMasterEffect");
            break;
        case MO_OBJECT_POSTEFFECT:
            return moText("moPostEffect");
            break;
        case MO_OBJECT_PREEFFECT:
            return moText("moPreEffect");
            break;
        case MO_OBJECT_IODEVICE:
            return moText("moIODevice");
            break;
        case MO_OBJECT_RESOURCE:
            return moText("moResource");
            break;
        case MO_OBJECT_CONSOLE:
            return moText("moConsole");
            break;
        case MO_OBJECT_UNDEFINED:
            return moText("MOB class undefined");
            break;
        default:
            return moText("MOB class undefined");
            break;
    }
}

moText
moMobDefinition::GetTypeToName( moMoldeoObjectType p_Type ) {
    if ( ! ( p_Type == MO_OBJECT_UNDEFINED ) ) {
        return moText("undefined");
    }
    switch(p_Type) {
        case MO_OBJECT_EFFECT:
            return moText("effect");
            break;
        case MO_OBJECT_MASTEREFFECT:
            return moText("mastereffect");
            break;
        case MO_OBJECT_POSTEFFECT:
            return moText("posteffect");
            break;
        case MO_OBJECT_PREEFFECT:
            return moText("preeffect");
            break;
        case MO_OBJECT_IODEVICE:
            return moText("devices");
            break;
        case MO_OBJECT_RESOURCE:
            return moText("resources");
            break;
        case MO_OBJECT_CONSOLE:
            return moText("console");
            break;
        case MO_OBJECT_UNDEFINED:
            return moText("undefined");
            break;
        default:
            return moText("undefined");
            break;
    }
}

void
moMobDefinition::SetType( moMoldeoObjectType p_type ) {
    m_Type = p_type;
}

const moMobIndex&
moMobDefinition::GetMobIndex() const {
    return m_MobIndex;
}


void
moMobDefinition::SetLabelName( const moText& p_labelname ) {
    m_MoldeoLabelName = p_labelname;
}


const moText&
moMobDefinition::GetLabelName() const {
    return m_MoldeoLabelName;
}


void
moMobDefinition::SetMoldeoId( MOint p_moldeoid ) {
    m_MoldeoId  = p_moldeoid;
}


MOint
moMobDefinition::GetMoldeoId() const {
    return m_MoldeoId;
}



void
moMobDefinition::SetFatherLabelName( const moText& p_labelname ) {
    m_MoldeoFatherLabelName = p_labelname;
}


void
moMobDefinition::SetDescription( const moText& p_Description ) {
    m_Description  = p_Description;
}

void
moMobDefinition::SetActivate( bool p_activate ) {
  m_Activate = p_activate;
}

void
moMobDefinition::SetKeyName( const moText& p_keyname ) {
  m_KeyName = p_keyname;
}


void
moMobDefinition::SetConsoleParamIndex( MOint p_paramindex ) {
    m_MobIndex.SetParamIndex(p_paramindex);

}

void
moMobDefinition::SetConsoleValueIndex(MOint p_valueindex) {
    m_MobIndex.SetValueIndex(p_valueindex);
}

const moText&
moMobDefinition::ToJSON() {
  moText fieldSeparation = ",";
  m_FullJSON  = "{";
  m_FullJSON+= "'moldeoid': '" + IntToStr( GetMoldeoId() ) +"'";
  m_FullJSON+= fieldSeparation + "'name': '" + GetName() + "'";
  m_FullJSON+= fieldSeparation + "'labelname': '" + GetLabelName() + "'";
  m_FullJSON+= fieldSeparation + "'configname': '" + GetConfigName() + "'";
  m_FullJSON+= fieldSeparation + "'type': '" + this->GetTypeStr() + "'";
  m_FullJSON+= fieldSeparation + "'console_param_index': '" + IntToStr(this->GetMobIndex().GetParamIndex()) + "'";
  m_FullJSON+= fieldSeparation + "'console_value_index': '" + IntToStr(this->GetMobIndex().GetValueIndex()) + "'";
  m_FullJSON+= fieldSeparation + "'description': '" + GetDescription() + "'";
  m_FullJSON+= fieldSeparation + "'moldeofatherid': '" + IntToStr( GetMoldeoFatherId() ) +"'";
  m_FullJSON+= fieldSeparation + "'fatherlabelname': '" + GetFatherLabelName() + "'";
  m_FullJSON+= "}";
  return m_FullJSON;
}

//===========================================
//
//              moMoldeoObject
//
//===========================================

moMoldeoObject::moMoldeoObject() {
    SetId(-1);
    SetType(MO_OBJECT_UNDEFINED);
    SetLabelName("");
    SetName("");
    SetConfigName("");
    SetDescription("");
    SetKeyName("");
    SetScript("");

    m_pResourceManager = NULL;
    m_Inlets.Init( 0 , NULL );
    m_Outlets.Init( 0 , NULL );
    m_bConnectorsLoaded = false;
    __iscript = -1;
    InletScreenWidth = InletScreenHeight = InletTimeabs = InletPreconfig = NULL;
}

moMoldeoObject::~moMoldeoObject() {
  moMoldeoObject::Finish();
}

void
moMoldeoObject::SetScript( const moText& p_script ) {
    m_Script = p_script;
}

const
moMobState& moMoldeoObject::GetState() const {
    return m_MobState;
}

bool
moMoldeoObject::SetState( const moMobState& p_MobState ) {

    //TODO: check things before commit changes
    m_MobState = p_MobState;
    return true;
}


void moMoldeoObject::Activate() {

    moMobState mobstate = GetState();

    mobstate.Activate();
    SetState( mobstate );
}

void moMoldeoObject::Deactivate() {

    moMobState mobstate = GetState();

    mobstate.Deactivate();
    SetState( mobstate );
}

bool moMoldeoObject::Activated() const {
    return GetState().Activated();
}

void moMoldeoObject::Select() {

    moMobState mobstate = GetState();

    mobstate.Select();
    SetState( mobstate );
}

void moMoldeoObject::Unselect() {
    moMobState mobstate = GetState();
    mobstate.Unselect();
    SetState( mobstate );
}

bool moMoldeoObject::Selected() const {
    return GetState().Selected();
}






MOboolean
moMoldeoObject::Init() {

    InletScreenWidth = new moInlet();
    if (InletScreenWidth) {
      //Inlet->Init( "tempo", m_Inlets.Count(), param.GetPtr() );
      //param.SetExternData( Inlet->GetData() );
      ((moConnector*)InletScreenWidth)->Init( moText("screen_width"), m_Inlets.Count(), MO_DATA_NUMBER_DOUBLE );
      m_Inlets.Add(InletScreenWidth);
    }

    InletScreenHeight = new moInlet();
    if (InletScreenHeight) {
      //Inlet->Init( "tempo", m_Inlets.Count(), param.GetPtr() );
      //param.SetExternData( Inlet->GetData() );
      ((moConnector*)InletScreenHeight)->Init( moText("screen_height"), m_Inlets.Count(), MO_DATA_NUMBER_DOUBLE );
      m_Inlets.Add(InletScreenHeight);
    }

    InletTimeabs = new moInlet();
    if (InletTimeabs) {
      //Inlet->Init( "tempo", m_Inlets.Count(), param.GetPtr() );
      //param.SetExternData( Inlet->GetData() );
      ((moConnector*)InletTimeabs)->Init( moText("timeabs"), m_Inlets.Count(), MO_DATA_NUMBER_DOUBLE );
      m_Inlets.Add(InletTimeabs);
    }

    InletPreconfig = new moInlet();
    if (InletPreconfig) {
      //Inlet->Init( "tempo", m_Inlets.Count(), param.GetPtr() );
      //param.SetExternData( Inlet->GetData() );
      ((moConnector*)InletPreconfig)->Init( moText("preconfig"), m_Inlets.Count(), MO_DATA_NUMBER_INT );
      m_Inlets.Add(InletPreconfig);
    }

    moText confignamecompleto="";

    GetDefinition();

    if ( GetType()==MO_OBJECT_CONSOLE ) {
      confignamecompleto = GetConfigName();
    } else {
      if (m_pResourceManager) {
        if (m_pResourceManager->GetDataMan()) {
          confignamecompleto = m_pResourceManager->GetDataMan()->GetDataPath();
          confignamecompleto +=  moSlash + GetConfigName();
          confignamecompleto +=  moText(".cfg");
        } else {
            MODebug2->Error("moMoldeoObject::Init > DataManager undefined > object: "+GetName()+ " config: " + GetConfigName() + " label:"+GetLabelName() );
            return false;
        }
      } else {
          MODebug2->Error("moMoldeoObject::Init > ResourceManager undefined > object: "+GetName()+ " config: " + GetConfigName() + " label:"+GetLabelName() );
          return false;
      }
    }

    MODebug2->Message("*****Initializing " + GetName() + " *****");

    if(m_Config.LoadConfig(confignamecompleto) != MO_CONFIG_OK ) {
      MODebug2->Error("moMoldeoObject::Init > Config file invalid or not found > object: " + GetName() + " config:" + confignamecompleto + " label: " + GetLabelName());
      return false;//bad
    }

    //m_Config.Indexation();

    __iscript = m_Config.GetParamIndex("script");
    if(__iscript==MO_PARAM_NOT_FOUND)
      MODebug2->Error(moText("moMoldeoObject::Init > config: "+GetConfigName()+ " config: " + GetConfigName() + " label: "+GetLabelName()+" script parameter missing"));


    InitScript();
    RegisterFunctions();

    MODebug2->Message("*****moMoldeoObject::Init > for plugin: " + GetName() + " config: " + GetConfigName() + " label: " + GetLabelName() +" is OK!");
    return true;
}

void moMoldeoObject::ScriptExeInit() {
    if (moScript::IsInitialized()) {
        if (ScriptHasFunction("Init")) {
            SelectScriptFunction("Init");
            RunSelectedFunction();
        }
    }
}

void moMoldeoObject::ScriptExeFinish() {
    if (moScript::IsInitialized()) {
        if (ScriptHasFunction("Finish")) {
            SelectScriptFunction("Finish");
            RunSelectedFunction();
        }
    }
}

void moMoldeoObject::ScriptExeUpdate() {
    if (moScript::IsInitialized()) {
        if (ScriptHasFunction("Update")) {
            SelectScriptFunction("Update");
            RunSelectedFunction();
        }
    }
}


void moMoldeoObject::ScriptExeRun() {


  moText cs;
  cs = m_Config.Text( __iscript );

    if ((moText)m_Script!=cs && IsInitialized()) {

        m_Script = cs;
        moText fullscript = DataMan()->GetDataPath()+ moSlash + (moText)m_Script;

        if (moFileManager::FileExists(fullscript)) {

          MODebug2->Message( GetLabelName() +  moText(" script loading : ") + (moText)fullscript );

          if ( CompileFile(fullscript) ) {

              MODebug2->Message( GetLabelName() + moText(" script loaded : ") + (moText)fullscript );


              SelectScriptFunction( "Init" );
              RunSelectedFunction();

          } else MODebug2->Error( moText("Couldn't compile lua script ") + (moText)fullscript + " config:"+GetConfigName()+" label: "+GetLabelName() );
        } else MODebug2->Message("Script file not present. " + (moText)fullscript + " config: "+GetConfigName()+" label:"+GetLabelName() );
    }


    if (moScript::IsInitialized()) {
        if (ScriptHasFunction("Run")) {
            SelectScriptFunction("Run");
            RunSelectedFunction();
        }
    }
}

MOboolean
moMoldeoObject::RefreshValue( moParam& param, int value_index ) {
  return ResolveValue( param, value_index, true );
}

MOboolean
moMoldeoObject::ResolveValue( moParam& param, int value_index, bool p_refresh ) {

  int idx = -1;
  moValue& value( param.GetValue(value_index) );
  moParamType param_type = param.GetParamDefinition().GetType();
  //MODebug2->Message( moText("+Init value #") + IntToStr(v) );


  for( MOuint ivb=0; ivb<value.GetSubValueCount(); ivb++) {
      moValueBase& VB( value.GetSubValue( ivb ) );
      if (VB.GetType() == MO_VALUE_FUNCTION ) {
          idx = -1;
          if (p_refresh)
            if (m_pResourceManager->GetMathMan())
              idx = m_pResourceManager->GetMathMan()->AddFunction( VB.Text(), (MOboolean)true, this );

          if (m_pResourceManager->GetMathMan())
            idx = m_pResourceManager->GetMathMan()->AddFunction( VB.Text(), (MOboolean)true, this );
          if (idx>-1) {
              VB.SetFun( m_pResourceManager->GetMathMan()->GetFunction(idx) );
              //MODebug2->Message( moText("function defined: ") + VB.Text() );
          } else {
              MODebug2->Error(moText("moMoldeoObject::CreateConnectors > function couldn't be defined: ") + VB.Text()
                              + " object: "+GetName()
                              + " config: " + GetConfigName()
                              + " label:" + GetLabelName() );
          }
      }
  }


  //

  if (value.GetSubValueCount()<=0) return false;

  moValueBase& valuebase0(value.GetSubValue(0));

  switch( param_type ) {

      case MO_PARAM_TEXTUREFOLDER:
          if ( ! (valuebase0.Text().Trim() == moText("")) ) {

              if (p_refresh) {

              }
              idx = m_pResourceManager->GetTextureMan()->GetTextureBuffer( valuebase0.Text(), true, "PNG" );
              if (idx>-1) {

                  moTextureBuffer*  pTextureBuffer = m_pResourceManager->GetTextureMan()->GetTextureBuffer(idx);
                  valuebase0.SetTextureBuffer( pTextureBuffer );
                  return true;
              }
              return false;

          }


          break;

      case MO_PARAM_VIDEO:

          break;

      case MO_PARAM_TEXTURE:
      case MO_PARAM_FILTER:
          if ( ! (valuebase0.Text().Trim() == moText("")) ) {

              if (p_refresh) {
                idx = m_pResourceManager->GetTextureMan()->GetTextureMOId( valuebase0.Text(), true, true );
              }

              idx = m_pResourceManager->GetTextureMan()->GetTextureMOId( valuebase0.Text(), true );
              if (idx>-1) {
                  moTexture*  pTexture = m_pResourceManager->GetTextureMan()->GetTexture(idx);
                  valuebase0.SetTexture( pTexture );

                  if (pTexture->GetType()!=MO_TYPE_TEXTURE_MULTIPLE && value.GetSubValueCount()>1) {
                      idx = m_pResourceManager->GetShaderMan()->GetTextureFilterIndex()->LoadFilter( &value );
                      moTextureFilter*  pTextureFilter = m_pResourceManager->GetShaderMan()->GetTextureFilterIndex()->Get(idx-1);
                      valuebase0.SetTextureFilter( pTextureFilter );
                  }

                  if (value.GetSubValueCount()==4) {
                      valuebase0.SetTextureFilterAlpha( value.GetSubValue(3).GetData() );
                  }

                  if (value.GetSubValueCount()>=5) {
                      //valuebase.SetTextureFilterParam( value.GetSubValue(4).GetData() );
                  }

                  //MODebug2->Message( moText("moMoldeoObject::CreateConnectors > ") + valuebase0.Text());

              }
          } else {
              MODebug2->Error( moText("moMoldeoObject::UpdateValue > VALUE BASE EMPTY: ") + valuebase0.Text()
                              /*+ moText(" Param name:") +param.GetParamDefinition().GetName()*/ );
              return false;
          }
          break;

      case MO_PARAM_FONT:

          moFont* pFont;
          moFontType fonttype;
          moFontSize  fontsize;

          if ( value.GetSubValueCount()==3 ) {
              if ( valuebase0.Text().Trim() == moText("Default") ) {
                pFont = m_pResourceManager->GetFontMan()->GetFont(0);
              } else if ( ! (valuebase0.Text().Trim() == moText("")) ) {

                  if ( value.GetSubValue(1).GetType()==MO_VALUE_TXT) {
                      moText fonttypeT = value.GetSubValue(1).Text();
                      fonttype = m_pResourceManager->GetFontMan()->GetFontType(fonttypeT);
                  } else {
                      fonttype = (moFontType)value.GetSubValue(1).Int();
                  }

                  if ( value.GetSubValue(2).GetType()==MO_VALUE_NUM ) {
                      fontsize = value.GetSubValue(2).Int();
                  } else if ( value.GetSubValue(2).GetType()==MO_VALUE_FUNCTION ) {
                      fontsize = 12;
                  }

                  pFont = m_pResourceManager->GetFontMan()->AddFont( valuebase0.Text(), fonttype, fontsize);
                  if (pFont==NULL) {
                    MODebug2->Error( moText("moMoldeoObject::CreateConnectors > FONT NOT FOUND: Using Default")+ valuebase0.Text() + moText(" Param name:") +param.GetParamDefinition().GetName() );
                    pFont = m_pResourceManager->GetFontMan()->GetFont(0);
                  }
              } else {
                  MODebug2->Error( moText("moMoldeoObject::CreateConnectors > VALUE BASE EMPTY: Using Default")+ valuebase0.Text() + moText(" Param name:") +param.GetParamDefinition().GetName() );
                  pFont = m_pResourceManager->GetFontMan()->GetFont(0);
              }

              if (pFont) {
                  valuebase0.SetFont( pFont );
                  return true;
              }
              return false;
          } else {
              MODebug2->Error( moText("moMoldeoObject::UpdateValue > MISSING VALUES: ")+ valuebase0.Text() + moText(" Param name:") +param.GetParamDefinition().GetName() );
              return false;
          }
          break;

      case MO_PARAM_3DMODEL:
      case MO_PARAM_OBJECT:
          if (value.GetSubValueCount()>0) {
              moSceneNode* pModel = m_pResourceManager->GetModelMan()->Get3dModel( valuebase0.Text(), true /*force load !!*/ );
              valuebase0.SetModel( pModel );
              return false;
          }
          break;

      case MO_PARAM_SOUND:
          if (value.GetSubValueCount()>0) {
            if (valuebase0.Text()!="") {
              moSound* pSound = m_pResourceManager->GetSoundMan()->GetSound( valuebase0.Text() );
              if (pSound) {
                  valuebase0.SetSound( pSound );
                  return true;
              }
              return false;
            }
          }
          break;
      default:
        break;

  }//fin siwtch
  return false;
}

MOboolean
moMoldeoObject::CreateConnectors() {

  if (m_pResourceManager == NULL) {
    MODebug2->Error("moMoldeoObject::CreateConnectors > ResourceManager is NULL!!! Can't continue. Sorry for object: "+GetName()+ " config: " + GetConfigName() + " label:"+GetLabelName() );
    return false;
  }

  if (m_bConnectorsLoaded) {
    MODebug2->Error("moMoldeoObject::CreateConnectors > Calling twice. Can't continue. Sorry for object: "+GetName()+ " config: " + GetConfigName() + " label:"+GetLabelName() );
    return false;
  }

  MODebug2->Message("moMoldeoObject::CreateConnectors > Calling once. object: "+GetName()+ " config: " + GetConfigName() + " label:" + GetLabelName() );



    moParam& pinlets = m_Config[moText("inlet")];

    for( MOuint i=0; i<pinlets.GetValuesCount(); i++ ) {
    if ( GetInletIndex(pinlets[i][MO_INLET_NAME].Text())==-1 ) {
      moInlet* Inlet = new moInlet();
      if (Inlet) {
        Inlet->SetMoldeoLabelName( GetLabelName() );
        moText InletName = pinlets[i][MO_INLET_NAME].Text();
        if ( m_Config.GetParamIndex(InletName)==-1 ) {
          ((moConnector*)Inlet)->Init( InletName, m_Inlets.Count(), pinlets[i][MO_INLET_TYPE].Text() );
          m_Inlets.Add( Inlet );
        }
      }
    }
    }

    for( MOint p=0;p<m_Config.GetParamsCount();p++) {

        moParam &param( m_Config[p] );

        MODebug2->Log( moText("moMoldeoObject::CreateConnectors > Init param type ") + param.GetParamDefinition().GetTypeStr() + moText(" name: ") + param.GetParamDefinition().GetName() );


    int inletidx = GetInletIndex(param.GetParamDefinition().GetName());
    if (inletidx==-1) {
      moInlet* Inlet = new moInlet();
      if (Inlet) {
        Inlet->Init( param.GetParamDefinition().GetName(), m_Inlets.Count(), param.GetPtr() );
        m_Inlets.Add(Inlet);
      }
    }

        for( MOuint v=0;v<param.GetValuesCount();v++) {
      ResolveValue( param, v );

        }
    }

  MODebug2->Message("moMoldeoObject::CreateConnectors > loaded params & values for Object: " + GetName() + " config:" + GetConfigName() + " label:" + GetLabelName() );

    moParam& poutlets = m_Config[moText("outlet")];

    for( MOuint i=0; i<poutlets.GetValuesCount(); i++ ) {
    if ( GetOutletIndex(poutlets[i][MO_OUTLET_NAME].Text())==-1 ) {
      moOutlet* Outlet = new moOutlet();
      if (Outlet) {
        Outlet->SetMoldeoLabelName( GetLabelName() );
        moText OutletName = poutlets[i][MO_OUTLET_NAME].Text();

        if ( m_Config.GetParamIndex(OutletName) > -1 ) {
          MODebug2->Log( moText("moMoldeoObject::CreateConnectors > ") + this->GetLabelName() + moText(" creating Outlet as parameter \"") + OutletName + "\""  );
          Outlet->Init( OutletName, i, m_Config.GetParam(OutletName).GetPtr());
        } else {
          MODebug2->Log( moText("moMoldeoObject::CreateConnectors > ") + this->GetLabelName() + moText(" Init > creating outlet not as param.") + OutletName  );
          Outlet->Init( OutletName, i, poutlets[i][MO_OUTLET_TYPE].Text() );
        }
        m_Outlets.Add( Outlet );

        for( MOuint j=MO_OUTLET_INLETS_OFFSET; j<poutlets[i].GetSubValueCount(); j+=2 ) {
          moText objectname = poutlets[i][j].Text();
          moText inletname = poutlets[i][j+1].Text();
          moConnection* Connection = new moConnection( objectname, inletname );
          if (Connection)
            Outlet->GetConnections()->Add(Connection);
        }
      }
    }
    }

  m_bConnectorsLoaded = true;

    //moMoldeoObject::ScriptExeInit();
    ScriptExeInit();

  MODebug2->Message("moMoldeoObject::CreateConnectors > OK! Object: " + GetName() + " config:" + GetConfigName() + " label: " + GetLabelName() );

    return m_bConnectorsLoaded;
}

MOboolean
moMoldeoObject::UpdateConnectors() {
  m_bConnectorsLoaded = false;
  return moMoldeoObject::CreateConnectors();

}

MOboolean
moMoldeoObject::Init( moResourceManager* p_pResources ) {
    m_pResourceManager = p_pResources;

    return moMoldeoObject::Init();
}


MOboolean
moMoldeoObject::Finish() {

  ScriptExeFinish();

  for(MOuint i=0; i<m_Inlets.Count(); i++ ) {
    moInlet *pInlet = dynamic_cast<moInlet*>(m_Inlets[i]);
    if (pInlet) {
        delete pInlet;
    }
  }
  m_Inlets.Empty();

  for(MOuint i=0; i<m_Outlets.Count(); i++ ) {
    moOutlet *pOutlet = dynamic_cast<moOutlet*>(m_Outlets[i]);
    if (pOutlet) {
        delete pOutlet;
    }
  }
  m_Outlets.Empty();

  return true;

}



moMoldeoObjectType
moMoldeoObject::GetType() const {
    return m_MobDefinition.GetType();
}

void
moMoldeoObject::SetType( moMoldeoObjectType p_type ) {
    m_MobDefinition.SetType(p_type);
}

MOint
moMoldeoObject::GetId() const {
    return m_MobDefinition.GetMoldeoId();
}

void
moMoldeoObject::SetId( MOint    p_id ) {
    m_MobDefinition.SetMoldeoId( p_id );
}


void
moMoldeoObject::SetResourceManager( moResourceManager* p_pResourceManager ) {

    m_pResourceManager = p_pResourceManager;

}

moResourceManager*
moMoldeoObject::GetResourceManager() {

    return m_pResourceManager;

}

void
moMoldeoObject::SyncConnections( ) {
}

int
moMoldeoObject::Save( const moText& p_save_filename ) {

  SyncConnections();

  if (p_save_filename == moText("")) {
    return GetConfig()->SaveConfig();
  } else {
    return GetConfig()->SaveConfig( p_save_filename );
  }
}

void
moMoldeoObject::SetConfigName( const moText& p_configname ) {
    m_MobDefinition.SetConfigName( p_configname );
}


moConfigDefinition *
moMoldeoObject::GetDefinition( moConfigDefinition *p_configdefinition ) {

    if ( p_configdefinition==NULL ) {
        p_configdefinition = m_Config.GetConfigDefinition();
    }

    p_configdefinition->GetParamDefinitions()->Empty();
    p_configdefinition->ParamIndexes().Empty();

    p_configdefinition->Set( GetName(), m_MobDefinition.GetTypeStr() );

    p_configdefinition->Add( moText("inlet"), MO_PARAM_INLET );
    p_configdefinition->Add( moText("outlet"), MO_PARAM_OUTLET );
    p_configdefinition->Add( moText("script"), MO_PARAM_SCRIPT );
    //TODO: add ""

    return p_configdefinition;
}

void
moMoldeoObject::LoadDefinition() {

    GetDefinition();

    //m_Config.Check();

    moParamDefinitions *pdefinitions = m_Config.GetConfigDefinition()->GetParamDefinitions();
    moParamDefinitions& PD(*pdefinitions);

    for( MOuint i=0; i < pdefinitions->Count(); i++ ) {
        moText name = pdefinitions->Get(i).GetName();
        PD[i].SetIndex( m_Config.GetParamIndex( name ));
    }

}

moOutlets*
moMoldeoObject::GetOutlets() {
    return &m_Outlets;
}


moInlets*
moMoldeoObject::GetInlets() {
    return &m_Inlets;
}

MOint
moMoldeoObject::GetInletIndex( moText p_connector_name ) const {

    for( MOuint i=0; i< m_Inlets.Count(); i++ ) {
      moInlet* pInlet = m_Inlets.Get(i);
      if ( pInlet->GetConnectorLabelName() == p_connector_name )
        return i;
    }
    return (-1);

}

MOint
moMoldeoObject::GetOutletIndex( moText p_connector_name ) const {

    for( MOuint i=0; i< m_Outlets.Count(); i++ ) {
        moOutlet* pOutlet = m_Outlets.Get(i);
        if ( pOutlet )
            if ( pOutlet->GetConnectorLabelName() == p_connector_name )
                return i;
    }
    return (-1);

}

void
moMoldeoObject::Update( moEventList* p_EventList ) {


    if (InletScreenWidth) {
        if (InletScreenWidth->GetData()) InletScreenWidth->GetData()->SetDouble( m_pResourceManager->GetRenderMan()->ScreenWidth() );
    }
    if (InletScreenHeight) {
        if (InletScreenHeight->GetData()) InletScreenHeight->GetData()->SetDouble( m_pResourceManager->GetRenderMan()->ScreenHeight() );
    }
      if (InletTimeabs) {
        if (InletTimeabs->GetData()) InletTimeabs->GetData()->SetDouble( moGetDuration() );
    }
    if (InletPreconfig) {
        if (InletPreconfig->GetData()) InletPreconfig->GetData()->SetInt( m_Config.GetCurrentPreConf() );
    }

    moEvent *actual,*tmp;
    moMessage *pmessage;

    actual = p_EventList->First;

    while(actual!=NULL) {
        tmp = actual->next;

        if (actual->deviceid == GetId() && actual->reservedvalue3 == MO_MESSAGE) {

            pmessage = (moMessage*)actual;

            MOint inletid = pmessage->m_InletIdDest;
            moData pdata = pmessage->m_Data;
      //MODebug2->Message("Receiving outlet message to inlet: ");
            if (inletid>=0 && inletid<(int)m_Inlets.Count() ) {
                moInlet* pinlet = m_Inlets[inletid];
        //MODebug2->Message("Updating inlet: object: " + GetLabelName() + " inlet: " + pinlet->GetConnectorLabelName()
        //                  + " outlet_data: " + pdata.ToText() );

                if (pinlet->GetData()==NULL)
          pinlet->NewData();

                if (pinlet->GetConnectorLabelName()=="control_roll_angle") pinlet->GetInternalData()->Copy(pdata);
                else if (pinlet->IsParameterDependent()) pinlet->GetInternalData()->Copy(pdata);
                else pinlet->GetData()->Copy(pdata);


                pinlet->Update();

        //MODebug2->Message("Updating inlet: object: " + GetLabelName() + " inlet: " + pinlet->GetConnectorLabelName()
        //                  + " outlet_data: " + pinlet->GetData()->ToText() );

            }

        } else if (actual->reservedvalue3 == MO_MESSAGE) {

            pmessage = (moMessage*)actual;

            if (pmessage->m_MoldeoIdSrc == GetId() ) {
                p_EventList->Delete(pmessage);
            }

        }
        actual = tmp;
    }


    for( MOuint i=0; i<m_Outlets.Count() ; i++) {
        moOutlet* poutlet = m_Outlets[i];

    if (poutlet) {


      bool forcingParameterEmition = false;
      if (  poutlet->IsParameterDependent()
            &&
            poutlet->GetConnections()->Count()>0) {
          forcingParameterEmition = true;
      }

      if ( poutlet->Updated() || forcingParameterEmition ) {

        //MODebug2->Message( poutlet->GetConnectorLabelName() + moText(" outlet updated. MOB : ") + this->GetLabelName() );

        moData pdata = (*(poutlet->GetData()));
        moConnections* pconnections = poutlet->GetConnections();
        for(MOuint j=0; j<pconnections->Count(); j++) {
          moConnection* pconnection = pconnections->Get(j);
          pmessage = new moMessage( pconnection->GetDestinationMoldeoId(),
                                    pconnection->GetDestinationConnectorId(),
                                    GetId(),
                                    pdata );
          p_EventList->Add( (moEvent*) pmessage );
          //if (pmessage) delete pmessage;
          //MODebug2->Message(moText("added outlet message for:") + IntToStr(pconnection->GetDestinationMoldeoId())  );
        }
        poutlet->Update(false);
      }
    }
    }
  moMoldeoObject::ScriptExeUpdate();

}


void moMoldeoObject::RegisterFunctions()
{
    RegisterBaseFunction("PushDebugString"); //0
    RegisterFunction("GetResourceManager"); //1

    RegisterFunction("SetPreconf");//2
    RegisterFunction("GetPreconf");//3

    RegisterFunction("GetParamIndex");//4
    RegisterFunction("GetCurrentValue");//5
    RegisterFunction("SetCurrentValue");//6
    RegisterFunction("GetValuesCount");//7

    RegisterFunction("GetInletIndex");//8
    RegisterFunction("GetInletData");//9
    RegisterFunction("SetInletData");//10

    RegisterFunction("GetTuioSystem");//11
    RegisterFunction("GetTuioCursorCount");//12
    RegisterFunction("GetTuioCursor");//13
    RegisterFunction("GetTuioObjectCount");//14
    RegisterFunction("GetTuioObject");//15


    RegisterFunction("GetTrackerSystemData"); //16
    RegisterFunction("GetTrackerFeaturesCount"); //17
    RegisterFunction("GetTrackerValidFeatures"); //18
    RegisterFunction("GetTrackerFeature"); //19
    RegisterFunction("GetTrackerVariance"); //20
    RegisterFunction("GetTrackerBarycenter"); //21
    RegisterFunction("GetTrackerAcceleration"); //22
    RegisterFunction("GetTrackerVelocity"); //23
    RegisterFunction("GetTrackerZone"); //24

    RegisterFunction("GetTrackerHistory"); //25
    RegisterFunction("StartTrackerHistory"); //26
    RegisterFunction("PauseTrackerHistory"); //27
    RegisterFunction("ContinueTrackerHistory"); //28
    RegisterFunction("StopTrackerHistory"); //29
    RegisterFunction("GetHistoryRecord"); //30
    RegisterFunction("GetHistoryBarycenter"); //31
    RegisterFunction("GetHistoryVariance"); //32
    RegisterFunction("GetHistoryBounding"); //33
    RegisterFunction("GetHistoryAverage"); //34
    RegisterFunction("GetHistoryMinMax"); //35

}

int moMoldeoObject::ScriptCalling(moLuaVirtualMachine& vm, int iFunctionNumber) {
/*
    for(int i=0; i<m_iMethodBaseAncestors; i++ ) {
       MODebug2->Message( moText("moMoldeoObject::ScriptCalling > baseancestor: ")+IntToStr(i)+moText(" base: ") + IntToStr(m_MethodBases[i]));
       //m_iMethodBaseIterator
    }

    m_iMethodBase = m_MethodBases[m_iMethodBaseIterator];

 MODebug2->Message( moText("Called moMoldeoObject::ScriptCalling, iFunctionNumber") + IntToStr(iFunctionNumber)
                      +moText(" m_iMethodBase: ") + IntToStr(m_iMethodBase) );
    MODebug2->Message( moText("m_iMethodBaseAncestors: ") + IntToStr( m_iMethodBaseAncestors ) );
    MODebug2->Message( moText("m_iMethodBaseIterator: ") + IntToStr( m_iMethodBaseIterator ) );
    MODebug2->Message( moText("m_iMethodBase: ") + IntToStr( m_iMethodBase ) );
    */
    m_iMethodBase = 1;
 switch ( iFunctionNumber - m_iMethodBase )
    {
        case 0:
            ResetScriptCalling();
            return luaPushDebugString(vm);//0

        case 1:
            ResetScriptCalling();
            return luaGetResourceManager(vm);//1

        case 2:
            ResetScriptCalling();
            return luaSetPreconf(vm);//2
        case 3:
            ResetScriptCalling();
            return luaGetPreconf(vm);//3


        case 4:
            ResetScriptCalling();
            return luaGetParamIndex(vm);//4
        case 5:
            ResetScriptCalling();
            return luaGetCurrentValue(vm);//5
        case 6:
            ResetScriptCalling();
            return luaSetCurrentValue(vm);//6
        case 7:
            ResetScriptCalling();
            return luaGetValuesCount(vm);//7



        case 8:
            ResetScriptCalling();
            return luaGetInletIndex(vm);//8
        case 9:
            ResetScriptCalling();
            return luaGetInletData(vm);//9
        case 10:
            ResetScriptCalling();
            return luaSetInletData(vm);//10

#ifdef USE_TUIO
        case 11:
            ResetScriptCalling();
            return luaGetTuioSystem(vm);//10
        case 12:
            ResetScriptCalling();
            return  luaGetTuioCursorCount(vm);//11
        case 13:
            ResetScriptCalling();
            return  luaGetTuioCursor(vm);//12
        case 14:
            ResetScriptCalling();
            return  luaGetTuioObjectCount(vm);//13
        case 15:
            ResetScriptCalling();
            return  luaGetTuioObject(vm);//14
#else
        case 11:
        case 12:
        case 13:
        case 14:
        case 15:
            ResetScriptCalling();
            return  0;
#endif

        case 16:
            ResetScriptCalling();
            return luaGetTrackerSystemData(vm);//15
        case 17:
            ResetScriptCalling();
            return luaGetTrackerFeaturesCount(vm);//16
        case 18:
            ResetScriptCalling();
            return luaGetTrackerValidFeatures(vm);//17
        case 19:
            ResetScriptCalling();
            return luaGetTrackerFeature(vm);//18
        case 20:
            ResetScriptCalling();
            return luaGetTrackerVariance(vm);//19
        case 21:
            ResetScriptCalling();
            return luaGetTrackerBarycenter(vm);//20
        case 22:
            ResetScriptCalling();
            return luaGetTrackerAcceleration(vm);//21
        case 23:
            ResetScriptCalling();
            return luaGetTrackerVelocity(vm);//22
        case 24:
            ResetScriptCalling();
            return luaGetTrackerZone(vm);//23

        case 25:
            ResetScriptCalling();
            return luaGetTrackerHistory(vm);//24
        case 26:
            ResetScriptCalling();
            return luaStartTrackerHistory(vm);//25
        case 27:
            ResetScriptCalling();
            return luaPauseTrackerHistory(vm);//26
        case 28:
            ResetScriptCalling();
            return luaContinueTrackerHistory(vm);//27
        case 29:
            ResetScriptCalling();
            return luaStopTrackerHistory(vm);//28

        case 30:
            ResetScriptCalling();
            return luaGetHistoryRecord(vm);//29
        case 31:
            ResetScriptCalling();
            return luaGetHistoryBarycenter(vm);//30
        case 32:
            ResetScriptCalling();
            return luaGetHistoryVariance(vm);//31
        case 33:
            ResetScriptCalling();
            return luaGetHistoryBounding(vm);//32
        case 34:
            ResetScriptCalling();
            return luaGetHistoryAverage(vm);//33
        case 35:
            ResetScriptCalling();
            return luaGetHistoryMinMax(vm);//34
        default:
            MODebug2->Error("moMoldeoObject::ScriptCalling > not a valid index (iFunctionNumber - m_iMethodBase) " + IntToStr(iFunctionNumber - m_iMethodBase));
            break;

    }
    return 0;
}
//#include "lua.h"
void moMoldeoObject::HandleReturns(moLuaVirtualMachine& vm, const char *strFunc)
{
    lua_State *state = (lua_State *) vm;

    if (    strcmp( "Run", strFunc) == 0 ||
            strcmp( "Draw", strFunc) == 0 ||
            strcmp( "Init", strFunc) == 0 ||
            strcmp( "Finish", strFunc) == 0 ||
            strcmp( "RunSystem", strFunc) == 0 ||
            strcmp( "Update", strFunc) == 0 ||
            strcmp( "RunParticle", strFunc) == 0
        ) {
        MOint script_result = (MOint) lua_tonumber (state, 1);

        if (script_result != 0) {

            char *text = (char *) lua_tostring (state, -1);

            MODebug2->Error(
                moText(GetLabelName())
                + moText(" function:")
                + moText(strFunc)
                + moText(" >> lua script returned error code: ")
                + (moText)IntToStr(script_result)
                + moText(" >> ")
                + moText(text)
            );

        }
    }
}


int moMoldeoObject::luaPushDebugString(moLuaVirtualMachine& vm) {
    lua_State *state = (lua_State *) vm;
    if (lua_isboolean(state,1)) {
        bool vb = lua_toboolean(state,1);
        vb ? MODebug2->Message(moText("true")) : MODebug2->Message(moText("false"));
    } else {
        char *text = (char *) lua_tostring (state, 1);
        MODebug2->Message(moText(text));
    }

    return 0;
}

int moMoldeoObject::luaGetResourceManager(moLuaVirtualMachine& vm) {

  lua_State *state = (lua_State *) vm;
  state = NULL; //unused
  if (GetResourceManager()) {
    if (GetResourceManager()->GetScriptMan()) {
      GetResourceManager()->GetScriptMan()->PushLuaResourceManager();
    }
  }

  return 1;
}

int moMoldeoObject::luaSetPreconf(moLuaVirtualMachine& vm) {
    lua_State *state = (lua_State *) vm;

    MOint preconfid = (MOint) lua_tonumber (state, 1);

    if (this->GetConfig()) {
        this->GetConfig()->SetCurrentPreConf( preconfid );
    } else MODebug2->Push("no debug");

    return 0;
}

int moMoldeoObject::luaGetPreconf(moLuaVirtualMachine& vm) {
    lua_State *state = (lua_State *) vm;

    if (this->GetConfig()) {
        lua_pushnumber(state, (lua_Number) this->GetConfig()->GetCurrentPreConf() );
    }

    return 1;
}

int moMoldeoObject::luaGetParamIndex(moLuaVirtualMachine& vm) {

    lua_State *state = (lua_State *) vm;

    char *text = (char *) lua_tostring (state, 1);

    if (GetConfig()) {
        lua_pushnumber(state, (lua_Number) GetConfig()->GetParamIndex(text) );
    }

    return 1;

}

int moMoldeoObject::luaSetCurrentValue(moLuaVirtualMachine& vm) {

    lua_State *state = (lua_State *) vm;

    MOint paramid = (MOint) lua_tonumber (state, 1);
    MOint valueid = (MOint) lua_tonumber (state, 2);

    if (GetConfig()) {
        GetConfig()->SetCurrentValueIndex( paramid, valueid );
    } else {
        MODebug2->Error( moText(" in MoldeoObject script: SetCurrentValue : config not founded : id:")+(moText)GetLabelName() );
    }

    return 0;
}


int moMoldeoObject::luaGetCurrentValue(moLuaVirtualMachine& vm) {

    lua_State *state = (lua_State *) vm;

    MOint paramid = (MOint) lua_tonumber (state, 1);

    if (GetConfig()) {
        int valueid = GetConfig()->GetParam( paramid ).GetIndexValue();
        lua_pushnumber(state, (lua_Number) valueid );
        return 1;
    } else {
        MODebug2->Error( moText(" in MoldeoObject script: GetCurrentValue : config not founded : id:")+(moText)GetLabelName() );
    }

    return 0;
}


int moMoldeoObject::luaGetValuesCount(moLuaVirtualMachine& vm) {

    lua_State *state = (lua_State *) vm;

    MOint paramid = (MOint) lua_tonumber (state, 1);

    if (GetConfig()) {
        int valuecount = GetConfig()->GetParam( paramid ).GetValuesCount();
        lua_pushnumber(state, (lua_Number) valuecount );
        return 1;
    } else {
        MODebug2->Error( moText(" in MoldeoObject script: GetValuesCount : config not founded : id:")+(moText)GetLabelName() );
    }

    return 0;
}



int moMoldeoObject::luaGetInletIndex(moLuaVirtualMachine& vm) {
    lua_State *state = (lua_State *) vm;

    char *inletlabelname = (char *) lua_tostring (state, 1);

    for( MOuint i=0; i<m_Inlets.Count(); i++ ) {
        moInlet* pInlet = m_Inlets[i];
        if (pInlet) {
            moText lname = pInlet->GetConnectorLabelName();
            moText lmname( inletlabelname );
            if ( lname == lmname ) {
               lua_pushnumber(state, (lua_Number) i );
               return 1;
            }
        }
    }

    lua_pushnumber(state, (lua_Number) -1 );
    return 1;
}

int moMoldeoObject::luaGetInletData(moLuaVirtualMachine& vm) {
    lua_State *state = (lua_State *) vm;

    moVector2d* pv2d;
    moVector3d* pv3d;
    moVector4d* pv4d;
    moVector2i* pv2i;
    moVector3i* pv3i;
    moVector4i* pv4i;

    unsigned int i;
    moData MData;
    moDataMessage* pDataMessage;



    int inletindex = (int) lua_tonumber (state, 1);

    if ( inletindex>=0 && inletindex<(int)m_Inlets.Count()) {
        moInlet* pInlet = m_Inlets[inletindex];
        if ( pInlet ) {
            moData* pData = pInlet->GetData();
            //lua_pushnumber( state, (lua_Number) (int)pType );
            if (pData) {
                moDataType pType = pData->Type();
                switch((int)pType) {
                    case    MO_DATA_NUMBER:
                            lua_pushnumber( state, (lua_Number) pData->Long() );
                            return 1;
                            break;
                    case    MO_DATA_NUMBER_CHAR:
                            lua_pushnumber( state, (lua_Number) pData->Long() );
                            return 1;
                            break;
                    case    MO_DATA_NUMBER_INT:
                            lua_pushnumber( state, (lua_Number) pData->Long() );
                            return 1;
                            break;
                    case    MO_DATA_NUMBER_LONG:
                            lua_pushnumber( state, (lua_Number) pData->Long() );
                            return 1;
                            break;
                    case    MO_DATA_NUMBER_DOUBLE:
                            lua_pushnumber( state, (lua_Number) pData->Double() );
                            return 1;
                    case    MO_DATA_NUMBER_FLOAT:
                            lua_pushnumber( state, (lua_Number) pData->Float() );
                            return 1;
                    case    MO_DATA_TEXT:
                            lua_pushstring( state, (char*) pData->Text() );
                            return 1;
                    case    MO_DATA_MESSAGE:
                            pDataMessage = (moDataMessage*)pData->Pointer();
                            //MODebug2->Message("moMoldeoObject::luaGetInletData() > MO_DATA_MESSAGE");
                            if (pDataMessage) {
                                //MODebug2->Message("moMoldeoObject::luaGetInletData() > MO_DATA_MESSAGE > count: " + IntToStr(pDataMessage->Count()) );
                                for(i=0;i<pDataMessage->Count();i++) {
                                  MData = pDataMessage->Get(i);
                                  //MODebug2->Message("moMoldeoObject::luaGetInletData() > MO_DATA_MESSAGE > data: " + MData.ToText() );
                                  lua_pushstring( state, (char*) MData.ToText() );
                                }
                                return i;
                            }
                            return 1;
                    case MO_DATA_VECTOR2F:
                            pv2d = (moVector2d*)pData->Pointer();
                            if (pv2d) {
                                lua_pushnumber( state, (lua_Number) pv2d->X() );
                                lua_pushnumber( state, (lua_Number) pv2d->Y() );
                                return 2;
                            }
                            break;
                    case MO_DATA_VECTOR3F:
                            pv3d = (moVector3d*)pData->Pointer();
                            if (pv3d) {
                                lua_pushnumber( state, (lua_Number) pv3d->X() );
                                lua_pushnumber( state, (lua_Number) pv3d->Y() );
                                lua_pushnumber( state, (lua_Number) pv3d->Z() );
                                return 3;
                            }
                            break;
                    case MO_DATA_VECTOR4F:
                            pv4d = (moVector4d*)pData->Pointer();
                            if (pv4d) {
                                lua_pushnumber( state, (lua_Number) pv4d->X() );
                                lua_pushnumber( state, (lua_Number) pv4d->Y() );
                                lua_pushnumber( state, (lua_Number) pv4d->Z() );
                                lua_pushnumber( state, (lua_Number) pv4d->W() );
                                return 4;
                            }
                            break;
                    case MO_DATA_VECTOR2I:
                            pv2i = (moVector2i*)pData->Pointer();
                            if (pv2i) {
                                lua_pushnumber( state, (lua_Number) pv2i->X() );
                                lua_pushnumber( state, (lua_Number) pv2i->Y() );
                                return 2;
                            }
                            break;
                    case MO_DATA_VECTOR3I:
                            pv3i = (moVector3i*)pData->Pointer();
                            if (pv3i) {
                                lua_pushnumber( state, (lua_Number) pv3i->X() );
                                lua_pushnumber( state, (lua_Number) pv3i->Y() );
                                lua_pushnumber( state, (lua_Number) pv3i->Z() );
                                return 3;
                            }
                            break;
                    case MO_DATA_VECTOR4I:
                            pv4i = (moVector4i*)pData->Pointer();
                            if (pv4i) {
                                lua_pushnumber( state, (lua_Number) pv4i->X() );
                                lua_pushnumber( state, (lua_Number) pv4i->Y() );
                                lua_pushnumber( state, (lua_Number) pv4i->Z() );
                                lua_pushnumber( state, (lua_Number) pv4i->W() );
                                return 4;
                            }
                            break;

                    case MO_DATA_FUNCTION:
                            lua_pushnumber( state, (lua_Number) pData->Eval() );
                            return 1;
                    default:
                        moText ttype = pData->TypeToText();
                        lua_pushstring( state, ttype );
                        if (pData->Type()==MO_DATA_NUMBER_LONG) {
                            lua_pushnumber( state, (lua_Number) pData->Long() );
                            return 2;
                        }
                        return 1;
                }
            } else {
                moText tres("bad data pointer");
                lua_pushstring( state, tres );
                return 1;
            }
        }
        moText tres("inlet data not updated");
        lua_pushstring( state, tres );
        return 1;

    }
    moText tres("invalid");
    lua_pushstring( state, tres );
    return 1;
}


int moMoldeoObject::luaSetInletData(moLuaVirtualMachine& vm) {

    lua_State *state = (lua_State *) vm;

    int inletindex = (int) lua_tonumber (state, 1);

    if ( inletindex>=0 && inletindex<(int)m_Inlets.Count()) {

        moInlet* pInlet = m_Inlets[inletindex];

        if ( pInlet ) {
            moData* pData = pInlet->GetInternalData();
            if (pData) {
                moDataType pType = pData->Type();
                switch( pType ) {
                    case MO_DATA_NUMBER:
                    case MO_DATA_NUMBER_CHAR:
                    case MO_DATA_NUMBER_INT:
                    case MO_DATA_NUMBER_LONG:
                    case MO_DATA_NUMBER_MIDI:
                        pData->SetLong( (MOlong) lua_tonumber ( state, 2 ) );
                        pInlet->Update();

                        return 0;

                    case MO_DATA_3DMODELPOINTER:
                    case MO_DATA_FONTPOINTER:
                    case MO_DATA_IMAGESAMPLE:
                    case MO_DATA_IMAGESAMPLE_FILTERED:
                    case MO_DATA_IMAGESAMPLE_TEXTUREBUFFER:
                        //pData->SetLong( (MOlong) lua_tonumber ( state, 3 ) );
                        pInlet->Update();
                        return 0;

                    case MO_DATA_VECTOR2I:
                        if (pData->Vector2i())
                            (*pData->Vector2i()) = moVector2i(  (MOlong) lua_tonumber ( state, 2 ),
                                                            (MOlong) lua_tonumber ( state, 3 ) );
                        pInlet->Update();

                        return 0;

                    case MO_DATA_VECTOR3I:
                        if (pData->Vector3i())
                            (*pData->Vector3i()) = moVector3i(  (MOlong) lua_tonumber ( state, 2 ),
                                                            (MOlong) lua_tonumber ( state, 3 ),
                                                            (MOlong) lua_tonumber ( state, 4 ) );
                                                            pInlet->Update();
                        return 0;

                    case MO_DATA_VECTOR4I:
                        if (pData->Vector4i())
                            (*pData->Vector4i()) = moVector4i(  (MOlong) lua_tonumber ( state, 2 ),
                                                            (MOlong) lua_tonumber ( state, 3 ),
                                                            (MOlong) lua_tonumber ( state, 4 ),
                                                            (MOlong) lua_tonumber ( state, 5 ) );
                                                            pInlet->Update();
                        return 0;

                    case MO_DATA_VECTOR2F:
                        if (pData->Vector2d())
                            (*pData->Vector2d()) = moVector2d(  (MOdouble) lua_tonumber ( state, 2 ),
                                                            (MOdouble) lua_tonumber ( state, 3 ));
                                                            pInlet->Update();
                        return 0;

                    case MO_DATA_VECTOR3F:
                        if (pData->Vector3d())
                            (*pData->Vector3d()) = moVector3d(  (MOdouble) lua_tonumber ( state, 2 ),
                                                            (MOdouble) lua_tonumber ( state, 3 ),
                                                            (MOdouble) lua_tonumber ( state, 4 ));
                        pInlet->Update();
                        return 0;

                    case MO_DATA_VECTOR4F:
                        if (pData->Vector4d())
                            (*pData->Vector4d()) = moVector4d(  (MOdouble) lua_tonumber ( state, 2 ),
                                                            (MOdouble) lua_tonumber ( state, 3 ),
                                                            (MOdouble) lua_tonumber ( state, 4 ),
                                                            (MOdouble) lua_tonumber ( state, 5 ) );
                        pInlet->Update();
                        return 0;

                    case MO_DATA_MESSAGE:
                    case MO_DATA_MESSAGES:
                        pInlet->Update();
                        return 0;

                    case MO_DATA_NUMBER_DOUBLE:
                    case MO_DATA_NUMBER_FLOAT:
                        pData->SetDouble( (MOdouble) lua_tonumber ( state, 2 ) );
                        pInlet->Update();
                        return 0;

                    case MO_DATA_TEXT:
                        //lua_pushstring(state, pData->Text() );
                        pData->SetText( lua_tostring ( state, 2 ) );
                        pInlet->Update();
                        return 0;

                    default:
                        moText tres("data type invalid");
                        tres = tres + pData->TypeToText();
                        lua_pushstring( state, tres );
                        pInlet->Update();
                        return 1;

                }
            } else {
                moText tres("data si null");
                lua_pushstring( state, tres );
                return 1;
            }
        }
    }

    moText tres("invalid");
    lua_pushstring( state, tres );
    return 1;
}




#ifdef USE_TUIO

using namespace TUIO;
int moMoldeoObject::luaGetTuioSystem(moLuaVirtualMachine& vm) {

    lua_State *state = (lua_State *) vm;

    int tuioindex = GetInletIndex("TUIOSYSTEM");

    lua_pushnumber( state, (lua_Number) tuioindex );

    return 1;
}

int moMoldeoObject::luaGetTuioCursorCount(moLuaVirtualMachine& vm) {

    lua_State *state = (lua_State *) vm;

    moTUIOSystemData* pTuio = NULL;

    int tuioindex = (int)lua_tonumber( state, 1);

    moInlet* pInlet = NULL;

    pInlet = m_Inlets[tuioindex];

    if (pInlet && pInlet->Updated()) {
        pTuio = (moTUIOSystemData*)pInlet->GetData()->Pointer();
        if (pTuio) {
            std::list<TuioCursor*> pCursors = pTuio->getTuioCursors();
            int nc = pCursors.size();
            lua_pushnumber( state, (lua_Number) nc );
            return 1;
        }

    }
    lua_pushnumber( state, (lua_Number) -1 );
    return 1;
}


int moMoldeoObject::luaGetTuioCursor(moLuaVirtualMachine& vm) {

    lua_State *state = (lua_State *) vm;

    moTUIOSystemData* pTuio = NULL;

    int tuioindex = (int)lua_tonumber( state, 1);
    int cursorindex = (int)lua_tonumber( state, 2);

    moInlet* pInlet = NULL;

    pInlet = m_Inlets[tuioindex];

    if (pInlet && pInlet->Updated()) {
        pTuio = (moTUIOSystemData*)pInlet->GetData()->Pointer();
        if (pTuio) {

            std::list<TuioCursor*> cursors = pTuio->getTuioCursors();

            int cn = 0;
            TuioCursor* pCursor = NULL;

            for (std::list<TuioCursor*>::iterator tuioCursor = cursors.begin(); tuioCursor!=cursors.end(); tuioCursor++,cn++) {
                if (cn == cursorindex) {
                    pCursor = (*tuioCursor);
                }
            }

            if (pCursor) {
                lua_pushnumber( state, (lua_Number) pCursor->getCursorID() );
                lua_pushnumber( state, (lua_Number) pCursor->getSessionID() );
                lua_pushnumber( state, (lua_Number) pCursor->getStartTime().getTotalMilliseconds() );
                lua_pushnumber( state, (lua_Number) pCursor->getPosition().getX() );
                lua_pushnumber( state, (lua_Number) pCursor->getPosition().getY() );
                lua_pushnumber( state, (lua_Number) pCursor->getXSpeed() );
                lua_pushnumber( state, (lua_Number) pCursor->getYSpeed() );
                return 7;
            }
        }

    }
    lua_pushnumber( state, (lua_Number) -1 );
    return 1;
}

int moMoldeoObject::luaGetTuioObjectCount(moLuaVirtualMachine& vm) {

    lua_State *state = (lua_State *) vm;

    moTUIOSystemData* pTuio = NULL;

    int tuioindex = (int)lua_tonumber( state, 1);

    moInlet* pInlet = NULL;

    pInlet = m_Inlets[tuioindex];

    if (pInlet && pInlet->Updated()) {
        pTuio = (moTUIOSystemData*)pInlet->GetData()->Pointer();
        if (pTuio) {
            std::list<TuioObject*> pObjects = pTuio->getTuioObjects();
            int nc = pObjects.size();
            lua_pushnumber( state, (lua_Number) nc );
            return 1;
        }

    }
    lua_pushnumber( state, (lua_Number) -1 );
    return 1;
}

int moMoldeoObject::luaGetTuioObject(moLuaVirtualMachine& vm) {

    lua_State *state = (lua_State *) vm;

    moTUIOSystemData* pTuio = NULL;

    int tuioindex = (int)lua_tonumber( state, 1);
    int objectindex = (int)lua_tonumber( state, 2);

    moInlet* pInlet = NULL;

    pInlet = m_Inlets[tuioindex];

    if (pInlet && pInlet->Updated()) {
        pTuio = (moTUIOSystemData*)pInlet->GetData()->Pointer();
        if (pTuio) {

            std::list<TuioObject*> objects = pTuio->getTuioObjects();

            int cn = 0;
            TuioObject* pObject = NULL;

            for (std::list<TuioObject*>::iterator tuioObject = objects.begin(); tuioObject!=objects.end(); tuioObject++,cn++) {
                if (cn == objectindex) {
                    pObject = (*tuioObject);
                }
            }

            if (pObject) {
                lua_pushnumber( state, (lua_Number) pObject->getSymbolID() );
                lua_pushnumber( state, (lua_Number) pObject->getSessionID() );
                lua_pushnumber( state, (lua_Number) pObject->getStartTime().getTotalMilliseconds() );
                lua_pushnumber( state, (lua_Number) pObject->getPosition().getX() );
                lua_pushnumber( state, (lua_Number) pObject->getPosition().getY() );
                lua_pushnumber( state, (lua_Number) pObject->getXSpeed() );
                lua_pushnumber( state, (lua_Number) pObject->getYSpeed() );
                lua_pushnumber( state, (lua_Number) pObject->getAngle() );
                return 8;
            }
        }

    }
    lua_pushnumber( state, (lua_Number) -1 );
    return 1;

}
#endif

int moMoldeoObject::luaGetTrackerSystemData(moLuaVirtualMachine& vm) {

    lua_State *state = (lua_State *) vm;

    int trackerindex = GetInletIndex("TRACKERKLT");

    lua_pushnumber( state, (lua_Number) trackerindex );

    return 1;
}

int moMoldeoObject::luaGetTrackerFeaturesCount(moLuaVirtualMachine& vm) {

    lua_State *state = (lua_State *) vm;
    int ft_count = -1;

    moTrackerSystemData* pTracker = NULL;

    int trackerindex = (int)lua_tonumber( state, 1);

    moInlet* pInlet = NULL;

    pInlet = m_Inlets[trackerindex];

    if (pInlet && pInlet->Updated()) {
        pTracker = (moTrackerSystemData*)pInlet->GetData()->Pointer();
        if (pTracker) {
            ft_count = pTracker->GetFeaturesCount();
        }
    }

    lua_pushnumber( state, (lua_Number) ft_count );

    return 1;
}

int moMoldeoObject::luaGetTrackerValidFeatures(moLuaVirtualMachine& vm) {

    lua_State *state = (lua_State *) vm;
    int ft_validcount = 0;

    moTrackerSystemData* pTracker = NULL;

    int trackerindex = (int)lua_tonumber( state, 1);

    moInlet* pInlet = NULL;

    pInlet = m_Inlets[trackerindex];

    if (pInlet && pInlet->Updated()) {
        pTracker = (moTrackerSystemData*)pInlet->GetData()->Pointer();
        if (pTracker) {
            ft_validcount = pTracker->GetValidFeatures();
        }
    }

    lua_pushnumber( state, (lua_Number) ft_validcount );

    return 1;
}

int moMoldeoObject::luaGetTrackerFeature(moLuaVirtualMachine& vm) {

    lua_State *state = (lua_State *) vm;

    moTrackerSystemData* pTracker = NULL;

    int trackerindex = (int)lua_tonumber( state, 1);
    int featureindex = (MOint) lua_tonumber (state, 2);

    moInlet* pInlet = NULL;

    pInlet = m_Inlets[trackerindex];

    float x, y, vx, vy, tr_x, tr_y;
    int v;
    x = y = 0.0;
    v = 0;

    if (pInlet && pInlet->Updated()) {
        pTracker = (moTrackerSystemData*)pInlet->GetData()->Pointer();
        if (pTracker) {
            moTrackerFeature* TF = pTracker->GetFeature(featureindex);
            if (TF) {
                x = TF->x;
                y = TF->y;
                v = TF->val;
                vx = TF->v_x;
                vy = TF->v_y;
                tr_x = TF->tr_x;
                tr_y = TF->tr_y;
            }
        }
    }

    lua_pushnumber(state, (lua_Number)x);
    lua_pushnumber(state, (lua_Number)y);
    lua_pushnumber(state, (lua_Number)v);
    lua_pushnumber(state, (lua_Number)vx);
    lua_pushnumber(state, (lua_Number)vy);
    lua_pushnumber(state, (lua_Number)tr_x);
    lua_pushnumber(state, (lua_Number)tr_y);

    return 7;

}

int moMoldeoObject::luaGetTrackerVariance(moLuaVirtualMachine& vm) {

    lua_State *state = (lua_State *) vm;

    moTrackerSystemData* pTracker = NULL;

    int trackerindex = (int)lua_tonumber( state, 1);

    moInlet* pInlet = NULL;

    pInlet = m_Inlets[trackerindex];

   float x, y, L;
    x = y = L = 0.0;

    if (pInlet && pInlet->Updated()) {
        pTracker = (moTrackerSystemData*)pInlet->GetData()->Pointer();
        if (pTracker) {
            L = pTracker->GetVariance().Length();
            x = pTracker->GetVariance().X();
            y = pTracker->GetVariance().Y();
        }
    }

    lua_pushnumber(state, (lua_Number)L);
    lua_pushnumber(state, (lua_Number)x);
    lua_pushnumber(state, (lua_Number)y);

    return 3;
}

int moMoldeoObject::luaGetTrackerBarycenter(moLuaVirtualMachine& vm) {

    lua_State *state = (lua_State *) vm;

    moTrackerSystemData* pTracker = NULL;

    int trackerindex = (int)lua_tonumber( state, 1);

    moInlet* pInlet = NULL;

    pInlet = m_Inlets[trackerindex];

   float x, y;
    x = y = 0.0;

    if (pInlet && pInlet->Updated()) {
        pTracker = (moTrackerSystemData*)pInlet->GetData()->Pointer();
        if (pTracker) {
            x = pTracker->GetBarycenter().X();
            y = pTracker->GetBarycenter().Y();
        }
    }

    lua_pushnumber(state, (lua_Number)x);
    lua_pushnumber(state, (lua_Number)y);

    return 2;

}


int moMoldeoObject::luaGetTrackerAcceleration(moLuaVirtualMachine& vm) {


    lua_State *state = (lua_State *) vm;

    moTrackerSystemData* pTracker = NULL;

    int trackerindex = (int)lua_tonumber( state, 1);

    moInlet* pInlet = NULL;

    pInlet = m_Inlets[trackerindex];

   float x, y, L;
    x = y = L = 0.0;

    if (pInlet && pInlet->Updated()) {
        pTracker = (moTrackerSystemData*)pInlet->GetData()->Pointer();
        if (pTracker) {
            L = pTracker->GetBarycenterAcceleration().Length();
            x = pTracker->GetBarycenterAcceleration().X();
            y = pTracker->GetBarycenterAcceleration().Y();
        }
    }

    lua_pushnumber(state, (lua_Number)L);
    lua_pushnumber(state, (lua_Number)x);
    lua_pushnumber(state, (lua_Number)y);

    return 3;
}

int moMoldeoObject::luaGetTrackerVelocity(moLuaVirtualMachine& vm) {

    lua_State *state = (lua_State *) vm;

    moTrackerSystemData* pTracker = NULL;

    int trackerindex = (int)lua_tonumber( state, 1);

    moInlet* pInlet = NULL;

    pInlet = m_Inlets[trackerindex];

   float x, y, L;
    x = y = L = 0.0;

    if (pInlet && pInlet->Updated()) {
        pTracker = (moTrackerSystemData*)pInlet->GetData()->Pointer();
        if (pTracker) {
            L = pTracker->GetBarycenterMotion().Length();
            x = pTracker->GetBarycenterMotion().X();
            y = pTracker->GetBarycenterMotion().Y();
        }
    }

    lua_pushnumber(state, (lua_Number)L);
    lua_pushnumber(state, (lua_Number)x);
    lua_pushnumber(state, (lua_Number)y);
    return 3;
}


int moMoldeoObject::luaGetTrackerZone(moLuaVirtualMachine& vm) {

    lua_State *state = (lua_State *) vm;

    moTrackerSystemData* pTracker = NULL;

    int trackerindex = (int)lua_tonumber( state, 1);
    int izone = (int) lua_tonumber (state, 2);

    int nitems;
    nitems = 0;

    moInlet* pInlet = NULL;

    pInlet = m_Inlets[trackerindex];

    if (pInlet && pInlet->Updated()) {
        pTracker = (moTrackerSystemData*)pInlet->GetData()->Pointer();
        if (pTracker) {
            nitems = pTracker->GetPositionMatrix( pTracker->ZoneToPosition(izone) );
        }
    }

    lua_pushnumber( state, (lua_Number) nitems);
    return 1;
}

int moMoldeoObject::luaGetTrackerHistory(moLuaVirtualMachine& vm) {

    lua_State *state = (lua_State *) vm;

    moTrackerSystemData* pTracker = NULL;

    int trackerindex = (int)lua_tonumber( state, 1);

    int nitems;
    nitems = 0;

    moInlet* pInlet = NULL;

    pInlet = m_Inlets[trackerindex];

    if (pInlet && pInlet->Updated()) {
        pTracker = (moTrackerSystemData*)pInlet->GetData()->Pointer();
        if (pTracker) {
            nitems = pTracker->GetHistory().CountRecords();
        }
    }

    lua_pushnumber( state, (lua_Number) nitems);
    return 1;

}

int moMoldeoObject::luaStartTrackerHistory(moLuaVirtualMachine& vm) {
     lua_State *state = (lua_State *) vm;

    moTrackerSystemData* pTracker = NULL;

    int trackerindex = (int)lua_tonumber( state, 1);
    int maxtime_ms = (int)lua_tonumber( state, 2);
    int granularity_ms = (int)lua_tonumber( state, 3);

    moInlet* pInlet = NULL;

    pInlet = m_Inlets[trackerindex];

    if (pInlet && pInlet->Updated()) {
        pTracker = (moTrackerSystemData*)pInlet->GetData()->Pointer();
        if (pTracker) {
            pTracker->GetHistory().StartRecording(maxtime_ms,granularity_ms);
        }
    }
    return 0;
}

int moMoldeoObject::luaPauseTrackerHistory(moLuaVirtualMachine& vm) {

    lua_State *state = (lua_State *) vm;

    moTrackerSystemData* pTracker = NULL;

    int trackerindex = (int)lua_tonumber( state, 1);

    moInlet* pInlet = NULL;

    pInlet = m_Inlets[trackerindex];

    if (pInlet && pInlet->Updated()) {
        pTracker = (moTrackerSystemData*)pInlet->GetData()->Pointer();
        if (pTracker) {
            pTracker->GetHistory().PauseRecording();
        }
    }
    return 0;
}


int moMoldeoObject::luaContinueTrackerHistory(moLuaVirtualMachine& vm) {

    lua_State *state = (lua_State *) vm;

    moTrackerSystemData* pTracker = NULL;

    int trackerindex = (int)lua_tonumber( state, 1);

    moInlet* pInlet = NULL;

    pInlet = m_Inlets[trackerindex];

    if (pInlet && pInlet->Updated()) {
        pTracker = (moTrackerSystemData*)pInlet->GetData()->Pointer();
        if (pTracker) {
            pTracker->GetHistory().ContinueRecording();
        }
    }

    return 0;
}
int moMoldeoObject::luaStopTrackerHistory(moLuaVirtualMachine& vm) {
    lua_State *state = (lua_State *) vm;

    moTrackerSystemData* pTracker = NULL;

    int trackerindex = (int)lua_tonumber( state, 1);

    moInlet* pInlet = NULL;

    pInlet = m_Inlets[trackerindex];

    if (pInlet && pInlet->Updated()) {
        pTracker = (moTrackerSystemData*)pInlet->GetData()->Pointer();
        if (pTracker) {
            pTracker->GetHistory().StopRecording();
        }
    }

    return 0;

}
int moMoldeoObject::luaGetHistoryRecord(moLuaVirtualMachine& vm) {
     lua_State *state = (lua_State *) vm;

    moTrackerSystemData* pTracker = NULL;

    int trackerindex = (int)lua_tonumber( state, 1);
    int recordindex = (int)lua_tonumber( state, 2);

    moTrackerInstanceRecord IRecord;

    moInlet* pInlet = NULL;

    pInlet = m_Inlets[trackerindex];

    if (pInlet && pInlet->Updated()) {
        pTracker = (moTrackerSystemData*)pInlet->GetData()->Pointer();
        if (pTracker && recordindex>=0 && recordindex<pTracker->GetHistory().CountRecords()) {
            IRecord = pTracker->GetHistory().Get( recordindex );
        } else {
          MODebug2->Error("luaGetHistoryRecord::out of bound recordindex:"+IntToStr(recordindex)+" histories:"+IntToStr( pTracker->GetHistory().CountRecords()) );
        }
    } else {
      MODebug2->Error("luaGetHistoryRecord:: no tracker index or inlet not updated");
    }

    lua_pushnumber( state, (lua_Number) IRecord.m_ValidFeatures);
    lua_pushnumber( state, (lua_Number) IRecord.m_DeltaValidFeatures);
    lua_pushnumber( state, (lua_Number) IRecord.m_nFeatures);
    lua_pushnumber( state, (lua_Number) IRecord.m_SurfaceCovered);
    lua_pushnumber( state, (lua_Number) IRecord.m_Tick);
    return 5;
}

int moMoldeoObject::luaGetHistoryBarycenter(moLuaVirtualMachine& vm) {
     lua_State *state = (lua_State *) vm;

    moTrackerSystemData* pTracker = NULL;

    int trackerindex = (int)lua_tonumber( state, 1);
    int recordindex = (int)lua_tonumber( state, 2);

    moTrackerInstanceRecord IRecord;

    moInlet* pInlet = NULL;

    pInlet = m_Inlets[trackerindex];

    if (pInlet && pInlet->Updated()) {
        pTracker = (moTrackerSystemData*)pInlet->GetData()->Pointer();
        if (pTracker && recordindex>=0 && recordindex<pTracker->GetHistory().CountRecords()) {
            IRecord = pTracker->GetHistory().Get( recordindex );
        }
    }

    lua_pushnumber( state, (lua_Number) IRecord.m_Barycenter.X());
    lua_pushnumber( state, (lua_Number) IRecord.m_Barycenter.Y());
    lua_pushnumber( state, (lua_Number) IRecord.m_BarycenterMotion.X());
    lua_pushnumber( state, (lua_Number) IRecord.m_BarycenterMotion.Y());
    lua_pushnumber( state, (lua_Number) IRecord.m_BarycenterAcceleration.X());
    lua_pushnumber( state, (lua_Number) IRecord.m_BarycenterAcceleration.Y());
    return 6;
}

int moMoldeoObject::luaGetHistoryVariance(moLuaVirtualMachine& vm) {
     lua_State *state = (lua_State *) vm;

    moTrackerSystemData* pTracker = NULL;

    int trackerindex = (int)lua_tonumber( state, 1);
    int recordindex = (int)lua_tonumber( state, 2);

    moTrackerInstanceRecord IRecord;

    moInlet* pInlet = NULL;

    pInlet = m_Inlets[trackerindex];

    if (pInlet && pInlet->Updated()) {
        pTracker = (moTrackerSystemData*)pInlet->GetData()->Pointer();
        if (pTracker && recordindex>=0 && recordindex<pTracker->GetHistory().CountRecords()) {
            IRecord = pTracker->GetHistory().Get( recordindex );
        }
    }

    lua_pushnumber( state, (lua_Number) IRecord.m_Variance.X());
    lua_pushnumber( state, (lua_Number) IRecord.m_Variance.Y());
    lua_pushnumber( state, (lua_Number) IRecord.m_SpeedVariance.X());
    lua_pushnumber( state, (lua_Number) IRecord.m_SpeedVariance.Y());
    lua_pushnumber( state, (lua_Number) IRecord.m_AccelerationVariance.X());
    lua_pushnumber( state, (lua_Number) IRecord.m_AccelerationVariance.Y());
    return 6;

}

int moMoldeoObject::luaGetHistoryBounding(moLuaVirtualMachine& vm) {
     lua_State *state = (lua_State *) vm;

    moTrackerSystemData* pTracker = NULL;

    int trackerindex = (int)lua_tonumber( state, 1);
    int recordindex = (int)lua_tonumber( state, 2);

    moTrackerInstanceRecord IRecord;

    moInlet* pInlet = NULL;

    pInlet = m_Inlets[trackerindex];

    if (pInlet && pInlet->Updated()) {
        pTracker = (moTrackerSystemData*)pInlet->GetData()->Pointer();
        if (pTracker && recordindex>=0 && recordindex<pTracker->GetHistory().CountRecords()) {
            IRecord = pTracker->GetHistory().Get( recordindex );
        }
    }

    lua_pushnumber( state, (lua_Number) IRecord.m_BoundingRectangle.X());
    lua_pushnumber( state, (lua_Number) IRecord.m_BoundingRectangle.Y());
    lua_pushnumber( state, (lua_Number) IRecord.m_BoundingRectangle.Z());
    lua_pushnumber( state, (lua_Number) IRecord.m_BoundingRectangle.W());
    lua_pushnumber( state, (lua_Number) IRecord.m_BoundingRectangleAngle );
    lua_pushnumber( state, (lua_Number) IRecord.m_BlobCandidates );
    return 6;

}

int moMoldeoObject::luaGetHistoryAverage(moLuaVirtualMachine& vm) {
     lua_State *state = (lua_State *) vm;

    moTrackerSystemData* pTracker = NULL;

    int trackerindex = (int)lua_tonumber( state, 1);
    int recordindex = (int)lua_tonumber( state, 2);

    moTrackerInstanceRecord IRecord;

    moInlet* pInlet = NULL;

    pInlet = m_Inlets[trackerindex];

    if (pInlet && pInlet->Updated()) {
        pTracker = (moTrackerSystemData*)pInlet->GetData()->Pointer();
        if (pTracker && recordindex>=0 && recordindex<pTracker->GetHistory().CountRecords()) {
            IRecord = pTracker->GetHistory().Get( recordindex );
        }
    }

    lua_pushnumber( state, (lua_Number) IRecord.m_AbsoluteSpeedAverage);
    lua_pushnumber( state, (lua_Number) IRecord.m_AbsoluteAccelerationAverage);
    lua_pushnumber( state, (lua_Number) IRecord.m_AbsoluteTorqueAverage);
    return 3;

}

int moMoldeoObject::luaGetHistoryMinMax(moLuaVirtualMachine& vm) {

     lua_State *state = (lua_State *) vm;

    moTrackerSystemData* pTracker = NULL;

    int trackerindex = (int)lua_tonumber( state, 1);
    int recordindex = (int)lua_tonumber( state, 2);

    moTrackerInstanceRecord IRecord;

    moInlet* pInlet = NULL;

    pInlet = m_Inlets[trackerindex];

    if (pInlet && pInlet->Updated()) {
        pTracker = (moTrackerSystemData*)pInlet->GetData()->Pointer();
        if (pTracker && recordindex>=0 && recordindex<pTracker->GetHistory().CountRecords()) {
            IRecord = pTracker->GetHistory().Get( recordindex );
        }
    }

    lua_pushnumber( state, (lua_Number) IRecord.m_Min.X());
    lua_pushnumber( state, (lua_Number) IRecord.m_Min.Y());
    lua_pushnumber( state, (lua_Number) IRecord.m_Max.X());
    lua_pushnumber( state, (lua_Number) IRecord.m_Max.Y());
    return 4;

}

const moText&
moMoldeoObject::ToJSON() {
  moText fieldSeparation = ",";
  moMobDefinition Definition = GetMobDefinition();
  moMobState State = GetState();

  m_FullJSON = "{";
  m_FullJSON+= "'objectstate': " + State.ToJSON();
  m_FullJSON+= fieldSeparation + "'objecttypeid': '" + IntToStr( moGetStrType( Definition.GetName() ) )+"'";
  m_FullJSON+= fieldSeparation + "'objectdefinition': " + Definition.ToJSON();
  //m_FullJSON+= fieldSeparation + "'objectconfig': " + m_Config.ToJSON();
  m_FullJSON+= "}";

  return m_FullJSON;
}

moMoldeoObjectType moGetStrType( const moText& p_Str ) {

  if (p_Str == moText("effect") || p_Str == moText("moEffect")) {
      return MO_OBJECT_EFFECT;
  } else if (p_Str == moText("mastereffect") || p_Str == moText("moMasterEffect")) {
      return MO_OBJECT_MASTEREFFECT;
  } else if (p_Str == moText("posteffect") || p_Str == moText("moPostEffect")) {
      return MO_OBJECT_POSTEFFECT;
  } else if (p_Str == moText("preeffect") || p_Str == moText("moPreEffect")) {
      return MO_OBJECT_PREEFFECT;
  } else if (p_Str == moText("iodevice") || p_Str == moText("moIODevice")) {
      return MO_OBJECT_IODEVICE;
  } else if (p_Str == moText("resource") || p_Str == moText("moResource")) {
      return MO_OBJECT_RESOURCE;
  } else if (p_Str == moText("console") || p_Str == moText("moConsole")) {
      return MO_OBJECT_CONSOLE;
  }

  return MO_OBJECT_UNDEFINED;

}