+#include "vector3d.h"
+
+
+using namespace irr;
+
+
+template <typename TSceneNode>
+SCM
+scene_ISceneNode_addAnimator (SCM scene_node,
+ SCM animator)
+{
+ TSceneNode node = (TSceneNode) scm_to_pointer (scene_node);
+ node->addAnimator (unwrap_scene_node_animator (animator));
+ return SCM_UNSPECIFIED;
+}
+
+
+template <typename TSceneNode>
+SCM
+scene_ISceneNode_getAbsoluteTransformation (SCM scene_node)
+{
+ TSceneNode node = (TSceneNode) scm_to_pointer (scene_node);
+ return scm_from_matrix4 (node->getAbsoluteTransformation ());
+}
+
+
+template <typename TSceneNode>
+SCM
+scene_ISceneNode_getPosition (SCM scene_node)
+{
+ TSceneNode node = (TSceneNode) scm_to_pointer (scene_node);
+ return scm_from_vector3df (node->getPosition ());
+}
+
+
+template <typename TSceneNode>
+SCM
+scene_ISceneNode_setMaterialFlag (SCM scene_node,
+ SCM flag,
+ SCM newvalue)
+{
+ TSceneNode node = (TSceneNode) scm_to_pointer (scene_node);
+ node->setMaterialFlag (scm_to_material_flag (flag), scm_to_bool (newvalue));
+ return SCM_UNSPECIFIED;
+}
+
+
+template <typename TSceneNode>
+SCM
+scene_ISceneNode_setMaterialTexture (SCM scene_node,
+ SCM texture_layer,
+ SCM texture)
+{
+ TSceneNode node = (TSceneNode) scm_to_pointer (scene_node);
+ node->setMaterialTexture (scm_to_uint32 (texture_layer),
+ (video::ITexture*) scm_to_pointer (texture));
+ return SCM_UNSPECIFIED;
+}
+
+
+template <typename TSceneNode>
+SCM
+scene_ISceneNode_setPosition (SCM scene_node,
+ SCM position)
+{
+ TSceneNode node = (TSceneNode) scm_to_pointer (scene_node);
+ node->setPosition (scm_to_vector3df (position));
+ return SCM_UNSPECIFIED;
+}
+
+
+template <typename TSceneNode>
+SCM
+scene_ISceneNode_setRotation (SCM scene_node,
+ SCM rotation)
+{
+ TSceneNode node = (TSceneNode) scm_to_pointer (scene_node);
+ node->setRotation (scm_to_vector3df (rotation));
+ return SCM_UNSPECIFIED;
+}
+
+
+template <typename TSceneNode>
+SCM
+scene_ISceneNode_setScale (SCM scene_node,
+ SCM scale)
+{
+ TSceneNode node = (TSceneNode) scm_to_pointer (scene_node);
+ node->setScale (scm_to_vector3df (scale));
+ return SCM_UNSPECIFIED;
+}
+