B

Task/Bitmap/Ada/bitmap-1.ada

@@ -0,0 +1,17 @@
+package Bitmap_Store is
+   type Luminance is mod 2**8;
+   type Pixel is record
+      R, G, B : Luminance;
+   end record;
+   Black : constant Pixel := (others => 0);
+   White : constant Pixel := (others => 255);
+   type Image is array (Positive range <>, Positive range <>) of Pixel;
+
+   procedure Fill (Picture : in out Image; Color : Pixel);
+
+   procedure Print (Picture : Image);
+
+   type Point is record
+      X, Y : Positive;
+   end record;
+end Bitmap_Store;