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

opengl: Add 'no_Shine' constant.

Browse Source
This commit is contained in:
Rod Kay
2024-02-28 19:40:32 +11:00
parent 144512b5fe
commit e27c348247
1 changed files with 15 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
3-mid/opengl/source/opengl.ads
View File

@@ -230,13 +230,17 @@ is
no_lucid_Color : constant lucid_Color; 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; 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 -- Images
@@ -248,6 +252,7 @@ is
function to_Image (From : in lucid_Image) return Image; function to_Image (From : in lucid_Image) return Image;
----------- -----------
-- Texture -- Texture
-- --
@@ -398,6 +403,13 @@ private
type rgba_Colors is array (Index_t range <>) of rgba_Color; 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 -- Conversions
-- --
function to_Color (Red, Green, Blue : in Primary) return rgb_Color; function to_Color (Red, Green, Blue : in Primary) return rgb_Color;