Add initial prototype.

4-high/gel/applet/tute/pong/1-basic_applet_window/launch_pong_tute.adb

@@ -0,0 +1,46 @@
+with
+     gel.Window.setup,
+     gel.Applet.gui_world,
+     gel.Forge,
+     gel.World,
+     gel.Camera,
+
+     Physics;
+
+pragma Unreferenced (gel.Window.setup);
+
+
+procedure launch_Pong_Tute
+--
+--  Basic pong game.
+--
+is
+   use gel.Applet,
+       gel.Applet.gui_world;
+
+   --- Applet
+   --
+   the_Applet : gel.Applet.gui_world.view
+     := gel.Forge.new_gui_Applet (Named         => "Pong Tutorial",
+                                  window_Width  => 800,
+                                  window_Height => 600,
+                                  space_Kind    => physics.Box2d);
+   --- Controls
+   --
+   Cycle : Natural := 0;
+
+begin
+   the_Applet.Camera.Site_is   ([0.0, 0.0, 20.0]);
+
+   --- Main loop.
+   --
+   while the_Applet.is_open
+   loop
+      Cycle := Cycle + 1;
+
+      the_Applet.World.evolve;     -- Advance the world.
+      the_Applet.freshen;          -- Handle any new events and update the screen.
+   end loop;
+
+   free (the_Applet);
+end launch_Pong_Tute;

4-high/gel/applet/tute/pong/1-basic_applet_window/pong_tute.gpr

@@ -0,0 +1,17 @@
+with 
+     "gel",
+     "lace_shared";
+
+project pong_Tute
+is
+   for Object_Dir use "build";
+   for Exec_Dir   use ".";
+   for Main       use ("launch_pong_tute.adb");
+   for Languages  use ("Ada");
+
+   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 pong_Tute;

4-high/gel/applet/tute/pong/1-basic_applet_window/tute.txt

@@ -0,0 +1,3 @@
+Tute 1 ~ Create a basic applet & window.
+
+