47 lines
1.0 KiB
Ada
47 lines
1.0 KiB
Ada
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;
|