aboutsummaryrefslogtreecommitdiff
path: root/sssad/panel.pd
blob: 088af6d3e5a71a62efb2c51419287d730a8a785c (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
#N canvas 0 0 733 629 10;
#X obj 601 349 textfile;
#X msg 484 256 clear;
#X obj 601 273 list prepend add;
#X obj 601 299 list trim;
#X obj 86 520 textfile;
#X obj 86 550 s SSSAD;
#X obj 86 462 until;
#X msg 86 441 100;
#X text 81 572 also received inside sssad;
#X obj 465 350 s SSSAD_ADMIN;
#X obj 601 205 r SSSAD_ADMIN;
#X obj 601 249 route persist;
#X obj 601 227 list trim;
#X msg 465 284 save;
#X msg 479 323 set;
#X obj 154 547 s SSSAD_ADMIN;
#X msg 154 522 set;
#X obj 446 133 savepanel;
#X msg 446 397 write \$1;
#X obj 6 24 bng 14 250 50 0 \$0-save_as empty save_as 17 7 0 8 -128992
-1 -1;
#X obj 86 418 t b a;
#X msg 133 463 read \$1 \, rewind;
#X obj 86 346 openpanel;
#X text 118 441 Avoid loops. A bang normally also works.;
#X obj 86 395 symbol;
#X text 40 597 Hint: get creative with the [OSCroute] external!;
#X obj 446 110 r \$0-save_as;
#X obj 374 110 r \$0-save;
#X obj 6 42 bng 14 250 50 0 \$0-save empty save 17 7 0 8 -128992 -66577
-1;
#X obj 6 60 bng 14 250 50 0 \$0-load empty load 17 7 0 8 -128992 -66577
-66577;
#X obj 86 323 r \$0-load;
#X obj 446 214 t a b b b;
#X text 103 27 This abstraction and all the other sssad state saving
stuff is due to the genius of Frank Barknecht. Any mistakes are purely
my own.;
#X obj 504 235 s SSSAD_SAVE;
#X obj 446 193 symbol;
#X obj 14 248 sel 0;
#X obj 14 202 loadbang;
#X obj 14 223 list append \$1;
#X obj 74 292 s \$0/filename;
#X text 11 175 only set the filename if one is supplied;
#X obj 123 372 r \$0/filename;
#X obj 520 132 r \$0/filename;
#X obj 344 214 s \$0/filename;
#X obj 446 155 t s s;
#X text 154 324 if the load button is pressed;
#X text 372 93 if save or save as are clicked;
#X obj 44 270 t b s;
#X connect 1 0 0 0;
#X connect 2 0 3 0;
#X connect 3 0 0 0;
#X connect 4 0 5 0;
#X connect 4 1 6 1;
#X connect 4 1 16 0;
#X connect 6 0 4 0;
#X connect 7 0 6 0;
#X connect 10 0 12 0;
#X connect 11 0 2 0;
#X connect 12 0 11 0;
#X connect 13 0 9 0;
#X connect 14 0 9 0;
#X connect 16 0 15 0;
#X connect 17 0 43 0;
#X connect 18 0 0 0;
#X connect 20 0 7 0;
#X connect 20 1 21 0;
#X connect 21 0 4 0;
#X connect 22 0 24 0;
#X connect 24 0 20 0;
#X connect 26 0 17 0;
#X connect 27 0 34 0;
#X connect 30 0 22 0;
#X connect 31 0 18 0;
#X connect 31 1 13 0;
#X connect 31 2 1 0;
#X connect 31 3 33 0;
#X connect 34 0 31 0;
#X connect 35 1 46 0;
#X connect 36 0 37 0;
#X connect 37 0 35 0;
#X connect 40 0 24 1;
#X connect 41 0 34 1;
#X connect 43 0 42 0;
#X connect 43 1 34 0;
#X connect 46 0 24 0;
#X connect 46 1 38 0;
#X coords 0 -1 1 1 85 80 1 0 0;