gel.forge.new_circle_sprite: Add color.

2023-10-21 14:27:30 +11:00
parent 8ea8928fd0
commit 77512c2247
1 changed files with 2 additions and 1 deletions
--- 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;