diff options
| author | Jedidiah Barber <contact@jedbarber.id.au> | 2023-07-17 21:03:46 +1200 |
|---|---|---|
| committer | Jedidiah Barber <contact@jedbarber.id.au> | 2023-07-17 21:03:46 +1200 |
| commit | 8463ca926a038bab28772c56bf5b32b0a7403853 (patch) | |
| tree | 7f1edea7571bb5e5b67b5f2b15e9a3140148a676 /src/portaudio-streams.adb | |
| parent | 17ed86acaee20590b3ef4d1eea10f2fd27bd3350 (diff) | |
Sine wave blocking example added, fixed Buffer wrapping bug
Diffstat (limited to 'src/portaudio-streams.adb')
| -rw-r--r-- | src/portaudio-streams.adb | 48 |
1 files changed, 24 insertions, 24 deletions
diff --git a/src/portaudio-streams.adb b/src/portaudio-streams.adb index 0df71ee..cbcbe7d 100644 --- a/src/portaudio-streams.adb +++ b/src/portaudio-streams.adb @@ -485,81 +485,81 @@ package body Portaudio.Streams is end Put; function Wrap - (Store : access Float_32_Array; - Frames : in Frame_Amount; - Channels : in Natural) + (Store : in Float_32_Array; + Frames : in Frame_Amount; + Channels : in Natural) return Buffer is begin return (My_Sam_Code => pa_float_32, My_Channels => Channels, My_Frames => Frames, - My_Array => Store.all'Address); + My_Array => Store'Address); end Wrap; function Wrap - (Store : access Int_32_Array; - Frames : in Frame_Amount; - Channels : in Natural) + (Store : in Int_32_Array; + Frames : in Frame_Amount; + Channels : in Natural) return Buffer is begin return (My_Sam_Code => pa_int_32, My_Channels => Channels, My_Frames => Frames, - My_Array => Store.all'Address); + My_Array => Store'Address); end Wrap; function Wrap - (Store : access Int_24_Array; - Frames : in Frame_Amount; - Channels : in Natural) + (Store : in Int_24_Array; + Frames : in Frame_Amount; + Channels : in Natural) return Buffer is begin return (My_Sam_Code => pa_int_24, My_Channels => Channels, My_Frames => Frames, - My_Array => Store.all'Address); + My_Array => Store'Address); end Wrap; function Wrap - (Store : access Int_16_Array; - Frames : in Frame_Amount; - Channels : in Natural) + (Store : in Int_16_Array; + Frames : in Frame_Amount; + Channels : in Natural) return Buffer is begin return (My_Sam_Code => pa_int_16, My_Channels => Channels, My_Frames => Frames, - My_Array => Store.all'Address); + My_Array => Store'Address); end Wrap; function Wrap - (Store : access Int_8_Array; - Frames : in Frame_Amount; - Channels : in Natural) + (Store : in Int_8_Array; + Frames : in Frame_Amount; + Channels : in Natural) return Buffer is begin return (My_Sam_Code => pa_int_8, My_Channels => Channels, My_Frames => Frames, - My_Array => Store.all'Address); + My_Array => Store'Address); end Wrap; function Wrap - (Store : access UInt_8_Array; - Frames : in Frame_Amount; - Channels : in Natural) + (Store : in UInt_8_Array; + Frames : in Frame_Amount; + Channels : in Natural) return Buffer is begin return (My_Sam_Code => pa_uint_8, My_Channels => Channels, My_Frames => Frames, - My_Array => Store.all'Address); + My_Array => Store'Address); end Wrap; function Create |