Bladeren bron

Window example and texture...

master
Ognjen Milan Robovic 1 maand geleden
bovenliggende
commit
fba5a57989
2 gewijzigde bestanden met toevoegingen van 19 en 0 verwijderingen
  1. BIN
      example/resource/texture.png
  2. +19
    -0
      example/window.adb

BIN
example/resource/texture.png Bestand weergeven

Before After
Width: 420  |  Height: 420  |  Size: 212KB

+ 19
- 0
example/window.adb Bestand weergeven

@@ -0,0 +1,19 @@
with Raylib;
use Raylib;

procedure Window is
begin
Open_Window (720, 360, "Heyo Raylib!" & Character'Val (0));
--
Main_Loop: loop
exit when Window_Should_Close;
--
Begin_Drawing;
Clear_Background (Ray_White);
Draw_Text ("Heyo Raylib, greetings from Ada!" & Character'Val (0), 4, 4, 32, Black);
Draw_Text ("Press Escape key to exit program." & Character'Val (0), 4, 36, 32, Black);
End_Drawing;
end loop Main_Loop;
--
Close_Window;
end Window;

Laden…
Annuleren
Opslaan