// Haddaway - What Is Love (Simple Piano Version)
// por Jorge + ChatGPT
ditty.bpm = 55;
// ---------------------------
// Osciladores simples
// ---------------------------
const sine = (p) => Math.sin(p*1.51);
const tri = (p) => 2 * Math.asin(Math.sin(p*0.52)) / Math.PI;
// ---------------------------
// Piano simple
// ---------------------------
const simplePiano = synth.def((phase, env) =>
{
// mezcla suave
let s1 = sine(phase);
let s2 = tri(phase * 0.5);
let sound = (s1 * 0.8 + s2 * 0.2);
// leve saturación natural
sound = sound / (1.0 + Math.abs(sound));
return sound * env.value * 0.9;
});
// ---------------------------
// Tus notas (usa las mismas)
// ---------------------------
//const notes = testNotes; // o pega aquí el arreglo completo
// --- Solo 10 notas de prueba ---
const notes = [
[0.00000, 50, 0.31250],
[0.25000, 53, 0.50000],
[0.50000, 55, 1.18750],
[0.75000, 19, 1.00000],
[1.00000, 31, 1.06250],
[1.18750, 38, 1.43750],
[1.43750, 43, 1.56250],
[1.68750, 43, 2.00000],
[1.68750, 46, 2.06250],
[1.68750, 50, 1.81250],
[1.93750, 51, 2.00000],
[2.06250, 38, 2.12500],
[2.06250, 50, 2.68750],
[2.25000, 41, 2.68750],
[2.25000, 53, 2.68750],
[2.25000, 46, 2.75000],
[2.50000, 22, 2.62500],
[2.62500, 29, 2.75000],
[2.75000, 34, 2.81250],
[2.93750, 41, 3.18750],
[2.93750, 46, 3.18750],
[2.93750, 50, 3.15625],
[3.12500, 38, 3.25000],
[3.25000, 34, 3.37500],
[3.37500, 38, 3.68750],
[3.37500, 41, 3.43750],
[3.37500, 46, 3.50000],
[3.37500, 50, 3.62500],
[3.56250, 41, 3.93750],
[3.56250, 53, 3.87500],
[3.75000, 26, 3.93750],
[3.87500, 33, 4.06250],
[4.00000, 38, 4.12500],
[4.15625, 41, 4.40625],
[4.15625, 45, 4.46875],
[4.15625, 50, 4.40625],
[4.34375, 33, 4.46875],
[4.50000, 38, 5.00000],
[4.68750, 41, 4.75000],
[4.68750, 45, 4.81250],
[4.68750, 50, 4.87500],
[5.00000, 41, 5.50000],
[5.00000, 45, 5.75000],
[5.00000, 48, 5.71875],
[5.18750, 29, 5.93750],
[5.37500, 36, 6.06250],
[5.62500, 41, 5.87500],
[5.81250, 43, 6.06250],
[6.00000, 45, 7.06250],
[6.25000, 36, 6.43750],
[6.43750, 29, 6.56250],
[6.68750, 31, 6.93750],
[6.87500, 19, 7.06250],
[7.06250, 31, 7.18750],
[7.31250, 38, 7.56250],
[7.56250, 43, 7.68750],
[7.81250, 43, 8.06250],
[7.81250, 46, 8.18750],
[7.81250, 50, 7.93750],
[8.06250, 51, 8.12500],
[8.18750, 38, 8.25000],
[8.18750, 50, 8.56250],
[8.37500, 41, 8.75000],
[8.37500, 46, 8.78125],
[8.37500, 53, 8.71875],
[8.56250, 22, 8.75000],
[8.75000, 17, 8.93750],
[8.75000, 29, 8.93750],
[8.93750, 34, 9.00000],
[9.12500, 41, 9.37500],
[9.12500, 46, 9.34375],
[9.12500, 50, 9.34375],
[9.31250, 38, 9.43750],
[9.50000, 34, 9.62500],
[9.68750, 38, 10.18750],
[9.68750, 41, 9.75000],
[9.68750, 46, 9.75000],
[9.81250, 41, 10.31250],
[9.81250, 53, 10.18750],
[10.03125, 26, 10.21875],
[10.21875, 33, 10.40625],
[10.40625, 38, 10.53125],
[10.56250, 41, 10.75000],
[10.56250, 45, 10.71875],
[10.56250, 50, 10.71875],
[10.75000, 33, 10.87500],
[10.93750, 38, 11.12500],
[11.12500, 41, 11.18750],
[11.12500, 45, 11.18750],
[11.12500, 50, 11.25000],
[11.37500, 41, 11.68750],
[11.37500, 45, 12.06250],
[11.37500, 48, 12.06250],
[11.62500, 29, 12.12500],
[11.81250, 36, 12.00000],
[11.93750, 41, 12.56250],
[12.12500, 43, 12.31250],
[12.31250, 45, 12.68750],
[12.87500, 19, 13.31250],
[12.87500, 31, 13.31250],
[12.87500, 43, 13.12500],
[12.87500, 46, 13.06250],
[12.87500, 50, 13.06250],
[13.25000, 43, 13.31250],
[13.25000, 46, 13.31250],
[13.25000, 50, 13.31250],
[13.43750, 19, 13.56250],
[13.43750, 31, 13.56250],
[13.59375, 43, 13.71875],
[13.59375, 46, 13.71875],
[13.59375, 50, 13.68750],
[13.78125, 19, 13.84375],
[13.78125, 31, 13.84375],
[13.84375, 43, 13.96875],
[13.84375, 46, 14.03125],
[13.84375, 50, 13.96875],
[14.03125, 19, 14.21875],
[14.03125, 31, 14.28125],
[14.15625, 41, 14.21875],
[14.15625, 46, 14.21875],
[14.15625, 51, 14.21875],
[14.28125, 41, 14.53125],
[14.28125, 46, 14.56250],
[14.28125, 50, 14.53125],
[14.46875, 22, 14.53125],
[14.46875, 34, 14.53125],
[14.53125, 22, 14.59375],
[14.53125, 34, 14.59375],
[14.59375, 41, 14.71875],
[14.59375, 46, 14.75000],
[14.59375, 50, 14.71875],
[14.75000, 22, 14.93750],
[14.75000, 34, 14.93750],
[14.93750, 41, 15.12500],
[14.93750, 46, 15.18750],
[14.93750, 50, 15.12500],
[15.18750, 22, 15.25000],
[15.18750, 34, 15.25000],
[15.25000, 41, 15.37500],
[15.25000, 46, 15.43750],
[15.25000, 50, 15.37500],
[15.43750, 22, 15.50000],
[15.43750, 34, 15.50000],
[15.50000, 41, 15.56250],
[15.50000, 46, 15.56250],
[15.50000, 51, 15.56250],
[15.68750, 41, 15.87500],
[15.68750, 45, 15.87500],
[15.68750, 50, 15.84375],
[15.81250, 26, 15.87500],
[15.81250, 38, 15.87500],
[15.90625, 26, 16.03125],
[15.90625, 38, 16.03125],
[16.03125, 41, 16.12500],
[16.03125, 45, 16.15625],
[16.03125, 50, 16.15625],
[16.21875, 26, 16.46875],
[16.21875, 38, 16.46875],
[16.46875, 41, 16.65625],
[16.46875, 45, 16.68750],
[16.46875, 50, 16.65625],
[16.68750, 26, 16.81250],
[16.68750, 38, 16.81250],
[16.81250, 41, 16.93750],
[16.81250, 45, 16.96875],
[16.81250, 50, 16.93750],
[17.00000, 26, 17.31250],
[17.00000, 38, 17.18750],
[17.12500, 51, 17.25000],
[17.31250, 45, 17.56250],
[17.31250, 48, 17.53125],
[17.31250, 53, 17.53125],
[17.50000, 17, 17.56250],
[17.50000, 29, 17.56250],
[17.59375, 17, 17.71875],
[17.59375, 29, 17.71875],
[17.71875, 45, 17.84375],
[17.71875, 48, 17.87500],
[17.71875, 53, 17.87500],
[17.90625, 17, 18.21875],
[17.90625, 29, 18.21875],
[18.09375, 45, 18.25000],
[18.09375, 48, 18.28125],
[18.09375, 53, 18.28125],
[18.34375, 17, 18.40625],
[18.34375, 29, 18.40625],
[18.40625, 45, 18.53125],
[18.40625, 48, 18.56250],
[18.40625, 53, 18.56250],
[18.62500, 17, 18.87500],
[18.62500, 29, 19.00000],
[18.75000, 45, 18.81250],
[18.75000, 48, 18.84375],
[18.75000, 53, 18.81250],
[18.96875, 43, 19.21875],
[18.96875, 46, 19.21875],
[18.96875, 50, 19.21875],
[19.15625, 19, 19.21875],
[19.15625, 31, 19.21875],
[19.25000, 19, 19.31250],
[19.25000, 31, 19.31250],
[19.34375, 43, 19.46875],
[19.34375, 46, 19.53125],
[19.34375, 50, 19.46875],
[19.56250, 19, 19.87500],
[19.56250, 31, 19.87500],
[19.87500, 43, 20.00000],
[19.87500, 46, 20.06250],
[19.87500, 50, 20.00000],
[20.06250, 19, 20.12500],
[20.06250, 31, 20.12500],
[20.18750, 43, 20.31250],
[20.18750, 46, 20.37500],
[20.18750, 50, 20.31250],
[20.37500, 19, 20.56250],
[20.37500, 31, 20.68750],
[20.50000, 41, 20.56250],
[20.50000, 46, 20.59375],
[20.50000, 51, 20.56250],
[20.68750, 41, 20.93750],
[20.68750, 46, 20.93750],
[20.68750, 50, 20.90625],
[20.93750, 22, 21.00000],
[20.93750, 34, 21.00000],
[21.00000, 22, 21.06250],
[21.00000, 34, 21.06250],
[21.06250, 41, 21.18750],
[21.06250, 46, 21.21875],
[21.06250, 50, 21.18750],
[21.25000, 22, 21.50000],
[21.25000, 34, 21.50000],
[21.50000, 41, 21.65625],
[21.50000, 46, 21.68750],
[21.50000, 50, 21.65625],
];
// ---------------------------
// Scheduler simple
// ---------------------------
let i = 0;
const endTime = notes[notes.length - 1][2];
loop(() =>
{
let t = 0;
const step = 0.03125;
while (t <= endTime)
{
while (i < notes.length && Math.abs(notes[i][0] - t) < 1e-4)
{
const [start, midi, end] = notes[i];
simplePiano.play(midi + 42, {
duration: end - start,
attack: 0.01,
release: 0.65,
amp: 0.7
});
i++;
}
sleep(step);
t += step;
}
i = 0;
}, { name: 'What Is Love - Simple Piano' });
