visus
/
teensy-audio
Слідкувати 1
В обрані 0
Форк 0
Код Проблеми 0 Запити на злиття 0 Релізи 0 Вікі Активність
Ви не можете вибрати більше 25 тем Теми мають розпочинатися з літери або цифри, можуть містити дефіси (-) і не повинні перевищувати 35 символів.
82 Коміти
2 Гілки
Дерево: e3acf32f5d
Гілки Теги
${ item.name }
Створити гілку ${ searchTerm }
з 'e3acf32f5d'
${ noResults }
teensy-audio/data_waveforms.c

251 lines
11KB
Неформатований Blame Історія 

  1. #include <stdint.h>

  2. 

  3. // These audio waveforms have a period of 256 points, plus a 257th

  4. // point that is a duplicate of the first point.  This duplicate

  5. // is needed because the waveform generator uses linear interpolation

  6. // between each point and the next point in the waveform.

  7. 

  8. const int16_t AudioWaveformSine[257] = {

  9.      0,   804,  1608,  2410,  3212,  4011,  4808,  5602,  6393,  7179,

  10.   7962,  8739,  9512, 10278, 11039, 11793, 12539, 13279, 14010, 14732,

  11.  15446, 16151, 16846, 17530, 18204, 18868, 19519, 20159, 20787, 21403,

  12.  22005, 22594, 23170, 23731, 24279, 24811, 25329, 25832, 26319, 26790,

  13.  27245, 27683, 28105, 28510, 28898, 29268, 29621, 29956, 30273, 30571,

  14.  30852, 31113, 31356, 31580, 31785, 31971, 32137, 32285, 32412, 32521,

  15.  32609, 32678, 32728, 32757, 32767, 32757, 32728, 32678, 32609, 32521,

  16.  32412, 32285, 32137, 31971, 31785, 31580, 31356, 31113, 30852, 30571,

  17.  30273, 29956, 29621, 29268, 28898, 28510, 28105, 27683, 27245, 26790,

  18.  26319, 25832, 25329, 24811, 24279, 23731, 23170, 22594, 22005, 21403,

  19.  20787, 20159, 19519, 18868, 18204, 17530, 16846, 16151, 15446, 14732,

  20.  14010, 13279, 12539, 11793, 11039, 10278,  9512,  8739,  7962,  7179,

  21.   6393,  5602,  4808,  4011,  3212,  2410,  1608,   804,     0,  -804,

  22.  -1608, -2410, -3212, -4011, -4808, -5602, -6393, -7179, -7962, -8739,

  23.  -9512,-10278,-11039,-11793,-12539,-13279,-14010,-14732,-15446,-16151,

  24. -16846,-17530,-18204,-18868,-19519,-20159,-20787,-21403,-22005,-22594,

  25. -23170,-23731,-24279,-24811,-25329,-25832,-26319,-26790,-27245,-27683,

  26. -28105,-28510,-28898,-29268,-29621,-29956,-30273,-30571,-30852,-31113,

  27. -31356,-31580,-31785,-31971,-32137,-32285,-32412,-32521,-32609,-32678,

  28. -32728,-32757,-32767,-32757,-32728,-32678,-32609,-32521,-32412,-32285,

  29. -32137,-31971,-31785,-31580,-31356,-31113,-30852,-30571,-30273,-29956,

  30. -29621,-29268,-28898,-28510,-28105,-27683,-27245,-26790,-26319,-25832,

  31. -25329,-24811,-24279,-23731,-23170,-22594,-22005,-21403,-20787,-20159,

  32. -19519,-18868,-18204,-17530,-16846,-16151,-15446,-14732,-14010,-13279,

  33. -12539,-11793,-11039,-10278, -9512, -8739, -7962, -7179, -6393, -5602,

  34.  -4808, -4011, -3212, -2410, -1608,  -804,     0

  35. };

  36. 

  37. #if 0

  38. #! /usr/bin/perl

  39. use Math::Trig ':pi';

  40. $len = 256;

  41. print "const int16_t AudioWaveformSine[257] = {\n";

  42. for ($i=0; $i <= $len; $i++) {

  43.         $f = sin($i / $len * 2 * pi);

  44.         $d = sprintf "%.0f", $f * 32767.0;

  45.         #print $d;

  46.         printf "%6d", $d + 0;

  47.         print "," if ($i < $len);

  48.         print "\n" if ($i % 10) == 9;

  49. }

  50. print "\n" unless ($len % 10) == 9;

  51. print "};\n";

  52. #endif

  53. 

  54. const int16_t AudioWaveformTriangle[257] = {

  55.      0,   512,  1024,  1536,  2048,  2560,  3072,  3584,  4096,  4608,

  56.   5120,  5632,  6144,  6656,  7168,  7680,  8192,  8704,  9216,  9728,

  57.  10240, 10752, 11264, 11776, 12288, 12800, 13312, 13824, 14336, 14848,

  58.  15360, 15872, 16384, 16895, 17407, 17919, 18431, 18943, 19455, 19967,

  59.  20479, 20991, 21503, 22015, 22527, 23039, 23551, 24063, 24575, 25087,

  60.  25599, 26111, 26623, 27135, 27647, 28159, 28671, 29183, 29695, 30207,

  61.  30719, 31231, 31743, 32255, 32767, 32255, 31743, 31231, 30719, 30207,

  62.  29695, 29183, 28671, 28159, 27647, 27135, 26623, 26111, 25599, 25087,

  63.  24575, 24063, 23551, 23039, 22527, 22015, 21503, 20991, 20479, 19967,

  64.  19455, 18943, 18431, 17919, 17407, 16895, 16384, 15872, 15360, 14848,

  65.  14336, 13824, 13312, 12800, 12288, 11776, 11264, 10752, 10240,  9728,

  66.   9216,  8704,  8192,  7680,  7168,  6656,  6144,  5632,  5120,  4608,

  67.   4096,  3584,  3072,  2560,  2048,  1536,  1024,   512,     0,  -512,

  68.  -1024, -1536, -2048, -2560, -3072, -3584, -4096, -4608, -5120, -5632,

  69.  -6144, -6656, -7168, -7680, -8192, -8704, -9216, -9728,-10240,-10752,

  70. -11264,-11776,-12288,-12800,-13312,-13824,-14336,-14848,-15360,-15872,

  71. -16384,-16895,-17407,-17919,-18431,-18943,-19455,-19967,-20479,-20991,

  72. -21503,-22015,-22527,-23039,-23551,-24063,-24575,-25087,-25599,-26111,

  73. -26623,-27135,-27647,-28159,-28671,-29183,-29695,-30207,-30719,-31231,

  74. -31743,-32255,-32767,-32255,-31743,-31231,-30719,-30207,-29695,-29183,

  75. -28671,-28159,-27647,-27135,-26623,-26111,-25599,-25087,-24575,-24063,

  76. -23551,-23039,-22527,-22015,-21503,-20991,-20479,-19967,-19455,-18943,

  77. -18431,-17919,-17407,-16895,-16384,-15872,-15360,-14848,-14336,-13824,

  78. -13312,-12800,-12288,-11776,-11264,-10752,-10240, -9728, -9216, -8704,

  79.  -8192, -7680, -7168, -6656, -6144, -5632, -5120, -4608, -4096, -3584,

  80.  -3072, -2560, -2048, -1536, -1024,  -512,     0

  81. };

  82. 

  83. #if 0

  84. #! /usr/bin/perl

  85. $len = 256;

  86. print "const int16_t AudioWaveformTriangle[257] = {\n";

  87. for ($i=0; $i <= $len; $i++) {

  88. 

  89.         $f = 0;

  90.         if ($i < $len / 4) {

  91.                 $f = $i / ($len / 4);

  92.         } elsif ($i < $len * 3 / 4) {

  93.                 $f = 2 - $i / ($len / 4);

  94.         } else {

  95.                 $f = $i / ($len / 4) - 4;

  96.                 #print "$i  $f\n";

  97.         }

  98.         $d = sprintf "%.0f", $f * 32767.0;

  99.         printf "%6d", $d + 0;

  100.         print "," if ($i < $len);

  101.         print "\n" if ($i % 10) == 9;

  102. }

  103. print "\n" unless ($len % 10) == 9;

  104. print "};\n";

  105. #endif

  106. 

  107. const int16_t AudioWaveformSquare[257] = {

  108.  32767, 32767, 32767, 32767, 32767, 32767, 32767, 32767, 32767, 32767,

  109.  32767, 32767, 32767, 32767, 32767, 32767, 32767, 32767, 32767, 32767,

  110.  32767, 32767, 32767, 32767, 32767, 32767, 32767, 32767, 32767, 32767,

  111.  32767, 32767, 32767, 32767, 32767, 32767, 32767, 32767, 32767, 32767,

  112.  32767, 32767, 32767, 32767, 32767, 32767, 32767, 32767, 32767, 32767,

  113.  32767, 32767, 32767, 32767, 32767, 32767, 32767, 32767, 32767, 32767,

  114.  32767, 32767, 32767, 32767, 32767, 32767, 32767, 32767, 32767, 32767,

  115.  32767, 32767, 32767, 32767, 32767, 32767, 32767, 32767, 32767, 32767,

  116.  32767, 32767, 32767, 32767, 32767, 32767, 32767, 32767, 32767, 32767,

  117.  32767, 32767, 32767, 32767, 32767, 32767, 32767, 32767, 32767, 32767,

  118.  32767, 32767, 32767, 32767, 32767, 32767, 32767, 32767, 32767, 32767,

  119.  32767, 32767, 32767, 32767, 32767, 32767, 32767, 32767, 32767, 32767,

  120.  32767, 32767, 32767, 32767, 32767, 32767, 32767, 32767,-32767,-32767,

  121. -32767,-32767,-32767,-32767,-32767,-32767,-32767,-32767,-32767,-32767,

  122. -32767,-32767,-32767,-32767,-32767,-32767,-32767,-32767,-32767,-32767,

  123. -32767,-32767,-32767,-32767,-32767,-32767,-32767,-32767,-32767,-32767,

  124. -32767,-32767,-32767,-32767,-32767,-32767,-32767,-32767,-32767,-32767,

  125. -32767,-32767,-32767,-32767,-32767,-32767,-32767,-32767,-32767,-32767,

  126. -32767,-32767,-32767,-32767,-32767,-32767,-32767,-32767,-32767,-32767,

  127. -32767,-32767,-32767,-32767,-32767,-32767,-32767,-32767,-32767,-32767,

  128. -32767,-32767,-32767,-32767,-32767,-32767,-32767,-32767,-32767,-32767,

  129. -32767,-32767,-32767,-32767,-32767,-32767,-32767,-32767,-32767,-32767,

  130. -32767,-32767,-32767,-32767,-32767,-32767,-32767,-32767,-32767,-32767,

  131. -32767,-32767,-32767,-32767,-32767,-32767,-32767,-32767,-32767,-32767,

  132. -32767,-32767,-32767,-32767,-32767,-32767,-32767,-32767,-32767,-32767,

  133. -32767,-32767,-32767,-32767,-32767,-32767, 32767

  134. };

  135. 

  136. #if 0

  137. #! /usr/bin/perl

  138. $len = 256;

  139. print "const int16_t AudioWaveformSquare[257] = {\n";

  140. for ($i=0; $i <= $len; $i++) {

  141.         $f = 1.0;

  142.         if ($i < $len / 2) {

  143.                 $f = 1.0;

  144.         } elsif ($i < $len) {

  145.                 $f = -1.0;

  146.         } 

  147.         $d = sprintf "%.0f", $f * 32767.0;

  148.         printf "%6d", $d + 0;

  149.         print "," if ($i < $len);

  150.         print "\n" if ($i % 10) == 9;

  151. }

  152. print "\n" unless ($len % 10) == 9;

  153. print "};\n";

  154. #endif

  155. 

  156. const int16_t AudioWaveformSawtooth[257] = {

  157.      0,   256,   512,   768,  1024,  1280,  1536,  1792,  2048,  2304,

  158.   2560,  2816,  3072,  3328,  3584,  3840,  4096,  4352,  4608,  4864,

  159.   5120,  5376,  5632,  5888,  6144,  6400,  6656,  6912,  7168,  7424,

  160.   7680,  7936,  8192,  8448,  8704,  8960,  9216,  9472,  9728,  9984,

  161.  10240, 10496, 10752, 11008, 11264, 11520, 11776, 12032, 12288, 12544,

  162.  12800, 13056, 13312, 13568, 13824, 14080, 14336, 14592, 14848, 15104,

  163.  15360, 15616, 15872, 16128, 16384, 16639, 16895, 17151, 17407, 17663,

  164.  17919, 18175, 18431, 18687, 18943, 19199, 19455, 19711, 19967, 20223,

  165.  20479, 20735, 20991, 21247, 21503, 21759, 22015, 22271, 22527, 22783,

  166.  23039, 23295, 23551, 23807, 24063, 24319, 24575, 24831, 25087, 25343,

  167.  25599, 25855, 26111, 26367, 26623, 26879, 27135, 27391, 27647, 27903,

  168.  28159, 28415, 28671, 28927, 29183, 29439, 29695, 29951, 30207, 30463,

  169.  30719, 30975, 31231, 31487, 31743, 31999, 32255, 32511,-32767,-32511,

  170. -32255,-31999,-31743,-31487,-31231,-30975,-30719,-30463,-30207,-29951,

  171. -29695,-29439,-29183,-28927,-28671,-28415,-28159,-27903,-27647,-27391,

  172. -27135,-26879,-26623,-26367,-26111,-25855,-25599,-25343,-25087,-24831,

  173. -24575,-24319,-24063,-23807,-23551,-23295,-23039,-22783,-22527,-22271,

  174. -22015,-21759,-21503,-21247,-20991,-20735,-20479,-20223,-19967,-19711,

  175. -19455,-19199,-18943,-18687,-18431,-18175,-17919,-17663,-17407,-17151,

  176. -16895,-16639,-16384,-16128,-15872,-15616,-15360,-15104,-14848,-14592,

  177. -14336,-14080,-13824,-13568,-13312,-13056,-12800,-12544,-12288,-12032,

  178. -11776,-11520,-11264,-11008,-10752,-10496,-10240, -9984, -9728, -9472,

  179.  -9216, -8960, -8704, -8448, -8192, -7936, -7680, -7424, -7168, -6912,

  180.  -6656, -6400, -6144, -5888, -5632, -5376, -5120, -4864, -4608, -4352,

  181.  -4096, -3840, -3584, -3328, -3072, -2816, -2560, -2304, -2048, -1792,

  182.  -1536, -1280, -1024,  -768,  -512,  -256,     0

  183. };

  184. 

  185. #if 0

  186. #! /usr/bin/perl

  187. $len = 256;

  188. print "const int16_t AudioWaveformSawtooth[257] = {\n";

  189. for ($i=0; $i <= $len; $i++) {

  190.         $f = 0;

  191.         if ($i < $len / 2) {

  192.                 $f = $i / $len * 2;

  193.         } else {

  194.                 $f = -2 + $i / $len * 2;

  195.                 #print "$i  $f\n";

  196.         }

  197.         $d = sprintf "%.0f", $f * 32767.0;

  198.         printf "%6d", $d + 0;

  199.         print "," if ($i < $len);

  200.         print "\n" if ($i % 10) == 9;

  201. }

  202. print "\n" unless ($len % 10) == 9;

  203. print "};\n";

  204. #endif

  205. 

  206. 

  207. 

  208. const int16_t fader_table[257] = {

  209.     0,    1,    4,   11,   19,   30,   44,   60,   78,   99,

  210.   123,  149,  177,  208,  241,  276,  314,  355,  398,  443,

  211.   490,  541,  593,  648,  705,  764,  826,  891,  957, 1026,

  212.  1097, 1171, 1247, 1325, 1405, 1488, 1572, 1660, 1749, 1840,

  213.  1934, 2030, 2128, 2228, 2330, 2435, 2541, 2650, 2761, 2873,

  214.  2988, 3105, 3224, 3344, 3467, 3592, 3718, 3847, 3977, 4109,

  215.  4243, 4379, 4517, 4657, 4798, 4941, 5086, 5232, 5380, 5530,

  216.  5682, 5835, 5989, 6145, 6303, 6462, 6623, 6785, 6949, 7114,

  217.  7281, 7448, 7618, 7788, 7960, 8133, 8307, 8483, 8660, 8838,

  218.  9017, 9197, 9378, 9560, 9743, 9928,10113,10299,10486,10674,

  219. 10863,11053,11244,11435,11627,11820,12013,12207,12402,12597,

  220. 12793,12989,13186,13384,13582,13780,13979,14178,14377,14577,

  221. 14777,14977,15177,15378,15579,15780,15981,16182,16383,16584,

  222. 16785,16986,17187,17387,17588,17788,17989,18188,18388,18588,

  223. 18787,18985,19184,19382,19579,19776,19972,20168,20364,20558,

  224. 20752,20946,21139,21331,21522,21712,21902,22091,22279,22466,

  225. 22652,22838,23022,23205,23388,23569,23749,23928,24106,24283,

  226. 24458,24633,24806,24977,25148,25317,25485,25651,25817,25980,

  227. 26142,26303,26463,26620,26776,26931,27084,27236,27385,27534,

  228. 27680,27825,27968,28109,28249,28386,28522,28656,28789,28919,

  229. 29048,29174,29299,29422,29542,29661,29778,29893,30006,30116,

  230. 30225,30331,30436,30538,30638,30736,30832,30926,31017,31107,

  231. 31194,31279,31361,31442,31520,31596,31669,31740,31809,31876,

  232. 31940,32002,32062,32119,32174,32226,32276,32324,32369,32412,

  233. 32452,32490,32526,32559,32590,32618,32644,32667,32688,32707,

  234. 32723,32737,32748,32756,32763,32766,32767

  235. };

  236. #if 0

  237. #! /usr/bin/perl

  238. print "const int16_t fader_table[257] = {\n";

  239. $len = 256;

  240. for ($i=0; $i < $len+1; $i++) {

  241.         $a = cos(3.14149 * $i / $len);

  242.         $in = (1 - $a) / 2;

  243.         $d = $in * 32768;

  244.         $d = 32767 if $d >= 32767.5;

  245.         printf "%5d", $d;

  246.         print "," if ($i < $len);

  247.         print "\n" if ($i % 10) == 9;

  248. }

  249. print "\n};\n";

  250. #endif