diff --git a/sfw/audio/3rd_jo_mp1.h b/sfw/audio/3rd_jo_mp1.h new file mode 100644 index 0000000..b456bb5 --- /dev/null +++ b/sfw/audio/3rd_jo_mp1.h @@ -0,0 +1,407 @@ +/* public domain Simple, Minimalistic MPEG Layer 1 decoder - http://jonolick.com + * + * Revision History: + * 1.00 (2014-26-1) Initial release. + * + * Basic usage: + * int hz, channels, outputSize; + * short *output; + * jo_read_mp1(input, inputSize, output, outputSize, hz, channels); + * // Do something with the data here + * free(output); + * + * */ + +#ifndef JO_INCLUDE_MP1_H +#define JO_INCLUDE_MP1_H + +#include + +extern bool jo_read_mp1(const void *input, int inputSize, short **output, int *outputSize, int *hz, int *channels); + +#endif // JO_INCLUDE_MP1_H + +#ifndef JO_MP1_HEADER_FILE_ONLY + +#if defined(_MSC_VER) && _MSC_VER >= 0x1400 +#define _CRT_SECURE_NO_WARNINGS // suppress warnings about fopen() +#endif + +#include +#include +#include + +static const double s_jo_multTbl[64] = { + 2.000000,1.587401,1.259921,1.000000,0.793701,0.629961,0.500000,0.396850,0.314980,0.250000,0.198425,0.157490,0.125000,0.099213,0.078745,0.062500, + 0.049606,0.039373,0.031250,0.024803,0.019686,0.015625,0.012402,0.009843,0.007812,0.006201,0.004922,0.003906,0.003100,0.002461,0.001953,0.001550, + 0.001230,0.000977,0.000775,0.000615,0.000488,0.000388,0.000308,0.000244,0.000194,0.000154,0.000122,0.000097,0.000077,0.000061,0.000048,0.000038, + 0.000031,0.000024,0.000019,0.000015,0.000012,0.000010,0.000008,0.000006,0.000005,0.000004,0.000003,0.000002,0.000002,0.000002,0.000001,1e-20 +}; + +// l = i - 256; +// s = (i & 0x40) ? 1 : -1; +// windowTbl[(i/16)|((i%16)<<5)] = s * 20 * exp(-(l/112)*-(l/112)) * sin(l * M_PI*2 / 112) / l; +static const double s_jo_windowTbl[512] = { + -0.000000,-0.000443,0.003250,-0.007004,0.031082,-0.078629,0.100311,-0.572037,1.144989,0.572037,0.100311,0.078629,0.031082,0.007004,0.003250,0.000443, + -0.000015,-0.000473,0.003326,-0.007919,0.030518,-0.084183,0.090927,-0.600220,1.144287,0.543823,0.108856,0.073059,0.031479,0.006119,0.003174,0.000397, + -0.000015,-0.000534,0.003387,-0.008865,0.029785,-0.089706,0.080688,-0.628296,1.142212,0.515610,0.116577,0.067520,0.031738,0.005295,0.003082,0.000366, + -0.000015,-0.000580,0.003433,-0.009842,0.028885,-0.095169,0.069595,-0.656219,1.138763,0.487473,0.123474,0.061996,0.031845,0.004486,0.002991,0.000320, + -0.000015,-0.000626,0.003464,-0.010849,0.027802,-0.100540,0.057617,-0.683914,1.133926,0.459473,0.129578,0.056534,0.031815,0.003723,0.002899,0.000290, + -0.000015,-0.000687,0.003479,-0.011887,0.026535,-0.105820,0.044785,-0.711319,1.127747,0.431656,0.134888,0.051132,0.031662,0.003006,0.002792,0.000259, + -0.000015,-0.000748,0.003479,-0.012939,0.025085,-0.110947,0.031082,-0.738373,1.120224,0.404083,0.139450,0.045837,0.031387,0.002335,0.002686,0.000244, + -0.000031,-0.000809,0.003464,-0.014023,0.023422,-0.115921,0.016510,-0.765030,1.111374,0.376801,0.143265,0.040634,0.031006,0.001694,0.002579,0.000214, + -0.000031,-0.000885,0.003418,-0.015121,0.021576,-0.120697,0.001068,-0.791214,1.101212,0.349869,0.146362,0.035553,0.030533,0.001099,0.002457,0.000198, + -0.000031,-0.000961,0.003372,-0.016235,0.019531,-0.125259,-0.015228,-0.816864,1.089783,0.323318,0.148773,0.030609,0.029938,0.000549,0.002350,0.000168, + -0.000031,-0.001038,0.003281,-0.017349,0.017258,-0.129562,-0.032379,-0.841949,1.077118,0.297211,0.150497,0.025818,0.029282,0.000031,0.002243,0.000153, + -0.000046,-0.001114,0.003174,-0.018463,0.014801,-0.133591,-0.050354,-0.866364,1.063217,0.271591,0.151596,0.021179,0.028534,-0.000443,0.002121,0.000137, + -0.000046,-0.001205,0.003052,-0.019577,0.012115,-0.137299,-0.069168,-0.890091,1.048157,0.246506,0.152069,0.016708,0.027725,-0.000870,0.002014,0.000122, + -0.000061,-0.001297,0.002884,-0.020691,0.009232,-0.140671,-0.088776,-0.913055,1.031937,0.221985,0.151962,0.012421,0.026840,-0.001266,0.001907,0.000107, + -0.000061,-0.001389,0.002701,-0.021790,0.006134,-0.143677,-0.109161,-0.935196,1.014618,0.198059,0.151306,0.008316,0.025909,-0.001617,0.001785,0.000107, + -0.000076,-0.001480,0.002487,-0.022858,0.002823,-0.146255,-0.130310,-0.956482,0.996246,0.174789,0.150116,0.004395,0.024933,-0.001938,0.001694,0.000092, + -0.000076,-0.001587,0.002228,-0.023911,-0.000687,-0.148422,-0.152206,-0.976852,0.976852,0.152206,0.148422,0.000687,0.023911,-0.002228,0.001587,0.000076, + -0.000092,-0.001694,0.001938,-0.024933,-0.004395,-0.150116,-0.174789,-0.996246,0.956482,0.130310,0.146255,-0.002823,0.022858,-0.002487,0.001480,0.000076, + -0.000107,-0.001785,0.001617,-0.025909,-0.008316,-0.151306,-0.198059,-1.014618,0.935196,0.109161,0.143677,-0.006134,0.021790,-0.002701,0.001389,0.000061, + -0.000107,-0.001907,0.001266,-0.026840,-0.012421,-0.151962,-0.221985,-1.031937,0.913055,0.088776,0.140671,-0.009232,0.020691,-0.002884,0.001297,0.000061, + -0.000122,-0.002014,0.000870,-0.027725,-0.016708,-0.152069,-0.246506,-1.048157,0.890091,0.069168,0.137299,-0.012115,0.019577,-0.003052,0.001205,0.000046, + -0.000137,-0.002121,0.000443,-0.028534,-0.021179,-0.151596,-0.271591,-1.063217,0.866364,0.050354,0.133591,-0.014801,0.018463,-0.003174,0.001114,0.000046, + -0.000153,-0.002243,-0.000031,-0.029282,-0.025818,-0.150497,-0.297211,-1.077118,0.841949,0.032379,0.129562,-0.017258,0.017349,-0.003281,0.001038,0.000031, + -0.000168,-0.002350,-0.000549,-0.029938,-0.030609,-0.148773,-0.323318,-1.089783,0.816864,0.015228,0.125259,-0.019531,0.016235,-0.003372,0.000961,0.000031, + -0.000198,-0.002457,-0.001099,-0.030533,-0.035553,-0.146362,-0.349869,-1.101212,0.791214,-0.001068,0.120697,-0.021576,0.015121,-0.003418,0.000885,0.000031, + -0.000214,-0.002579,-0.001694,-0.031006,-0.040634,-0.143265,-0.376801,-1.111374,0.765030,-0.016510,0.115921,-0.023422,0.014023,-0.003464,0.000809,0.000031, + -0.000244,-0.002686,-0.002335,-0.031387,-0.045837,-0.139450,-0.404083,-1.120224,0.738373,-0.031082,0.110947,-0.025085,0.012939,-0.003479,0.000748,0.000015, + -0.000259,-0.002792,-0.003006,-0.031662,-0.051132,-0.134888,-0.431656,-1.127747,0.711319,-0.044785,0.105820,-0.026535,0.011887,-0.003479,0.000687,0.000015, + -0.000290,-0.002899,-0.003723,-0.031815,-0.056534,-0.129578,-0.459473,-1.133926,0.683914,-0.057617,0.100540,-0.027802,0.010849,-0.003464,0.000626,0.000015, + -0.000320,-0.002991,-0.004486,-0.031845,-0.061996,-0.123474,-0.487473,-1.138763,0.656219,-0.069595,0.095169,-0.028885,0.009842,-0.003433,0.000580,0.000015, + -0.000366,-0.003082,-0.005295,-0.031738,-0.067520,-0.116577,-0.515610,-1.142212,0.628296,-0.080688,0.089706,-0.029785,0.008865,-0.003387,0.000534,0.000015, + -0.000397,-0.003174,-0.006119,-0.031479,-0.073059,-0.108856,-0.543823,-1.144287,0.600220,-0.090927,0.084183,-0.030518,0.007919,-0.003326,0.000473,0.000015, +}; + +// filterTbl[i][j] = cos(((M_PI/64*i+M_PI/4)*(2*j+1))); +static const double s_jo_filterTbl[64][32] = { + {0.707107,-0.707107,-0.707107,0.707107,0.707107,-0.707107,-0.707107,0.707107,0.707107,-0.707107,-0.707107,0.707107,0.707107,-0.707107,-0.707107,0.707107, + 0.707107,-0.707107,-0.707107,0.707107,0.707107,-0.707107,-0.707107,0.707107,0.707107,-0.707107,-0.707107,0.707107,0.707107,-0.707107,-0.707107,0.707107}, + {0.671559,-0.803208,-0.514103,0.903989,0.336890,-0.970031,-0.146730,0.998795,-0.049068,-0.989177,0.242980,0.941544,-0.427555,-0.857729,0.595699,0.740951, + -0.740951,-0.595699,0.857729,0.427555,-0.941544,-0.242980,0.989177,0.049068,-0.998795,0.146730,0.970031,-0.336890,-0.903989,0.514103,0.803208,-0.671559}, + {0.634393,-0.881921,-0.290285,0.995185,-0.098017,-0.956940,0.471397,0.773010,-0.773010,-0.471397,0.956940,0.098017,-0.995185,0.290285,0.881921,-0.634393, + -0.634393,0.881921,0.290285,-0.995185,0.098017,0.956940,-0.471397,-0.773010,0.773010,0.471397,-0.956940,-0.098017,0.995185,-0.290285,-0.881921,0.634393}, + {0.595699,-0.941544,-0.049068,0.970031,-0.514103,-0.671559,0.903989,0.146730,-0.989177,0.427555,0.740951,-0.857729,-0.242980,0.998795,-0.336890,-0.803208, + 0.803208,0.336890,-0.998795,0.242980,0.857729,-0.740951,-0.427555,0.989177,-0.146730,-0.903989,0.671559,0.514103,-0.970031,0.049068,0.941544,-0.595699}, + {0.555570,-0.980785,0.195090,0.831470,-0.831470,-0.195090,0.980785,-0.555570,-0.555570,0.980785,-0.195090,-0.831470,0.831470,0.195090,-0.980785,0.555570, + 0.555570,-0.980785,0.195090,0.831470,-0.831470,-0.195090,0.980785,-0.555570,-0.555570,0.980785,-0.195090,-0.831470,0.831470,0.195090,-0.980785,0.555570}, + {0.514103,-0.998795,0.427555,0.595699,-0.989177,0.336890,0.671559,-0.970031,0.242980,0.740951,-0.941544,0.146730,0.803208,-0.903989,0.049068,0.857729, + -0.857729,-0.049068,0.903989,-0.803208,-0.146730,0.941544,-0.740951,-0.242980,0.970031,-0.671559,-0.336890,0.989177,-0.595699,-0.427555,0.998795,-0.514103}, + {0.471397,-0.995185,0.634393,0.290285,-0.956940,0.773010,0.098017,-0.881921,0.881921,-0.098017,-0.773010,0.956940,-0.290285,-0.634393,0.995185,-0.471397, + -0.471397,0.995185,-0.634393,-0.290285,0.956940,-0.773010,-0.098017,0.881921,-0.881921,0.098017,0.773010,-0.956940,0.290285,0.634393,-0.995185,0.471397}, + {0.427555,-0.970031,0.803208,-0.049068,-0.740951,0.989177,-0.514103,-0.336890,0.941544,-0.857729,0.146730,0.671559,-0.998795,0.595699,0.242980,-0.903989, + 0.903989,-0.242980,-0.595699,0.998795,-0.671559,-0.146730,0.857729,-0.941544,0.336890,0.514103,-0.989177,0.740951,0.049068,-0.803208,0.970031,-0.427555}, + {0.382683,-0.923880,0.923880,-0.382683,-0.382683,0.923880,-0.923880,0.382683,0.382683,-0.923880,0.923880,-0.382683,-0.382683,0.923880,-0.923880,0.382683, + 0.382683,-0.923880,0.923880,-0.382683,-0.382683,0.923880,-0.923880,0.382683,0.382683,-0.923880,0.923880,-0.382683,-0.382683,0.923880,-0.923880,0.382683}, + {0.336890,-0.857729,0.989177,-0.671559,0.049068,0.595699,-0.970031,0.903989,-0.427555,-0.242980,0.803208,-0.998795,0.740951,-0.146730,-0.514103,0.941544, + -0.941544,0.514103,0.146730,-0.740951,0.998795,-0.803208,0.242980,0.427555,-0.903989,0.970031,-0.595699,-0.049068,0.671559,-0.989177,0.857729,-0.336890}, + {0.290285,-0.773010,0.995185,-0.881921,0.471397,0.098017,-0.634393,0.956940,-0.956940,0.634393,-0.098017,-0.471397,0.881921,-0.995185,0.773010,-0.290285, + -0.290285,0.773010,-0.995185,0.881921,-0.471397,-0.098017,0.634393,-0.956940,0.956940,-0.634393,0.098017,0.471397,-0.881921,0.995185,-0.773010,0.290285}, + {0.242980,-0.671559,0.941544,-0.989177,0.803208,-0.427555,-0.049068,0.514103,-0.857729,0.998795,-0.903989,0.595699,-0.146730,-0.336890,0.740951,-0.970031, + 0.970031,-0.740951,0.336890,0.146730,-0.595699,0.903989,-0.998795,0.857729,-0.514103,0.049068,0.427555,-0.803208,0.989177,-0.941544,0.671559,-0.242980}, + {0.195090,-0.555570,0.831470,-0.980785,0.980785,-0.831470,0.555570,-0.195090,-0.195090,0.555570,-0.831470,0.980785,-0.980785,0.831470,-0.555570,0.195090, + 0.195090,-0.555570,0.831470,-0.980785,0.980785,-0.831470,0.555570,-0.195090,-0.195090,0.555570,-0.831470,0.980785,-0.980785,0.831470,-0.555570,0.195090}, + {0.146730,-0.427555,0.671559,-0.857729,0.970031,-0.998795,0.941544,-0.803208,0.595699,-0.336890,0.049068,0.242980,-0.514103,0.740951,-0.903989,0.989177, + -0.989177,0.903989,-0.740951,0.514103,-0.242980,-0.049068,0.336890,-0.595699,0.803208,-0.941544,0.998795,-0.970031,0.857729,-0.671559,0.427555,-0.146730}, + {0.098017,-0.290285,0.471397,-0.634393,0.773010,-0.881921,0.956940,-0.995185,0.995185,-0.956940,0.881921,-0.773010,0.634393,-0.471397,0.290285,-0.098017, + -0.098017,0.290285,-0.471397,0.634393,-0.773010,0.881921,-0.956940,0.995185,-0.995185,0.956940,-0.881921,0.773010,-0.634393,0.471397,-0.290285,0.098017}, + {0.049068,-0.146730,0.242980,-0.336890,0.427555,-0.514103,0.595699,-0.671559,0.740951,-0.803208,0.857729,-0.903989,0.941544,-0.970031,0.989177,-0.998795, + 0.998795,-0.989177,0.970031,-0.941544,0.903989,-0.857729,0.803208,-0.740951,0.671559,-0.595699,0.514103,-0.427555,0.336890,-0.242980,0.146730,-0.049068}, + {0.000000,-0.000000,0.000000,-0.000000,0.000000,-0.000000,-0.000000,-0.000000,-0.000000,-0.000000,-0.000000,-0.000000,-0.000000,-0.000000,-0.000000,-0.000000, + 0.000000,-0.000000,0.000000,-0.000000,0.000000,-0.000000,0.000000,0.000000,0.000000,-0.000000,0.000000,0.000000,0.000000,-0.000000,0.000000,0.000000}, + {-0.049068,0.146730,-0.242980,0.336890,-0.427555,0.514103,-0.595699,0.671559,-0.740951,0.803208,-0.857729,0.903989,-0.941544,0.970031,-0.989177,0.998795, + -0.998795,0.989177,-0.970031,0.941544,-0.903989,0.857729,-0.803208,0.740951,-0.671559,0.595699,-0.514103,0.427555,-0.336890,0.242980,-0.146730,0.049068}, + {-0.098017,0.290285,-0.471397,0.634393,-0.773010,0.881921,-0.956940,0.995185,-0.995185,0.956940,-0.881921,0.773010,-0.634393,0.471397,-0.290285,0.098017, + 0.098017,-0.290285,0.471397,-0.634393,0.773010,-0.881921,0.956940,-0.995185,0.995185,-0.956940,0.881921,-0.773010,0.634393,-0.471397,0.290285,-0.098017}, + {-0.146730,0.427555,-0.671559,0.857729,-0.970031,0.998795,-0.941544,0.803208,-0.595699,0.336890,-0.049068,-0.242980,0.514103,-0.740951,0.903989,-0.989177, + 0.989177,-0.903989,0.740951,-0.514103,0.242980,0.049068,-0.336890,0.595699,-0.803208,0.941544,-0.998795,0.970031,-0.857729,0.671559,-0.427555,0.146730}, + {-0.195090,0.555570,-0.831470,0.980785,-0.980785,0.831470,-0.555570,0.195090,0.195090,-0.555570,0.831470,-0.980785,0.980785,-0.831470,0.555570,-0.195090, + -0.195090,0.555570,-0.831470,0.980785,-0.980785,0.831470,-0.555570,0.195090,0.195090,-0.555570,0.831470,-0.980785,0.980785,-0.831470,0.555570,-0.195090}, + {-0.242980,0.671559,-0.941544,0.989177,-0.803208,0.427555,0.049068,-0.514103,0.857729,-0.998795,0.903989,-0.595699,0.146730,0.336890,-0.740951,0.970031, + -0.970031,0.740951,-0.336890,-0.146730,0.595699,-0.903989,0.998795,-0.857729,0.514103,-0.049068,-0.427555,0.803208,-0.989177,0.941544,-0.671559,0.242980}, + {-0.290285,0.773010,-0.995185,0.881921,-0.471397,-0.098017,0.634393,-0.956940,0.956940,-0.634393,0.098017,0.471397,-0.881921,0.995185,-0.773010,0.290285, + 0.290285,-0.773010,0.995185,-0.881921,0.471397,0.098017,-0.634393,0.956940,-0.956940,0.634393,-0.098017,-0.471397,0.881921,-0.995185,0.773010,-0.290285}, + {-0.336890,0.857729,-0.989177,0.671559,-0.049068,-0.595699,0.970031,-0.903989,0.427555,0.242980,-0.803208,0.998795,-0.740951,0.146730,0.514103,-0.941544, + 0.941544,-0.514103,-0.146730,0.740951,-0.998795,0.803208,-0.242980,-0.427555,0.903989,-0.970031,0.595699,0.049068,-0.671559,0.989177,-0.857729,0.336890}, + {-0.382683,0.923880,-0.923880,0.382683,0.382683,-0.923880,0.923880,-0.382683,-0.382683,0.923880,-0.923880,0.382683,0.382683,-0.923880,0.923880,-0.382683, + -0.382683,0.923880,-0.923880,0.382683,0.382683,-0.923880,0.923880,-0.382683,-0.382683,0.923880,-0.923880,0.382683,0.382683,-0.923880,0.923880,-0.382683}, + {-0.427555,0.970031,-0.803208,0.049068,0.740951,-0.989177,0.514103,0.336890,-0.941544,0.857729,-0.146730,-0.671559,0.998795,-0.595699,-0.242980,0.903989, + -0.903989,0.242980,0.595699,-0.998795,0.671559,0.146730,-0.857729,0.941544,-0.336890,-0.514103,0.989177,-0.740951,-0.049068,0.803208,-0.970031,0.427555}, + {-0.471397,0.995185,-0.634393,-0.290285,0.956940,-0.773010,-0.098017,0.881921,-0.881921,0.098017,0.773010,-0.956940,0.290285,0.634393,-0.995185,0.471397, + 0.471397,-0.995185,0.634393,0.290285,-0.956940,0.773010,0.098017,-0.881921,0.881921,-0.098017,-0.773010,0.956940,-0.290285,-0.634393,0.995185,-0.471397}, + {-0.514103,0.998795,-0.427555,-0.595699,0.989177,-0.336890,-0.671559,0.970031,-0.242980,-0.740951,0.941544,-0.146730,-0.803208,0.903989,-0.049068,-0.857729, + 0.857729,0.049068,-0.903989,0.803208,0.146730,-0.941544,0.740951,0.242980,-0.970031,0.671559,0.336890,-0.989177,0.595699,0.427555,-0.998795,0.514103}, + {-0.555570,0.980785,-0.195090,-0.831470,0.831470,0.195090,-0.980785,0.555570,0.555570,-0.980785,0.195090,0.831470,-0.831470,-0.195090,0.980785,-0.555570, + -0.555570,0.980785,-0.195090,-0.831470,0.831470,0.195090,-0.980785,0.555570,0.555570,-0.980785,0.195090,0.831470,-0.831470,-0.195090,0.980785,-0.555570}, + {-0.595699,0.941544,0.049068,-0.970031,0.514103,0.671559,-0.903989,-0.146730,0.989177,-0.427555,-0.740951,0.857729,0.242980,-0.998795,0.336890,0.803208, + -0.803208,-0.336890,0.998795,-0.242980,-0.857729,0.740951,0.427555,-0.989177,0.146730,0.903989,-0.671559,-0.514103,0.970031,-0.049068,-0.941544,0.595699}, + {-0.634393,0.881921,0.290285,-0.995185,0.098017,0.956940,-0.471397,-0.773010,0.773010,0.471397,-0.956940,-0.098017,0.995185,-0.290285,-0.881921,0.634393, + 0.634393,-0.881921,-0.290285,0.995185,-0.098017,-0.956940,0.471397,0.773010,-0.773010,-0.471397,0.956940,0.098017,-0.995185,0.290285,0.881921,-0.634393}, + {-0.671559,0.803208,0.514103,-0.903989,-0.336890,0.970031,0.146730,-0.998795,0.049068,0.989177,-0.242980,-0.941544,0.427555,0.857729,-0.595699,-0.740951, + 0.740951,0.595699,-0.857729,-0.427555,0.941544,0.242980,-0.989177,-0.049068,0.998795,-0.146730,-0.970031,0.336890,0.903989,-0.514103,-0.803208,0.671559}, + {-0.707107,0.707107,0.707107,-0.707107,-0.707107,0.707107,0.707107,-0.707107,-0.707107,0.707107,0.707107,-0.707107,-0.707107,0.707107,0.707107,-0.707107, + -0.707107,0.707107,0.707107,-0.707107,-0.707107,0.707107,0.707107,-0.707107,-0.707107,0.707107,0.707107,-0.707107,-0.707107,0.707107,0.707107,-0.707107}, + {-0.740951,0.595699,0.857729,-0.427555,-0.941544,0.242980,0.989177,-0.049068,-0.998795,-0.146730,0.970031,0.336890,-0.903989,-0.514103,0.803208,0.671559, + -0.671559,-0.803208,0.514103,0.903989,-0.336890,-0.970031,0.146730,0.998795,0.049068,-0.989177,-0.242980,0.941544,0.427555,-0.857729,-0.595699,0.740951}, + {-0.773010,0.471397,0.956940,-0.098017,-0.995185,-0.290285,0.881921,0.634393,-0.634393,-0.881921,0.290285,0.995185,0.098017,-0.956940,-0.471397,0.773010, + 0.773010,-0.471397,-0.956940,0.098017,0.995185,0.290285,-0.881921,-0.634393,0.634393,0.881921,-0.290285,-0.995185,-0.098017,0.956940,0.471397,-0.773010}, + {-0.803208,0.336890,0.998795,0.242980,-0.857729,-0.740951,0.427555,0.989177,0.146730,-0.903989,-0.671559,0.514103,0.970031,0.049068,-0.941544,-0.595699, + 0.595699,0.941544,-0.049068,-0.970031,-0.514103,0.671559,0.903989,-0.146730,-0.989177,-0.427555,0.740951,0.857729,-0.242980,-0.998795,-0.336890,0.803208}, + {-0.831470,0.195090,0.980785,0.555570,-0.555570,-0.980785,-0.195090,0.831470,0.831470,-0.195090,-0.980785,-0.555570,0.555570,0.980785,0.195090,-0.831470, + -0.831470,0.195090,0.980785,0.555570,-0.555570,-0.980785,-0.195090,0.831470,0.831470,-0.195090,-0.980785,-0.555570,0.555570,0.980785,0.195090,-0.831470}, + {-0.857729,0.049068,0.903989,0.803208,-0.146730,-0.941544,-0.740951,0.242980,0.970031,0.671559,-0.336890,-0.989177,-0.595699,0.427555,0.998795,0.514103, + -0.514103,-0.998795,-0.427555,0.595699,0.989177,0.336890,-0.671559,-0.970031,-0.242980,0.740951,0.941544,0.146730,-0.803208,-0.903989,-0.049068,0.857729}, + {-0.881921,-0.098017,0.773010,0.956940,0.290285,-0.634393,-0.995185,-0.471397,0.471397,0.995185,0.634393,-0.290285,-0.956940,-0.773010,0.098017,0.881921, + 0.881921,0.098017,-0.773010,-0.956940,-0.290285,0.634393,0.995185,0.471397,-0.471397,-0.995185,-0.634393,0.290285,0.956940,0.773010,-0.098017,-0.881921}, + {-0.903989,-0.242980,0.595699,0.998795,0.671559,-0.146730,-0.857729,-0.941544,-0.336890,0.514103,0.989177,0.740951,-0.049068,-0.803208,-0.970031,-0.427555, + 0.427555,0.970031,0.803208,0.049068,-0.740951,-0.989177,-0.514103,0.336890,0.941544,0.857729,0.146730,-0.671559,-0.998795,-0.595699,0.242980,0.903989}, + {-0.923880,-0.382683,0.382683,0.923880,0.923880,0.382683,-0.382683,-0.923880,-0.923880,-0.382683,0.382683,0.923880,0.923880,0.382683,-0.382683,-0.923880, + -0.923880,-0.382683,0.382683,0.923880,0.923880,0.382683,-0.382683,-0.923880,-0.923880,-0.382683,0.382683,0.923880,0.923880,0.382683,-0.382683,-0.923880}, + {-0.941544,-0.514103,0.146730,0.740951,0.998795,0.803208,0.242980,-0.427555,-0.903989,-0.970031,-0.595699,0.049068,0.671559,0.989177,0.857729,0.336890, + -0.336890,-0.857729,-0.989177,-0.671559,-0.049068,0.595699,0.970031,0.903989,0.427555,-0.242980,-0.803208,-0.998795,-0.740951,-0.146730,0.514103,0.941544}, + {-0.956940,-0.634393,-0.098017,0.471397,0.881921,0.995185,0.773010,0.290285,-0.290285,-0.773010,-0.995185,-0.881921,-0.471397,0.098017,0.634393,0.956940, + 0.956940,0.634393,0.098017,-0.471397,-0.881921,-0.995185,-0.773010,-0.290285,0.290285,0.773010,0.995185,0.881921,0.471397,-0.098017,-0.634393,-0.956940}, + {-0.970031,-0.740951,-0.336890,0.146730,0.595699,0.903989,0.998795,0.857729,0.514103,0.049068,-0.427555,-0.803208,-0.989177,-0.941544,-0.671559,-0.242980, + 0.242980,0.671559,0.941544,0.989177,0.803208,0.427555,-0.049068,-0.514103,-0.857729,-0.998795,-0.903989,-0.595699,-0.146730,0.336890,0.740951,0.970031}, + {-0.980785,-0.831470,-0.555570,-0.195090,0.195090,0.555570,0.831470,0.980785,0.980785,0.831470,0.555570,0.195090,-0.195090,-0.555570,-0.831470,-0.980785, + -0.980785,-0.831470,-0.555570,-0.195090,0.195090,0.555570,0.831470,0.980785,0.980785,0.831470,0.555570,0.195090,-0.195090,-0.555570,-0.831470,-0.980785}, + {-0.989177,-0.903989,-0.740951,-0.514103,-0.242980,0.049068,0.336890,0.595699,0.803208,0.941544,0.998795,0.970031,0.857729,0.671559,0.427555,0.146730, + -0.146730,-0.427555,-0.671559,-0.857729,-0.970031,-0.998795,-0.941544,-0.803208,-0.595699,-0.336890,-0.049068,0.242980,0.514103,0.740951,0.903989,0.989177}, + {-0.995185,-0.956940,-0.881921,-0.773010,-0.634393,-0.471397,-0.290285,-0.098017,0.098017,0.290285,0.471397,0.634393,0.773010,0.881921,0.956940,0.995185, + 0.995185,0.956940,0.881921,0.773010,0.634393,0.471397,0.290285,0.098017,-0.098017,-0.290285,-0.471397,-0.634393,-0.773010,-0.881921,-0.956940,-0.995185}, + {-0.998795,-0.989177,-0.970031,-0.941544,-0.903989,-0.857729,-0.803208,-0.740951,-0.671559,-0.595699,-0.514103,-0.427555,-0.336890,-0.242980,-0.146730,-0.049068, + 0.049068,0.146730,0.242980,0.336890,0.427555,0.514103,0.595699,0.671559,0.740951,0.803208,0.857729,0.903989,0.941544,0.970031,0.989177,0.998795}, + {-1.000000,-1.000000,-1.000000,-1.000000,-1.000000,-1.000000,-1.000000,-1.000000,-1.000000,-1.000000,-1.000000,-1.000000,-1.000000,-1.000000,-1.000000,-1.000000, + -1.000000,-1.000000,-1.000000,-1.000000,-1.000000,-1.000000,-1.000000,-1.000000,-1.000000,-1.000000,-1.000000,-1.000000,-1.000000,-1.000000,-1.000000,-1.000000}, + {-0.998795,-0.989177,-0.970031,-0.941544,-0.903989,-0.857729,-0.803208,-0.740951,-0.671559,-0.595699,-0.514103,-0.427555,-0.336890,-0.242980,-0.146730,-0.049068, + 0.049068,0.146730,0.242980,0.336890,0.427555,0.514103,0.595699,0.671559,0.740951,0.803208,0.857729,0.903989,0.941544,0.970031,0.989177,0.998795}, + {-0.995185,-0.956940,-0.881921,-0.773010,-0.634393,-0.471397,-0.290285,-0.098017,0.098017,0.290285,0.471397,0.634393,0.773010,0.881921,0.956940,0.995185, + 0.995185,0.956940,0.881921,0.773010,0.634393,0.471397,0.290285,0.098017,-0.098017,-0.290285,-0.471397,-0.634393,-0.773010,-0.881921,-0.956940,-0.995185}, + {-0.989177,-0.903989,-0.740951,-0.514103,-0.242980,0.049068,0.336890,0.595699,0.803208,0.941544,0.998795,0.970031,0.857729,0.671559,0.427555,0.146730, + -0.146730,-0.427555,-0.671559,-0.857729,-0.970031,-0.998795,-0.941544,-0.803208,-0.595699,-0.336890,-0.049068,0.242980,0.514103,0.740951,0.903989,0.989177}, + {-0.980785,-0.831470,-0.555570,-0.195090,0.195090,0.555570,0.831470,0.980785,0.980785,0.831470,0.555570,0.195090,-0.195090,-0.555570,-0.831470,-0.980785, + -0.980785,-0.831470,-0.555570,-0.195090,0.195090,0.555570,0.831470,0.980785,0.980785,0.831470,0.555570,0.195090,-0.195090,-0.555570,-0.831470,-0.980785}, + {-0.970031,-0.740951,-0.336890,0.146730,0.595699,0.903989,0.998795,0.857729,0.514103,0.049068,-0.427555,-0.803208,-0.989177,-0.941544,-0.671559,-0.242980, + 0.242980,0.671559,0.941544,0.989177,0.803208,0.427555,-0.049068,-0.514103,-0.857729,-0.998795,-0.903989,-0.595699,-0.146730,0.336890,0.740951,0.970031}, + {-0.956940,-0.634393,-0.098017,0.471397,0.881921,0.995185,0.773010,0.290285,-0.290285,-0.773010,-0.995185,-0.881921,-0.471397,0.098017,0.634393,0.956940, + 0.956940,0.634393,0.098017,-0.471397,-0.881921,-0.995185,-0.773010,-0.290285,0.290285,0.773010,0.995185,0.881921,0.471397,-0.098017,-0.634393,-0.956940}, + {-0.941544,-0.514103,0.146730,0.740951,0.998795,0.803208,0.242980,-0.427555,-0.903989,-0.970031,-0.595699,0.049068,0.671559,0.989177,0.857729,0.336890, + -0.336890,-0.857729,-0.989177,-0.671559,-0.049068,0.595699,0.970031,0.903989,0.427555,-0.242980,-0.803208,-0.998795,-0.740951,-0.146730,0.514103,0.941544}, + {-0.923880,-0.382683,0.382683,0.923880,0.923880,0.382683,-0.382683,-0.923880,-0.923880,-0.382683,0.382683,0.923880,0.923880,0.382683,-0.382683,-0.923880, + -0.923880,-0.382683,0.382683,0.923880,0.923880,0.382683,-0.382683,-0.923880,-0.923880,-0.382683,0.382683,0.923880,0.923880,0.382683,-0.382683,-0.923880}, + {-0.903989,-0.242980,0.595699,0.998795,0.671559,-0.146730,-0.857729,-0.941544,-0.336890,0.514103,0.989177,0.740951,-0.049068,-0.803208,-0.970031,-0.427555, + 0.427555,0.970031,0.803208,0.049068,-0.740951,-0.989177,-0.514103,0.336890,0.941544,0.857729,0.146730,-0.671559,-0.998795,-0.595699,0.242980,0.903989}, + {-0.881921,-0.098017,0.773010,0.956940,0.290285,-0.634393,-0.995185,-0.471397,0.471397,0.995185,0.634393,-0.290285,-0.956940,-0.773010,0.098017,0.881921, + 0.881921,0.098017,-0.773010,-0.956940,-0.290285,0.634393,0.995185,0.471397,-0.471397,-0.995185,-0.634393,0.290285,0.956940,0.773010,-0.098017,-0.881921}, + {-0.857729,0.049068,0.903989,0.803208,-0.146730,-0.941544,-0.740951,0.242980,0.970031,0.671559,-0.336890,-0.989177,-0.595699,0.427555,0.998795,0.514103, + -0.514103,-0.998795,-0.427555,0.595699,0.989177,0.336890,-0.671559,-0.970031,-0.242980,0.740951,0.941544,0.146730,-0.803208,-0.903989,-0.049068,0.857729}, + {-0.831470,0.195090,0.980785,0.555570,-0.555570,-0.980785,-0.195090,0.831470,0.831470,-0.195090,-0.980785,-0.555570,0.555570,0.980785,0.195090,-0.831470, + -0.831470,0.195090,0.980785,0.555570,-0.555570,-0.980785,-0.195090,0.831470,0.831470,-0.195090,-0.980785,-0.555570,0.555570,0.980785,0.195090,-0.831470}, + {-0.803208,0.336890,0.998795,0.242980,-0.857729,-0.740951,0.427555,0.989177,0.146730,-0.903989,-0.671559,0.514103,0.970031,0.049068,-0.941544,-0.595699, + 0.595699,0.941544,-0.049068,-0.970031,-0.514103,0.671559,0.903989,-0.146730,-0.989177,-0.427555,0.740951,0.857729,-0.242980,-0.998795,-0.336890,0.803208}, + {-0.773010,0.471397,0.956940,-0.098017,-0.995185,-0.290285,0.881921,0.634393,-0.634393,-0.881921,0.290285,0.995185,0.098017,-0.956940,-0.471397,0.773010, + 0.773010,-0.471397,-0.956940,0.098017,0.995185,0.290285,-0.881921,-0.634393,0.634393,0.881921,-0.290285,-0.995185,-0.098017,0.956940,0.471397,-0.773010}, + {-0.740951,0.595699,0.857729,-0.427555,-0.941544,0.242980,0.989177,-0.049068,-0.998795,-0.146730,0.970031,0.336890,-0.903989,-0.514103,0.803208,0.671559, + -0.671559,-0.803208,0.514103,0.903989,-0.336890,-0.970031,0.146730,0.998795,0.049068,-0.989177,-0.242980,0.941544,0.427555,-0.857729,-0.595699,0.740951} +}; + +// up to 32-bits +static unsigned jo_readBits(const unsigned char *data, int *at, int num) { + unsigned r = 0; + // read partial starting bits + int sc = (8 - (*at & 7)) & 7; + sc = sc > num ? num : sc; + if(sc) { + r = (data[*at/8] >> (8 - (*at&7) - sc)) & ((1<=8) { + r <<= 8; + r |= data[*at/8]; + *at += 8; + num -= 8; + } + // read partial ending bits + if(num) { + r <<= num; + r |= (data[*at/8] >> (8 - num)) & ((1<= inputSize * 8 - 32) { + break; + } + + unsigned header = jo_readBits(data, &at, 32); + //printf("header: %x.%x/%x: %08x\n", (at-32)/8, (at-32)&7, inputSize, header); + + // sync = 0xFFF + // ID = 1 + // layer = 3 (layer 1) + if ((header & 0xFFFE0000) != 0xFFFE0000) { + return false; + } + + static const int bitrateTbl[16] = { 0,32,40,48,56,64,80,96,112,128,160,192,224,256,320,-1 }; + int kbps = bitrateTbl[(header >> 12) & 15]; + if (kbps < 0) { + return false; + } + static const int hzTbl[4] = { 44100, 48000, 32000, 0 }; + hz = hzTbl[(header >> 10) & 3]; + if (!hz) { + return false; + } + + // mode 0 = stereo + // mode 1 = joint stereo + // mode 2 = dual channel (no idea what this does TODO) + // mode 3 = mono + int mode = (header >> 6) & 3; + int modeExt = (header >> 4) & 3; + channels = mode == 3 ? 1 : 2; + const int bound = mode == 1 ? (modeExt + 1) * 4 : 32; + + bool errorProtection = ((header >> 16) & 1) ^ 1; //< @r-lyeh extra parens + if (errorProtection) { + at += 16; // skip the CRC. + } + + // Read bit allocations + int bitAlloc[32][2] = { 0 }; + for (int i = 0; i < bound; ++i) { + for (int ch = 0; ch < channels; ++ch) { + bitAlloc[i][ch] = jo_readBits(data, &at, 4); + } + } + for (int i = bound; i < 32; ++i) { + bitAlloc[i][1] = bitAlloc[i][0] = jo_readBits(data, &at, 4); + } + + // Read scale indexes + int scaleIdx[32][2]; + for (int i = 0; i < 32; ++i) { + for (int ch = 0; ch < channels; ++ch) { + scaleIdx[i][ch] = bitAlloc[i][ch] ? jo_readBits(data, &at, 6) : 63; + } + } + + // Read & compute output samples + short pcm[12][2][32]; + for (int s = 0; s < 12; ++s) { + // Read normalized, quantized band samples + int samples[32][2] = { 0 }; + for (int i = 0; i < bound; ++i) { + for (int ch = 0; ch < channels; ++ch) { + if (bitAlloc[i][ch]) { + samples[i][ch] = jo_readBits(data, &at, bitAlloc[i][ch] + 1); + } + } + } + for (int i = bound; i < 32; ++i) { + if (bitAlloc[i][0]) { + samples[i][1] = samples[i][0] = jo_readBits(data, &at, bitAlloc[i][0] + 1); + } + } + // Compute bands: Dequantize & Denormalize + double bandTbl[2][32] = { 0 }; + for (int i = 0; i < 32; ++i) { + for (int ch = 0; ch < channels; ++ch) { + int b = bitAlloc[i][ch]; + if (b++) { + int samp = samples[i][ch]; + double f = ((samp >> (b - 1)) & 1) ? 0 : -1; + f += (samp & ((1 << (b - 1)) - 1)) / (double)(1 << (b - 1)); + f = (f + 1.0 / (1 << (b - 1))) * (1 << b) / ((1 << b) - 1.0); + f *= s_jo_multTbl[scaleIdx[i][ch]]; + bandTbl[ch][i] = f; + } + } + } + // Convert subbands to PCM + for (int ch = 0; ch < channels; ++ch) { + bufOffset[ch] = (bufOffset[ch] + 0x3C0) & 0x3ff; + double *bufOffsetPtr = buf[ch] + bufOffset[ch]; + const double *f = s_jo_filterTbl[0]; + for (int i = 0; i < 64; ++i) { + double sum = 0; + for (int j = 0; j < 32; ++j) { + sum += *f++ * bandTbl[ch][j]; + } + bufOffsetPtr[i] = sum; + } + const double *w = s_jo_windowTbl; + for (int i = 0; i < 32; ++i) { + double sum = 0; + for (int j = 0; j < 16; ++j) { + int k = i | (j + (j + 1 & -2)) << 5; + sum += *w++ * buf[ch][(k + bufOffset[ch]) & 0x3ff]; + } + int ss = (int)(sum * 0x8000); + ss = ss > SHRT_MAX ? SHRT_MAX : ss < SHRT_MIN ? SHRT_MIN : ss; + pcm[s][ch][i] = ss; + } + } + } + if (at > inputSize * 8) { + printf("file corruption?\n"); + return false; + } + if (outputMax == 0) { + // estimate total number of samples (may be totally wrong, but its better than nothing) + at = (at + 7)&-8; + outputMax = inputSize / (at / 8) * 384 * channels * sizeof(*output); + output = (short*)REALLOC(output, outputMax); + } + if (outputSize * sizeof(*output) + 384 * channels * sizeof(*output) > outputMax) { + outputMax += 384 * channels * sizeof(*output); + output = (short*)REALLOC(output, outputMax); + } + for (int i = 0; i < 12; ++i) { + for (int j = 0; j < 32; ++j) { + for (int k = 0; k < channels; ++k) { + output[outputSize++] = pcm[i][k][j]; + } + } + } + } + + *outputSize_ = outputSize; + *hz_ = hz; + *channels_ = channels; + *output_ = output; + + return outputSize && hz && channels && output; +} + +#endif // JO_MP1_HEADER_FILE_ONLY + diff --git a/sfw/audio/3rd_sts_mixer.h b/sfw/audio/3rd_sts_mixer.h new file mode 100644 index 0000000..375bcab --- /dev/null +++ b/sfw/audio/3rd_sts_mixer.h @@ -0,0 +1,535 @@ +/////////////////////////////////////////////////////////////////////////////// +// sts_mixer.h - v0.02 +// written 2016 by Sebastian Steinhauer +// +// LICENSE +// Public domain. See "unlicense" statement at the end of this file. +// +// ABOUT +// A simple stereo audio mixer which is capable of mixing samples and audio streams. +// Samples can be played with different gain, pitch and panning. +// Streams can be played with different gain. +// This library has no malloc/free. All structs have to be "prepared" by the user. So you can enroll your own memory management. +// You have to implement/provide a real audio-backend to hear something from the speakers. +// A good starting point would be SDL2 where you can use an audio callback to feed the audio device. +// +// USAGE +// Please note that most audio systems will run in a separate thread. So you have to take care about locking before modifying the sts_mixer_t state. +// See the example at the end of the file. +// +// VERSION HISTORY +// 0.03 (2022-12-12) add an ability to stop audio stream via callback, add a method to check if voice is already stopped +// 0.02 (2022-05-10) allow voice queueing in same channel. ie, chain another sample on same voice channel after current sample playback is done (@r-lyeh) +// 0.01 (2016-05-01) initial version +// +#ifndef __INCLUDED__STS_MIXER_H__ +#define __INCLUDED__STS_MIXER_H__ + + +// The number of concurrent voices (channels) which are used to mix the audio. +// If you need more, use a higher number by setting #define STS_MIXER_VOICE n before including this header. +#ifndef STS_MIXER_VOICES +#define STS_MIXER_VOICES 32 +#endif // STS_MIXER_VOICES + +// Defines the various audio formats. Note that they are all on system endianess. +enum { + STS_MIXER_SAMPLE_FORMAT_NONE, // no format + STS_MIXER_SAMPLE_FORMAT_8, // signed 8-bit + STS_MIXER_SAMPLE_FORMAT_16, // signed 16-bit + STS_MIXER_SAMPLE_FORMAT_32, // signed 32-bit + STS_MIXER_SAMPLE_FORMAT_FLOAT // floats +}; + + +//////////////////////////////////////////////////////////////////////////////// +// +// SAMPLES +// +// A sample is a *MONO* piece of audio which is loaded fully to memory. +// It can be played with various gains, pitches and pannings. +// +typedef struct { + unsigned int length; // length in samples (so 1024 samples of STS_MIXER_SAMPLE_FORMAT_16 would be 2048 bytes) + unsigned int frequency; // frequency of this sample (e.g. 44100, 22000 ...) + int audio_format; // one of STS_MIXER_SAMPLE_FORMAT_* + void* data; // pointer to the sample data, sts_mixer makes no copy, so you have to keep them in memory + void* next; // next sample in chain (if any) //< @r-lyeh +} sts_mixer_sample_t; + + +//////////////////////////////////////////////////////////////////////////////// +// +// STREAMS +// +// A stream is *STEREO* audio which will be decoded/loaded as needed. +// It can be played with various gains. No panning or pitching. +// + +// The callback which will be called when the stream needs more data. +typedef bool (*sts_mixer_stream_callback)(sts_mixer_sample_t* sample, void* userdata); + +typedef struct { + void* userdata; // a userdata pointer which will passed to the callback + sts_mixer_stream_callback callback; // this callback will be called when the stream needs more data + sts_mixer_sample_t sample; // the current stream "sample" which holds the current piece of audio +} sts_mixer_stream_t; + + +//////////////////////////////////////////////////////////////////////////////// +// +// VOICES +// +// A voice is an audio source which will be used during mixing. +// It can play nothing, a sample or a stream. +// Most of those fields are considered "private" and you should not play around with those. +// +typedef struct { + int state; + sts_mixer_sample_t* sample; + sts_mixer_stream_t* stream; + float position; + float gain; + float pitch; + float pan; +} sts_mixer_voice_t; + + +//////////////////////////////////////////////////////////////////////////////// +// +// MIXER +// +// The mixer state. +// +typedef struct { + float gain; // the global gain (you can change it if you want to change to overall volume) + unsigned int frequency; // the frequency for the output of mixed audio data + int audio_format; // the audio format for the output of mixed audio data + sts_mixer_voice_t voices[STS_MIXER_VOICES]; // holding all audio voices for this state +} sts_mixer_t; + + +//////////////////////////////////////////////////////////////////////////////// +// +// API +// + +// "Initializes" a new sts_mixer state. +void sts_mixer_init(sts_mixer_t* mixer, unsigned int frequency, int audio_format); +// "Shutdown" the mixer state. It will simply reset all fields. +void sts_mixer_shutdown(sts_mixer_t* mixer); + +// Return the number of active voices. Active voices are voices that play either a stream or a sample. +int sts_mixer_get_active_voices(sts_mixer_t* mixer); + +// Play the given sample with the gain, pitch and panning. +// Panning can be something between -1.0f (fully left) ... +1.0f (fully right) +// Please note that pitch will be clamped so it cannot reach 0.0f (would be useless). +// Returns the number of the voice where this sample will be played or -1 if no voice was free. +int sts_mixer_play_sample(sts_mixer_t* mixer, sts_mixer_sample_t* sample, float gain, float pitch, float pan); + +// Plays the given stream with the gain. +// Returns the number of the voice where this stream will be played or -1 if no voice was free. +int sts_mixer_play_stream(sts_mixer_t* mixer, sts_mixer_stream_t* stream, float gain); + +// Stops voice with the given voice no. You can pass the returned number of sts_mixer_play_sample / sts_mixer_play_stream here. +void sts_mixer_stop_voice(sts_mixer_t* mixer, int voice); + +// Returns whether the given sample has already stopped playing. +bool sts_mixer_sample_stopped(sts_mixer_t* mixer, sts_mixer_sample_t* sample); + +// Returns whether the given stream has already stopped playing. +bool sts_mixer_stream_stopped(sts_mixer_t* mixer, sts_mixer_stream_t* stream); + +// Stops all voices playing the given sample. Useful when you want to delete the sample and make sure it is not used anymore. +void sts_mixer_stop_sample(sts_mixer_t* mixer, sts_mixer_sample_t* sample); + +// Stops all voices playing the given stream. Useful when you want to delete the stream and make sure it is not used anymore. +void sts_mixer_stop_stream(sts_mixer_t* mixer, sts_mixer_stream_t* stream); + +// The mixing function. You should call the function if you need to pass more audio data to the audio device. +// Typically this function is called in a separate thread or something like that. +// It will write audio data in the specified format and frequency of the mixer state. +void sts_mixer_mix_audio(sts_mixer_t* mixer, void* output, unsigned int samples); + + +#endif // __INCLUDED__STS_MIXER_H__ + +/////////////////////////////////////////////////////////////////////////////// +/////////////////////////////////////////////////////////////////////////////// +//// +//// IMPLEMENTATION +//// +//// +#ifdef STS_MIXER_IMPLEMENTATION + +enum { + STS_MIXER_VOICE_STOPPED, + STS_MIXER_VOICE_PLAYING, + STS_MIXER_VOICE_STREAMING +}; + + +static float sts_mixer__clamp(const float value, const float min, const float max) { + if (value < min) return min; + else if (value > max) return max; + else return value; +} + + +static float sts_mixer__clamp_sample(const float sample) { + if (sample < -1.0f) return -1.0f; + else if (sample > 1.0f) return 1.0f; + else return sample; +} + + +static float sts_mixer__get_sample(sts_mixer_sample_t* sample, unsigned int position) { + switch (sample->audio_format) { + case STS_MIXER_SAMPLE_FORMAT_8: + return (float)((char*)sample->data)[position] / 127.0f; + case STS_MIXER_SAMPLE_FORMAT_16: + return (float)((short*)sample->data)[position] / 32767.0f; + case STS_MIXER_SAMPLE_FORMAT_32: + return (float)((int*)sample->data)[position] / 2147483647.0f; + case STS_MIXER_SAMPLE_FORMAT_FLOAT: + return ((float*)sample->data)[position]; + default: + return 0.0f; + } +} + + +static void sts_mixer__reset_voice(sts_mixer_t* mixer, const int i) { + sts_mixer_voice_t* voice = &mixer->voices[i]; + voice->state = STS_MIXER_VOICE_STOPPED; + voice->sample = 0; + voice->stream = 0; + voice->position = voice->gain = voice->pitch = voice->pan = 0.0f; +} + + +static int sts_mixer__find_free_voice(sts_mixer_t* mixer) { + int i; + + for (i = 0; i < STS_MIXER_VOICES; ++i) { + if (mixer->voices[i].state == STS_MIXER_VOICE_STOPPED) return i; + } + return -1; +} + + +void sts_mixer_init(sts_mixer_t* mixer, unsigned int frequency, int audio_format) { + int i; + + for (i = 0; i < STS_MIXER_VOICES; ++i) sts_mixer__reset_voice(mixer, i); + mixer->frequency = frequency; + mixer->gain = 1.0f; + mixer->audio_format = audio_format; +} + + +void sts_mixer_shutdown(sts_mixer_t* mixer) { + sts_mixer_init(mixer, 0, 0); +} + + +int sts_mixer_get_active_voices(sts_mixer_t* mixer) { + int i, active; + for (i = 0, active = 0; i < STS_MIXER_VOICES; ++i) { + if (mixer->voices[i].state != STS_MIXER_VOICE_STOPPED) ++active; + } + return active; +} + + +int sts_mixer_play_sample(sts_mixer_t* mixer, sts_mixer_sample_t* sample, float gain, float pitch, float pan) { + int i; + sts_mixer_voice_t* voice; + + i = sts_mixer__find_free_voice(mixer); + if (i >= 0) { + voice = &mixer->voices[i]; + voice->gain = gain; + voice->pitch = sts_mixer__clamp(pitch, 0.1f, 10.0f); + voice->pan = sts_mixer__clamp(pan * 0.5f, -0.5f, 0.5f); + voice->position = 0.0f; + voice->sample = sample; + voice->stream = 0; + voice->state = STS_MIXER_VOICE_PLAYING; + } + return i; +} + + +int sts_mixer_play_stream(sts_mixer_t* mixer, sts_mixer_stream_t* stream, float gain) { + int i; + sts_mixer_voice_t* voice; + + i = sts_mixer__find_free_voice(mixer); + if (i >= 0) { + voice = &mixer->voices[i]; + voice->gain = gain; + voice->position = 0.0f; + voice->sample = 0; + voice->stream = stream; + voice->state = STS_MIXER_VOICE_STREAMING; + } + return i; +} + + +void sts_mixer_stop_voice(sts_mixer_t* mixer, int voice) { + if (voice >= 0 && voice < STS_MIXER_VOICES) sts_mixer__reset_voice(mixer, voice); +} + +bool sts_mixer_sample_stopped(sts_mixer_t* mixer, sts_mixer_sample_t* sample) { + for (int i = 0; i < STS_MIXER_VOICES; ++i) { + if (mixer->voices[i].sample == sample && mixer->voices[i].state != STS_MIXER_VOICE_STOPPED) return false; + } + return true; +} + +bool sts_mixer_stream_stopped(sts_mixer_t* mixer, sts_mixer_stream_t* stream) { + for (int i = 0; i < STS_MIXER_VOICES; ++i) { + if (mixer->voices[i].stream == stream && mixer->voices[i].state != STS_MIXER_VOICE_STOPPED) return false; + } + return true; +} + +void sts_mixer_stop_sample(sts_mixer_t* mixer, sts_mixer_sample_t* sample) { + int i; + + for (i = 0; i < STS_MIXER_VOICES; ++i) { + if (mixer->voices[i].sample == sample) sts_mixer__reset_voice(mixer, i); + } +} + + +void sts_mixer_stop_stream(sts_mixer_t* mixer, sts_mixer_stream_t* stream) { + int i; + + for (i = 0; i < STS_MIXER_VOICES; ++i) { + if (mixer->voices[i].stream == stream) sts_mixer__reset_voice(mixer, i); + } +} + + +void sts_mixer_mix_audio(sts_mixer_t* mixer, void* output, unsigned int samples) { + sts_mixer_voice_t* voice; + unsigned int i, position; + float left, right, advance, sample; + char* out_8 = (char*)output; + short* out_16 = (short*)output; + int* out_32 = (int*)output; + float* out_float = (float*)output; + + // mix all voices + advance = 1.0f / (float)mixer->frequency; + for (; samples > 0; --samples) { + left = right = 0.0f; + for (i = 0; i < STS_MIXER_VOICES; ++i) { + voice = &mixer->voices[i]; + if (voice->state == STS_MIXER_VOICE_PLAYING) { + position = (int)voice->position; + if (position < voice->sample->length) { + sample = sts_mixer__clamp_sample(sts_mixer__get_sample(voice->sample, position) * voice->gain); + left += sts_mixer__clamp_sample(sample * (0.5f - voice->pan)); + right += sts_mixer__clamp_sample(sample * (0.5f + voice->pan)); + voice->position += (float)voice->sample->frequency * advance * voice->pitch; + } else if( voice->sample->next ) { //< @r-lyeh + *voice->sample = *(sts_mixer_sample_t*)voice->sample->next; //< @r-lyeh + voice->position = 0; //< @r-lyeh + } else sts_mixer__reset_voice(mixer, i); + } else if (voice->state == STS_MIXER_VOICE_STREAMING) { + position = ((int)voice->position) * 2; + if (position >= voice->stream->sample.length) { + // buffer empty...refill + if (voice->stream->callback(&voice->stream->sample, voice->stream->userdata)) { + voice->position = 0.0f; + position = 0; + } else { + sts_mixer__reset_voice(mixer, i); + continue; + } + } + left += sts_mixer__clamp_sample(sts_mixer__get_sample(&voice->stream->sample, position) * voice->gain); + right += sts_mixer__clamp_sample(sts_mixer__get_sample(&voice->stream->sample, position + 1) * voice->gain); + voice->position += (float)voice->stream->sample.frequency * advance; + } + } + + // write to buffer. + float _g = mixer->gain; //< @r-lyeh: added master gain + float _127 = 127.0f * _g; //< @r-lyeh: added master gain + float _32767 = 32767.0f * _g; //< @r-lyeh: added master gain + float _2147483647 = 2147483647.0f * _g; //< @r-lyeh: added master gain + left = sts_mixer__clamp_sample(left); + right = sts_mixer__clamp_sample(right); + switch (mixer->audio_format) { + case STS_MIXER_SAMPLE_FORMAT_8: + *out_8++ = (char)(left * _127); //< @r-lyeh: added master gain + *out_8++ = (char)(right * _127); //< @r-lyeh: added master gain + break; + case STS_MIXER_SAMPLE_FORMAT_16: + *out_16++ = (short)(left * _32767); //< @r-lyeh: added master gain + *out_16++ = (short)(right * _32767); //< @r-lyeh: added master gain + break; + case STS_MIXER_SAMPLE_FORMAT_32: + *out_32++ = (int)(left * _2147483647); //< @r-lyeh: added master gain + *out_32++ = (int)(right * _2147483647); //< @r-lyeh: added master gain + break; + case STS_MIXER_SAMPLE_FORMAT_FLOAT: + *out_float++ = left * _g; //< @r-lyeh: added master gain + *out_float++ = right * _g; //< @r-lyeh: added master gain + break; + } + } +} +#endif // STS_MIXER_IMPLEMENTATION +//////////////////////////////////////////////////////////////////////////////// +// EXAMPLE +// This is a very simple example loading a stream and a sample using +// dr_flac.h (https://github.com/mackron/dr_libs) and SDL2. You can of course also use stb_vorbis or something similar :) +// Please note how the audio thread of SDL2 will be locked when the mixer state get's modified. This is important! +// Also there's no error checking in the entire example code, so beware. +// +#if 0 +#include "SDL.h" + + +#define DR_FLAC_IMPLEMENTATION +#include "dr_flac.h" +#define STS_MIXER_IMPLEMENTATION +#include "sts_mixer.h" + + +SDL_AudioDeviceID audio_device = 0; +sts_mixer_t mixer; + + +// encapsulate drflac and some buffer with the sts_mixer_stream_t +typedef struct { + drflac* flac; // FLAC decoder state + sts_mixer_stream_t stream; // mixer stream + int32_t data[4096*2]; // static sample buffer +} mystream_t; + + +// SDL2 audio callback +static void audio_callback(void* userdata, Uint8* stream, int len) { + (void)(userdata); + sts_mixer_mix_audio(&mixer, stream, len / (sizeof(int) * 2)); +} + + +// load a sample +static void load_sample(sts_mixer_sample_t* sample, const char *filename) { + drflac* flac = drflac_open_file(filename); + sample->frequency = flac->sampleRate; + sample->audio_format = STS_MIXER_SAMPLE_FORMAT_32; + sample->length = flac->totalSampleCount; + sample->data = malloc(sample->length * sizeof(int32_t)); + drflac_read_s32(flac, sample->length, (int32_t*)sample->data); + drflac_close(flac); +} + + +// the callback to refill the stream data +static void refill_stream(sts_mixer_sample_t* sample, void* userdata) { + mystream_t* stream = (mystream_t*)userdata; + if (drflac_read_s32(stream->flac, sample->length, stream->data) < sample->length) drflac_seek_to_sample(stream->flac, 0); +} + + +// load a stream +static void load_stream(mystream_t* stream, const char *filename) { + stream->flac = drflac_open_file(filename); + stream->stream.userdata = stream; + stream->stream.callback = refill_stream; + stream->stream.sample.frequency = stream->flac->sampleRate; + stream->stream.sample.audio_format = STS_MIXER_SAMPLE_FORMAT_32; + stream->stream.sample.length = 4096*2; + stream->stream.sample.data = stream->data; + refill_stream(&stream->stream.sample, stream); +} + + +// helper to get random [0.0f..1.0f values +static float randf() { + return (float)(rand()) / (float)RAND_MAX; +} + + +int main(int argc, char *argv[]) { + SDL_AudioSpec want, have; + sts_mixer_sample_t sample; + mystream_t stream; + + + (void)(argc); (void)(argv); + + // init SDL2 + audio + want.format = AUDIO_S32SYS; + want.freq = 44100; + want.channels = 2; + want.userdata = NULL; + want.samples = 4096; + want.callback = audio_callback; + SDL_Init(SDL_INIT_AUDIO); + audio_device = SDL_OpenAudioDevice(NULL, 0, &want, &have, 0); + + // init sts_mixer and load things + sts_mixer_init(&mixer, 44100, STS_MIXER_SAMPLE_FORMAT_32); + load_sample(&sample, "effect.flac"); + load_stream(&stream, "music.flac"); + + // play the stream + sts_mixer_play_stream(&mixer, &stream.stream, 0.7f); + + // start audio processing and do a loop for audio effects + SDL_PauseAudioDevice(audio_device, 0); + for (;;) { + // !!!IMPORTANT!!! lock the audio thread before modifying data in the sts_mixer !!! + SDL_LockAudioDevice(audio_device); + // play a sample with random gain, pitch and panning + sts_mixer_play_sample(&mixer, &sample, randf(), 0.5f + randf(), -1.0f + randf() * 2.0f); + // unlock audio thread again + SDL_UnlockAudioDevice(audio_device); + + // wait ... + SDL_Delay(76); + } + SDL_PauseAudioDevice(audio_device, 1); + SDL_CloseAudioDevice(audio_device); + + SDL_Quit(); + return 0; +} +#endif // 0 +/* + This is free and unencumbered software released into the public domain. + + Anyone is free to copy, modify, publish, use, compile, sell, or + distribute this software, either in source code form or as a compiled + binary, for any purpose, commercial or non-commercial, and by any + means. + + In jurisdictions that recognize copyright laws, the author or authors + of this software dedicate any and all copyright interest in the + software to the public domain. We make this dedication for the benefit + of the public at large and to the detriment of our heirs and + successors. We intend this dedication to be an overt act of + relinquishment in perpetuity of all present and future rights to this + software under copyright law. + + THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, + EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF + MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. + IN NO EVENT SHALL THE AUTHORS BE LIABLE FOR ANY CLAIM, DAMAGES OR + OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, + ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR + OTHER DEALINGS IN THE SOFTWARE. + + For more information, please refer to +*/