nichkara/lace
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

opengl.demo: Add texture tiling for polygons.

Browse Source
This commit is contained in:
Rod Kay
2024-02-13 17:05:53 +11:00
parent 009f0e1167
commit f9c00d89a9
1 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
3-mid/opengl/source/demo/opengl-demo.adb
View File

@@ -252,9 +252,10 @@ is
the_lit_textured_polygon_Model : constant Model.polygon.lit_textured.view 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]], := 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 => <>), Face => (Fades => (1 => 0.0, others => <>),
Textures => (1 => the_Texture, others => <>), Textures => (1 => the_Texture, others => <>),
texture_Count => 1)); texture_Tiling => <>,
texture_Count => 1));
the_text_Model : constant Model.Text.lit_colored.view the_text_Model : constant Model.Text.lit_colored.view
:= Model.Text.lit_colored.new_Text (Text => "Once upon a midnight dreary ...", := Model.Text.lit_colored.new_Text (Text => "Once upon a midnight dreary ...",