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

opengl.demo: Add an 'openGL.Model.hexagon.lit_textured' sprite,

Browse Source
This commit is contained in:
Rod Kay
2023-04-28 21:53:55 +10:00
parent 11ba34d76d
commit 19a8d22d90
1 changed files with 14 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -10,6 +10,7 @@ with
openGL.Model.capsule .lit_textured, openGL.Model.capsule .lit_textured,
openGL.Model.grid, openGL.Model.grid,
openGL.Model.hexagon .lit_colored, openGL.Model.hexagon .lit_colored,
openGL.Model.hexagon .lit_textured,
openGL.Model.hexagon_Column.lit_colored_faceted, openGL.Model.hexagon_Column.lit_colored_faceted,
openGL.Model.hexagon_Column.lit_colored_rounded, openGL.Model.hexagon_Column.lit_colored_rounded,
openGL.Model.line .colored, openGL.Model.line .colored,
@@ -168,6 +169,10 @@ is
Face => (center_Color => (Green, Opaque), Face => (center_Color => (Green, Opaque),
Colors => [others => (Red, Opaque)])); Colors => [others => (Red, Opaque)]));
the_textured_hexagon_Model : constant Model.hexagon.lit_textured.view
:= Model.hexagon.lit_textured.new_Hexagon (Radius => 0.5,
Face => (Texture => the_Texture));
the_faceted_hexagon_column_Model : constant Model.hexagon_Column.lit_colored_faceted.view the_faceted_hexagon_column_Model : constant Model.hexagon_Column.lit_colored_faceted.view
:= Model.hexagon_Column.lit_colored_faceted.new_hexagon_Column := Model.hexagon_Column.lit_colored_faceted.new_hexagon_Column
(Radius => 0.25, (Radius => 0.25,
@@ -256,6 +261,8 @@ is
the_grid_Model.all'Access, the_grid_Model.all'Access,
the_hexagon_Model.all'Access, the_hexagon_Model.all'Access,
the_textured_hexagon_Model.all'Access,
the_faceted_hexagon_column_Model.all'Access, the_faceted_hexagon_column_Model.all'Access,
the_rounded_hexagon_column_Model.all'Access, the_rounded_hexagon_column_Model.all'Access,