annotate mp3lib/tabinit.c @ 1:3b5f5d1c5041

Initial revision
author arpi_esp
date Sat, 24 Feb 2001 20:28:24 +0000
parents
children 2ee9a18ed6f3
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
1
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
1
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
2
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
3 #ifdef HAVE_3DNOW
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
4 real decwin[2*(512+32)];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
5 real cos64[32],cos32[16],cos16[8],cos8[4],cos4[2];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
6 real *pnts[]={ cos64,cos32,cos16,cos8,cos4 };
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
7 #else
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
8 real decwin[512+32];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
9 real cos64[16],cos32[8],cos16[4],cos8[2],cos4[1];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
10 real *pnts[] = { cos64,cos32,cos16,cos8,cos4 };
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
11 #endif
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
12
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
13 long intwinbase[] = {
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
14 0, -1, -1, -1, -1, -1, -1, -2, -2, -2,
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
15 -2, -3, -3, -4, -4, -5, -5, -6, -7, -7,
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
16 -8, -9, -10, -11, -13, -14, -16, -17, -19, -21,
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
17 -24, -26, -29, -31, -35, -38, -41, -45, -49, -53,
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
18 -58, -63, -68, -73, -79, -85, -91, -97, -104, -111,
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
19 -117, -125, -132, -139, -147, -154, -161, -169, -176, -183,
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
20 -190, -196, -202, -208, -213, -218, -222, -225, -227, -228,
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
21 -228, -227, -224, -221, -215, -208, -200, -189, -177, -163,
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
22 -146, -127, -106, -83, -57, -29, 2, 36, 72, 111,
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
23 153, 197, 244, 294, 347, 401, 459, 519, 581, 645,
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
24 711, 779, 848, 919, 991, 1064, 1137, 1210, 1283, 1356,
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
25 1428, 1498, 1567, 1634, 1698, 1759, 1817, 1870, 1919, 1962,
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
26 2001, 2032, 2057, 2075, 2085, 2087, 2080, 2063, 2037, 2000,
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
27 1952, 1893, 1822, 1739, 1644, 1535, 1414, 1280, 1131, 970,
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
28 794, 605, 402, 185, -45, -288, -545, -814, -1095, -1388,
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
29 -1692, -2006, -2330, -2663, -3004, -3351, -3705, -4063, -4425, -4788,
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
30 -5153, -5517, -5879, -6237, -6589, -6935, -7271, -7597, -7910, -8209,
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
31 -8491, -8755, -8998, -9219, -9416, -9585, -9727, -9838, -9916, -9959,
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
32 -9966, -9935, -9863, -9750, -9592, -9389, -9139, -8840, -8492, -8092,
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
33 -7640, -7134, -6574, -5959, -5288, -4561, -3776, -2935, -2037, -1082,
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
34 -70, 998, 2122, 3300, 4533, 5818, 7154, 8540, 9975, 11455,
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
35 12980, 14548, 16155, 17799, 19478, 21189, 22929, 24694, 26482, 28289,
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
36 30112, 31947, 33791, 35640, 37489, 39336, 41176, 43006, 44821, 46617,
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
37 48390, 50137, 51853, 53534, 55178, 56778, 58333, 59838, 61289, 62684,
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
38 64019, 65290, 66494, 67629, 68692, 69679, 70590, 71420, 72169, 72835,
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
39 73415, 73908, 74313, 74630, 74856, 74992, 75038 };
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
40
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
41 void make_decode_tables(long scaleval)
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
42 {
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
43 int i,j,k,kr,divv;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
44 real *table,*costab;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
45
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
46
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
47 for(i=0;i<5;i++)
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
48 {
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
49 kr=0x10>>i; divv=0x40>>i;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
50 costab = pnts[i];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
51 for(k=0;k<kr;k++) costab[k] = 1.0 / (2.0 * cos(M_PI * ((double) k * 2.0 + 1.0) / (double) divv));
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
52 #ifdef HAVE_3DNOW
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
53 if ( _3dnow ) for(k=0;k<kr;k++) costab[k+kr]=-costab[k];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
54 #endif
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
55
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
56 }
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
57
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
58 table = decwin;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
59 scaleval = -scaleval;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
60 for(i=0,j=0;i<256;i++,j++,table+=32)
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
61 {
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
62 if(table < decwin+512+16)
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
63 table[16] = table[0] = (double) intwinbase[j] / 65536.0 * (double) scaleval;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
64 if(i % 32 == 31)
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
65 table -= 1023;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
66 if(i % 64 == 63)
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
67 scaleval = - scaleval;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
68 }
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
69
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
70 for( /* i=256 */ ;i<512;i++,j--,table+=32)
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
71 {
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
72 if(table < decwin+512+16)
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
73 table[16] = table[0] = (double) intwinbase[j] / 65536.0 * (double) scaleval;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
74 if(i % 32 == 31)
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
75 table -= 1023;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
76 if(i % 64 == 63)
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
77 scaleval = - scaleval;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
78 }
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
79 #ifdef HAVE_3DNOW
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
80 if ( _3dnow )
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
81 for(i=0;i<512+32;i++)
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
82 {
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
83 decwin[512+31-i]*=65536.0; // allows faster clipping in 3dnow code
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
84 decwin[512+32+i]=decwin[512+31-i];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
85 }
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
86 #endif
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
87 }
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
88
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
89