summaryrefslogtreecommitdiff
path: root/example
diff options
context:
space:
mode:
authorJedidiah Barber <contact@jedbarber.id.au>2023-07-26 19:51:33 +1200
committerJedidiah Barber <contact@jedbarber.id.au>2023-07-26 19:51:33 +1200
commit6a4fd86a07ebe97c8067e0e732efc2f708a2c6a8 (patch)
tree67e44274d89448305c3b54c204789a3e0aae0382 /example
parenta9eb2fc7099b78287faf5765e6b9721ce4e93fc1 (diff)
Changed data buffer types for easier interop with other libraries
Diffstat (limited to 'example')
-rw-r--r--example/saw_back.adb5
-rw-r--r--example/sine_block.adb5
2 files changed, 6 insertions, 4 deletions
diff --git a/example/saw_back.adb b/example/saw_back.adb
index 680a7a2..89f075d 100644
--- a/example/saw_back.adb
+++ b/example/saw_back.adb
@@ -7,17 +7,18 @@
with
Ada.Text_IO,
+ Interfaces,
Portaudio.Streams;
use type
- Portaudio.Streams.Float_32;
+ Interfaces.IEEE_Float_32;
procedure Saw_Back is
- Left_Phase, Right_Phase : Portaudio.Streams.Float_32 := 0.0;
+ Left_Phase, Right_Phase : Interfaces.IEEE_Float_32 := 0.0;
function Saw_Callback
diff --git a/example/sine_block.adb b/example/sine_block.adb
index 52c46fe..5ff5be5 100644
--- a/example/sine_block.adb
+++ b/example/sine_block.adb
@@ -8,6 +8,7 @@ with
Ada.Numerics.Long_Elementary_Functions,
Ada.Text_IO,
+ Interfaces,
Portaudio.Streams;
@@ -30,7 +31,7 @@ procedure Sine_Block is
Sample_Buffer : Pstm.Buffer := Pstm.Wrap (Sample_Array, Per_Buffer, Channels);
type Table_Index is mod 200;
- Sine_Table : array (Table_Index) of Pstm.Float_32;
+ Sine_Table : array (Table_Index) of Interfaces.IEEE_Float_32;
Left_Phase, Right_Phase : Table_Index := 0;
Left_Increment : Table_Index := 1;
@@ -49,7 +50,7 @@ begin
"Buffer Size =" & Pstm.Frame_Amount'Image (Per_Buffer));
for Index in Table_Index loop
- Sine_Table (Index) := Pstm.Float_32
+ Sine_Table (Index) := Interfaces.IEEE_Float_32
(Elem.Sin (Long_Float (Index) / Long_Float (Table_Index'Last_Valid) * Num.Pi * 2.0));
end loop;