#N canvas 369 255 764 623 12; #X obj 23 54 inlet; #X obj 23 92 list split 3; #X obj 23 130 outlet; #X obj 83 129 unpack 0 0 0; #X obj 270 131 unpack 0 0 0; #X obj 94 174 +; #X obj 152 174 +; #X obj 152 198 - 100; #X obj 119 81 r bell-clear-params; #X msg 119 103 0 0 0; #X obj 94 202 mtof; #X obj 152 223 dbtorms; #X obj 270 109 r bell-do-note-\$1; #X obj 414 335 sqrt; #X obj 94 481 *~; #X obj 196 408 line~; #X obj 196 435 *~; #X obj 196 462 *~; #X msg 196 375 0 \$1; #X obj 414 362 sqrt; #X msg 414 389 \$1 5; #X obj 163 315 del 5; #X text 465 334 take fourth root (square root twice); #X text 493 351 because we'll raise line~ output to; #X text 492 368 fourth power; #X text 458 391 attack time 5 msec; #X text 220 317 decay after 5 msec; #X obj 94 454 osc~; #X text 240 375 decay msg to line~; #X text 235 436 raise to fourth power for; #X text 236 454 natural-sounding decay shape; #X text 193 544 summing bus; #X obj 196 346 f; #X obj 163 290 t b f; #X text 231 345 duration; #X text 20 5 "modes" for bell - triples of (pitch \, amp \, damping) \; we strip off three numbers and send the rest on to the next oscillator voice.; #X text 273 85 message to initiate a note with base values for; #X text 413 106 pitch \, amp \, damping; #X text 254 175 massage to units of Hz. and msec; #X obj 132 503 inlet~; #X obj 114 528 +~; #X obj 115 554 outlet~; #X text 194 525 add to; #X floatatom 305 278 7 0 0 0 - - -; #X obj 412 212 min 99; #X obj 214 245 expr 20000/(100-$f2)*$f1*$f1/2500; #X text 492 307 normalize; #X obj 414 308 * 0.03; #X connect 0 0 1 0; #X connect 1 0 3 0; #X connect 1 1 2 0; #X connect 3 0 5 1; #X connect 3 1 6 1; #X connect 3 2 44 0; #X connect 4 0 5 0; #X connect 4 1 6 0; #X connect 4 2 45 0; #X connect 5 0 10 0; #X connect 6 0 7 0; #X connect 7 0 11 0; #X connect 8 0 9 0; #X connect 9 0 3 0; #X connect 10 0 27 0; #X connect 11 0 33 0; #X connect 12 0 4 0; #X connect 13 0 19 0; #X connect 14 0 40 0; #X connect 15 0 16 0; #X connect 15 0 16 1; #X connect 16 0 17 0; #X connect 16 0 17 1; #X connect 17 0 14 1; #X connect 18 0 15 0; #X connect 19 0 20 0; #X connect 20 0 15 0; #X connect 21 0 32 0; #X connect 27 0 14 0; #X connect 32 0 18 0; #X connect 33 0 21 0; #X connect 33 1 47 0; #X connect 39 0 40 1; #X connect 40 0 41 0; #X connect 44 0 45 1; #X connect 45 0 32 1; #X connect 45 0 43 0; #X connect 47 0 13 0;