Added dirac~

syn-dirac.pd

@@ -0,0 +1,15 @@
+#N canvas 0 23 459 396 10;
+#X obj 37 41 inlet;
+#X obj 72 302 outlet~;
+#X obj 37 87 list split 1;
+#X obj 52 124 cnv 15 120 150 empty empty play_dirac 20 12 0 14 -233017
+-66577 0;
+#X obj 313 43 inlet;
+#X obj 316 298 outlet;
+#X text 317 18 grrrr.org 2018;
+#X text 36 20 tag volume;
+#X obj 72 193 upp.dirac~;
+#X connect 0 0 2 0;
+#X connect 2 1 8 0;
+#X connect 4 0 5 0;
+#X connect 8 0 1 0;

syn-sine.pd

@@ -0,0 +1,20 @@
+#N canvas 566 273 461 373 10;
+#X obj 37 41 inlet;
+#X obj 72 302 outlet~;
+#X obj 37 87 list split 1;
+#X obj 52 124 cnv 15 120 150 empty empty play_sine 20 12 0 14 -233017
+-66577 0;
+#X obj 313 43 inlet;
+#X obj 316 298 outlet;
+#X obj 72 230 *~ 0;
+#X obj 72 193 osc~;
+#X obj 72 162 unpack 0 0;
+#X text 36 20 tag frq volume;
+#X text 317 18 grrrr.org 2018;
+#X connect 0 0 2 0;
+#X connect 2 1 8 0;
+#X connect 4 0 5 0;
+#X connect 6 0 1 0;
+#X connect 7 0 6 0;
+#X connect 8 0 7 0;
+#X connect 8 1 6 1;

upp.dirac~-help.pd

@@ -0,0 +1,55 @@
+#N canvas 208 60 516 517 10;
+#N canvas 0 22 239 213 print_dsp_blocks 0;
+#X obj 143 168 print~;
+#X obj 36 105 spigot;
+#X obj 105 105 - 1;
+#X obj 36 127 t a b;
+#X obj 36 80 t a a;
+#X obj 39 20 bang~;
+#X obj 37 59 f;
+#X obj 94 20 inlet;
+#X obj 145 20 inlet~;
+#X obj 94 42 t f b;
+#X connect 1 0 3 0;
+#X connect 2 0 6 1;
+#X connect 3 0 2 0;
+#X connect 3 1 0 0;
+#X connect 4 0 1 0;
+#X connect 4 1 1 1;
+#X connect 5 0 6 0;
+#X connect 6 0 4 0;
+#X connect 7 0 9 0;
+#X connect 8 0 0 0;
+#X connect 9 0 6 1;
+#X restore 28 327 pd print_dsp_blocks;
+#X obj 85 120 print ============;
+#X text 26 36 Time units are samples;
+#X obj 28 97 hradio 15 1 0 3 empty empty examples 0 -8 0 10 -260097
+-1 -1 2;
+#X obj 28 120 t b a b;
+#X obj 46 147 sel 0 1 2 3;
+#X text 26 56 grrrr.org 2018;
+#X msg 28 275 1;
+#X msg 47 175 1 0;
+#X msg 64 203 0.5 3;
+#X msg 79 226 0.5 3 \, 0.7 7;
+#X obj 64 275 upp.dirac~ 8;
+#X text 25 430 - block size (default=64);
+#X text 25 400 - voices (default=2): number of ramp parts within one
+DSP block. Overflow will be signaled at right outlet if exceeded;
+#X text 26 454 The block size can also be set through the right inlet
+;
+#X text 24 384 upp.dirac~ can be given two arguments:;
+#X text 26 17 Dirac spike;
+#X connect 3 0 4 0;
+#X connect 4 0 7 0;
+#X connect 4 1 5 0;
+#X connect 4 2 1 0;
+#X connect 5 0 8 0;
+#X connect 5 1 9 0;
+#X connect 5 2 10 0;
+#X connect 7 0 0 0;
+#X connect 8 0 11 0;
+#X connect 9 0 11 0;
+#X connect 10 0 11 0;
+#X connect 11 0 0 1;

upp.dirac~.pd

@@ -0,0 +1,30 @@
+#N canvas 0 23 398 335 10;
+#X obj 37 80 inlet;
+#X obj 77 284 outlet~;
+#X text 32 34 grrrr.org 2018;
+#X text 32 14 Dirac spike;
+#X obj 275 90 inlet;
+#X obj 77 201 pack 0 0 1;
+#X obj 134 179 + 1;
+#X obj 37 105 route bang float list;
+#X obj 77 155 unpack;
+#X text 34 63 bang or volume;
+#X msg 77 231 0 \, \$1 0 \$2 \, 0 0 \$3;
+#X text 273 70 block size;
+#X obj 77 254 upp.vline~ \$1 \$2;
+#X msg 37 126 1 0;
+#X msg 78 125 \$1 0;
+#X connect 0 0 7 0;
+#X connect 4 0 12 1;
+#X connect 5 0 10 0;
+#X connect 6 0 5 2;
+#X connect 7 0 13 0;
+#X connect 7 1 14 0;
+#X connect 7 2 8 0;
+#X connect 8 0 5 0;
+#X connect 8 1 6 0;
+#X connect 8 1 5 1;
+#X connect 10 0 12 0;
+#X connect 12 0 1 0;
+#X connect 13 0 8 0;
+#X connect 14 0 8 0;