-
Notifications
You must be signed in to change notification settings - Fork 5
/
Copy pathpsave.pd
116 lines (116 loc) · 2.9 KB
/
psave.pd
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
#N canvas 245 213 849 555 10;
#X declare -lib zexy -path zexy -path ./;
#X obj 251 1 loadbang;
#X obj 251 23 del 10;
#X obj 326 113 array define s\$1 1;
#X obj 266 359 array get s\$1;
#X obj 296 333 array set s\$1;
#X obj 266 381 else/order;
#X obj 155 98 tabwrite s\$1;
#X obj 128 75 t b l;
#X obj 128 122 array get s\$1;
#X msg 251 69 1;
#X obj 128 45 spigot;
#X obj 326 67 value v\$1;
#X msg 326 90 resize \$1;
#X obj 311 136 iemguts/canvasargs 1;
#X obj 266 403 list append \$1;
#X msg 266 425 \; \$3-\$1 \$2;
#X obj 311 211 route symbol;
#X obj 281 286 ctxfiles/collect;
#X obj 296 309 ctxfiles/collect;
#X obj 251 45 t b b b b b b;
#X obj 128 144 list prepend;
#X obj 311 158 cyclone/iter;
#X obj 128 23 receive \$1-*;
#X obj 311 233 sel -sketch;
#X obj 311 255 f 1;
#X obj 311 180 demux;
#X text 400 183 <-- split data for sketch;
#X obj 82 318 demux;
#X obj 57 498 send;
#X obj 114 360 sel ';
#X obj 114 406 ctxfiles/collect;
#X obj 114 382 t b f f;
#X text -172 384 For sketch \, collect all data until ' is reached.
Then send to first term and reset., f 31;
#X obj 529 264 receive \$2-fromsketch;
#X obj 78 474 makefilename %s-tosketch;
#X obj 549 364 array get s\$1;
#X obj 549 386 list append;
#X obj 549 408 list prepend;
#X obj 529 286 list append;
#X obj 529 308 t b b l l;
#X obj 529 330 del 500;
#X obj 51 360 t a b;
#X obj 83 382 f 1;
#X obj 114 428 list prepend \$1;
#X obj 114 450 list trim;
#X obj 597 102 receive \$2-amirite;
#X obj 597 124 t b f;
#X obj 597 168 symbol \$1;
#X obj 597 190 send;
#X obj 624 146 makefilename %d-imrite;
#X obj 435 10 ctxfiles/license;
#X obj 435 73 declare -lib zexy -path zexy -path ./;
#X connect 0 0 1 0;
#X connect 1 0 19 0;
#X connect 3 0 5 0;
#X connect 5 0 14 0;
#X connect 7 0 8 0;
#X connect 7 1 6 0;
#X connect 8 0 20 0;
#X connect 9 0 10 1;
#X connect 10 0 7 0;
#X connect 11 0 12 0;
#X connect 12 0 2 0;
#X connect 13 0 21 0;
#X connect 14 0 15 0;
#X connect 16 0 23 0;
#X connect 16 1 18 1;
#X connect 17 0 20 1;
#X connect 17 0 37 1;
#X connect 18 0 4 0;
#X connect 19 0 9 0;
#X connect 19 1 3 0;
#X connect 19 2 17 0;
#X connect 19 3 18 0;
#X connect 19 4 13 0;
#X connect 19 5 11 0;
#X connect 20 0 13 0;
#X connect 21 0 25 0;
#X connect 22 0 10 0;
#X connect 23 0 24 0;
#X connect 23 1 17 1;
#X connect 24 0 25 1;
#X connect 25 0 16 0;
#X connect 25 1 27 0;
#X connect 27 0 41 0;
#X connect 27 1 29 0;
#X connect 29 0 31 0;
#X connect 29 1 30 1;
#X connect 30 0 43 0;
#X connect 31 0 30 0;
#X connect 31 1 27 1;
#X connect 31 2 25 1;
#X connect 33 0 38 0;
#X connect 34 0 28 1;
#X connect 35 0 36 0;
#X connect 36 0 37 0;
#X connect 37 0 13 0;
#X connect 38 0 39 0;
#X connect 39 0 40 0;
#X connect 39 1 35 0;
#X connect 39 2 36 1;
#X connect 39 3 38 1;
#X connect 40 0 38 1;
#X connect 41 0 34 0;
#X connect 41 1 42 0;
#X connect 42 0 27 1;
#X connect 43 0 44 0;
#X connect 44 0 28 0;
#X connect 45 0 46 0;
#X connect 46 0 47 0;
#X connect 46 1 49 0;
#X connect 47 0 48 0;
#X connect 49 0 48 1;