src/scene-node.cpp

   1 /* guile-irrlicht --- GNU Guile bindings for Irrlicht Engine
   2
   3    Copyright (C) 2020 Javier Sancho <jsf@jsancho.org>
   4
   5    This file is part of guile-irrlicht.
   6
   7    guile-irrlicht is free software; you can redistribute it and/or modify
   8    it under the terms of the GNU Lesser General Public License as
   9    published by the Free Software Foundation; either version 3 of the
  10    License, or (at your option) any later version.
  11
  12    guile-irrlicht is distributed in the hope that it will be useful, but
  13    WITHOUT ANY WARRANTY; without even the implied warranty of
  14    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  15    General Public License for more details.
  16
  17    You should have received a copy of the GNU Lesser General Public
  18    License along with guile-irrlicht. If not, see
  19    <http://www.gnu.org/licenses/>.
  20 */
  21
  22 #include <irrlicht/irrlicht.h>
  23 #include <libguile.h>
  24 #include "gsubr.h"
  25 #include "material-flags.h"
  26 #include "matrix4.h"
  27 #include "scene-node.h"
  28 #include "vector3d.h"
  29
  30
  31 using namespace irr;
  32
  33
  34 template <typename TSceneNode>
  35 SCM
  36 scene_ISceneNode_addAnimator (SCM scene_node,
  37                               SCM animator)
  38 {
  39   TSceneNode node = (TSceneNode) scm_to_pointer (scene_node);
  40   node->addAnimator ((scene::ISceneNodeAnimator*) scm_to_pointer (animator));
  41   return SCM_UNSPECIFIED;
  42 }
  43
  44
  45 template <typename TSceneNode>
  46 SCM
  47 scene_ISceneNode_getAbsoluteTransformation (SCM scene_node)
  48 {
  49   TSceneNode node = (TSceneNode) scm_to_pointer (scene_node);
  50   return scm_from_matrix4 (node->getAbsoluteTransformation ());
  51 }
  52
  53
  54 template <typename TSceneNode>
  55 SCM
  56 scene_ISceneNode_getPosition (SCM scene_node)
  57 {
  58   TSceneNode node = (TSceneNode) scm_to_pointer (scene_node);
  59   return scm_from_vector3df (node->getPosition ());
  60 }
  61
  62
  63 template <typename TSceneNode>
  64 SCM
  65 scene_ISceneNode_setMaterialFlag (SCM scene_node,
  66                                   SCM flag,
  67                                   SCM newvalue)
  68 {
  69   TSceneNode node = (TSceneNode) scm_to_pointer (scene_node);
  70   node->setMaterialFlag (scm_to_material_flag (flag), scm_to_bool (newvalue));
  71   return SCM_UNSPECIFIED;
  72 }
  73
  74
  75 template <typename TSceneNode>
  76 SCM
  77 scene_ISceneNode_setMaterialTexture (SCM scene_node,
  78                                      SCM texture_layer,
  79                                      SCM texture)
  80 {
  81   TSceneNode node = (TSceneNode) scm_to_pointer (scene_node);
  82   node->setMaterialTexture (scm_to_uint32 (texture_layer),
  83                             (video::ITexture*) scm_to_pointer (texture));
  84   return SCM_UNSPECIFIED;
  85 }
  86
  87
  88 template <typename TSceneNode>
  89 SCM
  90 scene_ISceneNode_setPosition (SCM scene_node,
  91                               SCM position)
  92 {
  93   TSceneNode node = (TSceneNode) scm_to_pointer (scene_node);
  94   node->setPosition (scm_to_vector3df (position));
  95   return SCM_UNSPECIFIED;
  96 }
  97
  98
  99 template <typename TSceneNode>
 100 SCM
 101 scene_ISceneNode_setRotation (SCM scene_node,
 102                               SCM rotation)
 103 {
 104   TSceneNode node = (TSceneNode) scm_to_pointer (scene_node);
 105   node->setRotation (scm_to_vector3df (rotation));
 106   return SCM_UNSPECIFIED;
 107 }
 108
 109
 110 template <typename TSceneNode>
 111 SCM
 112 scene_ISceneNode_setScale (SCM scene_node,
 113                            SCM scale)
 114 {
 115   TSceneNode node = (TSceneNode) scm_to_pointer (scene_node);
 116   node->setScale (scm_to_vector3df (scale));
 117   return SCM_UNSPECIFIED;
 118 }
 119
 120
 121 extern "C" {
 122
 123   void
 124   init_scene_node (void)
 125   {
 126     DEFINE_GSUBR ("scene_IAnimatedMeshSceneNode_addAnimator", 2, 0, 0,
 127                   scene_ISceneNode_addAnimator<scene::IAnimatedMeshSceneNode*>);
 128     DEFINE_GSUBR ("scene_IMeshSceneNode_addAnimator", 2, 0, 0,
 129                   scene_ISceneNode_addAnimator<scene::IMeshSceneNode*>);
 130     DEFINE_GSUBR ("scene_ISceneNode_addAnimator", 2, 0, 0,
 131                   scene_ISceneNode_addAnimator<scene::ISceneNode*>);
 132
 133     DEFINE_GSUBR ("scene_ISceneNode_getAbsoluteTransformation", 1, 0, 0,
 134                   scene_ISceneNode_getAbsoluteTransformation<scene::ISceneNode*>);
 135
 136     DEFINE_GSUBR ("scene_IMeshSceneNode_getPosition", 1, 0, 0,
 137                   scene_ISceneNode_getPosition<scene::IMeshSceneNode*>);
 138     DEFINE_GSUBR ("scene_ISceneNode_getPosition", 1, 0, 0,
 139                   scene_ISceneNode_getPosition<scene::ISceneNode*>);
 140
 141     DEFINE_GSUBR ("scene_IAnimatedMeshSceneNode_setMaterialFlag", 3, 0, 0,
 142                   scene_ISceneNode_setMaterialFlag<scene::IAnimatedMeshSceneNode*>);
 143     DEFINE_GSUBR ("scene_IMeshSceneNode_setMaterialFlag", 3, 0, 0,
 144                   scene_ISceneNode_setMaterialFlag<scene::IMeshSceneNode*>);
 145     DEFINE_GSUBR ("scene_ISceneNode_setMaterialFlag", 3, 0, 0,
 146                   scene_ISceneNode_setMaterialFlag<scene::ISceneNode*>);
 147
 148     DEFINE_GSUBR ("scene_IAnimatedMeshSceneNode_setMaterialTexture", 3, 0, 0,
 149                   scene_ISceneNode_setMaterialTexture<scene::IAnimatedMeshSceneNode*>);
 150     DEFINE_GSUBR ("scene_IMeshSceneNode_setMaterialTexture", 3, 0, 0,
 151                   scene_ISceneNode_setMaterialTexture<scene::IMeshSceneNode*>);
 152     DEFINE_GSUBR ("scene_ISceneNode_setMaterialTexture", 3, 0, 0,
 153                   scene_ISceneNode_setMaterialTexture<scene::ISceneNode*>);
 154
 155     DEFINE_GSUBR ("scene_IMeshSceneNode_setPosition", 2, 0, 0,
 156                   scene_ISceneNode_setPosition<scene::IMeshSceneNode*>);
 157     DEFINE_GSUBR ("scene_ISceneNode_setPosition", 2, 0, 0,
 158                   scene_ISceneNode_setPosition<scene::ISceneNode*>);
 159
 160     DEFINE_GSUBR ("scene_IAnimatedMeshSceneNode_setRotation", 2, 0, 0,
 161                   scene_ISceneNode_setRotation<scene::IAnimatedMeshSceneNode*>);
 162     DEFINE_GSUBR ("scene_ICameraSceneNode_setRotation", 2, 0, 0,
 163                   scene_ISceneNode_setRotation<scene::ICameraSceneNode*>);
 164     DEFINE_GSUBR ("scene_ISceneNode_setRotation", 2, 0, 0,
 165                   scene_ISceneNode_setRotation<scene::ISceneNode*>);
 166
 167     DEFINE_GSUBR ("scene_IAnimatedMeshSceneNode_setScale", 2, 0, 0,
 168                   scene_ISceneNode_setScale<scene::IAnimatedMeshSceneNode*>);
 169     DEFINE_GSUBR ("scene_ISceneNode_setScale", 2, 0, 0,
 170                   scene_ISceneNode_setScale<scene::ISceneNode*>);
 171   }
 172
 173 }