21 lines
480 B
Ada
21 lines
480 B
Ada
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;
|