1 files changed, 246 insertions, 0 deletions
diff --git a/memento/originator.pd b/memento/originator.pd
new file mode 100644
index 0000000..71afcd0
--- /dev/null
+++ b/memento/originator.pd
@@ -0,0 +1,246 @@
+#N canvas 260 166 978 591 10;
+#X text 425 22 responsibilities:;
+#X text 98 10 ORIGINATOR (the mixing engineer);
+#X text 447 59 * set memento (restore settings from photo);
+#X text 448 40 * create memento (take photo);
+#N canvas 76 23 720 450 createMemento 0;
+#X obj 48 84 inlet;
+#X obj 97 117 symbol \$1;
+#X obj 97 90 loadbang;
+#X obj 97 150 s \$0-memento;
+#X text 75 49 \$1 is the default name of the memento \, that this originator
+creates \, but it can be changed later.;
+#X obj 74 179 outlet;
+#X text 292 108 What is a memento?;
+#X text 275 121 a memento is a directory in a global (data)pool;
+#X obj 305 139 r \$0-memento;
+#X msg 309 180 state \$1;
+#X obj 319 213 s \$0-pool;
+#X connect 0 0 1 0;
+#X connect 1 0 3 0;
+#X connect 1 0 5 0;
+#X connect 2 0 1 0;
+#X connect 8 0 9 0;
+#X connect 9 0 10 0;
+#X restore 122 321 pd createMemento;
+#X obj 122 104 inlet;
+#N canvas 600 185 664 406 setMemento 0;
+#X text 238 12 setMemento is responsible for restoring all registered
+variables.;
+#X obj 64 26 inlet;
+#X obj 109 286 outlet;
+#X obj 109 249 r \$0-restore;
+#X msg 64 126 getall;
+#X obj 64 183 s \$0-pool;
+#N canvas 468 415 450 300 change2substate 0;
+#X obj 92 39 inlet;
+#X obj 113 198 outlet;
+#X obj 185 93 r \$0-memento;
+#X obj 280 93 r \$0-substate;
+#X obj 113 144 pack s s 0;
+#X obj 92 93 symbol chdir;
+#X obj 92 67 t b;
+#X obj 113 167 route list;
+#X text 218 163 un-list 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 131 127 pd change2substate;
+#X text 186 104 change to dir memento substate;
+#X obj 64 52 t b b b;
+#X obj 130 75 s \$0-set-ON;
+#X connect 1 0 8 0;
+#X connect 3 0 2 0;
+#X connect 4 0 5 0;
+#X connect 6 0 5 0;
+#X connect 8 0 4 0;
+#X connect 8 1 6 0;
+#X connect 8 2 9 0;
+#X restore 256 446 pd setMemento;
+#X text 431 90 What is a memento?;
+#X text 463 111 a memento is a directory in a global (data)pool;
+#X text 432 135 What is a state?;
+#X obj 563 328 r \$0-pool;
+#X symbolatom 691 374 10 0 0 3 memento - -;
+#X msg 170 103 create help;
+#X msg 261 103 set memento;
+#X obj 777 348 inlet;
+#X obj 535 300 prepend set;
+#X obj 178 297 s \$0-substate;
+#X obj 787 463 r \$0-substate;
+#X msg 787 492 substate \$1;
+#X msg 99 471 copy;
+#X msg 210 472 paste;
+#X obj 134 514 s \$0-pool;
+#X obj 309 341 symbol;
+#X obj 156 440 t b b;
+#X msg 620 389 set \$1;
+#X obj 563 460 s \$2-in;
+#X obj 197 418 r \$0-set;
+#X obj 148 472 s \$0-set;
+#X obj 787 521 s \$0-pool;
+#X obj 225 274 s \$0-pool;
+#X text 462 154 a state is the content of a memento subdirectory named
+by a number.;
+#X text 819 348 OSC inlet;
+#X obj 777 377 OSCroute \$1;
+#X text 462 154 a state is the content of a memento subdirectory named
+by a number.;
+#X obj 535 273 r \$2-RRADICAL-MEMENTO;
+#X text 443 248 \$2-RRADICAL-MEMENTO is sent by commun objects;
+#X obj 777 413 s \$2-RRADICAL-OSC;
+#X obj 563 419 prepend RRADICAL.dummy;
+#X obj 385 520 outlet;
+#X obj 235 196 prepend get;
+#N canvas 468 415 450 300 ch2subs 0;
+#X obj 92 39 inlet;
+#X obj 113 198 outlet;
+#X obj 185 93 r \$0-memento;
+#X obj 280 93 r \$0-substate;
+#X obj 113 144 pack s s 0;
+#X obj 92 67 t b;
+#X obj 113 167 route list;
+#X text 218 163 un-list again;
+#X obj 92 94 symbol chdir;
+#X connect 0 0 5 0;
+#X connect 2 0 4 1;
+#X connect 3 0 4 2;
+#X connect 4 0 6 0;
+#X connect 5 0 8 0;
+#X connect 6 0 1 0;
+#X connect 8 0 4 0;
+#X restore 255 252 pd ch2subs;
+#X obj 225 230 t a b;
+#X obj 563 382 spigot;
+#X obj 448 520 spigot;
+#N canvas 548 386 450 300 tgl 0;
+#X obj 155 198 outlet;
+#X obj 240 198 outlet;
+#X msg 151 120 0;
+#X msg 184 120 1;
+#X msg 233 120 0;
+#X msg 266 120 1;
+#X obj 295 55 r \$0-set-ON;
+#X obj 292 85 loadbang;
+#X obj 185 65 r \$0-get-ON;
+#X text 20 7 This tgl is to prevent some loops when using get and set.
+;
+#X connect 2 0 0 0;
+#X connect 3 0 0 0;
+#X connect 4 0 1 0;
+#X connect 5 0 1 0;
+#X connect 6 0 2 0;
+#X connect 6 0 5 0;
+#X connect 7 0 5 0;
+#X connect 7 0 2 0;
+#X connect 8 0 3 0;
+#X connect 8 0 4 0;
+#X restore 486 348 pd tgl;
+#X obj 235 177 t a b;
+#X obj 287 175 s \$0-get-ON;
+#X msg 505 463 set \$1;
+#X obj 448 493 prepend RRADICAL.dummy;
+#X obj 385 493 spigot;
+#X obj 448 544 outlet;
+#X text 353 541 Value outlet;
+#X text 494 545 Value/Key outlet;
+#X obj 370 228 s \$0-substate;
+#X obj 340 203 t b f;
+#X obj 563 351 rradical.state \$1;
+#X obj 22 197 route ldxdir svxdir;
+#X msg 23 285 ldxdir \$1;
+#X msg 102 289 svxdir \$1;
+#X obj 23 316 s \$0-pool;
+#X obj 646 494 outlet;
+#X text 641 515 OSC outlet;
+#X obj 637 461 OSCprepend \$1;
+#X msg 720 487 setsub \$1;
+#X obj 764 437 OSCroute /preset;
+#X obj 720 547 s \$0-setsub;
+#X obj 173 77 r \$0-setsub;
+#X obj 161 378 select copy paste set;
+#X obj 122 132 route create substate get setsub;
+#X obj 340 251 s \$0-set;
+#X obj 25 261 symbol;
+#X obj 101 267 symbol;
+#X obj 12 220 t b a;
+#X msg 12 360 set;
+#X text 12 382 after loadx \, set;
+#X obj 12 77 r SET_ALL_RRADICALS;
+#X text 14 47 global send to do something crazy with!;
+#X obj 818 245 r \$0-substate;
+#X text 795 218 \$2 == \$0 parent;
+#X msg 818 270 set \$1;
+#X obj 818 298 s \$2-parentstate;
+#X connect 5 0 68 0;
+#X connect 10 0 55 0;
+#X connect 11 0 62 1;
+#X connect 12 0 68 0;
+#X connect 13 0 68 0;
+#X connect 14 0 32 0;
+#X connect 15 0 55 0;
+#X connect 17 0 18 0;
+#X connect 18 0 28 0;
+#X connect 19 0 21 0;
+#X connect 20 0 21 0;
+#X connect 22 0 67 0;
+#X connect 23 0 27 0;
+#X connect 23 1 20 0;
+#X connect 24 0 37 0;
+#X connect 26 0 6 0;
+#X connect 32 0 36 0;
+#X connect 32 0 64 0;
+#X connect 34 0 15 0;
+#X connect 34 0 62 0;
+#X connect 37 0 25 0;
+#X connect 39 0 41 0;
+#X connect 40 0 29 0;
+#X connect 41 0 29 0;
+#X connect 41 1 40 0;
+#X connect 42 0 37 0;
+#X connect 43 0 50 0;
+#X connect 44 0 43 1;
+#X connect 44 0 49 1;
+#X connect 44 1 42 1;
+#X connect 45 0 39 0;
+#X connect 45 1 46 0;
+#X connect 47 0 48 0;
+#X connect 48 0 43 0;
+#X connect 49 0 38 0;
+#X connect 54 0 69 0;
+#X connect 54 1 53 0;
+#X connect 55 0 42 0;
+#X connect 55 0 48 0;
+#X connect 55 0 49 0;
+#X connect 55 1 24 0;
+#X connect 55 1 47 0;
+#X connect 55 2 11 0;
+#X connect 56 0 72 0;
+#X connect 56 1 71 0;
+#X connect 57 0 59 0;
+#X connect 58 0 59 0;
+#X connect 62 0 60 0;
+#X connect 63 0 65 0;
+#X connect 64 0 63 0;
+#X connect 66 0 68 0;
+#X connect 67 0 19 0;
+#X connect 67 1 23 0;
+#X connect 67 2 6 0;
+#X connect 68 0 4 0;
+#X connect 68 1 16 0;
+#X connect 68 2 45 0;
+#X connect 68 3 54 0;
+#X connect 68 4 22 0;
+#X connect 68 4 56 0;
+#X connect 70 0 57 0;
+#X connect 71 0 58 0;
+#X connect 72 0 73 0;
+#X connect 72 1 70 0;
+#X connect 73 0 22 0;
+#X connect 75 0 68 0;
+#X connect 77 0 79 0;
+#X connect 79 0 80 0;