blob: bb6c92b2fc23e728000abf580d828e340fa7778b (
plain)
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
|
#N canvas 448 73 647 779 12;
#X floatatom 272 241 4 0 127 0 - - -;
#X text 268 203 center;
#X obj 272 308 line~;
#X obj 272 285 pack 0 50;
#X floatatom 205 246 4 0 127 0 - - -;
#X text 153 204 fundamental;
#X floatatom 397 252 4 0 127 0 - - -;
#X obj 397 323 line~;
#X obj 132 586 *~;
#X obj 397 300 pack 0 50;
#X obj 132 635 cos~;
#X obj 206 310 mtof;
#X obj 294 333 expr 1/$f1;
#X obj 272 261 mtof;
#X text 267 218 freq.;
#X obj 272 357 *~;
#X text 394 231 bandwidth;
#X obj 397 274 mtof;
#X obj 396 366 *~;
#X text 437 358 divide by fundamental;
#X text 149 220 (MIDI units);
#X obj 136 720 output~;
#X text 91 2 WAVE PACKETS AS ALTERNATIVE TO PAF;
#X obj 79 421 phasor~;
#X obj 471 479 +~ 0.5;
#X obj 471 504 wrap~;
#X text 442 424 second phase signal;
#X text 443 439 out of phase from;
#X text 441 456 first one;
#X obj 132 658 +~ 1;
#X obj 78 522 -~ 0.5;
#X obj 135 692 +~;
#X obj 77 586 *~;
#X obj 77 609 cos~;
#X obj 214 556 samphold~;
#X obj 126 555 samphold~;
#X obj 76 634 *~;
#X obj 132 610 clip~ -0.5 0.5;
#X obj 372 597 *~;
#X obj 372 646 cos~;
#X obj 372 669 +~ 1;
#X obj 318 533 -~ 0.5;
#X obj 317 597 *~;
#X obj 317 620 cos~;
#X obj 454 567 samphold~;
#X obj 366 566 samphold~;
#X obj 316 645 *~;
#X obj 372 621 clip~ -0.5 0.5;
#X obj 396 390 max~ 1;
#X obj 205 285 - 12;
#X text 375 755 updated for Pd version 0.40.;
#X text 20 122 The patch is almost exactly like B13 (the overlapping
sample) except that \, instead of using tabread~ we just use cos~ \,
and that we control pulse width (for bandwidth) as well as wavetable
transposition (for center frequency).;
#X text 18 23 The stretched wavetable method is an alternative to the
PAF generator \, slightly more expensive in processing time but with
two advantages: first \, it is not patent encumbered (PAF patent runs
out in 2011) and second \, it can be generalized to use samples instead
of sinusoids to make complex spectral shapes.;
#X connect 0 0 13 0;
#X connect 2 0 15 0;
#X connect 3 0 2 0;
#X connect 4 0 49 0;
#X connect 6 0 17 0;
#X connect 7 0 18 0;
#X connect 8 0 37 0;
#X connect 9 0 7 0;
#X connect 10 0 29 0;
#X connect 11 0 12 0;
#X connect 11 0 23 0;
#X connect 12 0 15 1;
#X connect 12 0 18 1;
#X connect 13 0 3 0;
#X connect 15 0 35 0;
#X connect 15 0 45 0;
#X connect 17 0 9 0;
#X connect 18 0 48 0;
#X connect 23 0 24 0;
#X connect 23 0 30 0;
#X connect 23 0 35 1;
#X connect 23 0 34 1;
#X connect 24 0 25 0;
#X connect 25 0 41 0;
#X connect 25 0 45 1;
#X connect 25 0 44 1;
#X connect 29 0 36 1;
#X connect 30 0 8 0;
#X connect 30 0 32 0;
#X connect 31 0 21 0;
#X connect 31 0 21 1;
#X connect 32 0 33 0;
#X connect 33 0 36 0;
#X connect 34 0 8 1;
#X connect 35 0 32 1;
#X connect 36 0 31 0;
#X connect 37 0 10 0;
#X connect 38 0 47 0;
#X connect 39 0 40 0;
#X connect 40 0 46 1;
#X connect 41 0 38 0;
#X connect 41 0 42 0;
#X connect 42 0 43 0;
#X connect 43 0 46 0;
#X connect 44 0 38 1;
#X connect 45 0 42 1;
#X connect 46 0 31 1;
#X connect 47 0 39 0;
#X connect 48 0 34 0;
#X connect 48 0 44 0;
#X connect 49 0 11 0;
|
