Add initial prototype.

3-mid/opengl/applet/demo/models/render_asteroids/launch_render_asteroids.adb

@@ -0,0 +1,95 @@
+with
+     openGL.Model.any,
+     openGL.Visual,
+     openGL.Light.directional,
+     openGL.Demo;
+
+procedure launch_render_Asteroids
+--
+--  Render with a few asteroids.
+--
+is
+   use openGL,
+       openGL.Math,
+       openGL.linear_Algebra_3d;
+
+begin
+   Demo.define      ("openGL 'Render Asteroids' Demo");
+   Demo.print_Usage ("Use space ' ' to cycle through models.");
+   Demo.Camera.Position_is ((0.0, 0.0, 200.0),
+                            y_Rotation_from (to_Radians (0.0)));
+
+   declare
+      the_Light : openGL.Light.directional.item := Demo.Renderer.Light (1);
+   begin
+      the_Light.Site_is ((5_000.0, 2_000.0, 5_000.0));
+      Demo.Renderer.Light_is (1, the_Light);
+   end;
+
+   declare
+      --  The models.
+      --
+
+      gaspra_Model : constant openGL.Model.any.view := openGL.Model.any.new_Model (Model            => to_Asset ("assets/gaspra.tab"),
+                                                                                   Texture          => null_Asset,
+                                                                                   Texture_is_lucid => False);
+      the_Models   : constant openGL.Model.views    := (1 => gaspra_Model.all'unchecked_Access);
+
+      --  The visuals.
+      --
+      use openGL.Visual.Forge;
+
+      the_Visuals : openGL.Visual.views (the_Models'Range);
+      Current     : Integer := the_Visuals'First;
+
+   begin
+      for i in the_Visuals'Range
+      loop
+         the_Visuals (i) := new_Visual (the_Models (i));
+      end loop;
+
+      --  Main loop.
+      --
+      while not Demo.Done
+      loop
+         Demo.Dolly.evolve;
+         Demo.Done := Demo.Dolly.quit_Requested;
+
+         declare
+            Command : Character;
+            Avail   : Boolean;
+         begin
+            Demo.Dolly.get_last_Character (Command, Avail);
+
+            if Avail
+            then
+               case Command
+               is
+               when ' ' =>
+                  if     Current  = the_Visuals'Last
+                  then   Current := the_Visuals'First;
+                  else   Current := Current + 1;
+                  end if;
+
+               when others =>
+                  null;
+               end case;
+            end if;
+         end;
+
+         --  Render all visuals.
+         --
+         Demo.Camera.render ((1 => the_Visuals (Current)));
+
+         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_render_Asteroids;

3-mid/opengl/applet/demo/models/render_asteroids/render_asteroids.gpr

@@ -0,0 +1,16 @@
+with
+     "opengl_demo",
+     "lace_shared"; 
+
+project render_Asteroids
+is
+   for Object_Dir use "build";
+   for Exec_Dir   use ".";
+   for Main       use ("launch_render_asteroids.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 render_Asteroids;