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
|
#N canvas 14 28 551 520 10;
#X declare -path .. -path .;
#X obj 27 11 cnv 15 500 40 empty empty Universal_Polyphonic_Player
10 10 0 14 -233017 -66577 0;
#X text 34 34 playing notes with a formant-defined timbre;
#X text 406 98 to find voice patch;
#X obj 380 78 declare -path .. -path .;
#X text 410 14 grrrr.org \, 2012-15;
#X floatatom 66 169 5 0 0 1 MIDI_note - -, f 5;
#X obj 66 459 bng 15 250 50 0 empty empty overflow 17 7 0 10 -262144
-1 -1;
#X text 140 205 partials;
#X obj 66 204 pack 0 8;
#X text 70 401 midinote volume;
#X obj 66 123 unpack;
#X obj 66 143 spigot;
#X obj 66 85 kbd;
#X obj 368 453 out-mono;
#N canvas 812 212 637 584 timbre 0;
#X obj 90 28 inlet;
#X obj 82 538 outlet;
#N canvas 0 22 450 300 (subpatch) 0;
#X array timbre 150 float 1;
#A 0 87.6777 88.9635 89.6064 90.035 90.2493 90.8921 91.9636 92.6065
90.6779 90.8921 91.1064 91.3207 91.535 91.6064 91.6778 91.7493 91.7493
91.8564 91.9635 91.9635 92.1778 92.6064 93.0349 93.0349 89.1779 89.3922
89.8207 91.535 93.0349 93.2492 93.0349 92.6064 89.8207 88.9636 88.1065
87.2494 86.3923 85.9637 85.9637 85.9637 85.9637 85.9637 86.178 86.3923
86.6066 86.8208 87.0351 87.3029 87.5708 87.8386 88.1065 88.3743 88.6422
88.91 89.1779 89.484 89.7901 90.0962 90.4024 90.7085 91.0146 91.3207
89.3922 89.6065 90.4636 91.3207 91.535 92.8206 92.1778 92.1778 92.1778
92.1778 92.1778 92.3064 92.4349 92.5635 92.6921 92.3921 92.3921 92.6064
92.8206 93.2492 93.6778 94.642 95.6063 95.6063 92.8206 90.6779 90.4636
90.6064 90.7493 90.8921 91.3207 92.1778 88.5351 88.5351 88.5351 88.3208
88.2136 88.1065 87.7851 87.4637 87.0351 86.6066 85.5352 85.5352 85.7494
86.3923 86.8208 86.9637 87.1065 87.2494 87.2494 87.2494 87.6779 88.5351
88.9636 89.9279 90.8921 91.7493 85.1066 84.4638 84.4638 83.8209 83.8209
83.6066 83.6066 83.5352 83.4638 83.3924 83.3924 83.3209 83.2495 83.1781
83.1781 83.1781 84.0352 84.678 85.3209 85.9637 86.6066 87.2494 87.8922
88.5351 88.8208 89.1065 89.3922 89.9279 90.4636 90.6779;
#X coords 0 100 149 70 300 140 1;
#X restore 280 35 graph;
#X floatatom 53 137 5 0 0 0 - - -, f 5;
#X floatatom 171 135 5 0 0 0 - - -, f 5;
#X obj 54 247 until;
#X obj 54 203 f;
#X obj 53 224 t a b;
#X obj 52 280 f;
#X obj 86 279 + 1;
#X obj 67 167 t b a;
#X obj 84 328 *;
#X msg 108 249 1;
#X obj 83 399 t a a;
#X obj 83 511 pack;
#X obj 115 448 dbtopow;
#X obj 91 61 unpack;
#X text 171 116 partials;
#X text 223 35 dB;
#X text 458 178 MIDI note 0...150;
#X text 116 281 count partials;
#X text 49 346 partial frequencies;
#X text 226 424 fetch gain from table;
#X obj 53 94 mtof;
#X text 24 117 fundamental frq;
#X obj 83 372 ftom;
#X text 45 491 midinote volume;
#X obj 115 425 tabread timbre;
#X msg 469 222 \; timbre const 80;
#X obj 565 20 bng 15 250 50 0 empty empty clear -35 7 0 10 -204786
-1 -1;
#X text 222 52 70..100;
#X connect 0 0 16 0;
#X connect 3 0 10 0;
#X connect 4 0 6 1;
#X connect 5 0 8 0;
#X connect 6 0 7 0;
#X connect 7 0 5 0;
#X connect 7 1 12 0;
#X connect 8 0 9 0;
#X connect 8 0 11 0;
#X connect 9 0 8 1;
#X connect 10 0 6 0;
#X connect 10 1 11 1;
#X connect 11 0 25 0;
#X connect 12 0 8 1;
#X connect 13 0 14 0;
#X connect 13 1 27 0;
#X connect 14 0 1 0;
#X connect 15 0 14 1;
#X connect 16 0 23 0;
#X connect 16 1 4 0;
#X connect 23 0 3 0;
#X connect 25 0 13 0;
#X connect 27 0 15 0;
#X connect 29 0 28 0;
#X coords 0 -1 1 1 300 155 2 280 20;
#X restore 66 229 pd timbre;
#X text 267 387 ---> frequency;
#X text 32 245 gain;
#X text 50 258 ^;
#X text 50 263 |;
#X text 50 276 |;
#X floatatom 297 458 5 0 0 0 voices_active - -, f 5;
#X obj 368 429 catch~ \$0-bus;
#X obj 66 431 upp.xc 50 spat-mono \$0-bus note_alt_vol;
#X connect 5 0 8 0;
#X connect 8 0 14 0;
#X connect 10 0 11 0;
#X connect 10 1 11 1;
#X connect 11 0 5 0;
#X connect 12 0 10 0;
#X connect 14 0 22 0;
#X connect 21 0 13 0;
#X connect 22 0 6 0;
#X connect 22 2 20 0;
|
