From 77512c22470bd134bfc94fb8ae5f3af6aab7e660 Mon Sep 17 00:00:00 2001
From: Rod Kay <rodakay5@gmail.com>
Date: Sat, 21 Oct 2023 14:27:30 +1100
Subject: [PATCH] gel.forge.new_circle_sprite: Add color.

---
 4-high/gel/source/forge/gel-forge.adb | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/4-high/gel/source/forge/gel-forge.adb b/4-high/gel/source/forge/gel-forge.adb
index 42ec246..926df80 100644
--- a/4-high/gel/source/forge/gel-forge.adb
+++ b/4-high/gel/source/forge/gel-forge.adb
@@ -140,9 +140,10 @@ is
       if Texture = openGL.null_Asset
       then
          the_graphics_Model := openGL.Model.sphere.lit_colored.new_Sphere (Radius,
-                                                                           Color => (Color, openGL.Opaque)).all'Access;
+                                                                           Color => (Color, Opaque)).all'Access;
       else
          the_graphics_Model := openGL.Model.sphere.lit_colored_textured.new_Sphere (Radius,
+                                                                                    Color => (Color, Opaque),
                                                                                     Image => Texture).all'Access;
       end if;