Hosted by
 |
with Images; use Images;
with Interfaces;
package Gray_Images is
subtype Gray_Pixel is Interfaces.Unsigned_8;
type Gray_Pixel_Array is
array(Positive range <>) of Gray_Pixel;
pragma Pack(Gray_Pixel_Array);
type Gray_Pixel_Array_2 is
array(Positive range <>, Positive range <>) of Gray_Pixel;
pragma Pack(Gray_Pixel_Array_2);
type Gray_Image_Record(Width, Height : Positive) is
new Image_Record(Width, Height) with
record
Pixels : Gray_Pixel_Array_2(1 .. Height, 1 .. Width);
end record;
type Gray_Image is access all Gray_Image_Record;
end Gray_Images;
|