58 lines
1.6 KiB
Ada
58 lines
1.6 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, (Get_Screen_Width - Dragdown.Width) / 2, (Get_Screen_Height - Dragdown.Height) / 2);
|
|
Draw_Texture (Dragdown, 100, 100, White);
|
|
Draw_Texture_Pro (Dragdown, (0.0, 0.0, 420.0, 420.0), (200.0, 0.0, 420.0, 420.0));
|
|
--~Data : Texture := No_Texture;
|
|
--~Source : Rectangle := No_Rectangle;
|
|
--~Destination : Rectangle := No_Rectangle;
|
|
--~Origin : Vector_2D := (0.0, 0.0);
|
|
--~Rotation : Float := 0.0;
|
|
--~Tint : Color := White
|
|
Draw_Text ("Heyo world!" & Character'Val (0), 30, 30, 32, Light_Gray);
|
|
Draw_Text (Text, 30, 30, 32, Black);
|
|
Draw_Text_Pro (Get_Font_Default, Text, (90.0, 90.0), (9.0, 9.0), 0.0, 32.0, 4.0, Red);
|
|
Draw_FPS (60, 60);
|
|
Draw_Line (0, 0, 300, 300, Red);
|
|
Draw_Rectangle (120, 120, 30, 60, Green);
|
|
Draw_FPS (X, Y);
|
|
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;
|