Add/update scripts reading raw audio-data

This commit is contained in:
Robin Gareus 2020-01-20 06:37:30 +01:00
parent a439d8bbe4
commit 978de93cf2
No known key found for this signature in database
GPG key ID: A090BCE02CF57F04
2 changed files with 80 additions and 4 deletions

View file

@ -31,10 +31,10 @@ function factory () return function ()
local peak = 0 -- the audio peak to be calculated
-- iterate over all channels in Audio Region
for c = 0, n_channels do
for c = 0, n_channels -1 do
local pos = 0
repeat
local pos = 0
-- read at most 8K samples of channel 'c'
-- read at most 8K samples of channel 'c' starting at 'pos'
local s = rd:read (cmem:to_float (0), pos, 8192, c)
pos = pos + s
-- access the raw audio data
@ -46,7 +46,8 @@ function factory () return function ()
peak = math.abs (d[i])
end
end
until pos < n_samples
until s < 8192
assert (pos == n_samples)
end
if (peak > 0) then