Add/update scripts reading raw audio-data

1 files changed, 5 insertions, 4 deletions

diff --git a/scripts/s_region_gain.lua b/scripts/s_region_gain.lua
index dec9899828..648e76629c 100644
--- a/scripts/s_region_gain.lua
+++ b/scripts/s_region_gain.lua
@@ -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