-
Notifications
You must be signed in to change notification settings - Fork 1
/
Copy pathdkseqgen1.pd
150 lines (150 loc) · 3.67 KB
/
dkseqgen1.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
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
#N canvas 664 240 1274 911 12;
#X obj 175 220 random 3;
#X obj 175 245 + 1;
#X obj 176 278 * 150;
#X obj 219 347 f;
#X obj 301 343 +;
#X obj 176 303 t b f;
#X msg 277 308 0;
#X obj 209 497 delay;
#X obj 28 621 outlet;
#X obj 21 506 spigot 1;
#X msg 371 528 0;
#X text 305 227 generate note events back to back with random durs
;
#X text 259 567 if < maxdur \, bang again after current note event
;
#X text 396 490 if >= maxdur \, block anything for escaping;
#X obj 86 113 inlet;
#X obj 82 143 t b b;
#X msg 32 251 1;
#X text 15 167 first unblock output;
#X obj 367 198 moses 0;
#X obj 295 408 moses 0;
#X text 595 171 maxdur (mult of baseunit);
#X obj 367 172 *;
#X text 97 35 multiples of baseunit \, less than maxdur;
#X text 39 82 trigger;
#X obj 270 137 moses 0;
#X text 155 117 baseunit (ms);
#X obj 275 80 inlet;
#X obj 365 98 inlet;
#X text 656 323 in1: trigger \, in2: baseunit \, in3: maxdur;
#X obj 270 112 f \$1;
#X obj 367 147 f \$2;
#X text 606 4 Derek Kwan \, 2016;
#X text 18 8 DKSEQGEN1: generate sequences of random durations;
#X obj 667 69 inlet;
#X obj 983 89 inlet;
#X text 622 195 default 1;
#X text 172 138 def: 150;
#X msg 273 163 150;
#X msg 343 374 1;
#X text 987 48 max rand mult;
#X obj 982 158 moses 1;
#X text 997 68 default 4;
#X msg 980 191 4;
#X obj 980 216 -1;
#X obj 434 9 loadbang;
#X obj 667 94 f \$3;
#X text 311 288 reset counter;
#X obj 670 117 moses 1;
#X obj 95 241 t b b b;
#X text 721 344 in4: pitchrange \, in5: velrange \, in6: maximum random
mult;
#X obj 109 372 random 100;
#X obj 19 452 pack f f f;
#X obj 829 85 inlet;
#X obj 829 110 f \$4;
#X obj 983 114 f \$5;
#X text 659 368 arg1: baseunit (ms) \, arg2: maxdur \, arg3: pitchrange
;
#X text 722 389 arg4: velrange \, arg5:max rand mult;
#X obj 829 135 moses 1;
#X text 675 44 pitchrange(default 10);
#X msg 669 148 10;
#X obj 0 354 random 10;
#X text 804 67 velrange(default 100);
#X obj 109 398 + 1;
#X msg 829 160 100;
#X obj 829 185 - 1;
#X text 782 216 should be nonzero;
#X obj 255 601 outlet;
#X text 656 426 out1: pitch/vel/dur list \, out2:bang when done;
#X text 39 589 pitch/vel/dur list;
#X text 321 608 bang when done;
#X obj 438 46 t b b b b b;
#X obj 335 468 t b b;
#X obj 310 186 f;
#X obj 274 481 f;
#X obj 207 450 t b b;
#X text 118 524 delay by cur amt;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 2 0 5 0;
#X connect 3 0 4 0;
#X connect 3 0 73 1;
#X connect 3 0 51 2;
#X connect 4 0 3 1;
#X connect 4 0 19 0;
#X connect 5 0 3 0;
#X connect 5 1 4 1;
#X connect 6 0 3 1;
#X connect 7 0 48 0;
#X connect 9 0 8 0;
#X connect 10 0 9 1;
#X connect 14 0 15 0;
#X connect 15 0 48 0;
#X connect 15 1 16 0;
#X connect 15 1 6 0;
#X connect 16 0 9 1;
#X connect 18 0 38 0;
#X connect 18 1 19 1;
#X connect 19 0 74 0;
#X connect 19 1 71 0;
#X connect 21 0 18 0;
#X connect 24 0 37 0;
#X connect 24 1 72 0;
#X connect 26 0 29 0;
#X connect 27 0 30 0;
#X connect 29 0 24 0;
#X connect 30 0 21 0;
#X connect 33 0 45 0;
#X connect 34 0 54 0;
#X connect 37 0 72 0;
#X connect 38 0 19 1;
#X connect 40 0 42 0;
#X connect 40 1 43 0;
#X connect 42 0 43 0;
#X connect 43 0 0 1;
#X connect 44 0 70 0;
#X connect 45 0 47 0;
#X connect 47 0 59 0;
#X connect 47 1 60 1;
#X connect 48 0 60 0;
#X connect 48 1 50 0;
#X connect 48 2 0 0;
#X connect 50 0 62 0;
#X connect 51 0 9 0;
#X connect 52 0 53 0;
#X connect 53 0 57 0;
#X connect 54 0 40 0;
#X connect 57 0 63 0;
#X connect 57 1 64 0;
#X connect 59 0 60 1;
#X connect 60 0 51 0;
#X connect 62 0 51 1;
#X connect 63 0 64 0;
#X connect 64 0 50 1;
#X connect 70 0 30 0;
#X connect 70 1 29 0;
#X connect 70 2 45 0;
#X connect 70 3 53 0;
#X connect 70 4 54 0;
#X connect 71 0 66 0;
#X connect 71 1 10 0;
#X connect 72 0 21 1;
#X connect 72 0 2 1;
#X connect 73 0 7 1;
#X connect 74 0 7 0;
#X connect 74 1 73 0;