[PD] nqpoly4 simple instructions?

Frank Barknecht fbar at footils.org
Sat Dec 9 12:01:35 CET 2006


Hallo,
Frank Barknecht hat gesagt: // Frank Barknecht wrote:

> See attached example for arguments in use.

Just for kicks I made a dirty conversion of Risset's bell from the
docs (D07.additive.pd) to use nqpoly4.

Ciao
-- 
 Frank Barknecht                 _ ______footils.org_ __goto10.org__
-------------- next part --------------
#N canvas 230 322 1023 640 10;
#X obj 465 234 sqrt;
#X text 97 87 trigger;
#X text 33 175 relative frequency;
#X obj 17 341 *~;
#X obj 227 322 line~;
#X obj 227 349 *~;
#X obj 227 376 *~;
#X msg 227 285 0 \$1;
#X obj 465 261 sqrt;
#X obj 227 158 t b b;
#X text 303 209 relative duration;
#X msg 465 288 \$1 5;
#X obj 227 185 del 5;
#X obj 465 207 * 0.1;
#X text 550 178 get amplitude from argument 1;
#X text 524 206 normalize to 0.1;
#X text 516 233 take fourth root (square root twice);
#X text 544 250 because we'll raise line~ output to;
#X text 543 267 fourth power;
#X text 515 292 attack time 5 msec;
#X text 280 184 decay after 5 msec;
#X text 469 157 attack;
#X obj 227 258 *;
#X text 264 258 actual duration;
#X obj 17 252 *;
#X obj 17 314 osc~;
#X text 49 252 times global freq.;
#X text 60 279 plus detune;
#X text 271 285 decay msg to line~;
#X text 266 350 raise to fourth power for;
#X text 267 368 natural-sounding decay shape;
#X text 20 396 add to global;
#X text 19 415 summing bus;
#X text 21 45 This patch is used as an abstraction in the additive
synthesis example \, D06.additive.pd;
#X text 25 4 partial -- sinusoidal partial for additive synthesis;
#X text 631 12 arguments:;
#X text 605 37 1 amplitude \; 2 relative duration \; 3 relative frequency
\; 4 detune;
#X obj 15 105 inlet;
#X obj 937 205 inlet;
#X obj 15 154 outlet;
#X obj 96 133 t b b;
#X obj 17 368 throw~ \$3-dsp;
#X obj 33 224 r \$3-freq;
#X obj 653 426 list split 1;
#X obj 610 403 list split \$1;
#X obj 610 331 r \$3-partial-freq;
#X obj 781 27 r \$3-partial-amp;
#X obj 824 117 list split 1;
#X obj 781 94 list split \$1;
#X floatatom 709 454 5 0 0 0 - - -;
#X floatatom 878 144 5 0 0 0 - - -;
#X obj 258 526 list split 1;
#X obj 215 503 list split \$1;
#X floatatom 314 554 5 0 0 0 - - -;
#X obj 215 431 r \$3-detune;
#X obj 424 535 list split 1;
#X obj 381 512 list split \$1;
#X floatatom 480 563 5 0 0 0 - - -;
#X obj 381 440 r \$3-duration;
#X obj 17 200 float;
#X obj 226 211 float;
#X obj 465 180 float;
#X obj 17 279 + 0;
#X obj 249 235 r \$3-global-duration;
#X floatatom 402 268 5 0 0 0 - - -;
#X obj 96 106 r \$3-trigger;
#X connect 0 0 8 0;
#X connect 3 0 41 0;
#X connect 4 0 5 0;
#X connect 4 0 5 1;
#X connect 5 0 6 0;
#X connect 5 0 6 1;
#X connect 6 0 3 1;
#X connect 7 0 4 0;
#X connect 8 0 11 0;
#X connect 9 0 12 0;
#X connect 9 1 61 0;
#X connect 11 0 4 0;
#X connect 12 0 60 0;
#X connect 13 0 0 0;
#X connect 22 0 7 0;
#X connect 24 0 62 0;
#X connect 25 0 3 0;
#X connect 40 1 9 0;
#X connect 40 1 59 0;
#X connect 42 0 24 1;
#X connect 43 0 49 0;
#X connect 43 0 59 1;
#X connect 44 1 43 0;
#X connect 45 0 44 0;
#X connect 46 0 48 0;
#X connect 47 0 50 0;
#X connect 47 0 61 1;
#X connect 48 1 47 0;
#X connect 51 0 53 0;
#X connect 51 0 62 1;
#X connect 52 1 51 0;
#X connect 54 0 52 0;
#X connect 55 0 57 0;
#X connect 55 0 60 1;
#X connect 56 1 55 0;
#X connect 58 0 56 0;
#X connect 59 0 24 0;
#X connect 60 0 22 0;
#X connect 61 0 13 0;
#X connect 62 0 25 0;
#X connect 63 0 22 1;
#X connect 63 0 64 0;
#X connect 65 0 40 0;
-------------- next part --------------
#N canvas 548 212 663 484 10;
#X obj 396 121 catch~ \$0-dsp;
#X obj 84 193 s \$0-freq;
#X obj 84 166 mtof;
#X obj 397 190 *~ 0;
#X obj 420 167 dbtorms;
#X obj 423 147 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 9600 1;
#X obj 388 219 dac~;
#X floatatom 84 143 5 0 0 0 - - -;
#X obj 106 285 s \$0-partial-amp;
#X obj 103 380 s \$0-partial-freq;
#X msg 103 357 0.56 0.56 0.92 0.92 1.19 1.7 2 2.74 3 3.76 4.07;
#X msg 106 259 1 0.67 1 1.8 2.67 1.67 1.46 1.33 1.33 1 1.33;
#X text 82 23 Parameters from Risset's bell;
#X msg 103 310 1 0.9 0.65 0.55 0.325 0.35 0.25 0.2 0.15 0.1 0.075;
#X msg 101 404 0 1 0 1.7 0 0 0 0 0 0 0;
#X floatatom 160 141 5 0 0 0 - - -;
#X obj 396 77 nqpoly4 11 bell \$0;
#X obj 103 332 s \$0-duration;
#X obj 101 426 s \$0-detune;
#X obj 160 193 s \$0-global-duration;
#X obj 241 89 s \$0-trigger;
#X msg 84 120 72;
#X msg 160 118 4000;
#X obj 241 51 bng 32 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 123 64 loadbang;
#X obj 46 226 loadbang;
#X connect 0 0 3 0;
#X connect 2 0 1 0;
#X connect 3 0 6 0;
#X connect 3 0 6 1;
#X connect 4 0 3 1;
#X connect 5 0 4 0;
#X connect 7 0 2 0;
#X connect 10 0 9 0;
#X connect 11 0 8 0;
#X connect 13 0 17 0;
#X connect 14 0 18 0;
#X connect 15 0 19 0;
#X connect 21 0 7 0;
#X connect 22 0 15 0;
#X connect 23 0 20 0;
#X connect 24 0 21 0;
#X connect 24 0 22 0;
#X connect 25 0 11 0;
#X connect 25 0 13 0;
#X connect 25 0 10 0;
#X connect 25 0 14 0;


More information about the Pd-list mailing list