SCOLTerrain.cpp

Go to the documentation of this file.

/*
-----------------------------------------------------------------------------
This source file is part of OpenSpace3D
For the latest info, see http://www.openspace3d.com
 
Copyright (c) 2012 I-maginer
 
This program is free software; you can redistribute it and/or modify it under
the terms of the GNU Lesser General Public License as published by the Free Software
Foundation; either version 2 of the License, or (at your option) any later
version.
 
This program 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 Lesser General Public License for more details.
 
You should have received a copy of the GNU Lesser General Public License along with
this program; if not, write to the Free Software Foundation, Inc., 59 Temple
Place - Suite 330, Boston, MA 02111-1307, USA, or go to
http://www.gnu.org/copyleft/lesser.txt
 
-----------------------------------------------------------------------------
*/
 
 
#include "SCOLPack/SO3SCOL.h"
 
// Scene Graph includes
#include "SO3Utils/SO3Exception.h"
#include "SO3Material/SO3Material.h"
#include "SO3SceneGraph/SO3Terrain.h"
#include "SO3SceneGraph/SO3Scene.h"
 
 
 
int SO3TerrainCreate(mmachine m)
{
#ifdef SO3_DEBUG
  MMechostr(MSKDEBUG, "SO3TerrainCreate\n");
#endif
 
  int name = MMpull(m);
  int s = MMget(m, 0);
  if (s == NIL)
  {
    MMset(m, 0, NIL);
    return 0;
  }
 
  SScene* scene = MMgetPointer<SScene*>(m, MTOP(s));
  if (scene == NULL)
  {
    MMset(m, 0, NIL);
    return 0;
  }
 
  std::string sname(MMstartstr(m, MTOP(name)));
  STerrain* terrain = 0;
  try
  {
    terrain = scene->CreateTerrain(sname);
  }
  catch (Ogre::Exception &e)
  {
    MMechostr(MSKDEBUG, "An exception has occurred: %s\n", e.what());
    MMset(m, 0, NIL);
    return 0;
  }
 
  // remove last param
  MMpull(m);
  return createTerrain(m, terrain, scene);
}
 
 
int SO3TerrainDelete(mmachine m)
{
#ifdef SO3_DEBUG
  MMechostr(MSKDEBUG, "SO3TerrainDelete\n");
#endif
 
  int s = MMget(m, 0);
  if (s == NIL)
  {
    MMset(m, 0, NIL);
    return 0;
  }
 
  OBJdelTM(m, SO3TERRAINTYPE, s);
  MMset(m, 0, ITOM(1));
  return 0;
}
 
 
int SO3TerrainSetHeightMap(mmachine m)
{
#ifdef SO3_DEBUG
  MMechostr(MSKDEBUG, "SO3TerrainSetHeightMap\n");
#endif
 
  int maxbs = MTOI(MMpull(m));
  int minbs = MTOI(MMpull(m));
  float scale = MTOF(MMpull(m));
  float size = MTOF(MMpull(m));
  int file = MMpull(m);
  int t = MMget(m, 0);
 
  if ((t == NIL) || (file == NIL))
  {
    MMset(m, 0, NIL);
    return 0;
  }
 
  string pathStd = MMstartstr(m, MTOP(file));
  for (unsigned int i = 0; i < pathStd.length(); i++)
  {
    if (pathStd.substr(i, 1) == "\\")
      pathStd.replace(i, 1, "/");
  }
 
  STerrain* terrain = MMgetPointer<STerrain*>(m, MTOP(t));
  if (terrain == NULL)
  {
    MMset(m, 0, NIL);
    return 0;
  }
 
  if (size <= 0.0f)
    size = 100.0f;
 
  if (scale <= 0.0f)
    scale = 1.0f;
 
  if (minbs <= 0)
    minbs = 33;
 
  if (maxbs <= minbs)
    maxbs = minbs * 2 + 1;
 
  if (!terrain->DefineHeightMap(pathStd, size, scale, minbs, maxbs))
    MMset(m, 0, NIL);
  else
    MMset(m, 0, ITOM(1));
 
  return 0;
}
 
 
NativeDefinition natSO3Terrain[] = {
  { "SO3TerrainCreate",        2, "fun [SO3_SCENE S] SO3_TERRAIN", SO3TerrainCreate           },
  { "SO3TerrainDelete",        1, "fun [SO3_TERRAIN] I",                                   SO3TerrainDelete       },
  { "SO3TerrainSetHeightMap",  6, "fun [SO3_TERRAIN P F F I I] I", SO3TerrainSetHeightMap       }       
};
 
 
int SCOLloadTerrain(mmachine m, cbmachine w)
{
  return PKhardpak2(m, "SO3Terrain.pkg", sizeof(natSO3Terrain) / sizeof(natSO3Terrain[0]), natSO3Terrain);
}
 
 
int SCOLfreeTerrain()
{
  return 0;
}