From e27c3482479e2b548500ef1c376b37a23f4cf3d2 Mon Sep 17 00:00:00 2001
From: Rod Kay <rodakay5@gmail.com>
Date: Wed, 28 Feb 2024 19:40:32 +1100
Subject: [PATCH] opengl: Add 'no_Shine' constant.

---
 3-mid/opengl/source/opengl.ads | 18 +++++++++++++++---
 1 file changed, 15 insertions(+), 3 deletions(-)

diff --git a/3-mid/opengl/source/opengl.ads b/3-mid/opengl/source/opengl.ads
index caf59ce..8327ae3 100644
--- a/3-mid/opengl/source/opengl.ads
+++ b/3-mid/opengl/source/opengl.ads
@@ -230,13 +230,17 @@ is
    no_lucid_Color : constant lucid_Color;
 
 
+   function to_Color (From : in rgb_Color) return Color;
+
+
+   -- Shine
+   --
    subtype Shine is Real range 1.0 .. Real'Last;
 
-   default_Shine : constant := 0.05;
+   no_Shine      : constant Shine;
+   default_Shine : constant Shine;     -- Defaults to no shine.
 
 
-   function to_Color (From : in rgb_Color) return Color;
-
 
    ----------
    --  Images
@@ -248,6 +252,7 @@ is
    function to_Image (From : in lucid_Image) return Image;
 
 
+
    -----------
    --  Texture
    --
@@ -398,6 +403,13 @@ private
    type rgba_Colors is array (Index_t range <>) of rgba_Color;
 
 
+   -- Shine
+   --
+   no_Shine      : constant Shine := Shine'Last;
+   default_Shine : constant Shine := no_Shine;
+
+
+
    -- Conversions
    --
    function to_Color (Red, Green, Blue : in Primary) return rgb_Color;