From 35994ca3a4ef6a136a16cac63b4f68540d0434e1 Mon Sep 17 00:00:00 2001 From: Frank Barknecht Date: Fri, 23 Apr 2004 16:22:42 +0000 Subject: This commit was generated by cvs2svn to compensate for changes in r1630, which included commits to RCS files with non-trunk default branches. svn path=/trunk/abstractions/rradical/; revision=1631 --- memento/rradical.state.pd | 223 ++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 223 insertions(+) create mode 100644 memento/rradical.state.pd (limited to 'memento/rradical.state.pd') 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; -- cgit v1.2.1