Am Mittwoch, den 23. November 2016 um 21:28:52 Uhr (-0200) schrieb Alexandre
Torres Porres:
> please show us (and miller) what it is about :)
patch against vanilla pd is attached. Also a small usage example.
Although it's trivial, adding it to pd would be quite useful for me
especially since it doesn't break any backwards compatibility. In
rehearsals of pieces with long delays/reverbs it's a real time-saver
;-)
--
Orm
--- src/d_delay.c-orig 2016-11-24 10:26:25.040469748 +0100
+++ src/d_delay.c 2016-11-24 10:25:19.878068543 +0100
@@ -51,6 +51,16 @@ static void sigdelwrite_updatesr(t_sigde
}
}
+static void sigdelwrite_clear (t_sigdelwrite *x) /* added by Orm Finnendahl */
+{
+ t_int i;
+ t_sample* p1=x->x_cspace.c_vec;
+ if (x->x_cspace.c_n > 0) {
+ for (i=0;i < (x->x_cspace.c_n + XTRASAMPS);i++)
+ *p1++ = (t_sample) 0;
+ }
+}
+
/* routine to check that all delwrites/delreads/vds have same vecsize */
static void sigdelwrite_checkvecsize(t_sigdelwrite *x, int vecsize)
{
@@ -136,6 +146,8 @@ static void sigdelwrite_setup(void)
CLASS_MAINSIGNALIN(sigdelwrite_class, t_sigdelwrite, x_f);
class_addmethod(sigdelwrite_class, (t_method)sigdelwrite_dsp,
gensym("dsp"), A_CANT, 0);
+ class_addmethod(sigdelwrite_class, (t_method)sigdelwrite_clear,
+ gensym("clear"), 0);
}
/* ----------------------------- delread~ ----------------------------- */
#N canvas 687 316 768 484 10;
#X obj 236 123 delwrite~ d1 10000;
#X obj 238 174 delread~ d1 9000;
#X obj 238 196 *~ 0.1;
#X obj 238 218 dac~;
#X obj 237 94 osc~ 440;
#X msg 187 92 clear;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 4 0 0 0;
#X connect 5 0 0 0;
_______________________________________________
Pd-list@lists.iem.at mailing list
UNSUBSCRIBE and account-management ->
https://lists.puredata.info/listinfo/pd-list
