Create a sine wave audio tone - Linux

[Aruna]

Hi, I have put together a small demo that draws a sine wave and allows you to control the Frequency and Amplitude. Please see the screenshot attached. The source is in the attached zip file. If I now wish to listen to the actual wave being drawn how would I go about doing this, please? I am on Linux Debian and using aplay.

Another thing, if I want this to work seamlessly on all platforms ( Linux, Windows, MacOS, and others) what is the best approach?

[Fred vS]

Hello.
You may use uos: https://github.com/fredvs/uos
Take a look at /uos/examples/consolesynth.lpi

[Jonax]

Nice design and nice to see a fellow Debian user. I tried your code and got no complaints or errors
As for the sound I have no idea. I never use sound in my programming. 

[Aruna]

Hello.
You may use uos: https://github.com/fredvs/uos
Take a look at /uos/examples/consolesynth.lpi

Hello and thank you. I went through briefly and your uos looks pretty comprehensive. I have to test it as soon as I get some time. I will checkout /uos/examples/consolesynth.lpi thank you once again.

[Aruna]

Nice design and nice to see a fellow Debian user. I tried your code and got no complaints or errors
As for the sound I have no idea. I never use sound in my programming. 

Hi @Jonax thank you for the kind words and for testing my code. Sound used cautiously and in moderation can take your app to another level. I will attach a demo soon you can test drive.

[Fred vS]

Hello.
You may use uos: https://github.com/fredvs/uos
Take a look at /uos/examples/consolesynth.lpi

Hello and thank you. I went through briefly and your uos looks pretty comprehensive. I have to test it as soon as I get some time. I will checkout /uos/examples/consolesynth.lpi thank you once again.

Hello.
In attachment your project using uos.
Just copy the directory /uos/examples/lib into the root directory of your sinewave project.

[Aruna]

Hello.
In attachment your project using uos.
Just copy the directory /uos/examples/lib into the root directory of your sinewave project.

So the *.so files as shown in the attached screenshot yes?

[Fred vS]

Hello.
In attachment your project using uos.
Just copy the directory /uos/examples/lib into the root directory of your sinewave project.

So the *.so files as shown in the attached screenshot yes?

It depends of what OS you are using.
For Linux amd64: uos/examples/lib/Linux/64bit/
In the code I give, all the OS are checked.

Note that for your project you only need PortAudio library.

[Fred vS]

Yes, copy all the /uos/examples//lib folder into your sinewave_with_sound folder.

When you will have analysed the updated code, you could adapt it and only add the Portaudio library of the OS you want.

[Aruna]

Yes, copy all the /uos/examples//lib folder into your sinewave_with_sound folder.

When you will have analysed the updated code, you could adapt it and only add the Portaudio library of the OS you want.

Hi @Fred vS I have done as you instructed. The project compiles and runs ok but there is no sound. I think I may be doing something wrong  Please have a look at the attached screenshots.

[Aruna]

It depends of what OS you are using.
For Linux amd64: uos/examples/lib/Linux/64bit/

Please see attached screenshot

[Fred vS]

OK, you are using linux amd64.

Copy the library /uos/examples/lib/Linux/64bit/LibPortaudio-64.so into the folder /sinewave_with_sound/

And change the code:

Code: Pascal  [Select][+][-]

1. {$if defined(CPUAMD64) and  defined(linux) }
2.    PA_FileName := ordir + 'lib/Linux/64bit/LibPortaudio-64.so';
3.  {$ENDIF}    

with this:

Code: Pascal  [Select][+][-]

1. {$if defined(CPUAMD64) and  defined(linux) }
2.    PA_FileName := ordir + 'LibPortaudio-64.so';
3.  {$ENDIF}

   

[Aruna]

OK, you are using linux amd64.

I have a genuine Intel processor can that be a problem? Is not a amd64

Copy the library /uos/examples/lib/Linux/64bit/LibPortaudio-64.so into the folder /sinewave_with_sound/

And change the code:

Code: Pascal  [Select][+][-]

1. {$if defined(CPUAMD64) and  defined(linux) }
2.    PA_FileName := ordir + 'lib/Linux/64bit/LibPortaudio-64.so';
3.  {$ENDIF}    

with this:

Code: Pascal  [Select][+][-]

1. {$if defined(CPUAMD64) and  defined(linux) }
2.    PA_FileName := ordir + 'LibPortaudio-64.so';
3.  {$ENDIF}

   

Compiles and runs, still no sound :-( Please see the attached screenshot

[Fred vS]

No amd64 is the architecture 64 bit, not the mark of the processor.

Strange that you dont get sound, tested here on Linux amd64 intel and it works.
Did you try the uos example consolesynth.lpi ?
With Lazarus, open project and choose it + test.

[tetrastes]

Compiles and runs, still no sound :-( Please see the attached screenshot

If frequency is 5 Hz indeed, you cannot hear it.