A non-interpolating sound generator based on the difference equation:
x(n+2) = 1 - a * x(n+1)^2 + b * x(n)
This equation was discovered by French astronomer Michel Hénon while studying the orbits of stars in globular clusters.
sclang code translation:
(
var a = 1.4, b = 0.3, x0 = 0, x1 = 1, size = 64;
plot(size.collect { var aux = 1 - (a * (x1 ** 2)) + (b * x0); x0 = x1; x1 = aux; aux });
)
freq |
Iteration frequency in Hertz |
a |
Equation variable |
b |
Equation variable |
x0 |
Initial value of x |
x1 |
Second value of x |
mul | |
add |
// default initial params
{ HenonN.ar(MouseX.kr(20, SampleRate.ir)) * 0.2 }.play(s);
// mouse-control of params
{ HenonN.ar(SampleRate.ir/4, MouseX.kr(1,1.4), MouseY.kr(0,0.3)) * 0.2 }.play(s);
// randomly modulate params
(
{ HenonN.ar(
SampleRate.ir/8,
LFNoise2.kr(1, 0.2, 1.2),
LFNoise2.kr(1, 0.15, 0.15)
) * 0.2 }.play(s);
)
// as a frequency control
{ SinOsc.ar(HenonN.ar(40, MouseX.kr(1,1.4), MouseY.kr(0,0.3))*800+900)*0.4 }.play(s);