Add initial prototype.

3-mid/opengl/applet/demo/renderer/render_screenshot/launch_render_screenshot.adb

@@ -0,0 +1,97 @@
+with
+     openGL.Model,
+     openGL.Visual,
+     openGL.Light,
+     openGL.Demo;
+
+
+procedure launch_render_Screenshot
+--
+--  Take a screenshot.
+--
+is
+   use openGL,
+       openGL.Math,
+       openGL.linear_Algebra_3d;
+
+begin
+   Demo.print_Usage ("Use 't' or 'T' to take a screenshot.");
+   Demo.define ("openGL 'Render Screenshot' Demo");
+   Demo.Camera.Position_is ([0.0, 2.0, 10.0],
+                            y_Rotation_from (to_Radians (0.0)));
+
+   declare
+      the_Light : openGL.Light.item := Demo.Renderer.new_Light;
+   begin
+      the_Light.Site_is ([5_000.0, 2_000.0, 5_000.0]);
+      Demo.Renderer.set (the_Light);
+   end;
+
+   declare
+      --  The models.
+      --
+      the_Models : constant openGL.Model.views := openGL.Demo.Models;
+
+      --  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 't' | 'T' =>
+                  Demo.Renderer.Screenshot ("sshot.bmp");
+
+               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_Screenshot;

3-mid/opengl/applet/demo/renderer/render_screenshot/render_screenshot.gpr

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