xolatile/xhads
1
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Added window icon...

Browse Source
This commit is contained in:
Ognjen Milan Robovic 2024-05-12 11:29:20 -04:00
parent be775dfd2e
commit 190154aac8
3 changed files with 15 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
icon.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 277 B

10
source/core.adb
View File

@ -33,6 +33,8 @@ package body core is
sound_array : access sound_data_array;
font_array : access font_data_array;
game_icon : ray.image;
------------------------------------------------------------------------------------------
procedure terminal (colour : in terminal_colour := white;
@ -367,11 +369,15 @@ package body core is
echo (comment, "-- -- Window title : Xorana");
echo (comment, "-- -- Window width : 1800");
echo (comment, "-- -- Window height : 900");
ray.open_window (1800, 900, "Xorana");
ray.open_window (1800, 900, c_string ("Xorana"));
--
echo (comment, "-- Initializing Raylib audio device data...");
ray.open_audio_device;
--
game_icon := ray.load_image (c_string ("./icon.png"));
--
ray.window_icon (game_icon);
--
ray.randomization (19970725);
ray.set_target_fps (60);
--
@ -397,6 +403,8 @@ package body core is
echo (comment, "-- Deinitializing Raylib audio device data...");
ray.close_audio_device;
--
ray.unload_image (game_icon);
--
echo (comment, "-- Deinitializing Raylib window data...");
ray.close_window;
--

8
source/ray.ads
View File

@ -118,10 +118,12 @@ package ray is
function load_texture (file_path : in string) return texture with import => true, convention => c, external_name => "LoadTexture";
function load_sound (file_path : in string) return sound with import => true, convention => c, external_name => "LoadSound";
function load_font (file_path : in string) return font with import => true, convention => c, external_name => "LoadFont";
function load_image (file_path : in string) return image with import => true, convention => c, external_name => "LoadImage";
procedure unload_texture (data : in texture) with import => true, convention => c, external_name => "UnloadTexture";
procedure unload_sound (data : in sound) with import => true, convention => c, external_name => "UnloadSound";
procedure unload_font (data : in font) with import => true, convention => c, external_name => "UnloadFont";
procedure unload_image (data : in image) with import => true, convention => c, external_name => "UnloadImage";
function image_colour (width, height : in integer; tint : in colour) return image with import => true, convention => c, external_name => "GenImageColor";
function image_import (data : in texture) return image with import => true, convention => c, external_name => "LoadImageFromTexture";
@ -163,8 +165,10 @@ package ray is
procedure pause_sound (data : in sound) with import => true, convention => c, external_name => "PauseSound";
procedure resume_sound (data : in sound) with import => true, convention => c, external_name => "ResumeSound";
--~void ToggleFullscreen(void);
--~void SetWindowIcon(Image image);
procedure toggle_fullscreen with import => true, convention => c, external_name => "ToggleFullscreen";
procedure window_icon (icon : in image) with import => true, convention => c, external_name => "SetWindowIcon";
--~void SetWindowMinSize(int width, int height);
--~void SetWindowMaxSize(int width, int height);
--~void SetWindowSize(int width, int height);