diff options
Diffstat (limited to 'window.adb')
| -rw-r--r-- | window.adb | 51 |
1 files changed, 0 insertions, 51 deletions
diff --git a/window.adb b/window.adb deleted file mode 100644 index a0897cb..0000000 --- a/window.adb +++ /dev/null @@ -1,51 +0,0 @@ -with Raylib; -use Raylib; - -procedure Window is - - function C_String (Data : String) return String is - begin - return (Data & Character'Val (0)); - end C_String; - - Text : String := C_String ("Heyo world!"); - - Dragdown : Texture; - - X : Integer := 120; - Y : Integer := 120; - -begin - - Open_Window (720, 360, C_String ("Heyo Raylib!")); - - Set_Exit_Key (Key_Q); -- Default is Key_Escape - Set_Target_FPS (72); -- Default is 60 - - Dragdown := Load_Texture (C_String ("./texture.png")); - - Main_Loop: loop - exit when Window_Should_Close; - -- - Begin_Drawing; - -- - Clear_Background (Sky_Blue); - Draw_Texture (Dragdown, 100, 100, White); - Draw_Text (Text, 90, 90); - 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; |