-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathsome-subharmonic.pd
41 lines (41 loc) · 1.04 KB
/
some-subharmonic.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
#N canvas 183 565 450 300 10;
#X obj 38 13 inlet;
#X obj 38 258 outlet;
#X text 118 201 <-- wrapping;
#X obj 83 66 t b f;
#X text 218 59 freq or the input freq.;
#X text 218 91 \$1 - start pitch & wrap point;
#X text 218 113 \$2 - lower harmonic limit;
#X text 218 135 \$3 - higher harmonic limit;
#X obj 38 201 moses \$1;
#X obj 38 129 + \$2;
#X obj 38 35 route bang float;
#X obj 150 12 loadbang;
#X obj 150 34 f \$3;
#X obj 150 56 - \$2;
#X obj 150 78 + 1;
#X obj 38 105 random;
#X text 218 37 (between \$2 and \$3) of the previous;
#X obj 89 225 * 2;
#X text 218 15 a new freq which is a random quotient;
#X obj 38 153 expr $f2 / $f1;
#X obj 136 108 loadbang;
#X obj 136 130 f \$1;
#X connect 0 0 10 0;
#X connect 3 0 15 0;
#X connect 3 1 19 1;
#X connect 8 0 17 0;
#X connect 8 1 19 1;
#X connect 8 1 1 0;
#X connect 9 0 19 0;
#X connect 10 0 15 0;
#X connect 10 1 3 0;
#X connect 11 0 12 0;
#X connect 12 0 13 0;
#X connect 13 0 14 0;
#X connect 14 0 15 1;
#X connect 15 0 9 0;
#X connect 17 0 8 0;
#X connect 19 0 8 0;
#X connect 20 0 21 0;
#X connect 21 0 19 1;