diff options
Diffstat (limited to 'example')
| -rw-r--r-- | example/window.adb | 74 |
1 files changed, 59 insertions, 15 deletions
diff --git a/example/window.adb b/example/window.adb index 52f6c17..2c0abdf 100644 --- a/example/window.adb +++ b/example/window.adb @@ -1,19 +1,63 @@ -with Raylib; -use Raylib; +with Raylib; -- File path specified in 'install.sh' script. +use Raylib; -- I agree with raysan5 on namespaces being boring. procedure Window is + + -- This is not Ada tutorial, but brief explanation of my bindings. + -- This is not my usual style of programming, following conventions. + -- + -- C uses null terminated strings, while Ada does not, hence: + -- - "Foo" & Character'Val (0) + -- - "Bar" & ASCII.NUL + -- - To_C_String ("Baz") + -- + -- This decision was made intentionally to avoid package body. + -- If your project uses 10-40 functions and 5-10 structures: + -- - Write your own bindings, it's simple and bloat-free. + -- - Use someone elses Ada bindings, or run command: + -- - $ gcc -c -fdump-ada-spec -C /usr/include/raylib.h + -- + -- I don't like to use Interfaces.C package unless I have to... + + function To_C_String ( -- I find this better than Interfaces.C.To_C. + Data : String := "" -- Concatenate this however you like... + ) return String is -- Or simply use GCC generated bindings. + begin + return (Data & Character'Val (0)); -- This null terminates string. + end To_C_String; + 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; + Open_Window (720, 360, "Heyo Raylib!" & Character'Val (0)); + -- + -- You can have main loop in several ways, choose what you like: + -- - Foo: loop ... exit when ... end loop Foo; + -- - loop ... exit when ... end loop; + -- - while (not) ... loop (exit when ...) ... end loop; + -- + Main_Loop: loop + exit when Window_Should_Close; + -- + Begin_Drawing; + Clear_Background (Ray_White); + -- You can specify all arguments, or use defaults after one point. + Draw_Text ("Heyo from Ada." & ASCII.NUL, 4, 4, 32, Black); + -- You can explicitly state all arguments and their values. + Draw_Text ( + Text => To_C_String ("Press Escape key to exit program."), + X => 4, + Y => 36, + Size => 32, + Tint => Black + ); + -- Or at last, you can specify which arguments won't be defaults. + Draw_Text ( + Text => To_C_String ("You can ignore some arguments."), + X => 4, + Y => 68 + ); + -- And naturally, you can align them however you like... + End_Drawing; + end loop Main_Loop; + -- + Close_Window; end Window; |