-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathbop.fm~.pd
145 lines (145 loc) · 3.82 KB
/
bop.fm~.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
#N canvas 0 37 735 891 12;
#X declare -path ./babs;
#X obj 82 113 inlet~, f 20;
#X obj 1289 333 outlet;
#X obj 82 1362 outlet~;
#X text 461 65 signal2 is FM;
#X text 1263 41 midi and messages in;
#X obj 82 1330 +~;
#X obj 462 100 inlet~ FM, f 12;
#X obj 145 202 r \$0-midi;
#X obj 742 355 *~;
#X obj 658 136 +~;
#X obj 696 194 *~;
#X obj 656 242 +~;
#X obj 465 771 *~, f 14;
#X obj 465 487 osc~;
#X obj 465 390 +~, f 40;
#X obj 465 350 *~;
#X obj 655 573 osc~ 0.5;
#X obj 655 698 *~;
#X obj 560 698 sig~ 1;
#X obj 560 734 -~, f 14;
#X obj 655 611 expr~ $v1 * 0.5 + 0.5;
#X obj 465 1205 *~;
#X obj 465 1065 *~, f 21;
#X obj 645 809 r \$0-velocity;
#X obj 143 310 mtof;
#X obj 143 270 unpack, f 10;
#X obj 210 322 s \$0-velocity;
#X obj 143 383 s \$0-set-frequency;
#X obj 657 76 r~ \$0-get-frequency;
#X obj 713 117 r~ \$0-get-detune;
#X obj 713 148 /~ 10000;
#X obj 813 183 r~ \$0-get-dividend;
#X obj 851 209 r~ \$0-get-divisor;
#X obj 812 250 /~, f 6;
#X obj 481 175 r~ \$0-get-fm;
#X obj 481 214 *~ 10;
#X obj 482 250 pow~ 4;
#X obj 655 499 r~ \$0-get-lfo-speed;
#X obj 655 522 pow~ 4;
#X obj 655 546 *~ 20;
#X obj 673 641 r~ \$0-get-lfo-depth;
#X obj 504 1170 r~ \$0-get-gain;
#X msg 143 347 \$1 0;
#X obj 481 963 expr~ 1 - $v1;
#X obj 627 963 *~;
#X obj 609 1028 +~;
#X obj 481 860 r \$0-get-envelope;
#X msg 481 886 \$1 5;
#X obj 481 912 line~;
#X obj 708 873 r \$1-get-sustain;
#X obj 732 894 r \$1-get-release;
#X obj 666 831 r \$0-get-attack;
#X obj 689 852 r \$0-get-decay;
#X obj 645 922 babs.adsr~;
#X obj 175 41 declare -path ./babs;
#X obj 1290 125 babs.inout \$0 bop.fm~;
#X obj 1357 63 inlet;
#X obj 248 253 r \$0-get-stop;
#X msg 248 277 0;
#X obj 504 1194 pow~ 4;
#X obj 203 154 s \$0-in;
#X obj 1286 65 r \$0-in;
#X obj 287 161 savestate;
#X obj 287 134 babs.savestate \$0;
#X obj 1032 636 babs.param \$0 gain 0.75;
#X obj 1025 602 babs.param.spacer \$0;
#X obj 1032 566 babs.param \$0 lfo-depth 0;
#X obj 1029 538 babs.param \$0 lfo-speed 0.25;
#X obj 1006 500 babs.param.spacer \$0;
#X obj 1032 445 babs.param \$0 release 0.2;
#X obj 1023 403 babs.param \$0 sustain 0.7;
#X obj 1020 365 babs.param \$0 decay 0.3;
#X obj 1014 316 babs.param \$0 attack 0.1;
#X obj 1015 288 babs.param \$0 envelope 1 0 1;
#X obj 1000 239 babs.param.spacer \$0;
#X obj 1021 201 babs.param \$0 fm;
#X obj 1008 168 babs.param.spacer \$0;
#X obj 1006 128 babs.param \$0 detune 0 -100 100;
#X obj 1006 98 babs.param \$0 divisor 1 -1e+37 1e+37;
#X obj 1006 78 babs.param \$0 dividend 1 -1e+37 1e+37;
#X obj 1006 58 babs.param \$0 frequency 333 0 1e+37;
#X connect 0 0 5 0;
#X connect 0 1 60 0;
#X connect 5 0 2 0;
#X connect 6 0 15 0;
#X connect 7 0 25 0;
#X connect 8 0 14 1;
#X connect 9 0 10 0;
#X connect 9 0 11 0;
#X connect 10 0 11 1;
#X connect 11 0 8 0;
#X connect 12 0 22 0;
#X connect 13 0 12 0;
#X connect 14 0 13 0;
#X connect 15 0 14 0;
#X connect 16 0 20 0;
#X connect 17 0 19 1;
#X connect 18 0 19 0;
#X connect 19 0 12 1;
#X connect 20 0 17 0;
#X connect 21 0 5 1;
#X connect 22 0 21 0;
#X connect 23 0 53 0;
#X connect 24 0 42 0;
#X connect 25 0 24 0;
#X connect 25 1 26 0;
#X connect 28 0 9 0;
#X connect 29 0 30 0;
#X connect 30 0 10 1;
#X connect 31 0 33 0;
#X connect 32 0 33 1;
#X connect 33 0 8 1;
#X connect 34 0 35 0;
#X connect 35 0 36 0;
#X connect 36 0 15 1;
#X connect 37 0 38 0;
#X connect 38 0 39 0;
#X connect 39 0 16 0;
#X connect 40 0 17 1;
#X connect 41 0 59 0;
#X connect 42 0 27 0;
#X connect 43 0 45 0;
#X connect 44 0 45 1;
#X connect 45 0 22 1;
#X connect 46 0 47 0;
#X connect 47 0 48 0;
#X connect 48 0 44 0;
#X connect 48 0 43 0;
#X connect 49 0 53 3;
#X connect 50 0 53 4;
#X connect 51 0 53 1;
#X connect 52 0 53 2;
#X connect 53 0 44 1;
#X connect 55 0 1 0;
#X connect 56 0 55 0;
#X connect 57 0 58 0;
#X connect 58 0 26 0;
#X connect 59 0 21 1;
#X connect 61 0 55 0;
#X connect 62 0 63 1;
#X connect 62 1 63 0;
#X connect 63 0 62 0;
#X coords 0 891 1 890 166 340 0;