From f18d063d9312c95e25294e0777bc135ee9a3fd8a Mon Sep 17 00:00:00 2001 From: Thomas O Fredericks Date: Sun, 25 Oct 2009 00:39:13 +0000 Subject: Adding mtl svn path=/trunk/abstractions/mtl/; revision=12667 --- bell~.pd | 288 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 288 insertions(+) create mode 100644 bell~.pd (limited to 'bell~.pd') diff --git a/bell~.pd b/bell~.pd new file mode 100644 index 0000000..ae4dc91 --- /dev/null +++ b/bell~.pd @@ -0,0 +1,288 @@ +#N canvas 104 88 455 402 10; +#N canvas 444 467 701 290 bell1 0; +#X obj 257 206 clip~ -0.9 0.9; +#N canvas 0 0 350 192 envelopes 0; +#X obj 238 82 / 9; +#X obj 187 82 / 7; +#X obj 71 85 * 0.9; +#X msg 120 58 600; +#X obj 135 83 / 2; +#X obj 12 85 * 1.2; +#X obj 120 33 inlet; +#X obj 12 136 outlet; +#X obj 71 133 outlet; +#X obj 135 132 outlet; +#X obj 187 132 outlet; +#X obj 238 132 outlet; +#X text 98 10 envelope ratios; +#X connect 0 0 11 0; +#X connect 1 0 10 0; +#X connect 2 0 8 0; +#X connect 3 0 0 0; +#X connect 3 0 1 0; +#X connect 3 0 2 0; +#X connect 3 0 4 0; +#X connect 3 0 5 0; +#X connect 4 0 9 0; +#X connect 5 0 7 0; +#X connect 6 0 3 0; +#X restore 251 50 pd envelopes; +#N canvas 0 0 406 316 part_fund+sub 0; +#X obj 156 54 osc~; +#X obj 71 78 osc~; +#X text 6 112 suboctave hum; +#X text 129 105 fundamental; +#X obj 71 52 * 0.5001; +#X obj 197 258 *~; +#X obj 214 179 line~; +#X obj 71 172 *~ 0.1; +#X msg 216 136 1 \, 0 \$1; +#X obj 157 221 *~ 0.02; +#X obj 259 12 inlet; +#X obj 198 289 outlet~; +#X obj 93 10 r \$0-fundamental1; +#X connect 0 0 9 0; +#X connect 1 0 7 0; +#X connect 4 0 1 0; +#X connect 5 0 11 0; +#X connect 6 0 5 1; +#X connect 7 0 9 0; +#X connect 8 0 6 0; +#X connect 9 0 5 0; +#X connect 10 0 8 0; +#X connect 12 0 4 0; +#X connect 12 0 0 0; +#X restore 21 116 pd part_fund+sub; +#N canvas 0 0 327 465 part 0; +#X obj 21 163 osc~; +#X obj 154 165 osc~; +#X obj 79 169 osc~; +#X text 147 192 Nominal; +#X obj 80 140 * 4.8; +#X text 82 192 "Quint"; +#X obj 154 140 * 1.5; +#X obj 160 368 *~; +#X obj 226 277 line~; +#X obj 46 269 *~ 0.2; +#X obj 95 268 *~ 0.5; +#X obj 146 268 *~ 0.1; +#X obj 21 140 * 2.002; +#X obj 133 97 * 2; +#X text 8 194 Octave; +#X msg 228 234 1 \, 0 \$1; +#X obj 95 302 *~ 0.04; +#X obj 246 38 inlet; +#X obj 160 396 outlet~; +#X text 79 11 primary overtones; +#X obj 65 38 r \$0-fundamental1; +#X connect 0 0 9 0; +#X connect 1 0 11 0; +#X connect 2 0 10 0; +#X connect 4 0 2 0; +#X connect 6 0 1 0; +#X connect 7 0 18 0; +#X connect 8 0 7 1; +#X connect 9 0 16 0; +#X connect 10 0 16 0; +#X connect 11 0 16 0; +#X connect 12 0 0 0; +#X connect 13 0 4 0; +#X connect 13 0 6 0; +#X connect 15 0 8 0; +#X connect 16 0 7 0; +#X connect 17 0 15 0; +#X connect 20 0 12 0; +#X connect 20 0 13 0; +#X restore 145 116 pd part primaries; +#N canvas 0 0 289 383 secondaries 0; +#X obj 80 104 osc~; +#X text 19 142 12th overtone; +#X obj 80 79 * 11; +#X obj 151 110 osc~; +#X obj 151 85 * 1.714; +#X text 149 142 12/7; +#X obj 13 105 osc~; +#X obj 13 80 * 1.6666; +#X obj 109 314 *~; +#X obj 173 223 line~; +#X obj 173 255 *~; +#X msg 173 196 1 \, 0 \$1; +#X obj 99 53 * 1.5; +#X obj 172 280 *~; +#X obj 72 254 *~ 0.2; +#X obj 72 210 *~ 0.2; +#X obj 23 210 *~ 0.1; +#X obj 118 209 *~ 0.1; +#X text 203 262 cubic; +#X obj 238 18 inlet; +#X obj 109 347 outlet~; +#X obj 80 19 r \$0-fundamental1; +#X connect 0 0 15 0; +#X connect 2 0 0 0; +#X connect 3 0 17 0; +#X connect 4 0 3 0; +#X connect 6 0 16 0; +#X connect 7 0 6 0; +#X connect 8 0 20 0; +#X connect 9 0 10 1; +#X connect 9 0 10 0; +#X connect 10 0 13 0; +#X connect 10 0 13 1; +#X connect 11 0 9 0; +#X connect 12 0 4 0; +#X connect 12 0 7 0; +#X connect 13 0 8 1; +#X connect 14 0 8 0; +#X connect 15 0 14 0; +#X connect 16 0 14 0; +#X connect 17 0 14 0; +#X connect 19 0 11 0; +#X connect 21 0 2 0; +#X connect 21 0 12 0; +#X restore 275 116 pd secondaries; +#N canvas 0 0 389 416 circulars 0; +#X obj 145 106 osc~; +#X obj 40 103 osc~; +#X text 109 140 1st circular; +#X text 1 139 60 degree mode; +#X obj 40 80 * 3; +#X obj 145 82 * 6.242; +#X text 25 155 "Tierce"; +#X obj 218 105 osc~; +#X obj 218 81 * 12.483; +#X text 220 142 2nd circular; +#X obj 162 325 *~; +#X obj 228 234 line~; +#X obj 227 263 *~; +#X obj 146 237 *~ 0.05; +#X obj 81 189 *~ 0.1; +#X text 262 267 square; +#X msg 228 209 1 \, 0 \$1; +#X obj 313 16 inlet; +#X obj 161 362 outlet~; +#X obj 34 19 r \$0-fundamental1; +#X connect 0 0 13 0; +#X connect 1 0 14 0; +#X connect 4 0 1 0; +#X connect 5 0 0 0; +#X connect 7 0 13 0; +#X connect 8 0 7 0; +#X connect 10 0 18 0; +#X connect 11 0 12 1; +#X connect 11 0 12 0; +#X connect 12 0 10 1; +#X connect 13 0 10 0; +#X connect 14 0 13 0; +#X connect 16 0 11 0; +#X connect 17 0 16 0; +#X connect 19 0 4 0; +#X connect 19 0 5 0; +#X connect 19 0 8 0; +#X restore 384 116 pd circulars; +#N canvas 0 0 357 436 strike 0; +#X obj 107 284 *~ 0.03; +#X obj 67 129 osc~; +#X obj 67 105 * 16; +#X obj 108 129 osc~; +#X obj 108 105 * 24; +#X text 92 72 strikes; +#X obj 144 129 noise~; +#X obj 140 347 *~; +#X obj 205 264 line~; +#X obj 204 288 *~; +#X obj 204 312 *~; +#X text 244 304 cubic; +#X msg 205 242 1 \, 0 \$1; +#X obj 228 25 inlet; +#X obj 140 375 outlet~; +#X obj 77 23 r \$0-fundamental1; +#X connect 0 0 7 0; +#X connect 1 0 0 0; +#X connect 2 0 1 0; +#X connect 3 0 0 0; +#X connect 4 0 3 0; +#X connect 6 0 0 0; +#X connect 7 0 14 0; +#X connect 8 0 9 1; +#X connect 8 0 9 0; +#X connect 9 0 10 0; +#X connect 9 0 10 1; +#X connect 10 0 7 1; +#X connect 12 0 8 0; +#X connect 13 0 12 0; +#X connect 15 0 2 0; +#X connect 15 0 4 0; +#X restore 479 116 pd strike; +#N canvas 0 0 327 216 bodyresonance 0; +#X obj 96 151 delwrite~ \$0-body 400; +#X obj 96 50 clip~ -0.2 0.5; +#X obj 96 123 *~ 0.4; +#X obj 10 87 bp~ 1243 12; +#X obj 95 87 bp~ 287 12; +#X obj 179 87 bp~ 431 12; +#X obj 95 30 delread~ \$0-body 59; +#X obj 57 151 *~ 4; +#X obj 57 191 outlet~; +#X obj 250 29 inlet~; +#X text 91 6 body resonance; +#X connect 1 0 3 0; +#X connect 1 0 4 0; +#X connect 1 0 5 0; +#X connect 2 0 0 0; +#X connect 2 0 7 0; +#X connect 3 0 2 0; +#X connect 4 0 2 0; +#X connect 5 0 2 0; +#X connect 6 0 1 0; +#X connect 7 0 8 0; +#X connect 9 0 0 0; +#X restore 479 152 pd bodyresonance; +#X obj 258 227 hip~ 10; +#X obj 257 254 outlet~; +#X obj 251 23 inlet; +#X obj 23 29 s \$0-fundamental1; +#X obj 23 6 inlet; +#X obj 256 183 *~ 0.9; +#X connect 0 0 8 0; +#X connect 1 0 2 0; +#X connect 1 1 3 0; +#X connect 1 2 4 0; +#X connect 1 3 5 0; +#X connect 1 4 6 0; +#X connect 2 0 13 0; +#X connect 3 0 13 0; +#X connect 4 0 13 0; +#X connect 5 0 13 0; +#X connect 6 0 7 0; +#X connect 6 0 13 0; +#X connect 7 0 0 0; +#X connect 8 0 9 0; +#X connect 10 0 1 0; +#X connect 12 0 11 0; +#X connect 13 0 0 0; +#X restore 72 224 pd bell1; +#X obj 60 21 inlet; +#X obj 73 304 outlet~; +#X obj 74 196 t b f; +#X obj 79 168 mtof; +#X obj 60 105 f 80; +#X obj 60 52 route bang; +#X obj 76 263 *~; +#X obj 160 248 line~; +#X msg 162 214 \$1 5; +#X obj 168 146 / 127; +#X obj 122 84 ./noteSplit; +#X connect 0 0 7 0; +#X connect 1 0 6 0; +#X connect 3 0 0 1; +#X connect 3 1 0 0; +#X connect 4 0 3 0; +#X connect 5 0 4 0; +#X connect 6 0 5 0; +#X connect 6 1 11 0; +#X connect 7 0 2 0; +#X connect 8 0 7 1; +#X connect 9 0 8 0; +#X connect 10 0 9 0; +#X connect 11 0 4 0; +#X connect 11 1 10 0; -- cgit v1.2.1