15 lines
494 B
Ada
15 lines
494 B
Ada
package body Video.Colors is
|
|
|
|
function From_8_Bit (Value : Color_Component_8_Bit) return Color_Component is (Color_Component (Value));
|
|
|
|
function To_8_Bit (Value : Color_Component) return Color_Component_8_Bit is (Color_Component_8_Bit (Value));
|
|
|
|
function RGB_8 (
|
|
R, G, B : Color_Component_8_Bit;
|
|
A : Color_Component_8_Bit := Color_Component_8_Bit'Last)
|
|
return Color is
|
|
((R => From_8_Bit (R), G => From_8_Bit (G), B => From_8_Bit (B), A => From_8_Bit (A)));
|
|
|
|
|
|
end Video.Colors;
|