Add initial prototype.

1-base/math/source/generic/pure/geometry/trigonometry/cached_trigonometry.ads

@@ -0,0 +1,29 @@
+generic
+   type Float_type is digits <>;
+
+   slot_Count : standard.Positive;
+
+package cached_Trigonometry
+--
+-- Caches trig functions for speed at the cost of precision.
+--
+is
+   pragma Optimize (Time);
+
+   function  Cos (Angle : in Float_type) return Float_type;
+   function  Sin (Angle : in Float_type) return Float_type;
+
+
+   procedure get (Angle : in Float_type;   the_Cos : out Float_type;
+                                           the_Sin : out Float_type);
+
+   -- TODO: tan, arccos, etc
+
+
+private
+
+   pragma Inline_Always (Cos);
+   pragma Inline_Always (Sin);
+   pragma Inline_Always (Get);
+
+end cached_Trigonometry;