aboutsummaryrefslogtreecommitdiff
path: root/memento/originator.pd
blob: 5d9fbc57de18a8080f8d0d1e1e217a0b46aefeb5 (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
#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 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 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 828 540 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 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 obj 535 300 prepend set;
#X obj 764 437 OSCroute /preset /substate;
#X msg 745 513 /preset \$1;
#X connect 5 0 66 0;
#X connect 10 0 54 0;
#X connect 11 0 61 1;
#X connect 12 0 66 0;
#X connect 13 0 66 0;
#X connect 14 0 31 0;
#X connect 16 0 17 0;
#X connect 16 0 81 0;
#X connect 17 0 27 0;
#X connect 18 0 20 0;
#X connect 19 0 20 0;
#X connect 21 0 65 0;
#X connect 22 0 26 0;
#X connect 22 1 19 0;
#X connect 23 0 36 0;
#X connect 25 0 6 0;
#X connect 31 0 35 0;
#X connect 31 0 80 0;
#X connect 33 0 61 0;
#X connect 33 0 79 0;
#X connect 36 0 24 0;
#X connect 38 0 40 0;
#X connect 39 0 28 0;
#X connect 40 0 28 0;
#X connect 40 1 39 0;
#X connect 41 0 36 0;
#X connect 42 0 49 0;
#X connect 43 0 42 1;
#X connect 43 0 48 1;
#X connect 43 1 41 1;
#X connect 44 0 38 0;
#X connect 44 1 45 0;
#X connect 46 0 47 0;
#X connect 47 0 42 0;
#X connect 48 0 37 0;
#X connect 53 0 67 0;
#X connect 53 1 52 0;
#X connect 54 0 41 0;
#X connect 54 0 47 0;
#X connect 54 0 48 0;
#X connect 54 1 23 0;
#X connect 54 1 46 0;
#X connect 54 2 11 0;
#X connect 55 0 70 0;
#X connect 55 1 69 0;
#X connect 56 0 58 0;
#X connect 57 0 58 0;
#X connect 61 0 59 0;
#X connect 62 0 63 0;
#X connect 64 0 66 0;
#X connect 65 0 18 0;
#X connect 65 1 22 0;
#X connect 65 2 6 0;
#X connect 66 0 4 0;
#X connect 66 1 15 0;
#X connect 66 2 44 0;
#X connect 66 3 53 0;
#X connect 66 4 21 0;
#X connect 66 4 55 0;
#X connect 68 0 56 0;
#X connect 69 0 57 0;
#X connect 70 0 71 0;
#X connect 70 1 68 0;
#X connect 71 0 21 0;
#X connect 73 0 66 0;
#X connect 75 0 77 0;
#X connect 77 0 78 0;
#X connect 79 0 54 0;
#X connect 80 0 62 0;
#X connect 80 1 62 0;
#X connect 81 0 61 0;