United OpenLib of Sound (UOS)

[marcov]

Code: [Select]

UOSSTREAM[x].Thread.Start;

tthread.start is a method introduced with 2.4.4 or 2.6.0. If you use an outdated version on Windows either upgrade or use thread.resume

 

[Fred vS]

@ Marcov : Many thanks to take care with UOS.

use thread.resume

At init i use that code but i change it because the compiler was complaining with thread.resume, Obsolete bla... bla... 
But if you think it is better to use thread.resume for down compatibility of course it gonna be changed.

[parcel]

I got SIGFPE exception at TUOS_Player.Execute in windows xp 32bit.

temporary set 8087 register to $133f, no error is occured.

Code: [Select]

           for x2 := 0 to  high(StreamIn) do  if (StreamIn[x2].HandleSt <> nil) and (StreamIn[x2].Enabled = True)
          and (pos(StreamOut[x].Name,StreamIn[x2].Output) > 0)   then                 
                              //////// copy buffer-in into buffer-out
          Set8087CW($133f); // temporary setup fpu flag resgister, default = $1332
          for x3 :=  0 to high(StreamIn[x2].InBuffer)  do
                    StreamOut[x].OutBuffer[x3] := StreamOut[x].OutBuffer[x3] + StreamIn[x2].InBuffer[x3]; // got SIGFPE


Setup and restore in 8087 control register at LoadLib/UnloadLib, it works fine 

[Fred vS]

@ parcel :Oooops, many thanks for your solution, i gonna change it in next release 

Set8087CW($133f); // temporary setup fpu flag resgister, default = $1332

I absolutely did not know about that set, is it valid only for xp 32 ?
What are the sets for other systems ?

[parcel]

@ parcel :Oooops, many thanks for your solution, i gonna change it in next release 

Set8087CW($133f); // temporary setup fpu flag resgister, default = $1332

I absolutely did not know about that set, is it valid only for xp 32 ?
What are the sets for other systems ?

I guess it work on other systems for non-masking exceptions fpu with overflow and underflow 

[Fred vS]

Hello everybody. 

Im happy to announce the new release of UOS.
Now, format resolution Int 16, Int 32 and Float 32 for each library. (float 32 bit resolution also for MP3 files).
Auto-conversion of format.
New design of DSP procedure.
And much more... 

Download the new release here :
http://fredvs.github.io/uos/
@ marcov and parcel : your "patch" are added, many thanks.

PS: Everybody is welcome to give his own new DSP procedure...
(for example, filters to change bass-medium and treble, equalizer, flanger, etc, are welcome  )

[Fred vS]

Hello Lazarus fans 
Im very happy to announce the new release of UOS.
You can record, direct wire and much more now.
Download the new release here :
http://fredvs.github.io/uos/
Here some examples how to use UOS :

First : add uos.pas in your use section and load libraries :

Code: [Select]

   LoadLib;           
   InitLib;            
Let's play a sound file...

Create the player :

Code: [Select]

Player1 := TUOS_Player.Create(True);     
    Player1.AddIntoDevOut ;               //// Output into OUT Device
    Player1.AddFromFile('MySong.mp3');    //// Input from audio file And lets play it...

Code: [Select]

Player1.Play;                         //// Play the song...
Let's play a sound file with some dsp effect:

First create the player :

Code: [Select]

  Player1 := TUOS_Player.Create(True);     
    Player1.AddIntoDevOut ;               //// Output into OUT Device
    Player1.AddFromFile('MySong.ogg');    //// Input from audio file
    Player1.AddDSPIn(1);                  //// Add how many dsp you want
    Player1.AddDSPIn(2);And lets play it...

Code: [Select]

Player1.Play;                         //// Play the song with DSP effect...
Listen to your mic into your loudspeakers :

Create the player:

Code: [Select]

   Player1 := TUOS_Player.Create(True);     
    Player1.AddIntoDevOut ;               //// Output into OUT Device
    Player1.AddFromDevIn ;               //// Input from IN DeviceAnd lets play it...

Code: [Select]

    Player1.Play;                         //// Listen to your mic in your loudspeakers...
Now, ear your mic, listen to a mp3, apply some effects and record the mic into wav file at same time:

Create the player :

Code: [Select]

