Add initial prototype.

4-high/gel/source/applet/gel-applet-gui_and_sim_world.ads

@@ -0,0 +1,48 @@
+with
+     gel.World,
+     gel.Camera,
+     gel.Window;
+
+
+package gel.Applet.gui_and_sim_world
+--
+-- Provides an applet configured with a single window and
+-- two worlds (generally a simulation world and a gui world).
+--
+is
+   type Item is limited new gel.Applet.item with private;
+   type View is access all Item'Class;
+
+
+   package Forge
+   is
+      function  to_Applet (Name       : in String;
+                           use_Window : in gel.Window.view) return Item;
+      function new_Applet (Name       : in String;
+                           use_Window : in gel.Window.view) return View;
+   end Forge;
+
+
+   gui_world_Id  : constant gel. world_Id := 1;
+   gui_camera_Id : constant gel.camera_Id := 1;
+
+   sim_world_Id  : constant gel. world_Id := 2;
+   sim_camera_Id : constant gel.camera_Id := 1;
+
+
+   function gui_World  (Self : in Item) return gel.World .view;
+   function gui_Camera (Self : in Item) return gel.Camera.view;
+
+   function sim_World  (Self : in Item) return gel.World .view;
+   function sim_Camera (Self : in Item) return gel.Camera.view;
+
+
+
+private
+
+   type Item is limited new gel.Applet.item with
+      record
+         null;
+      end record;
+
+end gel.Applet.gui_and_sim_world;