32 lines
946 B
Ada
32 lines
946 B
Ada
---------------------------------
|
|
-- GID - Generic Image Decoder --
|
|
---------------------------------
|
|
--
|
|
-- Private child of GID, with helpers for identifying
|
|
-- image formats and reading header informations.
|
|
--
|
|
private package GID.Headers is
|
|
|
|
--
|
|
-- Crude image signature detection
|
|
--
|
|
procedure Load_signature (
|
|
image : in out Image_descriptor;
|
|
try_tga : Boolean:= False
|
|
);
|
|
|
|
|
|
--
|
|
-- Loading of various format's headers (past signature)
|
|
--
|
|
|
|
procedure Load_BMP_header (image: in out Image_descriptor);
|
|
procedure Load_FITS_header (image: in out Image_descriptor);
|
|
procedure Load_GIF_header (image: in out Image_descriptor);
|
|
procedure Load_JPEG_header (image: in out Image_descriptor);
|
|
procedure Load_PNG_header (image: in out Image_descriptor);
|
|
procedure Load_TGA_header (image: in out Image_descriptor);
|
|
procedure Load_TIFF_header (image: in out Image_descriptor);
|
|
|
|
end;
|