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

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

@@ -10,6 +10,7 @@ with
openGL.Model.capsule .lit_textured,
openGL.Model.grid,
openGL.Model.hexagon .lit_colored,
openGL.Model.hexagon .lit_textured,
openGL.Model.hexagon_Column.lit_colored_faceted,
openGL.Model.hexagon_Column.lit_colored_rounded,
openGL.Model.line .colored,
@@ -168,6 +169,10 @@ is
Face => (center_Color => (Green, 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
:= Model.hexagon_Column.lit_colored_faceted.new_hexagon_Column
(Radius => 0.25,
@@ -255,15 +260,17 @@ is
the_capsule_Model.all'Access,
the_grid_Model.all'Access,
the_hexagon_Model.all'Access,
the_faceted_hexagon_column_Model.all'Access,
the_rounded_hexagon_column_Model.all'Access,
the_hexagon_Model.all'Access,
the_textured_hexagon_Model.all'Access,
the_line_Model.all'Access,
the_collada_Model.all'Access,
the_wavefront_Model.all'Access,
the_faceted_hexagon_column_Model.all'Access,
the_rounded_hexagon_column_Model.all'Access,
the_segment_line_Model.all'Access];
the_line_Model.all'Access,
the_collada_Model.all'Access,
the_wavefront_Model.all'Access,
the_segment_line_Model.all'Access];
end Models;