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
|
// WinFunEnv is an Attack/Release envelope built around window functions!
// ~options
//
// .set (duration, duration), default (0.0, 0.0)
// sets duration for attack and release phase
//
// .attackTime (duration), default 0.0
// sets length for the attack phase
//
// .releaseTime (duration), default 0.0
// sets length for the release phase
//
// ~ the following window functions are available to use as envelopes
// ~ certain functions allow for custom coefficient values (ie setBlackman(0.64) )
//
// setBlackman()
// setBlackman(float a)
// setBlackmanHarris()
// setBlackmanDerivative (float a0, float a1, float a2, float a3);
// setBlackmanNutall()
// setExponential()
// setExponential(a)
// setHann()
// setHannPoisson()
// setHannPoisson(a)
// setNutall()
// setParzen()
// setPoisson()
// setPoisson(float a)
// setTukey()
// setTukey(float a)
// setWelch
//
// ~ hopefully further updates will see more windows being added (Kaiser, etc)
Noise nois => WinFuncEnv win1 => dac;
fun void playWindow(WinFuncEnv @ win, dur attack, dur release) {
win.attackTime(attack);
win.releaseTime(release);
win.keyOn();
attack => now;
win.keyOff();
release => now;
}
// sets Blackman Envelope with a default value of 0.16
win1.setBlackman();
<<< "Blackman Envelope with default value of 0.16 on white noise", "" >>>;
playWindow(win1, 2.5::second, 2.5::second);
// sets Blackman Envelope with a custom value
win1.setBlackman(Math.random2f(0.05, 0.25));
<<< "Blackman Envelope with a random custom value on white noise.", "" >>>;
playWindow(win1, 2.5::second, 2.5::second);
<<< "Blackman Envelope with a short attack and a long release..", "" >>>;
playWindow(win1, 100::ms, 3::second);
<<< "Blackman Envelope with a long attack and a short release..", "" >>>;
playWindow(win1, 3::second, 100::ms);
// sets BlackmanHarris Envelope
win1.setBlackmanHarris();
<<< "BlackmanHarris Envelope on white noise.", "" >>>;
playWindow(win1, 2.5::second, 2.5::second);
// replacing noise with a sine wave
nois =< win1;
SinOsc sin => win1;
// sets Parzen Envelope
win1.setParzen();
<<< "Parzen Window used for amplitude modulation on a sine wave", "" >>>;
for (int i; i < 25000; i++) {
playWindow(win1, 0.1::ms, 0.1::ms);
}
// sets Hann Envelope
win1.setHann();
<<< "Hann Window used for amplitude modulation on a sine wave", "" >>>;
for (int i; i < 25000; i++) {
playWindow(win1, 0.1::ms, 0.1::ms);
}
// removing sine wave, adding noise and a second envelope to be in series with the first
sin =< win1;
nois => win1 =< dac;
win1 => WinFuncEnv win2 => dac;
<<< "Two envelopes, one Parzen and one Welch in series with each other with slightly different envelope times.", "" >>>;
win1.setParzen();
win2.setWelch();
fun void loop(WinFuncEnv @ win, dur envTime) {
repeat(500) {
playWindow(win, envTime, envTime);
}
}
spork ~ loop(win1, 70::ms);
loop(win2, 73::ms);
|
