opengl.renderer.lean: Set a 'max_Geometries' constant.

This commit is contained in:
Rod Kay
2023-05-07 12:19:38 +10:00
parent 8d7f78b74f
commit 14dc31a6f6

View File

@@ -120,7 +120,10 @@ private
type Camera_view is access all openGL.Camera.item'Class; 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 -- Updates
@@ -275,8 +278,8 @@ private
Textures : aliased Texture.name_Map_of_texture; Textures : aliased Texture.name_Map_of_texture;
Fonts : Font.font_id_Map_of_font; Fonts : Font.font_id_Map_of_font;
all_opaque_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_Visuals); all_lucid_Couples : visual_geometry_Couples_view := new visual_geometry_Couples (1 .. max_Geometries);
obsolete_Models : safe_Models; obsolete_Models : safe_Models;
obsolete_Impostors : safe_Impostors; obsolete_Impostors : safe_Impostors;