diff options
author | Jedidiah Barber <contact@jedbarber.id.au> | 2023-07-17 00:59:56 +1200 |
---|---|---|
committer | Jedidiah Barber <contact@jedbarber.id.au> | 2023-07-17 00:59:56 +1200 |
commit | 17ed86acaee20590b3ef4d1eea10f2fd27bd3350 (patch) | |
tree | 4a0578bacc4dad1cd548b7bbc63e35c38a1d2c84 /example/saw_back.adb | |
parent | 543cd19ab514ec632d965acd5177c5bf6695520f (diff) |
Split binding into a minimal hierarchy, improved documentation slightly
Diffstat (limited to 'example/saw_back.adb')
-rw-r--r-- | example/saw_back.adb | 24 |
1 files changed, 12 insertions, 12 deletions
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); |