Data update

Task/Bitmap/Ada/bitmap-2.adb

@@ -0,0 +1,20 @@
+with Ada.Text_IO;  use Ada.Text_IO;
+
+package body Bitmap_Store is
+
+   procedure Fill (Picture : in out Image; Color : Pixel) is
+   begin
+      for p of Picture loop x:= Color;end loop;
+   end Fill;
+
+   procedure Print (Picture : Image) is
+   begin
+      for I in Picture'Range (1) loop
+         for J in Picture'Range (2) loop
+               Put (if Picture (I, J) = White then ' ' else 'H');
+         end loop;
+         New_Line;
+      end loop;
+   end Print;
+
+end Bitmap_Store;