Просмотр исходного кода

Window example and texture...

master
Ognjen Milan Robovic 1 месяц назад
Родитель
Сommit
fba5a57989
2 измененных файлов: 19 добавлений и 0 удалений
  1. Двоичные данные
      example/resource/texture.png
  2. +19
    -0
      example/window.adb

Двоичные данные
example/resource/texture.png Просмотреть файл

До После
Ширина: 420  |  Высота: 420  |  Размер: 212KB

+ 19
- 0
example/window.adb Просмотреть файл

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

Загрузка…
Отмена
Сохранить