+ return scm_from_matrix4 (node->getAbsoluteTransformation ());
+ }
+
+ SCM
+ irr_scene_getPosition (SCM wrapped_scene_node)
+ {
+#define GET_POSITION(NODE) scm_from_vector3df (NODE->getPosition ());
+
+ if (scene_node_p (wrapped_scene_node))
+ {
+ return GET_POSITION (unwrap_scene_node (wrapped_scene_node));
+ }
+ else if (mesh_scene_node_p (wrapped_scene_node))
+ {
+ return GET_POSITION (unwrap_mesh_scene_node (wrapped_scene_node));
+ }
+ else
+ {
+ scm_error (scm_arg_type_key, NULL, "Cannot get position from object: ~S",
+ scm_list_1 (wrapped_scene_node), scm_list_1 (wrapped_scene_node));
+ }
+ }
+
+ SCM
+ irr_scene_ISceneNode_setMaterialFlag (SCM wrapped_scene_node,
+ SCM flag,
+ SCM newvalue)
+ {
+#define SET_MATERIAL_FLAG(NODE) NODE->setMaterialFlag (scm_to_material_flag (flag), \
+ scm_to_bool (newvalue));
+
+ if (animated_mesh_scene_node_p (wrapped_scene_node))
+ {
+ SET_MATERIAL_FLAG (unwrap_animated_mesh_scene_node (wrapped_scene_node));
+ }
+ else if (mesh_scene_node_p (wrapped_scene_node))
+ {
+ SET_MATERIAL_FLAG (unwrap_mesh_scene_node (wrapped_scene_node));
+ }
+ else if (scene_node_p (wrapped_scene_node))
+ {
+ SET_MATERIAL_FLAG (unwrap_scene_node (wrapped_scene_node));
+ }
+ else
+ {
+ scm_error (scm_arg_type_key, NULL, "Cannot set material flag to object: ~S",
+ scm_list_1 (wrapped_scene_node), scm_list_1 (wrapped_scene_node));
+ }
+