opengl: Add texture animation.

2024-09-24 13:45:18 +10:00
parent d0e3870346
commit ab36317bd2
11 changed files with 259 additions and 54 deletions
--- a/3-mid/opengl/source/lean/model/opengl-model-circle-lit_textured.adb
+++ b/3-mid/opengl/source/lean/model/opengl-model-circle-lit_textured.adb
@@ -91,6 +91,22 @@ is



+   overriding
+   procedure animate (Self : in out Item)
+   is
+      use type texture_Set.Animation_view;
+   begin
+      if Self.Face.Animation = null
+      then
+         return;
+      end if;
+
+      texture_Set.animate (Self.Face.Animation.all,
+                           Self.Face.texture_Applies);
+   end animate;
+
+
+
   ---------------------
   --- openGL Geometries
   --