Add initial prototype.

3-mid/opengl/applet/demo/culler/large_terrain/large_terrain_demo.gpr

@@ -0,0 +1,16 @@
+with
+     "opengl_demo",
+     "lace_shared";
+
+project large_terrain_Demo
+is
+   for Object_Dir use "build";
+   for Exec_Dir   use ".";
+   for Main       use ("launch_large_terrain_demo.adb");
+
+   package Ide      renames Lace_shared.Ide;
+   package Builder  renames Lace_shared.Builder;
+   package Compiler renames Lace_shared.Compiler;
+   package Binder   renames Lace_shared.Binder;
+
+end large_terrain_Demo;

3-mid/opengl/applet/demo/culler/large_terrain/launch_large_terrain_demo.adb

@@ -0,0 +1,80 @@
+with
+     openGL.Visual,
+     openGL.Terrain,
+     openGL.Demo,
+     openGL.Light;
+
+
+procedure launch_large_Terrain_Demo
+--
+--  Exercise the culler with a large terrain grid.
+--
+is
+   use openGL,
+       openGL.Math,
+       openGL.linear_Algebra_3d;
+
+begin
+   Demo.print_Usage;
+   Demo.define ("openGL 'Large Terrain' Demo");
+
+   --  Setup the camera.
+   --
+   Demo.Camera.Position_is ([0.0, 100.0, 500.0],
+                            y_Rotation_from (to_Radians (0.0)));
+
+   -- Set the lights initial position to far behind and far to the left.
+   --
+   declare
+      use openGL.Light;
+      the_Light : openGL.Light.item := Demo.Renderer.new_Light;
+   begin
+      the_Light.Site_is ([0.0, 1000.0, 0.0]);
+      Demo.Renderer.set (the_Light);
+   end;
+
+
+   declare
+      Heights : constant asset_Name := to_Asset ("assets/kidwelly-terrain-510x510.png");
+      Texture : constant asset_Name := to_Asset ("assets/kidwelly-terrain-texture-255x255.png");
+
+      Terrain : constant openGL.Visual.Grid := openGL.Terrain.new_Terrain (heights_File => Heights,
+                                                                           texture_File => Texture,
+                                                                           Scale        => [1.0, 25.0, 1.0]);
+      Count   : constant Positive :=   Terrain'Length (1)
+                                     * Terrain'Length (2);
+      Last    : Natural := 0;
+      Sprites : openGL.Visual.views (1 .. Count);
+
+   begin
+      for Row in Terrain'Range (1)
+      loop
+         for Col in Terrain'Range (2)
+         loop
+            Last           := Last + 1;
+            Sprites (Last) := Terrain (Row, Col);
+         end loop;
+      end loop;
+
+
+      --  Main loop.
+      --
+      while not Demo.Done
+      loop
+         Demo.Dolly.evolve;
+         Demo.Done := Demo.Dolly.quit_Requested;
+
+         Demo.Camera.render (Sprites (1 .. Last));
+
+         while not Demo.Camera.cull_Completed
+         loop
+            delay Duration'Small;
+         end loop;
+
+         Demo.Renderer.render;
+         Demo.FPS_Counter.increment;    -- Frames per second display.
+      end loop;
+   end;
+
+   Demo.destroy;
+end launch_large_Terrain_Demo;

3-mid/opengl/applet/demo/culler/many_boxes/launch_many_boxes_demo.adb

@@ -0,0 +1,84 @@
+with
+     openGL.Palette,
+     openGL.Model.Box.lit_colored_textured,
+     openGL.Visual,
+
+     openGL.Demo;
+
+
+procedure launch_many_Boxes_Demo
+--
+--  Exercise the culler with many boxes.
+--
+is
+   use openGL,
+       openGL.Model,
+       openGL.Model.box,
+       openGL.Palette,
+       openGL.Math,
+       openGL.linear_Algebra_3d;
+
+begin
+   Demo.print_Usage;
+   Demo.define ("openGL 'many Boxes' Demo");
+
+   --  Setup the camera.
+   --
+   Demo.Camera.Position_is ([0.0, 0.0, 5.0],
+                            y_Rotation_from (to_Radians (0.0)));
+
+   declare
+      Face          : constant asset_Name := to_Asset ("assets/Face1.bmp");
+
+      the_box_Model : constant Box.lit_colored_textured.view
+        := Box.lit_colored_textured.new_Box
+          (size          => [0.5, 0.5, 0.5],
+           faces         => [front => (colors => [others => (White,    Opaque)], texture_name => Face),
+                             rear  => (colors => [others => (Blue,     Opaque)], texture_name => Face),
+                             upper => (colors => [others => (Green,    Opaque)], texture_name => Face),
+                             lower => (colors => [others => (Green,    Opaque)], texture_name => Face),
+                             left  => (colors => [others => (Dark_Red, Opaque)], texture_name => Face),
+                             right => (colors => [others => (Red,      Opaque)], texture_name => Face)]);
+
+      Size : constant Integer     :=  70;
+      x    :          openGL.Real := -openGL.Real (Size) / 2.0;
+      z    :          openGL.Real :=  0.0;
+
+      Sprites : constant Visual.views (1 .. Size * Size) := [others => Visual.Forge.new_Visual (Model.view (the_box_Model))];
+
+   begin
+      for i in Sprites'Range
+      loop
+         x := x + 1.0;
+
+         if i mod Size = 0
+         then
+            z := z - 1.0;
+            x := -openGL.Real (Size) / 2.0;
+         end if;
+
+         Sprites (i).Site_is ([x, 0.0, z]);
+      end loop;
+
+
+      --  Main loop.
+      --
+      while not Demo.Done
+      loop
+         Demo.Dolly.evolve;
+         Demo.Done := Demo.Dolly.quit_Requested;
+
+         Demo.Camera.render (Sprites);
+
+         while not Demo.Camera.cull_Completed
+         loop
+            delay Duration'Small;
+         end loop;
+
+         Demo.Renderer.render;
+         Demo.FPS_Counter.increment;    -- Frames per second display.
+      end loop;
+   end;
+
+   Demo.destroy;
+end launch_many_Boxes_Demo;

3-mid/opengl/applet/demo/culler/many_boxes/many_boxes_demo.gpr

@@ -0,0 +1,16 @@
+with 
+     "opengl_demo",
+     "lace_shared";
+
+project Many_Boxes_Demo
+is
+   for Object_Dir use "build";
+   for Exec_Dir use ".";
+   for Main use ("launch_many_boxes_demo.adb");
+
+   package Ide      renames Lace_shared.Ide;
+   package Builder  renames Lace_shared.Builder;
+   package Compiler renames Lace_shared.Compiler;
+   package Binder   renames Lace_shared.Binder;
+
+end Many_Boxes_Demo;