1 files changed, 79 insertions, 0 deletions
diff --git a/s-lsystem.pd b/s-lsystem.pd
new file mode 100644
index 0000000..edbef0e
--- /dev/null
+++ b/s-lsystem.pd
@@ -0,0 +1,79 @@
+#N canvas 705 11 516 709 10;
+#X obj 14 382 s-ireplace;
+#X obj 14 43 route clear rule;
+#X obj 14 65 list prepend clear;
+#X obj 14 167 list trim;
+#X obj 67 192 list prepend rule;
+#X obj 67 213 list trim;
+#X obj 14 20 inlet;
+#X obj 18 683 outlet;
+#X obj 90 293 list split 1;
+#X obj 144 397 list append;
+#X obj 151 441 t l;
+#X obj 18 465 list;
+#X obj 41 441 list prepend;
+#X obj 121 169 t l b b;
+#X obj 60 331 t b l;
+#X obj 121 147 list;
+#X obj 248 61 loadbang;
+#X obj 248 82 \$1;
+#X obj 248 103 sel 0;
+#X msg 248 124 1;
+#X obj 121 91 t l b;
+#X obj 232 151 f;
+#X obj 261 179 - 1;
+#X obj 232 179 f;
+#X obj 72 515 f;
+#X obj 18 487 t b l;
+#X obj 50 657 list;
+#X obj 95 658 list;
+#X obj 307 124 inlet;
+#X obj 102 627 t b b;
+#X obj 72 557 sel 1;
+#X obj 72 536 <= 1;
+#X connect 0 0 12 0;
+#X connect 1 0 2 0;
+#X connect 1 1 4 0;
+#X connect 1 2 20 0;
+#X connect 2 0 3 0;
+#X connect 3 0 0 0;
+#X connect 4 0 5 0;
+#X connect 5 0 0 0;
+#X connect 6 0 1 0;
+#X connect 8 0 14 0;
+#X connect 8 1 9 1;
+#X connect 8 2 11 0;
+#X connect 9 0 8 0;
+#X connect 10 0 12 1;
+#X connect 11 0 25 0;
+#X connect 12 0 10 0;
+#X connect 12 0 11 1;
+#X connect 13 0 8 0;
+#X connect 13 1 12 1;
+#X connect 13 2 9 1;
+#X connect 14 0 9 0;
+#X connect 14 1 0 0;
+#X connect 15 0 13 0;
+#X connect 16 0 17 0;
+#X connect 17 0 18 0;
+#X connect 18 0 19 0;
+#X connect 18 1 21 1;
+#X connect 19 0 21 1;
+#X connect 20 0 15 0;
+#X connect 20 1 21 0;
+#X connect 21 0 23 0;
+#X connect 22 0 23 1;
+#X connect 23 0 22 0;
+#X connect 23 0 24 1;
+#X connect 24 0 31 0;
+#X connect 25 0 24 0;
+#X connect 25 1 26 1;
+#X connect 25 1 27 1;
+#X connect 26 0 7 0;
+#X connect 27 0 13 0;
+#X connect 28 0 21 1;
+#X connect 29 0 27 0;
+#X connect 29 1 23 0;
+#X connect 30 0 26 0;
+#X connect 30 1 29 0;
+#X connect 31 0 30 0;