|
|
@@ -17,6 +17,46 @@ package ray is |
|
|
|
for logical'size use 32; |
|
|
|
for colour_range'size use 8; |
|
|
|
|
|
|
|
type window_flag is ( |
|
|
|
flag_none, |
|
|
|
flag_fullscreen_mode, |
|
|
|
flag_window_resizable, |
|
|
|
flag_window_undecorated, |
|
|
|
flag_window_transparent, |
|
|
|
flag_msaa_x4_hint, |
|
|
|
flag_vsync_hint, |
|
|
|
flag_window_hidden, |
|
|
|
flag_window_always_run, |
|
|
|
flag_window_minimized, |
|
|
|
flag_window_maximized, |
|
|
|
flag_window_unfocused, |
|
|
|
flag_window_topmost, |
|
|
|
flag_window_high_dpi, |
|
|
|
flag_window_mouse_passthrough, |
|
|
|
flag_borderless_windowed_mode, |
|
|
|
flag_interlaced_hint |
|
|
|
) with convention => c; |
|
|
|
|
|
|
|
for window_flag use ( |
|
|
|
flag_none => 16#00000000#, -- 0 |
|
|
|
flag_fullscreen_mode => 16#00000002#, -- 2 |
|
|
|
flag_window_resizable => 16#00000004#, -- 4 |
|
|
|
flag_window_undecorated => 16#00000008#, -- 8 |
|
|
|
flag_window_transparent => 16#00000010#, -- 16 |
|
|
|
flag_msaa_x4_hint => 16#00000020#, -- 32 |
|
|
|
flag_vsync_hint => 16#00000040#, -- 64 |
|
|
|
flag_window_hidden => 16#00000080#, -- 128 |
|
|
|
flag_window_always_run => 16#00000100#, -- 256 |
|
|
|
flag_window_minimized => 16#00000200#, -- 512 |
|
|
|
flag_window_maximized => 16#00000400#, -- 1024 |
|
|
|
flag_window_unfocused => 16#00000800#, -- 2048 |
|
|
|
flag_window_topmost => 16#00001000#, -- 4096 |
|
|
|
flag_window_high_dpi => 16#00002000#, -- 8192 |
|
|
|
flag_window_mouse_passthrough => 16#00004000#, -- 16384 |
|
|
|
flag_borderless_windowed_mode => 16#00008000#, -- 32768 |
|
|
|
flag_interlaced_hint => 16#00010000# -- 65536 |
|
|
|
); |
|
|
|
|
|
|
|
type trace_log_level is ( |
|
|
|
log_all, log_trace, log_debug, log_info, log_warning, log_error, |
|
|
|
log_fatal, log_none |
|
|
@@ -39,6 +79,8 @@ package ray is |
|
|
|
no_font : font; |
|
|
|
no_sound : sound; |
|
|
|
|
|
|
|
procedure set_window_flags (flags : window_flag := flag_none) with import => true, convention => c, external_name => "SetConfigFlags"; |
|
|
|
|
|
|
|
procedure open_window (width, height : in integer; title : in string) with import => true, convention => c, external_name => "InitWindow"; |
|
|
|
procedure close_window with import => true, convention => c, external_name => "CloseWindow"; |
|
|
|
|
|
|
|