/*
* arngment - random music generator
*
* Written in 2020 by Lucas
*
* To the extent possible under law, the author(s) have dedicated all
* copyright and related and neighboring rights to this software to the
* public domain worldwide. This software is distributed without any
* warranty.
*
* You should have received a copy of the CC0 Public Domain Dedication
* along with this software. If not, see
* .
*/
#include
/*
* Apparently, it's too hard for OSes to expose M_PI in a portable way.
* Definition taken from
* $OpenBSD: math.h,v 1.36 2018/03/10 20:52:58 kettenis Exp $
*/
#define JUST_PI ((double)3.14159265358979323846)
#define CLAMP(x, a, b) ((x) < (a) ? (a) : (x) > (b) ? (b) : (x))
double
synth_distortion(double gain, double x)
{
double xg = CLAMP(x * gain, -1.0, 1.0);
return (x + xg) / 2.0;
}
double
synth_sinewave(double t, double a)
{
return sin(2.0 * JUST_PI * t * a);
}
double
synth_trianglewave(double t, double a)
{
double x = t * a;
return 2.0 * fabs(2.0 * (x - floor(0.5 + x))) - 1.0;
}