### Bookstore

 Computer Math and Games in Pascal (preview) Lazarus Handbook

### Author Topic: United OpenLib of Sound (UOS)  (Read 73586 times)

#### Fred vS

• Hero Member
• Posts: 3148
##### Re: United OpenLib of Sound (UOS)
« Reply #90 on: January 10, 2014, 12:08:59 am »
Quote
Have you any idea about adding pitchShifter and VuMeter functions in your project?

[EDIT] Something like that for VU (assuming ShapeLeft and ShapeRight are the VU, with max height = 100) :

Quote
DSPIndex1 := Player1.AddDSPIn(In1Index, nil,  nil, @showvolume);

procedure showvolume(Data: TUOS_Data; fft: TUOS_FFT);
begin
ShapeLeft.height := Data.VLeft * 100 ;
ShapeRight.height  := Data.VRight  * 100 ;
end;

and for pitch, you may use SampleRate parameter (default is 44100 )
« Last Edit: January 10, 2014, 03:14:11 pm by Fred vS »
I use Lazarus 2.2.0 32/64 and FPC 3.2.2 32/64 on Debian 11 64 bit, Windows 10, Windows 7 32/64, Windows XP 32,  FreeBSD 64.
Widgetset: fpGUI, MSEgui, Win32, GTK2, Qt.

https://github.com/fredvs
https://gitlab.com/fredvs
https://codeberg.org/fredvs

#### SalihSertkaya

• Newbie
• Posts: 4
##### Re: United OpenLib of Sound (UOS)
« Reply #91 on: January 10, 2014, 01:57:20 am »
Quote
Have you any idea about adding pitchShifter and VuMeter functions in your project?

Answer only for you, trust me

[EDIT] Something like that for VU (assuming ShapeLeft and ShapeRight are the VU, with max height = 100) :

Code: [Select]
`DSPIndex1 := Player1.AddDSPIn(In1Index, nil,  nil, @showvolume); procedure showvolume(Data: TUOS_Data; fft: TUOS_FFT);  begin    ShapeLeft.height := Data.VLeft * 100 ;    ShapeRight.height  := Data.VRight  * 100 ;  end;`
and for pitch, you may use SampleRate parameter (default is 44000 )

Many thanks for your code :-)
I'll try.

Best regards,
Salih Sertkaya

#### Fred vS

• Hero Member
• Posts: 3148
##### Re: United OpenLib of Sound (UOS)
« Reply #92 on: January 10, 2014, 01:44:57 pm »
@ SalihSertkaya.

Added function UOS_DSPLevel(..), InputGetVolumeLeft(..), inputGetVolumeRight(..).

There are VU now in SimplePlayer demo to show how it works.

https://github.com/fredvs/uos
« Last Edit: January 10, 2014, 01:48:14 pm by Fred vS »
I use Lazarus 2.2.0 32/64 and FPC 3.2.2 32/64 on Debian 11 64 bit, Windows 10, Windows 7 32/64, Windows XP 32,  FreeBSD 64.
Widgetset: fpGUI, MSEgui, Win32, GTK2, Qt.

https://github.com/fredvs
https://gitlab.com/fredvs
https://codeberg.org/fredvs

#### SalihSertkaya

• Newbie
• Posts: 4
##### Re: United OpenLib of Sound (UOS)
« Reply #93 on: January 13, 2014, 07:49:30 pm »
@ SalihSertkaya.

Added function UOS_DSPLevel(..), InputGetVolumeLeft(..), inputGetVolumeRight(..).

There are VU now in SimplePlayer demo to show how it works.

https://github.com/fredvs/uos

Thank you very much for new perfect codes :-)
I'll try.

Best regards,
Salih Sertkaya

#### Fred vS

• Hero Member
• Posts: 3148
##### Re: United OpenLib of Sound (UOS)
« Reply #94 on: April 11, 2014, 12:19:12 am »
Hello.

I will take a temporary break from the forum.

For all question about uos, please use https://github.com/fredvs/uos/issues

Many thanks for many help.

Fred
I use Lazarus 2.2.0 32/64 and FPC 3.2.2 32/64 on Debian 11 64 bit, Windows 10, Windows 7 32/64, Windows XP 32,  FreeBSD 64.
Widgetset: fpGUI, MSEgui, Win32, GTK2, Qt.

https://github.com/fredvs
https://gitlab.com/fredvs
https://codeberg.org/fredvs

#### dirkgraf40

• New member
• Posts: 8
##### Re: United OpenLib of Sound (UOS)
« Reply #95 on: January 23, 2015, 08:02:41 pm »
I used the UOS to programming a guitar-trainer. (like best practice, just better)  If some interestet, you can get it here.

https://sourceforge.net/projects/tonopoltrainer/

#### net1999

• Newbie
• Posts: 1
##### Re: United OpenLib of Sound (UOS)
« Reply #96 on: June 10, 2023, 08:14:45 am »
HELP!

The demo program was run successful in windows , but only playtime 60‘s in linux and then halt , why ?

C:\codetyphon\CodeOcean\pl_UOS\samples\SimplePlayer\