Player1 := TUOS_Player.Create(True); 
     Player1.AddIntoDevOut ;               //// Output into OUT Device
    Player1.AddIntoFile('Myrecord.wav') ;               //// Output into OUT Device
    Player1.AddFromDevIn ; ;             //// Input from IN Device
    Player1.AddDSPIn(1);                 //// Add how many dsp you want
    Player1.AddDSPIn(2)
    Player2 := TUOS_Player.Create(True);
    Player2.AddFromFile('MySong.mp3')    //// the background audio file
    Player2.AddIntoDevOut ;               //// Output into OUT Device;And lets play it...

Code: [Select]

    Player1.Play;                         //// Listen your mic with DSP effects and record it ...
Player2.Play;        //// Listen to mp3 together with recording
Here are  the basic UOS procedure :
Each procedure has his equivalent with argument for custom parameters...

Init Procedures :
LoadLib;                 //// Load dynamic libraries
InitLib();               //// Init those libraries

Output Procedures:
AddIntoDevOut();         //// Output into OUT Device
AddIntoFile();           //// Output into Wav File

Input Procedures:
AddFromDevIn();          //// Input from IN device
AddFromFile();           //// Input from Audio File
InputLength();           //// Lenght of Input in samples
InputPosition();         //// Get position
Seek();                  //// Change position

Player Procedures:   
Play;                    //// Start playing
RePlay;                  //// Resume playing after pause
Stop;                    //// Stop playing and free thread
Pause;                   //// Pause playing

DSP Procedures :                 
AddDSPIn()               //// DSP procedure for input
AddDSPOut()              //// DSP procedure for output
SetDSPin()               //// Set DSP In
SetDSPout()              //// Set DSP out

Have fun 

PS: Your remarks are very welcome...
PS2 : The code of UOS.pas is in attachment (and in package of course).

[Leledumbo]

I think you should create a wiki article for your library...
Anyway, any reason for the separation of LoadLib and InitLib and why the programmer must call them manually instead of the unit initializes itself?

[Fred vS]

@ Leledumbo : many thanks to take care about UOS. 

Anyway, any reason for the separation of LoadLib and InitLib and why the programmer must call them manually instead of the unit initializes itself?

Not really  , but with those procedures you can load dynamically the lib at run time and only if you need it...

I think you should create a wiki article for your library...

Yep, with pleasure 

[marcov]

@ Marcov : Many thanks to take care with UOS.

use thread.resume

At init i use that code but i change it because the compiler was complaining with thread.resume, Obsolete bla... bla... 

Which is correct.

But if you think it is better to use thread.resume for down compatibility of course it gonna be changed.

Only if you must support pre 2.6.0 versions for some crazy reason. The correct solution however is to throw those version into your nearest dumpster and just use .start 

[Fred vS]

Hello everybody 
Here is the new release of UOS. Now FFT is implemented and you can apply filters and create equalizer (and spectrum). Added example how to do it (Filters BandSelect, BandPass, HighPass, LowPass, etc...).

Download the new release here :
http://fredvs.github.io/uos/

In attachment, code of UOS.pas.

I think that UOS can do now all what needed for Audio ( and all of that for free and open-source  ).

Comments are welcome. 

[BigChimp]

Thanks for your work!

Unfortunately still no mention of UOS on
http://wiki.lazarus.freepascal.org/Multimedia_Programming
or
http://wiki.lazarus.freepascal.org/Audio_libraries

Might be nice from a PR perspective

Regards,
BigChimp

[Fred vS]

Unfortunately still no mention of UOS on
http://wiki.lazarus.freepascal.org/Multimedia_Programming
or
http://wiki.lazarus.freepascal.org/Audio_libraries

I know and gonna do it (the implementation of FFT was a nightmare. Not because of Monsieur Fourier and his revolutionary invention but because of... tuning that function with sound. I have to test it with headphones and listening more than thousand times at horrible sounds before to finally find the right formula and... it breaks my head. Im happy to have finished that section and gonna rest a few now. And i promise, gonna write a nice wiki after that...

And i apologize for some of my aggressive last topics, but working on (not perfect) audio makes you crazy. 

[BigChimp]

Heh - I can visualize you now. Yes, give your ears and mind a good rest and thanks for the work!

[Dibo]

I have basic question about UOS: Why it is using mpg123, portaudio and sndfile? I mean, each of this package is separated audio library for playing mp3 / ogg, so why UOS is using all libs instead of e.g portaudio only?