1 files changed, 148 insertions, 0 deletions
diff --git a/test/cyclone/zl-test.pd b/test/cyclone/zl-test.pd
new file mode 100644
index 0000000..64900d0
--- /dev/null
+++ b/test/cyclone/zl-test.pd
@@ -0,0 +1,148 @@
+#N canvas 442 94 629 579 12;
+#X msg 196 21 bang;
+#X obj 196 161 zl group 3;
+#X msg 296 21 a b c;
+#X msg 62 133 symbol test;
+#X floatatom 54 171 5 0 0 0 - - -;
+#X msg 307 171 bang;
+#X msg 308 105 symbol test;
+#X floatatom 308 133 5 0 0 0 - - -;
+#X msg 29 21 b c d e f;
+#X msg 69 489 mode len \, debug \, bang \, mode previous \, debug;
+#X msg 433 77 2nd;
+#X msg 433 21 1st;
+#X obj 433 105 testmess 150;
+#X obj 433 49 testmess 150;
+#X msg 69 517 mode reg \, debug \, bang \, mode previous \, debug;
+#X msg 111 171 debug 1;
+#X msg 54 77 -1 -2 -3 -4 -5;
+#X msg 308 77 -4 -5 -6;
+#X obj 524 237 zl;
+#X msg 524 209 bang;
+#X msg 462 209 debug;
+#X msg 406 297 mode rev \, bang;
+#X msg 487 21 set 1000;
+#X msg 488 77 set 1000;
+#X msg 406 353 mode union \, bang;
+#X msg 406 325 mode sect \, bang;
+#X floatatom 49 301 5 0 0 0 - - -;
+#X msg 172 271 mode group \$1 \, bang;
+#X floatatom 49 276 5 0 0 0 - - -;
+#X msg 172 327 mode slice \$1 \, bang;
+#X msg 406 381 mode join \, bang;
+#X msg 172 243 mode iter \$1 \, bang;
+#X floatatom 49 326 5 0 0 0 - - -;
+#X floatatom 49 251 5 0 0 0 - - -;
+#X msg 172 299 mode rot \$1 \, bang;
+#X msg 172 355 mode ecils \$1 \, bang;
+#X floatatom 49 351 5 0 0 0 - - -;
+#X obj 196 189 print left;
+#X obj 307 199 print right;
+#X msg 172 383 mode nth \$1 \, bang;
+#N canvas 0 0 450 300 prev 0;
+#X obj 45 39 r doit;
+#X obj 173 246 outlet;
+#X obj 45 75 route mode;
+#X obj 173 211 prepend mode;
+#X obj 173 177 zl reg;
+#X msg 173 143 bang;
+#X obj 45 109 route len reg previous;
+#X msg 92 177 debug 1;
+#X connect 0 0 2 0;
+#X connect 2 0 6 0;
+#X connect 3 0 1 0;
+#X connect 4 0 3 0;
+#X connect 5 0 4 0;
+#X connect 6 2 5 0;
+#X connect 6 3 4 1;
+#X connect 7 0 4 0;
+#X restore 206 105 pd prev;
+#X obj 41 549 s doit;
+#X obj 359 458 s doit;
+#X obj 196 133 r doit;
+#X obj 409 133 s doit;
+#X obj 104 458 s doit;
+#X floatatom 49 382 5 0 0 0 - - -;
+#X floatatom 49 407 5 0 0 0 - - -;
+#X msg 172 411 mode nth \$1 x \, bang;
+#X msg 406 409 mode sub \, bang;
+#X obj 29 199 s doit;
+#X msg 62 105 1 1 2 2 1 2;
+#X msg 45 49 1 a b c test;
+#X msg 259 49 1 2;
+#X msg 308 49 148 149;
+#X msg 487 133 bang;
+#N canvas 419 256 450 300 more 0;
+#X obj 118 117 zl sub;
+#X obj 78 78 t a a;
+#X obj 51 185 print upto;
+#X obj 170 185 print downfrom;
+#X msg 78 42 a list with a pattern to split upon;
+#X msg 167 78 a pattern;
+#X obj 51 150 zl slice;
+#X msg 271 78 a list;
+#X msg 351 78 upon;
+#X msg 23 42 bang;
+#X obj 23 78 t b b;
+#X connect 0 0 6 1;
+#X connect 1 0 6 0;
+#X connect 1 1 0 0;
+#X connect 4 0 1 0;
+#X connect 5 0 0 1;
+#X connect 6 0 2 0;
+#X connect 6 1 3 0;
+#X connect 7 0 0 1;
+#X connect 8 0 0 1;
+#X connect 9 0 10 0;
+#X connect 10 0 6 0;
+#X connect 10 1 0 0;
+#X restore 396 251 pd more;
+#X connect 0 0 1 0;
+#X connect 1 0 37 0;
+#X connect 1 1 38 0;
+#X connect 2 0 1 1;
+#X connect 3 0 50 0;
+#X connect 4 0 50 0;
+#X connect 5 0 1 1;
+#X connect 6 0 1 1;
+#X connect 7 0 1 1;
+#X connect 8 0 50 0;
+#X connect 9 0 41 0;
+#X connect 10 0 12 0;
+#X connect 11 0 13 0;
+#X connect 12 0 1 1;
+#X connect 13 0 44 0;
+#X connect 14 0 41 0;
+#X connect 15 0 1 0;
+#X connect 16 0 50 0;
+#X connect 17 0 1 1;
+#X connect 19 0 18 0;
+#X connect 20 0 18 0;
+#X connect 21 0 42 0;
+#X connect 22 0 13 0;
+#X connect 23 0 12 0;
+#X connect 24 0 42 0;
+#X connect 25 0 42 0;
+#X connect 26 0 34 0;
+#X connect 27 0 45 0;
+#X connect 28 0 27 0;
+#X connect 29 0 45 0;
+#X connect 30 0 42 0;
+#X connect 31 0 45 0;
+#X connect 32 0 29 0;
+#X connect 33 0 31 0;
+#X connect 34 0 45 0;
+#X connect 35 0 45 0;
+#X connect 36 0 35 0;
+#X connect 39 0 45 0;
+#X connect 40 0 1 0;
+#X connect 43 0 1 0;
+#X connect 46 0 39 0;
+#X connect 47 0 48 0;
+#X connect 48 0 45 0;
+#X connect 49 0 42 0;
+#X connect 51 0 50 0;
+#X connect 52 0 50 0;
+#X connect 53 0 1 1;
+#X connect 54 0 1 1;
+#X connect 55 0 12 0;