From 710fae02e774f5d1ee47966d2b419290449cd5f1 Mon Sep 17 00:00:00 2001 From: Rod Kay Date: Fri, 25 Apr 2025 15:53:03 +1000 Subject: [PATCH] openGL.Model.circle.lit_textured: Expose 'Face' attribute. --- .../lean/model/opengl-model-circle-lit_textured.adb | 9 ++++++++- .../lean/model/opengl-model-circle-lit_textured.ads | 9 ++++++--- 2 files changed, 14 insertions(+), 4 deletions(-) diff --git a/3-mid/opengl/source/lean/model/opengl-model-circle-lit_textured.adb b/3-mid/opengl/source/lean/model/opengl-model-circle-lit_textured.adb index 7c92af2..d9d3665 100644 --- a/3-mid/opengl/source/lean/model/opengl-model-circle-lit_textured.adb +++ b/3-mid/opengl/source/lean/model/opengl-model-circle-lit_textured.adb @@ -11,7 +11,7 @@ is -- function new_circle (Radius : in Real; - Face : in lit_textured.Face; + Face : in lit_textured.Face_t; Sides : in Positive := 24) return View is Self : constant View := new Item; @@ -29,6 +29,13 @@ is --- Attributes --- ------------------ + function Face (Self : in Item) return Face_t + is + begin + return Self.Face; + end Face; + + ------------ -- Texturing diff --git a/3-mid/opengl/source/lean/model/opengl-model-circle-lit_textured.ads b/3-mid/opengl/source/lean/model/opengl-model-circle-lit_textured.ads index 8639083..7fdd5c8 100644 --- a/3-mid/opengl/source/lean/model/opengl-model-circle-lit_textured.ads +++ b/3-mid/opengl/source/lean/model/opengl-model-circle-lit_textured.ads @@ -12,7 +12,7 @@ is type View is access all Item'Class; - type Face is + type Face_t is record texture_Details : texture_Set.Details; end record; @@ -23,7 +23,7 @@ is -- function new_circle (Radius : in Real; - Face : in lit_textured.Face; + Face : in lit_textured.Face_t; Sides : in Positive := 24) return View; @@ -31,6 +31,9 @@ is --- Attributes -- + function Face (Self : in Item) return Face_t; + + overriding function to_GL_Geometries (Self : access Item; Textures : access Texture.name_Map_of_texture'Class; Fonts : in Font.font_id_Map_of_font) return Geometry.views; @@ -69,7 +72,7 @@ private type Item is new Model.circle.item with record - Face : lit_textured.Face; + Face : lit_textured.Face_t; end record; end openGL.Model.circle.lit_textured;