From 38e5c23ab08ca2ccdd6bebce8de24c0d1167b827 Mon Sep 17 00:00:00 2001
From: Frank Barknecht <fbar@users.sourceforge.net>
Date: Wed, 14 Jul 2004 20:24:24 +0000
Subject: Added careOSC:

  careOSC is able to persist a RRADICAL state to a textfile using
  OSC-notation. Order in this file does matter.

svn path=/trunk/abstractions/rradical/; revision=1861
---
 memento/careOSC.pd | 224 +++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 224 insertions(+)
 create mode 100644 memento/careOSC.pd

diff --git a/memento/careOSC.pd b/memento/careOSC.pd
new file mode 100644
index 0000000..0f4796b
--- /dev/null
+++ b/memento/careOSC.pd
@@ -0,0 +1,224 @@
+#N canvas 159 71 136 70 10;
+#N canvas 0 0 1009 776 guts 0;
+#X msg 136 235 chdir;
+#N canvas 0 0 710 488 listdirs 0;
+#X obj 35 14 inlet;
+#X obj 284 279 outlet;
+#X obj 348 27 inlet;
+#X msg 240 13 getsub;
+#X obj 286 250 textfile;
+#X msg 269 168 clear;
+#X msg 357 165 print;
+#X obj 239 43 t b a b;
+#X msg 220 191 rewind;
+#X text 356 253 toplevel dirs;
+#X obj 299 100 spigot;
+#X msg 301 69 0;
+#X msg 329 70 1;
+#X obj 428 281 outlet;
+#X obj 37 89 select getsub output;
+#X msg 452 154 bang;
+#X obj 38 48 symbol;
+#X obj 40 40;
+#X obj 361 279 outlet;
+#X obj 299 138 prepend add;
+#X connect 0 0 16 0;
+#X connect 2 0 10 0;
+#X connect 3 0 7 0;
+#X connect 4 0 1 0;
+#X connect 4 1 18 0;
+#X connect 5 0 4 0;
+#X connect 6 0 4 0;
+#X connect 7 0 8 0;
+#X connect 7 0 11 0;
+#X connect 7 1 13 0;
+#X connect 7 2 5 0;
+#X connect 7 2 12 0;
+#X connect 8 0 4 0;
+#X connect 10 0 19 0;
+#X connect 11 0 10 1;
+#X connect 12 0 10 1;
+#X connect 14 0 3 0;
+#X connect 14 1 4 0;
+#X connect 15 0 4 0;
+#X connect 16 0 14 0;
+#X connect 19 0 4 0;
+#X restore 79 315 pd listdirs;
+#X msg 79 238 getsub;
+#X msg 93 264 output;
+#N canvas 0 0 710 488 listdirs 0;
+#X obj 35 14 inlet;
+#X obj 284 279 outlet;
+#X obj 348 27 inlet;
+#X msg 240 13 getsub;
+#X obj 286 250 textfile;
+#X msg 269 168 clear;
+#X msg 357 165 print;
+#X obj 239 43 t b a b;
+#X msg 220 191 rewind;
+#X text 356 253 toplevel dirs;
+#X obj 299 100 spigot;
+#X msg 301 69 0;
+#X msg 329 70 1;
+#X obj 428 281 outlet;
+#X obj 37 89 select getsub output;
+#X msg 452 154 bang;
+#X obj 38 48 symbol;
+#X obj 361 279 outlet;
+#X obj 309 148 prepend add;
+#X connect 0 0 16 0;
+#X connect 2 0 10 0;
+#X connect 3 0 7 0;
+#X connect 4 0 1 0;
+#X connect 4 1 17 0;
+#X connect 5 0 4 0;
+#X connect 6 0 4 0;
+#X connect 7 0 8 0;
+#X connect 7 0 11 0;
+#X connect 7 1 13 0;
+#X connect 7 2 5 0;
+#X connect 7 2 12 0;
+#X connect 8 0 4 0;
+#X connect 10 0 18 0;
+#X connect 11 0 10 1;
+#X connect 12 0 10 1;
+#X connect 14 0 3 0;
+#X connect 14 1 4 0;
+#X connect 15 0 4 0;
+#X connect 16 0 14 0;
+#X connect 18 0 4 0;
+#X restore 448 208 pd listdirs;
+#X msg 421 174 getsub;
+#X obj 339 170 symbol;
+#X msg 486 176 output;
+#X msg 298 198 chdir \$1;
+#X msg 219 141 absdir \$1;
+#X obj 198 119 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0
+1;
+#X obj 62 178 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
+-1;
+#X obj 216 73 loadbang;
+#X obj 61 200 t b b b b;
+#X obj 79 342 send \$0-top;
+#X obj 344 77 r \$0-top;
+#X obj 352 135 t b b b b a;
+#X obj 469 149 until;
+#X msg 219 98 1;
+#X obj 584 327 prepend chdir;
+#X msg 526 330 getall;
+#X obj 542 275 t b a a;
+#X obj 779 378 symbol;
+#X msg 776 358 \$1;
+#X obj 739 293 prepend list;
+#X obj 781 322 t a a;
+#X msg 700 404 \$2;
+#X msg 757 436 set \$1;
+#X obj 761 479 prepend nothing;
+#X obj 783 408 makefilename %s/preset;
+#X obj 549 557 prepend nothing;
+#X obj 605 468 makefilename;
+#X msg 586 532 set \$1;
+#X msg 629 444 set \$1%s;
+#X obj 693 648 textfile;
+#X obj 689 611 prepend add;
+#X msg 797 571 clear;
+#X msg 62 401 print;
+#X obj 476 101 del 250;
+#X text 536 96 savety measure;
+#X obj 214 320 pool RRADICAL;
+#X obj 575 366 pool RRADICAL;
+#X text 47 75 bang for save!;
+#X text 907 615 write file;
+#X obj 865 586 prepend write;
+#X obj 863 529 r \$0-save;
+#X obj 78 146 r \$0-create;
+#X obj 860 555 savepanel;
+#X obj 693 705 outlet;
+#X obj 714 675 until;
+#X obj 534 594 r \$0-load;
+#X obj 537 626 openpanel;
+#X msg 539 647 read \$1;
+#X obj 530 669 t b b a;
+#X msg 567 696 rewind;
+#X text 122 365 list topdirs;
+#X text 538 208 list subdirs (presets!);
+#X connect 0 0 40 0;
+#X connect 1 0 14 0;
+#X connect 1 2 40 0;
+#X connect 2 0 1 0;
+#X connect 3 0 1 0;
+#X connect 4 0 21 0;
+#X connect 4 1 3 0;
+#X connect 4 1 17 1;
+#X connect 4 2 40 0;
+#X connect 5 0 4 0;
+#X connect 6 0 8 0;
+#X connect 7 0 4 0;
+#X connect 8 0 40 0;
+#X connect 9 0 40 0;
+#X connect 10 0 9 0;
+#X connect 11 0 13 0;
+#X connect 12 0 18 0;
+#X connect 13 0 37 0;
+#X connect 13 1 3 0;
+#X connect 13 2 2 0;
+#X connect 13 3 0 0;
+#X connect 13 3 36 0;
+#X connect 15 0 16 0;
+#X connect 16 1 38 0;
+#X connect 16 2 17 0;
+#X connect 16 3 5 0;
+#X connect 16 4 6 0;
+#X connect 17 0 7 0;
+#X connect 18 0 9 0;
+#X connect 19 0 41 0;
+#X connect 20 0 41 0;
+#X connect 21 0 20 0;
+#X connect 21 1 19 0;
+#X connect 21 2 24 0;
+#X connect 22 0 29 0;
+#X connect 22 0 33 0;
+#X connect 23 0 22 0;
+#X connect 24 0 25 0;
+#X connect 25 0 26 0;
+#X connect 25 1 23 0;
+#X connect 26 0 28 0;
+#X connect 27 0 28 0;
+#X connect 28 0 35 0;
+#X connect 29 0 27 0;
+#X connect 30 0 35 0;
+#X connect 31 0 32 0;
+#X connect 32 0 30 0;
+#X connect 33 0 31 0;
+#X connect 34 0 48 0;
+#X connect 34 1 49 1;
+#X connect 35 0 34 0;
+#X connect 36 0 34 0;
+#X connect 37 0 34 0;
+#X connect 38 0 17 1;
+#X connect 40 1 1 1;
+#X connect 40 1 4 1;
+#X connect 41 0 30 0;
+#X connect 41 1 31 0;
+#X connect 44 0 34 0;
+#X connect 45 0 47 0;
+#X connect 46 0 11 0;
+#X connect 47 0 44 0;
+#X connect 49 0 34 0;
+#X connect 50 0 51 0;
+#X connect 51 0 52 0;
+#X connect 52 0 53 0;
+#X connect 53 0 49 0;
+#X connect 53 1 54 0;
+#X connect 53 2 34 0;
+#X connect 54 0 34 0;
+#X restore 23 4 pd guts;
+#X obj 13 28 bng 24 250 50 0 \$0-create \$0-create create 0 -6 0 8
+-24198 -1 -1;
+#X obj 57 28 bng 24 250 50 0 \$0-save \$0-save save 0 -6 0 8 -241291
+-1 -1;
+#X obj 98 29 bng 24 250 50 0 \$0-load \$0-load load 0 -6 0 8 -258699
+-1 -1;
+#X obj 49 49 outlet;
+#X connect 0 0 4 0;
+#X coords 0 0 1 1 120 60 1;
-- 
cgit v1.2.1