Recent

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

Fred vS

  • Hero Member
  • *****
  • Posts: 3158
    • StrumPract is the musicians best friend
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;

[EDIT] Code not ok, please read next topic instead..

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  :-X

[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: 3158
    • StrumPract is the musicians best friend
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.

Please, download new version here :
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.

Please, download new version here :
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: 3158
    • StrumPract is the musicians best friend
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\

 

TinyPortal © 2005-2018