Hosted by
 |
with Ada.Streams.Stream_IO; use Ada.Streams.Stream_IO;
with Gray_Images; use Gray_Images;
package PGM is
Expect_P5 : exception;
Expect_Maxval_255 : exception;
function Read
(Stream : in Stream_Access)
return Gray_Image;
function Read
(Filename : in String)
return Gray_Image;
procedure Write
(Stream : in Stream_Access;
Image : in Gray_Image);
procedure Write
(Filename : in String;
Image : in Gray_Image);
procedure Write
(Image : in Gray_Image);
end PGM;
|