diff options
Diffstat (limited to 'example/sine_block.adb')
| -rw-r--r-- | example/sine_block.adb | 5 |
1 files changed, 3 insertions, 2 deletions
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; |