From: Javier Sancho <jsf@jsancho.org>
Date: Sun, 15 Mar 2020 18:27:14 +0000 (+0100)
Subject: set-material-flag!
X-Git-Url: https://git.jsancho.org/?p=guile-irrlicht.git;a=commitdiff_plain;h=2ffd7c24faa64f27fe9574a3fc25b4bdfc86c6c8

set-material-flag!
---

diff --git a/src/material-flags.cpp b/src/material-flags.cpp
index 788a305..d700e4c 100644
--- a/src/material-flags.cpp
+++ b/src/material-flags.cpp
@@ -21,6 +21,7 @@
 
 #include <irrlicht/irrlicht.h>
 #include <libguile.h>
+#include "animated-mesh-scene-node.h"
 #include "material-flags.h"
 #include "scene-node.h"
 
@@ -37,7 +38,12 @@ extern "C" {
                              SCM flag,
                              SCM newvalue)
   {
-    if (scene_node_p (wrapped_obj))
+    if (animated_mesh_scene_node_p (wrapped_obj))
+      {
+        unwrap_animated_mesh_scene_node (wrapped_obj)->setMaterialFlag (scm_to_material_flag (flag),
+                                                                        scm_to_bool (newvalue));
+      }
+    else if (scene_node_p (wrapped_obj))
       {
         unwrap_scene_node (wrapped_obj)->setMaterialFlag (scm_to_material_flag (flag),
                                                           scm_to_bool (newvalue));