aboutsummaryrefslogtreecommitdiff
path: root/memento-p/originator-p.pd
blob: e3ccb9f663773a9dce5c8614e52b0f4f95009679 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
#N canvas 210 71 1030 697 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 178 297 s \$0-substate;
#X obj 828 482 r \$0-substate;
#X msg 828 511 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 obj 563 460 s \$2-in;
#X obj 197 418 r \$0-set;
#X obj 148 472 s \$0-set;
#X obj 828 540 s \$0-pool;
#X obj 225 274 s \$0-pool;
#X text 819 348 OSC inlet;
#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 385 520 outlet;
#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 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 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 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 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 msg 745 513 /preset \$1;
#X obj 563 351 rradical.state-p \$1;
#X obj 262 77 r \$2-localSave;
#X text 14 47 global send to do something crazy with!;
#X obj 262 56 r \$1-localSetsub;
#X obj 22 197 route lddir svdir;
#X msg 23 285 lddir \$1;
#X msg 102 289 svdir \$1;
#X obj 884 377 r \$1/OSC;
#X obj 731 308 r PDOSC;
#X obj 77 580 r \$1/getParams;
#X obj 77 619 s \$2/listParams;
#X text 85 599 Dispatch to commun-cs;
#X obj 563 419 prepent RRADICAL.dummy;
#X obj 535 300 prepent set;
#X obj 448 493 prepent RRADICAL.dummy;
#X obj 235 196 prepent get;
#X obj 816 32 r \$2-COMMUN-RESPONSE;
#X obj 816 86 s PDOSC;
#X obj 816 60 OSCprepend \$1;
#X obj 764 437 routeOSC /preset /substate;
#X obj 777 377 deeprouteOSC \$1;
#X obj 247 579 r \$2/returnParams;
#X obj 247 619 s \$1/paramsList;
#X connect 5 0 55 0;
#X connect 10 0 68 0;
#X connect 11 0 50 1;
#X connect 12 0 55 0;
#X connect 13 0 55 0;
#X connect 14 0 88 0;
#X connect 16 0 17 0;
#X connect 16 0 67 0;
#X connect 17 0 26 0;
#X connect 18 0 20 0;
#X connect 19 0 20 0;
#X connect 21 0 54 0;
#X connect 22 0 25 0;
#X connect 22 1 19 0;
#X connect 24 0 6 0;
#X connect 30 0 50 0;
#X connect 30 0 81 0;
#X connect 34 0 27 0;
#X connect 35 0 27 0;
#X connect 35 1 34 0;
#X connect 36 0 80 0;
#X connect 37 0 42 0;
#X connect 38 0 37 1;
#X connect 38 0 41 1;
#X connect 38 1 36 1;
#X connect 39 0 83 0;
#X connect 39 1 40 0;
#X connect 41 0 33 0;
#X connect 46 0 56 0;
#X connect 46 1 45 0;
#X connect 50 0 48 0;
#X connect 51 0 52 0;
#X connect 53 0 55 0;
#X connect 54 0 18 0;
#X connect 54 1 22 0;
#X connect 54 2 6 0;
#X connect 55 0 4 0;
#X connect 55 1 15 0;
#X connect 55 2 39 0;
#X connect 55 3 46 0;
#X connect 55 4 21 0;
#X connect 55 4 72 0;
#X connect 57 0 73 0;
#X connect 58 0 74 0;
#X connect 59 0 60 0;
#X connect 59 1 57 0;
#X connect 60 0 21 0;
#X connect 62 0 55 0;
#X connect 63 0 65 0;
#X connect 65 0 66 0;
#X connect 67 0 50 0;
#X connect 68 0 36 0;
#X connect 68 0 41 0;
#X connect 68 0 82 0;
#X connect 68 1 80 1;
#X connect 68 1 82 1;
#X connect 68 2 11 0;
#X connect 69 0 55 0;
#X connect 71 0 55 0;
#X connect 72 0 59 0;
#X connect 72 1 58 0;
#X connect 73 0 47 0;
#X connect 74 0 47 0;
#X connect 75 0 32 0;
#X connect 75 0 87 0;
#X connect 76 0 88 0;
#X connect 77 0 78 0;
#X connect 80 0 23 0;
#X connect 81 0 68 0;
#X connect 82 0 37 0;
#X connect 83 0 35 0;
#X connect 84 0 86 0;
#X connect 86 0 85 0;
#X connect 87 0 51 0;
#X connect 87 1 51 0;
#X connect 88 0 32 0;
#X connect 88 0 87 0;
#X connect 89 0 90 0;