opengl.demo: Add texture tiling for polygons.

2024-02-13 17:05:53 +11:00
parent 009f0e1167
commit f9c00d89a9
1 changed files with 4 additions and 3 deletions
--- a/3-mid/opengl/source/demo/opengl-demo.adb
+++ b/3-mid/opengl/source/demo/opengl-demo.adb
@@ -254,6 +254,7 @@ is
        := Model.polygon.lit_textured.new_Polygon (vertex_Sites => [Origin_2D, [1.0, 0.0], [1.0, 1.0], [-1.0, 0.5]],
                                                   Face         => (Fades          => (1 => 0.0,         others => <>),
                                                                    Textures       => (1 => the_Texture, others => <>),
+                                                                    texture_Tiling => <>,
                                                                    texture_Count  => 1));

      the_text_Model : constant Model.Text.lit_colored.view