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

opengl.model.hexagon_column: Add new texturing.

Browse Source
This commit is contained in:
Rod Kay
2025-09-21 10:54:00 +10:00
parent 0f99def0cd
commit aa5ff988fa
4 changed files with 29 additions and 96 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
3-mid/opengl/source/lean/model/opengl-model-hexagon_column-lit_textured_rounded.ads
View File

@@ -1,6 +1,7 @@
with
openGL.Geometry,
openGL.Texture;
openGL.Texture,
openGL.Model.texturing;
package openGL.Model.hexagon_Column.lit_textured_rounded
@@ -10,7 +11,9 @@ package openGL.Model.hexagon_Column.lit_textured_rounded
-- The shaft of the column appears rounded, whereas the top and bottom appear as hexagons.
--
is
type Item is new Model.hexagon_Column.item with private;
package textured_Model is new texturing.Mixin (Model.hexagon_Column.item);
type Item is new textured_Model.textured_Item with private;
type View is access all Item'Class;
@@ -51,11 +54,12 @@ is
private
type Item is new Model.hexagon_Column.item with
type Item is new textured_Model.textured_Item with
record
upper_Face,
lower_Face : hex_Face;
Shaft : shaft_Face;
end record;
end openGL.Model.hexagon_Column.lit_textured_rounded;