Forum > Audio and Video

Audio component pack for Microphone in support, Raspberry

(1/4) > >>

pascalbythree:
Hey FPC Brothers,

Does anybody have a name for a extra component pack for audio support on Raspberry Linux ?

Audio Component Suite does not seem to run with audio IN

UOS is to complex, and PXL does not seem to support it.

The idea is to program a graphic equalizer on my Televison, with a HDMI cable to my  RPI.

Just for Show!

Maybe somebody knows a differrent solution on the internet,

Greets Wouter van Wegen, PascalByThree

PascalDragon:
If the Linux distribution in question is using PulseAudio you could simply hook yourself at the corresponding monitoring device. I do the same for my light organ. When I'm home from work I can provide you with the necessary units.

pascalbythree:
C00L, can you please send them up to woutervanwegen@gmail.com ? Great thanks in advance!

Fred vS:

--- Quote from: pascalbythree on July 21, 2022, 01:28:29 pm ---UOS is to complex, and PXL does not seem to support it.

--- End quote ---

Hello.

May I ask you what is to complex with uos and what is PXL?
Tenor sound aplications working on Rpi, like Audacity, use the same libraries as uos.

[EDIT] There was a answer to your topic on uos forum some years ago:
http://uos-forum.108.s1.nabble.com/Microphone-IN-to-equalizer-on-Raspberry-td662.html


PascalDragon:

--- Quote from: pascalbythree on July 21, 2022, 01:42:12 pm ---C00L, can you please send them up to woutervanwegen@gmail.com ? Great thanks in advance!

--- End quote ---

There isn't much to send. I'm using the PulseAudio units from here and the important parts of the code are as follows:


--- Code: Pascal  [+][-]window.onload = function(){var x1 = document.getElementById("main_content_section"); if (x1) { var x = document.getElementsByClassName("geshi");for (var i = 0; i < x.length; i++) { x[i].style.maxHeight='none'; x[i].style.height = Math.min(x[i].clientHeight+15,306)+'px'; x[i].style.resize = "vertical";}};} ---uses  pulse_simple; var  pulse: PPASimple;  ss: TPASampleSpec;  err: cint;  buf: array[0..Pred(4096)] of Byte;begin  ss.Init;  ss.Format := sfFloat32LE;  ss.Rate := 44100;  ss.Channels := 1;  pulse := TPASimple.New(Nil, 'NameForApp', sdRECORD, Nil, 'NameForStream', @ss, Nil, Nil, @err);  if not Assigned(pulse) then begin    Writeln('Failed to connect to PulseAudio server; error: ', err);    Halt(1);  end;   while { whatever condition } do begin    if pulse^.Read(@buf[0], Length(buf), Nil) < 0 then      Continue;     { do something with the sample }  end;   pulse^.Free;end. 
Once you've started your application you can start e.g. PavuControl and in the Record tab you can select which monitor should be used for the client you connected. PulseAudio will remember this as long as the NameForApp stays the same.


--- Quote from: Fred vS on July 21, 2022, 01:55:01 pm ---May I ask you what is to complex with uos and what is PXL?

--- End quote ---

Platform eXtended Library

Navigation

[0] Message Index

[#] Next page

Go to full version