Parcourir la source

Window example and texture...

master
Ognjen Milan Robovic il y a 3 semaines
Parent
révision
fba5a57989
2 fichiers modifiés avec 19 ajouts et 0 suppressions
  1. BIN
      example/resource/texture.png
  2. +19
    -0
      example/window.adb

BIN
example/resource/texture.png Voir le fichier

Avant Après
Largeur: 420  |  Hauteur: 420  |  Taille: 212KB

+ 19
- 0
example/window.adb Voir le fichier

@@ -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;

Chargement…
Annuler
Enregistrer