19 lines
476 B
Ada
19 lines
476 B
Ada
private package GID.Decoding_TGA 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);
|
|
--
|
|
procedure Load (image: in out Image_descriptor);
|
|
|
|
end GID.Decoding_TGA;
|