implement delay (sender) side (shouldn't it be on the receiver side?)

pd-tools/include/tpf-client-link.pd

@@ -70,7 +70,7 @@
 #X connect 8 3 12 0;
 #X connect 11 0 0 0;
 #X restore 16 104 pd get.peer.data;
-#N canvas 277 523 937 517 gui.code 1;
+#N canvas 277 523 937 517 gui.code 0;
 #X obj 11 164 s \$0.client.label;
 #X msg 11 145 label \$1;
 #X obj 11 22 r \$0.peer.name;
@@ -301,7 +301,27 @@
 #X connect 17 0 15 0;
 #X connect 17 1 18 0;
 #X connect 18 0 14 1;
-#X restore 44 386 pd rx.button;
+#X restore 40 364 pd rx.button;
+#N canvas 347 761 450 300 delay.nb 0;
+#X obj 45 170 s \$0.delay.nb.r;
+#X msg 45 144 color -1 \$1 -1;
+#X msg 45 72 -1;
+#X msg 81 76 0;
+#X obj 45 17 r \$0.link;
+#X obj 45 38 sel 0 1;
+#X obj 81 97 t a a;
+#X obj 228 74 s \$0.delay;
+#X obj 228 44 r \$0.delay.nb.s;
+#X connect 1 0 0 0;
+#X connect 2 0 1 0;
+#X connect 3 0 6 0;
+#X connect 4 0 5 0;
+#X connect 5 0 2 0;
+#X connect 5 1 3 0;
+#X connect 6 0 1 0;
+#X connect 6 1 0 0;
+#X connect 8 0 7 0;
+#X restore 43 394 pd delay.nb;
 #X connect 1 0 0 0;
 #X connect 2 0 3 0;
 #X connect 3 0 10 0;
@@ -400,8 +420,6 @@
 0;
 #X obj 55 20 cnv 32 311 32 empty \$0.client.label empty 8 16 0 20 -1
 -262144 0;
-#X obj 477 20 cnv 32 70 32 empty \$0.dropped.label empty 8 16 0 20
--1 -262144 0;
 #X obj 550 20 cnv 32 70 32 empty \$0.glitch.label empty 8 16 0 20 -1
 -262144 0;
 #X obj 623 20 cnv 32 70 32 empty \$0.ooo.label empty 8 16 0 20 -1 -262144
@@ -546,7 +564,7 @@
 #X restore 16 164 pd jacktrip.start.stop;
 #X obj 404 20 cnv 32 70 32 empty \$0.channels.label empty 8 16 0 20
 -1 -262144 0;
-#X obj 16 234 adc~ 1 2 3 4 5 6 7 8;
+#X obj 16 212 adc~ 1 2 3 4 5 6 7 8;
 #N canvas 178 237 307 328 set.out.channels 0;
 #X obj 31 25 loadbang;
 #X msg 31 45 8;
@@ -938,41 +956,158 @@
 #X connect 67 1 68 0;
 #X connect 68 0 69 0;
 #X restore 16 124 pd negotiate.port;
+#X obj 404 25 nbx 4 20 0 9999 0 0 \$0.delay.nb.s \$0.delay.nb.r empty
+0 -8 0 20 -1 -1 -1 0 256;
+#X obj 475 20 cnv 10 10 32 empty empty empty 20 12 0 14 -262144 -66577
+0;
+#X obj 477 20 cnv 32 70 32 empty \$0.dropped.label empty 8 16 0 20
+-1 -262144 0;
+#N canvas 459 427 652 267 delay- 0;
+#X obj 512 46 r \$0.delay;
+#X obj 24 57 inlet~;
+#X obj 24 157 outlet~;
+#X obj 74 57 inlet~;
+#X obj 74 157 outlet~;
+#X obj 124 57 inlet~;
+#X obj 124 157 outlet~;
+#X obj 174 57 inlet~;
+#X obj 174 157 outlet~;
+#X obj 224 57 inlet~;
+#X obj 224 157 outlet~;
+#X obj 274 57 inlet~;
+#X obj 274 157 outlet~;
+#X obj 324 57 inlet~;
+#X obj 324 157 outlet~;
+#X obj 374 57 inlet~;
+#X obj 374 157 outlet~;
+#N canvas 0 53 607 309 delwrites_tilde.........................................
+0;
+#X obj 24 57 inlet~;
+#X obj 74 57 inlet~;
+#X obj 124 57 inlet~;
+#X obj 174 57 inlet~;
+#X obj 224 57 inlet~;
+#X obj 274 57 inlet~;
+#X obj 324 57 inlet~;
+#X obj 374 57 inlet~;
+#X obj 24 225 delwrite~ \$0.adel.0 10000;
+#X obj 74 205 delwrite~ \$0.adel.1 10000;
+#X obj 124 185 delwrite~ \$0.adel.2 10000;
+#X obj 174 165 delwrite~ \$0.adel.3 10000;
+#X obj 224 225 delwrite~ \$0.adel.4 10000;
+#X obj 273 205 delwrite~ \$0.adel.5 10000;
+#X obj 325 185 delwrite~ \$0.adel.6 10000;
+#X obj 374 165 delwrite~ \$0.adel.7 10000;
+#X obj 41 272 outlet~;
+#X connect 0 0 8 0;
+#X connect 1 0 9 0;
+#X connect 2 0 10 0;
+#X connect 3 0 11 0;
+#X connect 4 0 12 0;
+#X connect 5 0 13 0;
+#X connect 6 0 14 0;
+#X connect 7 0 15 0;
+#X restore 24 87 pd delwrites_tilde.........................................
+;
+#N canvas 0 53 597 274 delwrites_tilde.........................................
+0;
+#X obj 24 27 inlet~;
+#X obj 24 187 outlet~;
+#X obj 74 187 outlet~;
+#X obj 124 187 outlet~;
+#X obj 174 187 outlet~;
+#X obj 224 187 outlet~;
+#X obj 274 187 outlet~;
+#X obj 324 187 outlet~;
+#X obj 374 187 outlet~;
+#X obj 24 85 delread~ \$0.adel.0 0;
+#X obj 74 105 delread~ \$0.adel.1 0;
+#X obj 124 125 delread~ \$0.adel.2 0;
+#X obj 175 145 delread~ \$0.adel.3 0;
+#X obj 224 85 delread~ \$0.adel.4 0;
+#X obj 273 105 delread~ \$0.adel.5 0;
+#X obj 325 125 delread~ \$0.adel.6 0;
+#X obj 374 145 delread~ \$0.adel.7 0;
+#X obj 452 16 inlet;
+#X connect 9 0 1 0;
+#X connect 10 0 2 0;
+#X connect 11 0 3 0;
+#X connect 12 0 4 0;
+#X connect 13 0 5 0;
+#X connect 14 0 6 0;
+#X connect 15 0 7 0;
+#X connect 16 0 8 0;
+#X connect 17 0 9 0;
+#X connect 17 0 10 0;
+#X connect 17 0 11 0;
+#X connect 17 0 12 0;
+#X connect 17 0 13 0;
+#X connect 17 0 14 0;
+#X connect 17 0 15 0;
+#X connect 17 0 16 0;
+#X restore 24 127 pd delwrites_tilde.........................................
+;
+#X connect 0 0 18 1;
+#X connect 1 0 17 0;
+#X connect 3 0 17 1;
+#X connect 5 0 17 2;
+#X connect 7 0 17 3;
+#X connect 9 0 17 4;
+#X connect 11 0 17 5;
+#X connect 13 0 17 6;
+#X connect 15 0 17 7;
+#X connect 18 0 2 0;
+#X connect 18 1 4 0;
+#X connect 18 2 6 0;
+#X connect 18 3 8 0;
+#X connect 18 4 10 0;
+#X connect 18 5 12 0;
+#X connect 18 6 14 0;
+#X connect 18 7 16 0;
+#X restore 15 247 pd delay- - - - - - - - - -;
 #X connect 0 0 4 0;
 #X connect 1 0 2 0;
 #X connect 5 0 4 0;
-#X connect 12 0 36 0;
-#X connect 12 1 37 0;
-#X connect 12 2 38 0;
-#X connect 12 3 39 0;
-#X connect 12 4 40 0;
-#X connect 12 5 41 0;
-#X connect 12 6 42 0;
-#X connect 12 7 43 0;
-#X connect 12 8 14 0;
-#X connect 13 0 12 8;
-#X connect 16 0 15 0;
-#X connect 18 0 19 0;
-#X connect 20 0 15 0;
-#X connect 21 0 15 0;
-#X connect 24 0 12 0;
-#X connect 24 1 12 1;
-#X connect 24 2 12 2;
-#X connect 24 3 12 3;
-#X connect 24 4 12 4;
-#X connect 24 5 12 5;
-#X connect 24 6 12 6;
-#X connect 24 7 12 7;
-#X connect 25 0 27 0;
-#X connect 28 0 27 0;
-#X connect 29 0 27 1;
-#X connect 30 0 27 2;
-#X connect 31 0 27 3;
-#X connect 32 0 27 4;
-#X connect 33 0 27 5;
-#X connect 34 0 27 6;
-#X connect 35 0 27 7;
-#X connect 53 0 55 0;
+#X connect 11 0 35 0;
+#X connect 11 1 36 0;
+#X connect 11 2 37 0;
+#X connect 11 3 38 0;
+#X connect 11 4 39 0;
+#X connect 11 5 40 0;
+#X connect 11 6 41 0;
+#X connect 11 7 42 0;
+#X connect 11 8 13 0;
+#X connect 12 0 11 8;
+#X connect 15 0 14 0;
+#X connect 17 0 18 0;
+#X connect 19 0 14 0;
+#X connect 20 0 14 0;
+#X connect 23 0 61 0;
+#X connect 23 1 61 1;
+#X connect 23 2 61 2;
+#X connect 23 3 61 3;
+#X connect 23 4 61 4;
+#X connect 23 5 61 5;
+#X connect 23 6 61 6;
+#X connect 23 7 61 7;
+#X connect 24 0 26 0;
+#X connect 27 0 26 0;
+#X connect 28 0 26 1;
+#X connect 29 0 26 2;
+#X connect 30 0 26 3;
+#X connect 31 0 26 4;
+#X connect 32 0 26 5;
+#X connect 33 0 26 6;
+#X connect 34 0 26 7;
+#X connect 52 0 54 0;
+#X connect 54 0 53 0;
 #X connect 55 0 54 0;
-#X connect 56 0 55 0;
+#X connect 61 0 11 0;
+#X connect 61 1 11 1;
+#X connect 61 2 11 2;
+#X connect 61 3 11 3;
+#X connect 61 4 11 4;
+#X connect 61 5 11 5;
+#X connect 61 6 11 6;
+#X connect 61 7 11 7;
 #X coords 0 -1 1 1 953 32 2 20 20;

pd-tools/tpf-client.pd

@@ -1107,7 +1107,7 @@ symbol telematic.zhdk.ch \; \$1.channels 2 \; \$1.bitres 16 \; \$1.queue
 #X obj 271 397 print RECEIVE;
 #X obj 162 365 spigot;
 #X obj 271 365 spigot;
-#X obj 374 370 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
+#X obj 374 370 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
 1;
 #X msg 160 478 ---------------------------------;
 #X obj 160 499 print -n;
@@ -1143,13 +1143,13 @@ symbol telematic.zhdk.ch \; \$1.channels 2 \; \$1.bitres 16 \; \$1.queue
 #X obj 353 20 cnv 15 98 15 empty \$0.sr.label sr=44100Hz 4 7 0 13 -1
 -195568 0;
 #X obj 819 346 namecanvas \$0.main.cnv;
-#X obj 388 38 cnv 24 70 24 empty empty CHAN 5 13 0 16 -228856 -1 0
+#X obj 388 38 cnv 24 70 24 empty empty DELAY 5 13 0 16 -228856 -1 0
 ;
 #X obj 353 3 cnv 15 44 16 empty empty host= 4 8 0 13 -1 -262144 0;
 #X obj 398 3 symbolatom_203x17 \$0 \$0.host \$0.host.r 500 15;
 #X obj 605 3 nbx 7 16 6 34 0 0 \$0.channels.nb \$0.channels.nb.r empty
 0 8 0 10 -262144 -1 -1 8 256;
-#X obj 602 3 cnv 15 75 16 empty \$0.channels.label ch=4 4 8 0 13 -1
+#X obj 602 3 cnv 15 75 16 empty \$0.channels.label ch=2 4 8 0 13 -1
 -195568 0;
 #X obj 610 19 nbx 6 16 10 398 0 0 \$0.queue.nb \$0.queue.nb.r empty
 0 8 0 10 -262144 -1 -1 16 256;