27 lines
427 B
Ada
27 lines
427 B
Ada
|
|
|
|
with Gamebit.LCD; use Gamebit.LCD;
|
|
with HAL.Bitmap;
|
|
|
|
with Gamebit.Sprites;
|
|
|
|
procedure Main is
|
|
Bird : Gamebit.Sprites.Bird;
|
|
Background : constant HAL.Bitmap.Bitmap_Color := HAL.Bitmap.Black;
|
|
begin
|
|
Initialize;
|
|
|
|
Framebuffer.Set_Source (Background);
|
|
Framebuffer.Fill;
|
|
Update;
|
|
|
|
Bird.Set_Framebuffer (Framebuffer);
|
|
Bird.Set_Position ((0, 0));
|
|
|
|
loop
|
|
Bird.TIck;
|
|
Update;
|
|
end loop;
|
|
|
|
end Main;
|