23 lines
567 B
Ada
23 lines
567 B
Ada
private package GID.Decoding_GIF is
|
|
|
|
--------------------
|
|
-- Image decoding --
|
|
--------------------
|
|
|
|
generic
|
|
type Primary_color_range is mod <>;
|
|
with procedure Set_X_Y (x, y: Natural);
|
|
with procedure Put_Pixel (
|
|
red, green, blue : Primary_color_range;
|
|
alpha : Primary_color_range
|
|
);
|
|
with procedure Feedback (percents: Natural);
|
|
mode: Display_mode;
|
|
--
|
|
procedure Load (
|
|
image : in out Image_descriptor;
|
|
next_frame: out Ada.Calendar.Day_Duration
|
|
);
|
|
|
|
end GID.Decoding_GIF;
|