From f9c00d89a9d063170f14c7bb7dc042fa2116f5e9 Mon Sep 17 00:00:00 2001 From: Rod Kay Date: Tue, 13 Feb 2024 17:05:53 +1100 Subject: [PATCH] opengl.demo: Add texture tiling for polygons. --- 3-mid/opengl/source/demo/opengl-demo.adb | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/3-mid/opengl/source/demo/opengl-demo.adb b/3-mid/opengl/source/demo/opengl-demo.adb index 4bdb9d4..ff8ecce 100644 --- a/3-mid/opengl/source/demo/opengl-demo.adb +++ b/3-mid/opengl/source/demo/opengl-demo.adb @@ -252,9 +252,10 @@ is the_lit_textured_polygon_Model : constant Model.polygon.lit_textured.view := 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_Count => 1)); + 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 := Model.Text.lit_colored.new_Text (Text => "Once upon a midnight dreary ...",