Recent

Author Topic: Audio component pack for Microphone in support, Raspberry  (Read 3012 times)

Fred vS

  • Hero Member
  • *****
  • Posts: 3158
    • StrumPract is the musicians best friend
Re: Audio component pack for Microphone in support, Raspberry
« Reply #15 on: July 25, 2022, 01:12:13 pm »
   // Spectrum : create  bandpass filters with alsobuf set to false, how many you want:
   
Code: Pascal  [Select][+][-]
  1.  uos_InputAddFilter(PlayerIndex1, InputIndex1, -1, 10000,20000, 1, -1, 10000,20000, 1, false, nil);
  2.      uos_InputAddFilter(PlayerIndex1, InputIndex1, -1, 6000, 10000, 5, -1, 6000, 10000, 5, false, nil);
  3.      uos_InputAddFilter(PlayerIndex1, InputIndex1, -1, 4000, 6000,  5, -1, 4000, 6000,  5, false, nil);
  4.      uos_InputAddFilter(PlayerIndex1, InputIndex1, -1, 2500, 4000,  5, -1, 2500, 4000,  5, false, nil);
  5.      uos_InputAddFilter(PlayerIndex1, InputIndex1, -1, 1000, 2500,  5, -1, 1000, 2500,  5, false, nil);
  6.      uos_InputAddFilter(PlayerIndex1, InputIndex1, -1, 700,  1000,  5, -1, 700,  1000,  5, false, nil);
  7.      uos_InputAddFilter(PlayerIndex1, InputIndex1, -1, 500,  700,   5, -1, 500,  700,   5, false, nil);
  8.      uos_InputAddFilter(PlayerIndex1, InputIndex1, -1, 300,  500,   5, -1, 300,  500,   5, false, nil);

And did i give the right paramaters for uos_InputAddFilter, like above ? Grtz W

More or less...  ;)

Tip: If you are using Lazarus, do Ctrl+Click on uos_InputAddFilter and it will jump to the declaration of the method with all the infos in comment.

So, for a spectrum-frequencies filter, use those parameters (take a look at consolespectrum or formspectrum demo):

Code: Pascal  [Select][+][-]
  1.  uos_InputAddFilter(PlayerIndex1, InputIndex1,
  2.             3, 10000,20000, 1,
  3.             3, 10000,20000, 1, False, nil);
  4.  
  5.         uos_InputAddFilter(PlayerIndex1, InputIndex1,
  6.             3, 6000,10000, 1,
  7.             3, 6000,10000, 1, False, nil);
  8.  
  9.         uos_InputAddFilter(PlayerIndex1, InputIndex1,
  10.             3, 4000,6000, 1,
  11.             3, 4000,6000, 1, False, nil);
  12.            
  13.            uos_InputAddFilter(PlayerIndex1, InputIndex1,
  14.             3, 2500,4000, 1,
  15.             3, 2500,4000, 1, False, nil);
  16.  
  17.         uos_InputAddFilter(PlayerIndex1, InputIndex1,
  18.             3, 1000, 2500, 1,
  19.             3, 1000, 2500, 1, False, nil);
  20.  
  21.         uos_InputAddFilter(PlayerIndex1, InputIndex1,
  22.             3, 700,1000, 1,
  23.             3, 700,1000, 1, False, nil);
  24.            
  25.            uos_InputAddFilter(PlayerIndex1, InputIndex1,
  26.             3, 500,700, 1,
  27.             3, 500,700, 1, False, nil);
  28.  
  29.         uos_InputAddFilter(PlayerIndex1, InputIndex1,
  30.             3, 300,500, 1,
  31.             3, 300,500, 1, False, nil);


PS: To use-install uos, just download the source from https://github.com/fredvs/uos, using the green button Code + Download zip.
Then unzip the code somewhere and with Lazarus click on open project and choose /uos/examples/formspectrum.lpi.
Nothing more needs to be installed.

« Last Edit: July 25, 2022, 01:37:06 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

pascalbythree

  • Sr. Member
  • ****
  • Posts: 255
Re: Audio component pack for Microphone in support, Raspberry
« Reply #16 on: November 30, 2022, 01:43:50 pm »
https://github.com/andrewd207/PascalAudio

https://github.com/andrewd207/fpc-pulseaudio

Jow!, After finishing up another project, i am asking weither somebody knows the right versions for FPC and LAZARUS to compile eatch one of the components as in URL above ?

Greets, Wouter van Wegen --> PascalByThree

I am re-installing linux mint. Later i have to compile it on a RPI3. First see how it goes on the PC side.

PS: I also questioned it in another topic. Othewise:

https://forum.lazarus.freepascal.org/index.php?topic=61423.msg462102#msg462102

 

TinyPortal © 2005-2018