Wave functions...

diff --git a/raylib.ads b/raylib.ads
index f9847cb70e635a50435caa8e25881c307c8d0a40..8379a539297d1062627bbd97f5aeceb689ace715 100644 (file)
--- a/raylib.ads
+++ b/raylib.ads
@@ -3807,31 +3807,46 @@ package Raylib is
                Import        => True,
                Convention    => C,
                External_Name => "SetSoundPan";
-################################################################
-       --~function Wave WaveCopy (Wave wave) with
-               --~Import        => True,
-               --~Convention    => C,
-               --~External_Name => "";
 
-       --~procedure WaveCrop (Wave *wave, int initSample, int finalSample) with
-               --~Import        => True,
-               --~Convention    => C,
-               --~External_Name => "";
+       function Wave_Copy (
+               Data : Wave := No_Wave
+       ) return Wave with
+               Import        => True,
+               Convention    => C,
+               External_Name => "WaveCopy";
 
-       --~procedure WaveFormat (Wave *wave, int sampleRate, int sampleSize, int channels) with
-               --~Import        => True,
-               --~Convention    => C,
-               --~External_Name => "";
+       procedure Wave_Crop (
+               Data         : access Wave    := null;
+               First_Sample :        Integer := 0;
+               Final_Sample :        Integer := 0
+       ) with
+               Import        => True,
+               Convention    => C,
+               External_Name => "WaveCrop";
 
-       --~function float *LoadWaveSamples (Wave wave) with
-               --~Import        => True,
-               --~Convention    => C,
-               --~External_Name => "";
+       procedure Wave_Format (
+               Data        : access Wave    := null;
+               Sample_Rate :        Integer := 0;
+               Sample_Size :        Integer := 0;
+               Channels    :        Integer := 0
+       ) with
+               Import        => True,
+               Convention    => C,
+               External_Name => "WaveFormat";
 
-       --~procedure UnloadWaveSamples (float *samples) with
-               --~Import        => True,
-               --~Convention    => C,
-               --~External_Name => "";
+       function Load_Wave_Samples (
+               Data : Wave := No_Wave
+       ) return access Float with
+               Import        => True,
+               Convention    => C,
+               External_Name => "LoadWaveSamples";
+
+       procedure Unload_Wave_Samples (
+               Samples : access Float := null
+       ) with
+               Import        => True,
+               Convention    => C,
+               External_Name => "UnloadWaveSamples";
 
        --~function Music LoadMusicStream (const char *fileName) with
                --~Import        => True,