Add initial prototype.

4-high/gel/source/forge/gel-camera-forge.adb

@@ -0,0 +1,23 @@
+package body gel.Camera.forge
+is
+
+   function new_Camera return gel.Camera.item
+   is
+   begin
+      return the_Camera : gel.Camera.item
+      do
+         define (the_Camera);
+      end return;
+   end new_Camera;
+
+
+
+   function new_Camera return gel.Camera.view
+   is
+      Self : constant gel.Camera.view := new gel.Camera.item;
+   begin
+      Self.define;
+      return Self;
+   end new_Camera;
+
+end gel.Camera.forge;