From 14dc31a6f6ed55860b30502c2dae48ad6d84b423 Mon Sep 17 00:00:00 2001 From: Rod Kay Date: Sun, 7 May 2023 12:19:38 +1000 Subject: [PATCH] opengl.renderer.lean: Set a 'max_Geometries' constant. --- .../opengl/source/lean/renderer/opengl-renderer-lean.ads | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/3-mid/opengl/source/lean/renderer/opengl-renderer-lean.ads b/3-mid/opengl/source/lean/renderer/opengl-renderer-lean.ads index 7dc7ee4..32fd8fe 100644 --- a/3-mid/opengl/source/lean/renderer/opengl-renderer-lean.ads +++ b/3-mid/opengl/source/lean/renderer/opengl-renderer-lean.ads @@ -120,7 +120,10 @@ private type Camera_view is access all openGL.Camera.item'Class; - max_Visuals : constant := 20_000; + max_Visuals : constant := 20_000; + max_Geometries : constant := max_Visuals * 6; + + ---------- -- Updates @@ -275,8 +278,8 @@ private Textures : aliased Texture.name_Map_of_texture; Fonts : Font.font_id_Map_of_font; - all_opaque_Couples : visual_geometry_Couples_view := new visual_geometry_Couples (1 .. max_Visuals); - all_lucid_Couples : visual_geometry_Couples_view := new visual_geometry_Couples (1 .. max_Visuals); + all_opaque_Couples : visual_geometry_Couples_view := new visual_geometry_Couples (1 .. max_Geometries); + all_lucid_Couples : visual_geometry_Couples_view := new visual_geometry_Couples (1 .. max_Geometries); obsolete_Models : safe_Models; obsolete_Impostors : safe_Impostors;