blob: 6792f00d1c7d5d2dfa032a8d0e7e9cfbedb3ef51 (
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
|
#N canvas 674 329 486 336 10;
#N canvas 172 264 478 328 cavoc-block 0;
#X obj 161 176 block~ 256;
#X obj 167 155 outlet~;
#X obj 292 69 inlet;
#X obj 167 111 cavoc~ 0.05 150 4 1;
#X text 133 127 args: density holdtime \, overlap \, window factor
;
#X connect 2 0 3 0;
#X connect 3 0 1 0;
#X restore 29 72 pd cavoc-block;
#X obj 29 143 dac~;
#X msg 29 208 \; pd dsp \$1;
#X obj 29 186 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1
;
#X floatatom 80 96 5 0 0 0 - gain -;
#X obj 32 261 hsl 128 15 0 1 0 0 gain gain-init gain -2 -6 0 8 -261127
-1 -1 0 1;
#N canvas 773 396 486 336 messages 0;
#X obj 120 243 outlet;
#N canvas 321 426 474 324 rules 0;
#X obj 55 273 outlet;
#X msg 59 71 rule 1 1 1 1 0 0 0 0;
#X msg 213 72 rule 1 0 1 0 1 0 1 0;
#X msg 203 122 rule 0 0 0 0 0 1 0 1;
#X msg 203 149 rule 0 1 1 0 1 0 0 1;
#X msg 203 194 rule 0 0 0 0 1 1 1 1;
#X msg 90 34 rule 1 1 0 1 0 1 0 0;
#X msg 265 23 rule 1 1 0 1 0 1 1 0;
#X msg 300 51 rule 1 1 0 0 1 1 0 0;
#X msg 294 94 rule 0 0 1 0 1 0 1 1;
#X msg 204 234 rule 0 0 0 1 1 0 0 0;
#X msg 244 265 rule 1 0 0 1 1 0 0 1;
#X text 38 301 rules define CA evolution of spectrum;
#X connect 1 0 0 0;
#X connect 2 0 0 0;
#X connect 3 0 0 0;
#X connect 4 0 0 0;
#X connect 5 0 0 0;
#X connect 6 0 0 0;
#X connect 7 0 0 0;
#X connect 8 0 0 0;
#X connect 9 0 0 0;
#X connect 10 0 0 0;
#X connect 11 0 0 0;
#X restore 250 227 pd rules;
#N canvas 687 59 486 336 system 0;
#X obj 209 277 outlet;
#X msg 132 162 fftinfo;
#X msg 64 181 mute \$1;
#X obj 64 154 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1
;
#X msg 215 121 overlap \$1;
#X msg 249 161 winfac \$1;
#X floatatom 215 91 5 0 0 0 - - -;
#X floatatom 249 142 5 0 0 0 - - -;
#X text 243 240 default: overlap=4 \, winfac=1;
#X connect 1 0 0 0;
#X connect 2 0 0 0;
#X connect 3 0 2 0;
#X connect 4 0 0 0;
#X connect 5 0 0 0;
#X connect 6 0 4 0;
#X connect 7 0 5 0;
#X restore 41 177 pd system;
#X floatatom 292 77 5 0 0 0 - - -;
#X msg 291 101 density \$1;
#X msg 251 44 0.05;
#X msg 105 126 retune 0.5 2;
#X msg 303 42 0.2;
#X floatatom 316 163 5 0 0 0 - - -;
#X msg 316 181 hold_time \$1;
#X text 311 228 <- CA rules;
#X text 220 149 hold time (in ms) for each step of CA;
#X text 109 21 density is percent of bins turned on at start of CA
;
#X text 96 102 reset phase "tunings";
#X connect 1 0 0 0;
#X connect 2 0 0 0;
#X connect 3 0 4 0;
#X connect 4 0 0 0;
#X connect 5 0 4 0;
#X connect 6 0 0 0;
#X connect 7 0 3 0;
#X connect 8 0 9 0;
#X connect 9 0 0 0;
#X restore 29 38 pd messages;
#X obj 29 115 *~ 0.025;
#X text 27 290 cavoc~ is an 8 rule cellular automaton that generates
spectra. Start with very low gain.;
#X connect 0 0 7 0;
#X connect 3 0 2 0;
#X connect 4 0 7 1;
#X connect 6 0 0 0;
#X connect 7 0 1 0;
#X connect 7 0 1 1;
|
