More function bindings, debugging stuff...

1 files changed, 36 insertions, 1 deletions

diff --git a/window.adb b/window.adb
index f50781c..925acd5 100644
--- a/window.adb
+++ b/window.adb
@@ -3,20 +3,55 @@ 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 (Blue);
+		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;