17 lines
371 B
Ada
17 lines
371 B
Ada
package body Video.Rasters.Generic_Blits is
|
|
|
|
procedure Fill_Rectangle (
|
|
Color : in Pixel;
|
|
Target : in out Raster;
|
|
Bounds : in Video.Integer_Geometry.Rectangle)
|
|
is
|
|
begin
|
|
for Y in Bounds.Y_Min .. Bounds.Y_Max loop
|
|
for X in Bounds.X_Min .. Bounds.X_Max loop
|
|
Target (Y, X) := Color;
|
|
end loop;
|
|
end loop;
|
|
end;
|
|
|
|
end Video.Rasters.Generic_Blits;
|