How to compute SPL from sound inputed from a microphone.

[endolith]

Is the snd-avg function written in lisp? I tried looking for the source code and couldn't find it.

[steve]

No, I think it's written in C, but I know so little about C programming that I wouldn't know what to look for to find it.

[steve]

It looks like there is some demand for this type of plug-in
viewtopic.php?f=12&t=36226

[endolith]

Is there a better way to handle mono/stereo?

Yes there is, using (multichan-expand #'function arg1 arg2 ...)
I suggest getting the plug-in working just with mono tracks. Once it is working with mono tracks it is easy to convert it to accept multi-channel sounds.

Hmm, is that really applicable? It seems to be a shortcut for doing processing on one or two channels, and returning audio in the same format (zipping the two channels back together again afterward). I'm outputting text, and the output should be different depending on whether it's mono or stereo.

[steve]

For stereo tracks, are you wanting to output data for the combined channels, or "left channel data" / "right channel data"?

[endolith]

For stereo tracks, are you wanting to output data for the combined channels, or "left channel data" / "right channel data"?

It should show each track individually. In my other script, if both tracks are identical, it says so, and then displays one set of statistics. I don't really care if it does this or not though.

[steve]

Then you could use (multichan-expand ...), though it would probably be simpler to use (if (arrayp s)(analyze-stereo s)(analyze-mono s))

By wrapping up the analysis code into a function will remove the need for duplicate code.
This is the type of thing that I'm thinking of:

Code: Select all

(defun analyze (s-in) ; code that does the analysis and returns data as a string
  (format NIL "Peak level ~a dB~%"
  (linear-to-db (peak s-in ny:all))))

(defun analyze-mono (input) ; for mono tracks
  (format NIL "Mono track.~%~a~%" (analyze input)))

(defun analyze-stereo (input) ; for stereo tracks
  (format NIL "Stereo track.~%Left Channel: ~aRight Channel: ~a~%" (analyze (aref input 0))(analyze (aref input 1))))

(if (arrayp s)(analyze-stereo s)(analyze-mono s))


[endolith]

No, I think it's written in C, but I know so little about C programming that I wouldn't know what to look for to find it.

You know anything about writing a replacement? I'm not sure how to work with individual samples here.

(snd-fetch-array sound len step)
Reads sequential arrays of samples from sound, returning either an array of FLONUMs or NIL when the sound terminates.

(snd-samples sound limit)
Converts the samples into a lisp array.

So I could read chunks of data from the sound, and calculate the average of each array using some regular lisp array average function?

[steve]

I think you are already pretty close to achieving what you want, but I'm not sure exactly what you want.
I'm also hoping that you know all of the ins-and-outs of weighted measurements because my theory knowledge gets a bit shaky there.

[endolith]

Yeah I understand what I'm doing and what i want, I just need help with the lisp/nyquist part.