29 lines
649 B
Ada
29 lines
649 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 I in Picture'Range (1) loop
|
|
for J in Picture'Range (2) loop
|
|
Picture (I, J) := Color;
|
|
end loop;
|
|
end loop;
|
|
end Fill;
|
|
|
|
procedure Print (Picture : Image) is
|
|
begin
|
|
for I in Picture'Range (1) loop
|
|
for J in Picture'Range (2) loop
|
|
if Picture (I, J) = White then
|
|
Put (' ');
|
|
else
|
|
Put ('H');
|
|
end if;
|
|
end loop;
|
|
New_Line;
|
|
end loop;
|
|
end Print;
|
|
|
|
end Bitmap_Store;
|