47 lines
1.1 KiB
Ada
47 lines
1.1 KiB
Ada
with Raylib;
|
|
use Raylib;
|
|
|
|
procedure Window is
|
|
|
|
Text : String := "Heyo world!" & Character'Val (0);
|
|
|
|
Dragdown : Texture;
|
|
|
|
X : Integer := 120;
|
|
Y : Integer := 120;
|
|
|
|
begin
|
|
|
|
Open_Window (720, 360, "Heyo Raylib!" & Character'Val (0));
|
|
|
|
Set_Exit_Key (Key_Q); -- Default is Key_Escape
|
|
Set_Target_FPS (72); -- Default is 60
|
|
|
|
Dragdown := Load_Texture ("./texture.png" & Character'Val (0));
|
|
|
|
Main_Loop: loop
|
|
exit when Window_Should_Close;
|
|
--
|
|
Begin_Drawing;
|
|
--
|
|
Clear_Background (Sky_Blue);
|
|
Draw_Texture (Dragdown, 100, 100, White);
|
|
Draw_Text_Pro (Get_Font_Default, Text, (90.0, 90.0), (9.0, 9.0), 0.0, 32.0, 4.0, Red);
|
|
Draw_FPS (X, Y);
|
|
Draw_Line (0, 0, 300, 300, Black);
|
|
Draw_Rectangle (120, 120, 30, 60, Blue);
|
|
--
|
|
if Is_Key_Pressed (Key_W) then Y := Y - 10; end if;
|
|
if Is_Key_Pressed (Key_S) then Y := Y + 10; end if;
|
|
if Is_Key_Pressed (Key_A) then X := X - 10; end if;
|
|
if Is_Key_Pressed (Key_D) then X := X + 10; end if;
|
|
--
|
|
End_Drawing;
|
|
end loop Main_Loop;
|
|
|
|
Unload_Texture (Dragdown);
|
|
|
|
Close_Window;
|
|
|
|
end Window;
|