X-Git-Url: https://main.carlh.net/gitweb/?a=blobdiff_plain;f=scripts%2Fnoisegen.lua;h=bf7b006160a8fee4b3d0b0945c62a799a717f57d;hb=8a2c82465938cd528781e7cdcb04e8a3530a0b51;hp=684f421364c4e4c5bf32af9578671692a4783872;hpb=29aba34d1cea4aef02f5cec7ec9939c4f6a5f8ab;p=ardour.git

diff --git a/scripts/noisegen.lua b/scripts/noisegen.lua
index 684f421364..bf7b006160 100644
--- a/scripts/noisegen.lua
+++ b/scripts/noisegen.lua
@@ -19,7 +19,14 @@ function dsp_ioconfig ()
 	return { [1] = { audio_in = -1, audio_out = -1}, }
 end
 
+local sr = 0
+
+function dsp_init (rate)
+	sr = rate
+end
+
 local ao = 0
+local draw = 0
 
 function dsp_run (ins, outs, n_samples)
 
@@ -57,15 +64,16 @@ function dsp_run (ins, outs, n_samples)
 		end
 	end
 
+	if (draw > (sr/15)) then
+		self:queue_draw()
+		draw = 0
+	end
+
 	-- passes array a {} into buffer
 	for c = 1,#outs do
 		outs[c]:set_table(a, n_samples)
 	end
-
-	if (a ~= ao) then
-		self:queue_draw()
-	end
-	ao = amplitude
+	draw = draw + n_samples
 end
 
 function render_inline (ctx, w, max_h) --inline display