opengl.geometry.texturing: Make 'fade_Level' atomic.

2023-05-16 15:30:55 +10:00
parent 139cb01643
commit 65ac65b204
2 changed files with 7 additions and 3 deletions
--- a/3-mid/opengl/source/lean/geometry/opengl-geometry-texturing.ads
+++ b/3-mid/opengl/source/lean/geometry/opengl-geometry-texturing.ads
@@ -10,7 +10,9 @@ package openGL.Geometry.texturing
 --
 is

-   type fade_Level  is delta 0.001 range 0.0 .. 1.0;                -- '0.0' is no fading, '1.0' is fully faded (ie invisible).
+   type fade_Level  is delta 0.001 range 0.0 .. 1.0      -- '0.0' is no fading, '1.0' is fully faded (ie invisible).
+     with Atomic;
+
   type fade_Levels is array (texture_Id range <>) of fade_Level;