1 files changed, 220 insertions, 0 deletions

diff --git a/semento/sft.rradical.state.pd b/semento/sft.rradical.state.pd
new file mode 100644
index 0000000..a7f7b2a
--- /dev/null
+++ b/semento/sft.rradical.state.pd
@@ -0,0 +1,220 @@
+#N canvas 33 22 1040 638 10;
+#X obj 108 454 outlet;
+#X obj 87 475 outlet;
+#X obj 173 410 print attr;
+#X obj 87 380 pool RRADICAL;
+#X obj 205 46 inlet;
+#X obj 42 331 r \$0-pool;
+#X obj 356 373 s \$0-pool;
+#X obj 205 124 symbol \$1;
+#X obj 134 29 loadbang;
+#X msg 255 278 getdir;
+#X obj 130 433 outlet;
+#X obj 457 313 prepend get;
+#X msg 306 160 getall;
+#X obj 386 228 s \$0-substate;
+#X obj 356 203 t b f;
+#X msg 121 318 echodir \$1;
+#X obj 121 291 tgl 15 1 empty empty empty 0 -6 0 8 -262144 -1 -1 1
+1;
+#X msg 118 347 getdir;
+#X msg 137 79 bang;
+#X msg 508 190 copyall;
+#X msg 565 190 paste;
+#X obj 532 223 s \$0-pool;
+#X obj 508 136 symbol;
+#N canvas 468 415 458 308 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 356 274 pd mkchange2substate;
+#X obj 205 160 t b b s;
+#X obj 249 209 s \$0-memento;
+#X obj 17 525 print pool;
+#X obj 205 84 route state getstate getall substate set get;
+#X obj 508 160 select copy paste;
+#X obj 698 550 s \$0-pool;
+#X obj 17 544 print svld;
+#X obj 601 373 symbol;
+#X obj 793 377 symbol;
+#X obj 17 563 print currentDir;
+#X msg 191 349 printroot;
+#N canvas 468 415 478 328 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 623 347 pd mkchange2tmp;
+#N canvas 1317 161 462 312 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 771 424 pd mkchange2substate;
+#X obj 579 325 t b a b;
+#N canvas 405 362 623 338 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 815 348 pd sub2tmp;
+#X obj 771 324 t b a b;
+#X msg 536 357 bang;
+#X obj 17 582 print currentCommand;
+#X obj 661 100 t a;
+#N canvas 757 334 643 358 tmp2sub+abs1 0;
+#X obj 121 12 inlet;
+#X obj 181 257 outlet;
+#X obj 268 126 r \$0-memento;
+#X obj 363 126 r \$0-substate;
+#X obj 181 183 pack s s 0;
+#X obj 162 126 symbol mkchdir;
+#X obj 181 213 route list;
+#X text 274 213 Un-List it again;
+#X msg 106 124 paste;
+#X msg 476 123 copyall;
+#X obj 121 40 t b b b b;
+#X msg 35 125 absdir 1;
+#X text 191 19 copies data from "tmp" dir \, changes to current substate
+\, pastes data \, returns to absolute directory mode.;
+#X connect 0 0 10 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 1 0;
+#X connect 10 0 11 0;
+#X connect 10 1 8 0;
+#X connect 10 2 5 0;
+#X connect 10 3 9 0;
+#X connect 11 0 1 0;
+#X restore 579 417 pd tmp2sub+abs1;
+#X obj 661 293 route lddir svdir;
+#X msg 793 398 absdir 0 \, svdir \$1 \, absdir 1;
+#X msg 601 393 absdir 0 \, lddir \$1;
+#X obj 407 160 prepent set;
+#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 27 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 28 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 27 0 7 0;
+#X connect 27 1 9 0;
+#X connect 27 2 12 0;
+#X connect 27 3 14 0;
+#X connect 27 4 47 0;
+#X connect 27 5 11 0;
+#X connect 27 6 22 0;
+#X connect 27 6 42 0;
+#X connect 28 0 19 0;
+#X connect 28 1 20 0;
+#X connect 31 0 46 0;
+#X connect 32 0 45 0;
+#X connect 34 0 3 0;
+#X connect 35 0 29 0;
+#X connect 36 0 29 0;
+#X connect 37 0 43 0;
+#X connect 37 1 31 0;
+#X connect 37 2 35 0;
+#X connect 38 0 29 0;
+#X connect 39 0 36 0;
+#X connect 39 1 32 0;
+#X connect 39 2 38 0;
+#X connect 40 0 31 0;
+#X connect 42 0 44 0;
+#X connect 43 0 29 0;
+#X connect 44 0 37 0;
+#X connect 44 1 39 0;
+#X connect 45 0 29 0;
+#X connect 46 0 29 0;
+#X connect 47 0 6 0;