e85d191b46
- merge v0.01 --> Añadido fileselector - Añadidas fuentes de Gem y Pure Data - pix2jpg incluído en Gem. Archivos de construcción de Gem modificados. - Añadido fichero ompiling.txt con instrucciones de compilación
164 lines
5.7 KiB
Text
164 lines
5.7 KiB
Text
#N canvas 89 36 756 792 12;
|
|
#X obj 127 608 cos~;
|
|
#X obj 127 585 *~;
|
|
#X obj 170 608 cos~;
|
|
#X obj 225 553 wrap~;
|
|
#X obj 189 553 -~;
|
|
#X obj 170 585 +~;
|
|
#X obj 163 638 -~;
|
|
#X obj 183 670 *~;
|
|
#X obj 145 670 +~;
|
|
#X obj 189 521 samphold~;
|
|
#X floatatom 189 321 4 0 127 0 - - -;
|
|
#X text 185 283 center;
|
|
#X obj 189 388 line~;
|
|
#X obj 189 365 pack 0 50;
|
|
#X obj 80 464 phasor~;
|
|
#X floatatom 80 370 4 0 127 0 - - -;
|
|
#X text 71 331 fundamental;
|
|
#X floatatom 387 384 4 0 127 0 - - -;
|
|
#X obj 387 455 line~;
|
|
#X obj 298 584 *~;
|
|
#X obj 387 432 pack 0 50;
|
|
#N canvas 94 264 600 388 make-table 0;
|
|
#X msg 81 44 bang;
|
|
#X obj 81 73 t b b;
|
|
#X obj 159 142 f;
|
|
#X obj 197 142 + 1;
|
|
#X msg 175 112 0;
|
|
#X obj 81 102 until;
|
|
#X obj 161 177 t f f;
|
|
#X obj 76 306 tabwrite bell-curve;
|
|
#X obj 52 270 expr exp(-$f1*$f1);
|
|
#X obj 63 168 sel 199;
|
|
#X obj 51 241 expr ($f1-100)/25;
|
|
#N canvas 0 0 450 300 graph4 0;
|
|
#X array bell-curve 200 float 1;
|
|
#A 0 1.12535e-07 1.54727e-07 2.12059e-07 2.89706e-07 3.94519e-07 5.35535e-07
|
|
7.24633e-07 9.77371e-07 1.31404e-06 1.76105e-06 2.35258e-06 3.13275e-06
|
|
4.15832e-06 5.50199e-06 7.25659e-06 9.54016e-06 1.25023e-05 1.63317e-05
|
|
2.1266e-05 2.76026e-05 3.57128e-05 4.60584e-05 5.92113e-05 7.58768e-05
|
|
9.69224e-05 0.00012341 0.000156634 0.000198167 0.000249912 0.000314163
|
|
0.000393669 0.000491721 0.000612231 0.000759842 0.000940028 0.00115923
|
|
0.00142498 0.00174605 0.00213263 0.00259648 0.00315111 0.00381201 0.00459678
|
|
0.0055254 0.0066204 0.00790705 0.0094136 0.0111714 0.013215 0.0155826
|
|
0.0183156 0.0214592 0.0250621 0.0291763 0.0338573 0.0391639 0.0451575
|
|
0.0519019 0.0594631 0.0679081 0.0773047 0.0877205 0.0992216 0.111872
|
|
0.125732 0.140858 0.1573 0.1751 0.194291 0.214896 0.236928 0.260383
|
|
0.285247 0.311486 0.339053 0.367879 0.397882 0.428956 0.46098 0.493812
|
|
0.527292 0.561244 0.595473 0.62977 0.663916 0.697676 0.730811 0.763074
|
|
0.794216 0.823987 0.852144 0.878447 0.902668 0.924595 0.944027 0.960789
|
|
0.974725 0.985703 0.99362 0.998401 1 0.998401 0.99362 0.985703 0.974725
|
|
0.960789 0.944027 0.924595 0.902668 0.878447 0.852144 0.823987 0.794216
|
|
0.763074 0.730811 0.697676 0.663916 0.62977 0.595473 0.561244 0.527292
|
|
0.493812 0.46098 0.428956 0.397882 0.367879 0.339053 0.311486 0.285247
|
|
0.260383 0.236928 0.214896 0.194291 0.1751 0.1573 0.140858 0.125732
|
|
0.111872 0.0992216 0.0877205 0.0773047 0.0679081 0.0594631 0.0519019
|
|
0.0451575 0.0391639 0.0338573 0.0291763 0.0250621 0.0214592 0.0183156
|
|
0.0155826 0.013215 0.0111714 0.0094136 0.00790705 0.0066204 0.0055254
|
|
0.00459678 0.00381201 0.00315111 0.00259648 0.00213263 0.00174605 0.00142498
|
|
0.00115923 0.000940028 0.000759842 0.000612231 0.000491721 0.000393669
|
|
0.000314163 0.000249912 0.000198167 0.000156634 0.00012341 9.69224e-05
|
|
7.58768e-05 5.92113e-05 4.60584e-05 3.57128e-05 2.76026e-05 2.1266e-05
|
|
1.63317e-05 1.25023e-05 9.54016e-06 7.25659e-06 5.50199e-06 4.15832e-06
|
|
3.13275e-06 2.35258e-06 1.76105e-06 1.31404e-06 9.77371e-07 7.24633e-07
|
|
5.35535e-07 3.94519e-07 2.89706e-07 2.12059e-07 1.54727e-07;
|
|
#X coords 0 1 199 0 200 140 1;
|
|
#X restore 342 85 graph;
|
|
#X connect 0 0 1 0;
|
|
#X connect 1 0 5 0;
|
|
#X connect 1 1 4 0;
|
|
#X connect 2 0 3 0;
|
|
#X connect 2 0 6 0;
|
|
#X connect 2 0 9 0;
|
|
#X connect 3 0 2 1;
|
|
#X connect 4 0 2 1;
|
|
#X connect 5 0 2 0;
|
|
#X connect 6 0 10 0;
|
|
#X connect 6 1 7 1;
|
|
#X connect 8 0 7 0;
|
|
#X connect 9 0 5 1;
|
|
#X connect 10 0 8 0;
|
|
#X restore 536 647 pd make-table;
|
|
#X obj 298 558 cos~;
|
|
#X obj 298 533 -~ 0.25;
|
|
#X obj 298 610 +~ 100;
|
|
#X obj 298 633 tabread4~ bell-curve;
|
|
#X obj 184 699 *~;
|
|
#X text 330 658 waveshaper;
|
|
#X text 31 2 CHANGING PAF CONTROLS TO NATURAL UNITS;
|
|
#X obj 80 394 mtof;
|
|
#X obj 211 413 expr 1/$f1;
|
|
#X obj 189 341 mtof;
|
|
#X text 184 298 freq.;
|
|
#X obj 189 437 *~;
|
|
#X text 385 357 bandwidth;
|
|
#X obj 387 406 mtof;
|
|
#X obj 387 491 *~;
|
|
#X obj 387 515 *~ 25;
|
|
#X text 18 23 The more "natural" units for describing a formant might
|
|
be center frequency and bandwidth \, so that you can change the fundamental
|
|
without having the formant shift up and down in parallel. Here all
|
|
three frequencies are expressed in MIDI units. The bandwidth and center
|
|
frequency have to be divided by the fundamental (the expr 1/$f1 takes
|
|
its reciprocal and two *~ objects finish the division.);
|
|
#X text 427 490 divide by fundamental;
|
|
#X text 445 514 range for table;
|
|
#X text 364 609 offset to middle of table;
|
|
#X text 196 459 C.F. relative;
|
|
#X text 197 475 to fundamental;
|
|
#X text 69 346 (MIDI units);
|
|
#X text 220 697 ring mod;
|
|
#X obj 184 726 output~;
|
|
#X text 483 762 updated for Pd version 0.37;
|
|
#X text 19 137 Here we take a somewhat lax approach to sampholding
|
|
the center frequency control. The frequency itself changes instantly
|
|
\, but the center/fundamental frequency ratio waits for the next period.
|
|
This gives a slight "chirp" if the fundamental is abruptly raised a
|
|
couple of octaves. There's no easy way using Pd's built-in primitives
|
|
to avoid this. Note however that there's a "paf~" extern available
|
|
which solves this problem better and \, moreover \, runs much faster.
|
|
;
|
|
#X obj 298 508 *~ 0.5;
|
|
#X connect 0 0 6 1;
|
|
#X connect 0 0 8 0;
|
|
#X connect 1 0 5 0;
|
|
#X connect 1 0 0 0;
|
|
#X connect 2 0 6 0;
|
|
#X connect 3 0 4 1;
|
|
#X connect 3 0 7 1;
|
|
#X connect 4 0 1 1;
|
|
#X connect 5 0 2 0;
|
|
#X connect 6 0 7 0;
|
|
#X connect 7 0 8 1;
|
|
#X connect 8 0 26 0;
|
|
#X connect 9 0 4 0;
|
|
#X connect 9 0 3 0;
|
|
#X connect 10 0 31 0;
|
|
#X connect 12 0 33 0;
|
|
#X connect 13 0 12 0;
|
|
#X connect 14 0 9 1;
|
|
#X connect 14 0 1 0;
|
|
#X connect 14 0 5 1;
|
|
#X connect 14 0 49 0;
|
|
#X connect 15 0 29 0;
|
|
#X connect 17 0 35 0;
|
|
#X connect 18 0 36 0;
|
|
#X connect 19 0 24 0;
|
|
#X connect 20 0 18 0;
|
|
#X connect 22 0 19 0;
|
|
#X connect 23 0 22 0;
|
|
#X connect 24 0 25 0;
|
|
#X connect 25 0 26 1;
|
|
#X connect 26 0 46 0;
|
|
#X connect 26 0 46 1;
|
|
#X connect 29 0 30 0;
|
|
#X connect 29 0 14 0;
|
|
#X connect 30 0 33 1;
|
|
#X connect 30 0 36 1;
|
|
#X connect 31 0 13 0;
|
|
#X connect 33 0 9 0;
|
|
#X connect 35 0 20 0;
|
|
#X connect 36 0 37 0;
|
|
#X connect 37 0 19 1;
|
|
#X connect 49 0 23 0;
|