From 17ed86acaee20590b3ef4d1eea10f2fd27bd3350 Mon Sep 17 00:00:00 2001 From: Jedidiah Barber Date: Mon, 17 Jul 2023 00:59:56 +1200 Subject: Split binding into a minimal hierarchy, improved documentation slightly --- example/saw_back.adb | 24 ++++++++++++------------ 1 file changed, 12 insertions(+), 12 deletions(-) (limited to 'example/saw_back.adb') diff --git a/example/saw_back.adb b/example/saw_back.adb index c266964..680a7a2 100644 --- a/example/saw_back.adb +++ b/example/saw_back.adb @@ -7,26 +7,26 @@ with Ada.Text_IO, - Portaudio; + Portaudio.Streams; use type - Portaudio.Float_32; + Portaudio.Streams.Float_32; procedure Saw_Back is - Left_Phase, Right_Phase : Portaudio.Float_32 := 0.0; + Left_Phase, Right_Phase : Portaudio.Streams.Float_32 := 0.0; function Saw_Callback - (Input : in Portaudio.Sample_Buffer; - Output : in Portaudio.Sample_Buffer; - Frames : in Portaudio.Frame_Amount; - Timing : in Portaudio.Callback_Time_Info; - Flags : in Portaudio.Callback_Flags) - return Portaudio.Callback_Result is + (Input : in Portaudio.Streams.Buffer; + Output : in Portaudio.Streams.Buffer; + Frames : in Portaudio.Streams.Frame_Amount; + Timing : in Portaudio.Streams.Time_Info; + Flags : in Portaudio.Streams.Callback_Flags) + return Portaudio.Streams.Callback_Result is begin for Frame in 1 .. Frames loop @@ -44,12 +44,12 @@ procedure Saw_Back is end if; end loop; - return Portaudio.Continue; + return Portaudio.Streams.Continue; end Saw_Callback; - Saw_Stream : Portaudio.Audio_Stream; + Saw_Stream : Portaudio.Streams.Audio_Stream; begin @@ -60,7 +60,7 @@ begin Saw_Stream.Open_Default (Input_Channels => 0, Output_Channels => 2, - Format => Portaudio.Float_32_Sample, + Format => Portaudio.Streams.Float_32_Format, Sample_Rate => 44100.0, Buffer_Frames => 256, Callback => Saw_Callback'Unrestricted_Access); -- cgit