Add initial prototype.

3-mid/opengl/source/opengl-conversions.adb

@@ -0,0 +1,46 @@
+package body openGL.Conversions
+is
+
+   function to_Vector_4 (From : in rgba_Color) return Vector_4
+   is
+   begin
+      return [Real (to_Primary (From.Primary.Red)),
+              Real (to_Primary (From.Primary.Green)),
+              Real (to_Primary (From.Primary.Blue)),
+              Real (to_Primary (From.Alpha))];
+   end to_Vector_4;
+
+
+
+   function to_Vector_4 (From : in lucid_Color) return Vector_4
+   is
+   begin
+      return [Real (From.Primary.Red),
+              Real (From.Primary.Green),
+              Real (From.Primary.Blue),
+              Real (From.Opacity)];
+   end to_Vector_4;
+
+
+
+   function to_Vector_3 (From : in rgb_Color) return Vector_3
+   is
+   begin
+      return [Real (to_Primary (From.Red)),
+              Real (to_Primary (From.Green)),
+              Real (to_Primary (From.Blue))];
+   end to_Vector_3;
+
+
+
+   function to_Vector_3 (From : in Color) return Vector_3
+   is
+   begin
+      return [Real (From.Red),
+              Real (From.Green),
+              Real (From.Blue)];
+   end to_Vector_3;
+
+
+
+end openGL.Conversions;