13 lines
340 B
Ada
13 lines
340 B
Ada
with Video.Colors;
|
|
with SDL.Video.Pixel_Formats;
|
|
with SDL.Video.Palettes;
|
|
package Video.SDL2.Colors is
|
|
|
|
function To_SDL (Color : Video.Colors.Color) return SDL.Video.Palettes.Colour;
|
|
|
|
function To_Pixel (
|
|
Format : SDL.Video.Pixel_Formats.Pixel_Format_Access;
|
|
Color : Video.Colors.Color)
|
|
return Unsigned_32;
|
|
|
|
end Video.SDL2.Colors; |