opengl: Cosmetics.

2025-10-22 14:11:39 +11:00
parent 3e11a52f5d
commit 50821bb787
60 changed files with 304 additions and 520 deletions
--- a/3-mid/opengl/source/demo/opengl-demo.adb
+++ b/3-mid/opengl/source/demo/opengl-demo.adb
@@ -157,6 +157,7 @@ is

      the_ball_4_Model : constant Model.sphere.lit_colored_textured.view
        := Model.sphere.lit_colored_textured.new_Sphere (Radius => 1.0,
+                                                         Color  => (Green, Opaque),
                                                         texture_Details => texture_Set.to_Set ([1 => the_Texture]),
                                                         Image => the_Texture);