#include "matrix4.h"
#include "scene-node.h"
#include "vector3d.h"
+#include "wrapped.h"
using namespace irr;
ISceneNode_addAnimator (SCM scene_node,
SCM animator)
{
- TSceneNode node = (TSceneNode) scm_to_pointer (scene_node);
- node->addAnimator ((scene::ISceneNodeAnimator*) scm_to_pointer (animator));
+ TSceneNode node = (TSceneNode) scm_to_irr_pointer (scene_node);
+ node->addAnimator ((scene::ISceneNodeAnimator*) scm_to_irr_pointer (animator));
return SCM_UNSPECIFIED;
}
SCM
ISceneNode_getAbsoluteTransformation (SCM scene_node)
{
- TSceneNode node = (TSceneNode) scm_to_pointer (scene_node);
+ TSceneNode node = (TSceneNode) scm_to_irr_pointer (scene_node);
return scm_from_matrix4 (node->getAbsoluteTransformation ());
}
SCM
ISceneNode_getPosition (SCM scene_node)
{
- TSceneNode node = (TSceneNode) scm_to_pointer (scene_node);
+ TSceneNode node = (TSceneNode) scm_to_irr_pointer (scene_node);
return scm_from_vector3df (node->getPosition ());
}
SCM flag,
SCM newvalue)
{
- TSceneNode node = (TSceneNode) scm_to_pointer (scene_node);
+ TSceneNode node = (TSceneNode) scm_to_irr_pointer (scene_node);
node->setMaterialFlag (scm_to_material_flag (flag), scm_to_bool (newvalue));
return SCM_UNSPECIFIED;
}
SCM texture_layer,
SCM texture)
{
- TSceneNode node = (TSceneNode) scm_to_pointer (scene_node);
+ TSceneNode node = (TSceneNode) scm_to_irr_pointer (scene_node);
node->setMaterialTexture (scm_to_uint32 (texture_layer),
- (video::ITexture*) scm_to_pointer (texture));
+ (video::ITexture*) scm_to_irr_pointer (texture));
return SCM_UNSPECIFIED;
}
ISceneNode_setPosition (SCM scene_node,
SCM position)
{
- TSceneNode node = (TSceneNode) scm_to_pointer (scene_node);
+ TSceneNode node = (TSceneNode) scm_to_irr_pointer (scene_node);
node->setPosition (scm_to_vector3df (position));
return SCM_UNSPECIFIED;
}
ISceneNode_setRotation (SCM scene_node,
SCM rotation)
{
- TSceneNode node = (TSceneNode) scm_to_pointer (scene_node);
+ TSceneNode node = (TSceneNode) scm_to_irr_pointer (scene_node);
node->setRotation (scm_to_vector3df (rotation));
return SCM_UNSPECIFIED;
}
ISceneNode_setScale (SCM scene_node,
SCM scale)
{
- TSceneNode node = (TSceneNode) scm_to_pointer (scene_node);
+ TSceneNode node = (TSceneNode) scm_to_irr_pointer (scene_node);
node->setScale (scm_to_vector3df (scale));
return SCM_UNSPECIFIED;
}