+ SCM
+ irr_setMaterialFlag (SCM wrapped_obj,
+ SCM flag,
+ SCM newvalue)
+ {
+ if (mesh_scene_node_p (wrapped_obj) || scene_node_p (wrapped_obj))
+ {
+ return irr_scene_ISceneNode_setMaterialFlag (wrapped_obj, flag, newvalue);
+ }
+ else
+ {
+ scm_error (scm_arg_type_key, NULL, "Cannot set material flag to object: ~S",
+ scm_list_1 (wrapped_obj), scm_list_1 (wrapped_obj));
+ }
+ }
+