1 files changed, 223 insertions, 0 deletions
diff --git a/memento/rradical.state.pd b/memento/rradical.state.pd
new file mode 100644
index 0000000..eca72b1
--- /dev/null
+++ b/memento/rradical.state.pd
@@ -0,0 +1,223 @@
+#N canvas 52 147 1104 611 10;
+#X obj 103 176 outlet;
+#X obj 24 161 outlet;
+#X obj 182 161 print attr;
+#X obj 93 104 pool RRADICAL;
+#X obj 345 56 inlet;
+#X obj 48 55 r \$0-pool;
+#X obj 519 383 s \$0-pool;
+#X obj 345 141 symbol \$1;
+#X obj 274 39 loadbang;
+#X msg 400 287 getdir;
+#X obj 168 240 outlet;
+#X obj 597 323 prepend get;
+#X msg 456 172 getall;
+#X obj 526 239 s \$0-substate;
+#X obj 510 213 t b f;
+#X msg 127 42 echodir \$1;
+#X obj 127 15 tgl 15 1 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1
+;
+#X msg 124 71 getdir;
+#X msg 277 89 bang;
+#X msg 633 200 copyall;
+#X msg 712 202 paste;
+#X obj 651 230 s \$0-pool;
+#X obj 637 146 symbol;
+#N canvas 468 415 450 300 mkchange2substate 0;
+#X obj 92 39 inlet;
+#X obj 111 224 outlet;
+#X obj 198 93 r \$0-memento;
+#X obj 293 93 r \$0-substate;
+#X obj 111 150 pack s s 0;
+#X obj 92 93 symbol mkchdir;
+#X obj 92 67 t b;
+#X obj 111 180 route list;
+#X text 204 180 Un-List it again;
+#X connect 0 0 6 0;
+#X connect 2 0 4 1;
+#X connect 3 0 4 2;
+#X connect 4 0 7 0;
+#X connect 5 0 4 0;
+#X connect 6 0 5 0;
+#X connect 7 0 1 0;
+#X restore 510 284 pd mkchange2substate;
+#X obj 345 177 t b b s;
+#X obj 415 201 s \$0-memento;
+#X obj 555 168 prepend set;
+#X obj 6 111 print pool;
+#X obj 345 94 route state getstate getall substate set get;
+#X obj 637 168 select copy paste;
+#X obj 846 517 s \$0-pool;
+#X obj 54 344 print svld;
+#X obj 773 301 route ldxdir svxdir;
+#X msg 656 444 ldxdir \$1;
+#X msg 839 414 svxdir \$1;
+#X obj 660 422 symbol;
+#X obj 839 390 symbol;
+#X obj 188 372 print currentDir;
+#X msg 197 73 printroot;
+#N canvas 468 415 450 300 mkchange2tmp 0;
+#X obj 92 39 inlet;
+#X obj 111 224 outlet;
+#X obj 198 93 r \$0-memento;
+#X obj 92 93 symbol mkchdir;
+#X obj 92 67 t b;
+#X obj 111 180 route list;
+#X text 204 180 Un-List it again;
+#X msg 296 94 symbol tmp;
+#X obj 111 150 pack s s s;
+#X obj 296 66 loadbang;
+#X msg 167 37 bang;
+#X connect 0 0 4 0;
+#X connect 2 0 8 1;
+#X connect 3 0 8 0;
+#X connect 4 0 3 0;
+#X connect 5 0 1 0;
+#X connect 7 0 8 2;
+#X connect 8 0 5 0;
+#X connect 9 0 7 0;
+#X connect 10 0 4 0;
+#X restore 726 429 pd mkchange2tmp;
+#N canvas 468 415 450 300 mkchange2substate 0;
+#X obj 92 39 inlet;
+#X obj 111 224 outlet;
+#X obj 198 93 r \$0-memento;
+#X obj 293 93 r \$0-substate;
+#X obj 111 150 pack s s 0;
+#X obj 92 93 symbol mkchdir;
+#X obj 111 180 route list;
+#X text 204 180 Un-List it again;
+#X text 195 29 change back to substate dir;
+#X obj 92 67 t b b;
+#X msg 38 98 clrclip;
+#X connect 0 0 9 0;
+#X connect 2 0 4 1;
+#X connect 3 0 4 2;
+#X connect 4 0 6 0;
+#X connect 5 0 4 0;
+#X connect 6 0 1 0;
+#X connect 9 0 10 0;
+#X connect 9 1 5 0;
+#X connect 10 0 1 0;
+#X restore 806 362 pd mkchange2substate;
+#X obj 698 345 t b a b;
+#N canvas 405 362 611 326 tmp2sub 0;
+#X obj 121 12 inlet;
+#X obj 111 224 outlet;
+#X obj 198 93 r \$0-memento;
+#X obj 293 93 r \$0-substate;
+#X obj 111 150 pack s s 0;
+#X obj 92 93 symbol mkchdir;
+#X obj 111 180 route list;
+#X text 204 180 Un-List it again;
+#X msg 36 91 paste;
+#X obj 121 40 t b b b;
+#X text 191 19 copies data from "tmp" dir \, changes to current substate
+\, pastes data.;
+#X msg 406 90 copyall;
+#X connect 0 0 9 0;
+#X connect 2 0 4 1;
+#X connect 3 0 4 2;
+#X connect 4 0 6 0;
+#X connect 5 0 4 0;
+#X connect 6 0 1 0;
+#X connect 8 0 1 0;
+#X connect 9 0 8 0;
+#X connect 9 1 5 0;
+#X connect 9 2 11 0;
+#X connect 11 0 1 0;
+#X restore 574 443 pd tmp2sub;
+#N canvas 405 362 611 326 sub2tmp 0;
+#X obj 121 12 inlet;
+#X obj 111 224 outlet;
+#X obj 198 93 r \$0-memento;
+#X obj 92 93 symbol mkchdir;
+#X obj 111 180 route list;
+#X text 204 180 Un-List it again;
+#X msg 36 91 paste;
+#X obj 121 40 t b b b;
+#X msg 406 90 copyall;
+#X text 189 8 copies data from current dir \, changes to "tmp" dir
+\, pastes data.;
+#X obj 293 93 symbol tmp;
+#X msg 294 47 bang;
+#X obj 359 47 loadbang;
+#X obj 111 150 pack s s s;
+#X connect 0 0 7 0;
+#X connect 2 0 13 1;
+#X connect 3 0 13 0;
+#X connect 4 0 1 0;
+#X connect 6 0 1 0;
+#X connect 7 0 6 0;
+#X connect 7 1 3 0;
+#X connect 7 2 8 0;
+#X connect 8 0 1 0;
+#X connect 10 0 13 2;
+#X connect 11 0 10 0;
+#X connect 12 0 10 0;
+#X connect 13 0 4 0;
+#X restore 909 416 pd sub2tmp;
+#X obj 851 328 t b a b;
+#X msg 710 394 bang;
+#X obj 204 273 print currentCommand;
+#X obj 706 526 print ldx;
+#X obj 941 502 print svx;
+#X connect 3 0 1 0;
+#X connect 3 1 0 0;
+#X connect 3 2 10 0;
+#X connect 3 4 2 0;
+#X connect 4 0 28 0;
+#X connect 5 0 3 0;
+#X connect 7 0 24 0;
+#X connect 8 0 7 0;
+#X connect 9 0 6 0;
+#X connect 11 0 6 0;
+#X connect 12 0 6 0;
+#X connect 14 0 23 0;
+#X connect 14 1 13 0;
+#X connect 15 0 3 0;
+#X connect 16 0 15 0;
+#X connect 17 0 3 0;
+#X connect 18 0 7 0;
+#X connect 19 0 21 0;
+#X connect 20 0 21 0;
+#X connect 22 0 29 0;
+#X connect 23 0 6 0;
+#X connect 24 0 9 0;
+#X connect 24 1 23 0;
+#X connect 24 2 25 0;
+#X connect 26 0 6 0;
+#X connect 28 0 7 0;
+#X connect 28 1 9 0;
+#X connect 28 2 12 0;
+#X connect 28 3 14 0;
+#X connect 28 4 26 0;
+#X connect 28 5 11 0;
+#X connect 28 6 22 0;
+#X connect 28 6 32 0;
+#X connect 29 0 19 0;
+#X connect 29 1 20 0;
+#X connect 32 0 41 0;
+#X connect 32 1 44 0;
+#X connect 33 0 30 0;
+#X connect 33 0 47 0;
+#X connect 34 0 30 0;
+#X connect 34 0 48 0;
+#X connect 35 0 33 0;
+#X connect 36 0 34 0;
+#X connect 38 0 3 0;
+#X connect 39 0 30 0;
+#X connect 39 0 47 0;
+#X connect 40 0 30 0;
+#X connect 40 0 48 0;
+#X connect 41 0 42 0;
+#X connect 41 1 35 0;
+#X connect 41 2 39 0;
+#X connect 42 0 30 0;
+#X connect 42 0 47 0;
+#X connect 43 0 30 0;
+#X connect 43 0 48 0;
+#X connect 44 0 40 0;
+#X connect 44 1 36 0;
+#X connect 44 2 43 0;
+#X connect 45 0 35 0;