1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
|
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;
|
