annotate mp3lib/dct64_i386.c @ 9009:f2d4324561b2

1) Removed the code to remove {} from sub_read_line_ssa 2) Put this code in a separated function: sub_pp_ssa 3) After recoding added a call to sub_pp_ssa. To be more acqurate: I added a pointer to function to hold a postprocessing function to be invoked after using iconv. There are one pointer for each format, if this pointer isn.t NULL the post processing function is called. patch by Salvador Eduardo Tropea <salvador@inti.gov.ar> help by <hephooey@fastmail.fm>
author arpi
date Sun, 19 Jan 2003 00:54:55 +0000
parents 3b5f5d1c5041
children d155623271e3
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 * Discrete Cosine Tansform (DCT) for subband synthesis
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
4 * optimized for machines with no auto-increment.
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
5 * The performance is highly compiler dependend. Maybe
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
6 * the mpg123_dct64.c version for 'normal' processor may be faster
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
7 * even for Intel processors.
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
8 */
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
9
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
10 #include "mpg123.h"
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
11
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
12 static void mpg123_dct64_1(real * out0, real * out1, real * b1, real * b2, real * samples)
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
13 {
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
14
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
15 {
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
16 register real *costab = pnts[0];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
17
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
18 b1[0x00] = samples[0x00] + samples[0x1F];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
19 b1[0x1F] = (samples[0x00] - samples[0x1F]) * costab[0x0];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
20
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
21 b1[0x01] = samples[0x01] + samples[0x1E];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
22 b1[0x1E] = (samples[0x01] - samples[0x1E]) * costab[0x1];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
23
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
24 b1[0x02] = samples[0x02] + samples[0x1D];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
25 b1[0x1D] = (samples[0x02] - samples[0x1D]) * costab[0x2];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
26
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
27 b1[0x03] = samples[0x03] + samples[0x1C];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
28 b1[0x1C] = (samples[0x03] - samples[0x1C]) * costab[0x3];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
29
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
30 b1[0x04] = samples[0x04] + samples[0x1B];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
31 b1[0x1B] = (samples[0x04] - samples[0x1B]) * costab[0x4];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
32
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
33 b1[0x05] = samples[0x05] + samples[0x1A];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
34 b1[0x1A] = (samples[0x05] - samples[0x1A]) * costab[0x5];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
35
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
36 b1[0x06] = samples[0x06] + samples[0x19];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
37 b1[0x19] = (samples[0x06] - samples[0x19]) * costab[0x6];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
38
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
39 b1[0x07] = samples[0x07] + samples[0x18];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
40 b1[0x18] = (samples[0x07] - samples[0x18]) * costab[0x7];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
41
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
42 b1[0x08] = samples[0x08] + samples[0x17];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
43 b1[0x17] = (samples[0x08] - samples[0x17]) * costab[0x8];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
44
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
45 b1[0x09] = samples[0x09] + samples[0x16];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
46 b1[0x16] = (samples[0x09] - samples[0x16]) * costab[0x9];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
47
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
48 b1[0x0A] = samples[0x0A] + samples[0x15];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
49 b1[0x15] = (samples[0x0A] - samples[0x15]) * costab[0xA];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
50
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
51 b1[0x0B] = samples[0x0B] + samples[0x14];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
52 b1[0x14] = (samples[0x0B] - samples[0x14]) * costab[0xB];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
53
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
54 b1[0x0C] = samples[0x0C] + samples[0x13];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
55 b1[0x13] = (samples[0x0C] - samples[0x13]) * costab[0xC];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
56
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
57 b1[0x0D] = samples[0x0D] + samples[0x12];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
58 b1[0x12] = (samples[0x0D] - samples[0x12]) * costab[0xD];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
59
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
60 b1[0x0E] = samples[0x0E] + samples[0x11];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
61 b1[0x11] = (samples[0x0E] - samples[0x11]) * costab[0xE];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
62
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
63 b1[0x0F] = samples[0x0F] + samples[0x10];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
64 b1[0x10] = (samples[0x0F] - samples[0x10]) * costab[0xF];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
65 }
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
66
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
67 {
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
68 register real *costab = pnts[1];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
69
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
70 b2[0x00] = b1[0x00] + b1[0x0F];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
71 b2[0x0F] = (b1[0x00] - b1[0x0F]) * costab[0];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
72 b2[0x01] = b1[0x01] + b1[0x0E];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
73 b2[0x0E] = (b1[0x01] - b1[0x0E]) * costab[1];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
74 b2[0x02] = b1[0x02] + b1[0x0D];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
75 b2[0x0D] = (b1[0x02] - b1[0x0D]) * costab[2];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
76 b2[0x03] = b1[0x03] + b1[0x0C];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
77 b2[0x0C] = (b1[0x03] - b1[0x0C]) * costab[3];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
78 b2[0x04] = b1[0x04] + b1[0x0B];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
79 b2[0x0B] = (b1[0x04] - b1[0x0B]) * costab[4];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
80 b2[0x05] = b1[0x05] + b1[0x0A];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
81 b2[0x0A] = (b1[0x05] - b1[0x0A]) * costab[5];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
82 b2[0x06] = b1[0x06] + b1[0x09];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
83 b2[0x09] = (b1[0x06] - b1[0x09]) * costab[6];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
84 b2[0x07] = b1[0x07] + b1[0x08];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
85 b2[0x08] = (b1[0x07] - b1[0x08]) * costab[7];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
86
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
87 b2[0x10] = b1[0x10] + b1[0x1F];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
88 b2[0x1F] = (b1[0x1F] - b1[0x10]) * costab[0];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
89 b2[0x11] = b1[0x11] + b1[0x1E];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
90 b2[0x1E] = (b1[0x1E] - b1[0x11]) * costab[1];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
91 b2[0x12] = b1[0x12] + b1[0x1D];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
92 b2[0x1D] = (b1[0x1D] - b1[0x12]) * costab[2];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
93 b2[0x13] = b1[0x13] + b1[0x1C];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
94 b2[0x1C] = (b1[0x1C] - b1[0x13]) * costab[3];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
95 b2[0x14] = b1[0x14] + b1[0x1B];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
96 b2[0x1B] = (b1[0x1B] - b1[0x14]) * costab[4];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
97 b2[0x15] = b1[0x15] + b1[0x1A];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
98 b2[0x1A] = (b1[0x1A] - b1[0x15]) * costab[5];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
99 b2[0x16] = b1[0x16] + b1[0x19];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
100 b2[0x19] = (b1[0x19] - b1[0x16]) * costab[6];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
101 b2[0x17] = b1[0x17] + b1[0x18];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
102 b2[0x18] = (b1[0x18] - b1[0x17]) * costab[7];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
103 }
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
104
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
105 {
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
106 register real *costab = pnts[2];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
107
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
108 b1[0x00] = b2[0x00] + b2[0x07];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
109 b1[0x07] = (b2[0x00] - b2[0x07]) * costab[0];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
110 b1[0x01] = b2[0x01] + b2[0x06];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
111 b1[0x06] = (b2[0x01] - b2[0x06]) * costab[1];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
112 b1[0x02] = b2[0x02] + b2[0x05];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
113 b1[0x05] = (b2[0x02] - b2[0x05]) * costab[2];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
114 b1[0x03] = b2[0x03] + b2[0x04];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
115 b1[0x04] = (b2[0x03] - b2[0x04]) * costab[3];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
116
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
117 b1[0x08] = b2[0x08] + b2[0x0F];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
118 b1[0x0F] = (b2[0x0F] - b2[0x08]) * costab[0];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
119 b1[0x09] = b2[0x09] + b2[0x0E];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
120 b1[0x0E] = (b2[0x0E] - b2[0x09]) * costab[1];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
121 b1[0x0A] = b2[0x0A] + b2[0x0D];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
122 b1[0x0D] = (b2[0x0D] - b2[0x0A]) * costab[2];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
123 b1[0x0B] = b2[0x0B] + b2[0x0C];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
124 b1[0x0C] = (b2[0x0C] - b2[0x0B]) * costab[3];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
125
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
126 b1[0x10] = b2[0x10] + b2[0x17];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
127 b1[0x17] = (b2[0x10] - b2[0x17]) * costab[0];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
128 b1[0x11] = b2[0x11] + b2[0x16];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
129 b1[0x16] = (b2[0x11] - b2[0x16]) * costab[1];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
130 b1[0x12] = b2[0x12] + b2[0x15];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
131 b1[0x15] = (b2[0x12] - b2[0x15]) * costab[2];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
132 b1[0x13] = b2[0x13] + b2[0x14];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
133 b1[0x14] = (b2[0x13] - b2[0x14]) * costab[3];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
134
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
135 b1[0x18] = b2[0x18] + b2[0x1F];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
136 b1[0x1F] = (b2[0x1F] - b2[0x18]) * costab[0];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
137 b1[0x19] = b2[0x19] + b2[0x1E];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
138 b1[0x1E] = (b2[0x1E] - b2[0x19]) * costab[1];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
139 b1[0x1A] = b2[0x1A] + b2[0x1D];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
140 b1[0x1D] = (b2[0x1D] - b2[0x1A]) * costab[2];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
141 b1[0x1B] = b2[0x1B] + b2[0x1C];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
142 b1[0x1C] = (b2[0x1C] - b2[0x1B]) * costab[3];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
143 }
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
144
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
145 {
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
146 register real const cos0 = pnts[3][0];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
147 register real const cos1 = pnts[3][1];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
148
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
149 b2[0x00] = b1[0x00] + b1[0x03];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
150 b2[0x03] = (b1[0x00] - b1[0x03]) * cos0;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
151 b2[0x01] = b1[0x01] + b1[0x02];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
152 b2[0x02] = (b1[0x01] - b1[0x02]) * cos1;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
153
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
154 b2[0x04] = b1[0x04] + b1[0x07];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
155 b2[0x07] = (b1[0x07] - b1[0x04]) * cos0;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
156 b2[0x05] = b1[0x05] + b1[0x06];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
157 b2[0x06] = (b1[0x06] - b1[0x05]) * cos1;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
158
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
159 b2[0x08] = b1[0x08] + b1[0x0B];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
160 b2[0x0B] = (b1[0x08] - b1[0x0B]) * cos0;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
161 b2[0x09] = b1[0x09] + b1[0x0A];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
162 b2[0x0A] = (b1[0x09] - b1[0x0A]) * cos1;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
163
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
164 b2[0x0C] = b1[0x0C] + b1[0x0F];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
165 b2[0x0F] = (b1[0x0F] - b1[0x0C]) * cos0;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
166 b2[0x0D] = b1[0x0D] + b1[0x0E];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
167 b2[0x0E] = (b1[0x0E] - b1[0x0D]) * cos1;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
168
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
169 b2[0x10] = b1[0x10] + b1[0x13];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
170 b2[0x13] = (b1[0x10] - b1[0x13]) * cos0;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
171 b2[0x11] = b1[0x11] + b1[0x12];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
172 b2[0x12] = (b1[0x11] - b1[0x12]) * cos1;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
173
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
174 b2[0x14] = b1[0x14] + b1[0x17];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
175 b2[0x17] = (b1[0x17] - b1[0x14]) * cos0;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
176 b2[0x15] = b1[0x15] + b1[0x16];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
177 b2[0x16] = (b1[0x16] - b1[0x15]) * cos1;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
178
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
179 b2[0x18] = b1[0x18] + b1[0x1B];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
180 b2[0x1B] = (b1[0x18] - b1[0x1B]) * cos0;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
181 b2[0x19] = b1[0x19] + b1[0x1A];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
182 b2[0x1A] = (b1[0x19] - b1[0x1A]) * cos1;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
183
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
184 b2[0x1C] = b1[0x1C] + b1[0x1F];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
185 b2[0x1F] = (b1[0x1F] - b1[0x1C]) * cos0;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
186 b2[0x1D] = b1[0x1D] + b1[0x1E];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
187 b2[0x1E] = (b1[0x1E] - b1[0x1D]) * cos1;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
188 }
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
189
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
190 {
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
191 register real const cos0 = pnts[4][0];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
192
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
193 b1[0x00] = b2[0x00] + b2[0x01];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
194 b1[0x01] = (b2[0x00] - b2[0x01]) * cos0;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
195 b1[0x02] = b2[0x02] + b2[0x03];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
196 b1[0x03] = (b2[0x03] - b2[0x02]) * cos0;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
197 b1[0x02] += b1[0x03];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
198
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
199 b1[0x04] = b2[0x04] + b2[0x05];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
200 b1[0x05] = (b2[0x04] - b2[0x05]) * cos0;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
201 b1[0x06] = b2[0x06] + b2[0x07];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
202 b1[0x07] = (b2[0x07] - b2[0x06]) * cos0;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
203 b1[0x06] += b1[0x07];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
204 b1[0x04] += b1[0x06];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
205 b1[0x06] += b1[0x05];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
206 b1[0x05] += b1[0x07];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
207
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
208 b1[0x08] = b2[0x08] + b2[0x09];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
209 b1[0x09] = (b2[0x08] - b2[0x09]) * cos0;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
210 b1[0x0A] = b2[0x0A] + b2[0x0B];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
211 b1[0x0B] = (b2[0x0B] - b2[0x0A]) * cos0;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
212 b1[0x0A] += b1[0x0B];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
213
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
214 b1[0x0C] = b2[0x0C] + b2[0x0D];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
215 b1[0x0D] = (b2[0x0C] - b2[0x0D]) * cos0;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
216 b1[0x0E] = b2[0x0E] + b2[0x0F];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
217 b1[0x0F] = (b2[0x0F] - b2[0x0E]) * cos0;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
218 b1[0x0E] += b1[0x0F];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
219 b1[0x0C] += b1[0x0E];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
220 b1[0x0E] += b1[0x0D];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
221 b1[0x0D] += b1[0x0F];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
222
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
223 b1[0x10] = b2[0x10] + b2[0x11];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
224 b1[0x11] = (b2[0x10] - b2[0x11]) * cos0;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
225 b1[0x12] = b2[0x12] + b2[0x13];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
226 b1[0x13] = (b2[0x13] - b2[0x12]) * cos0;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
227 b1[0x12] += b1[0x13];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
228
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
229 b1[0x14] = b2[0x14] + b2[0x15];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
230 b1[0x15] = (b2[0x14] - b2[0x15]) * cos0;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
231 b1[0x16] = b2[0x16] + b2[0x17];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
232 b1[0x17] = (b2[0x17] - b2[0x16]) * cos0;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
233 b1[0x16] += b1[0x17];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
234 b1[0x14] += b1[0x16];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
235 b1[0x16] += b1[0x15];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
236 b1[0x15] += b1[0x17];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
237
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
238 b1[0x18] = b2[0x18] + b2[0x19];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
239 b1[0x19] = (b2[0x18] - b2[0x19]) * cos0;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
240 b1[0x1A] = b2[0x1A] + b2[0x1B];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
241 b1[0x1B] = (b2[0x1B] - b2[0x1A]) * cos0;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
242 b1[0x1A] += b1[0x1B];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
243
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
244 b1[0x1C] = b2[0x1C] + b2[0x1D];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
245 b1[0x1D] = (b2[0x1C] - b2[0x1D]) * cos0;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
246 b1[0x1E] = b2[0x1E] + b2[0x1F];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
247 b1[0x1F] = (b2[0x1F] - b2[0x1E]) * cos0;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
248 b1[0x1E] += b1[0x1F];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
249 b1[0x1C] += b1[0x1E];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
250 b1[0x1E] += b1[0x1D];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
251 b1[0x1D] += b1[0x1F];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
252 }
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
253
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
254 out0[0x10 * 16] = b1[0x00];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
255 out0[0x10 * 12] = b1[0x04];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
256 out0[0x10 * 8] = b1[0x02];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
257 out0[0x10 * 4] = b1[0x06];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
258 out0[0x10 * 0] = b1[0x01];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
259 out1[0x10 * 0] = b1[0x01];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
260 out1[0x10 * 4] = b1[0x05];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
261 out1[0x10 * 8] = b1[0x03];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
262 out1[0x10 * 12] = b1[0x07];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
263
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
264 b1[0x08] += b1[0x0C];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
265 out0[0x10 * 14] = b1[0x08];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
266 b1[0x0C] += b1[0x0a];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
267 out0[0x10 * 10] = b1[0x0C];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
268 b1[0x0A] += b1[0x0E];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
269 out0[0x10 * 6] = b1[0x0A];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
270 b1[0x0E] += b1[0x09];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
271 out0[0x10 * 2] = b1[0x0E];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
272 b1[0x09] += b1[0x0D];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
273 out1[0x10 * 2] = b1[0x09];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
274 b1[0x0D] += b1[0x0B];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
275 out1[0x10 * 6] = b1[0x0D];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
276 b1[0x0B] += b1[0x0F];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
277 out1[0x10 * 10] = b1[0x0B];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
278 out1[0x10 * 14] = b1[0x0F];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
279
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
280 b1[0x18] += b1[0x1C];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
281 out0[0x10 * 15] = b1[0x10] + b1[0x18];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
282 out0[0x10 * 13] = b1[0x18] + b1[0x14];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
283 b1[0x1C] += b1[0x1a];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
284 out0[0x10 * 11] = b1[0x14] + b1[0x1C];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
285 out0[0x10 * 9] = b1[0x1C] + b1[0x12];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
286 b1[0x1A] += b1[0x1E];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
287 out0[0x10 * 7] = b1[0x12] + b1[0x1A];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
288 out0[0x10 * 5] = b1[0x1A] + b1[0x16];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
289 b1[0x1E] += b1[0x19];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
290 out0[0x10 * 3] = b1[0x16] + b1[0x1E];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
291 out0[0x10 * 1] = b1[0x1E] + b1[0x11];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
292 b1[0x19] += b1[0x1D];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
293 out1[0x10 * 1] = b1[0x11] + b1[0x19];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
294 out1[0x10 * 3] = b1[0x19] + b1[0x15];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
295 b1[0x1D] += b1[0x1B];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
296 out1[0x10 * 5] = b1[0x15] + b1[0x1D];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
297 out1[0x10 * 7] = b1[0x1D] + b1[0x13];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
298 b1[0x1B] += b1[0x1F];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
299 out1[0x10 * 9] = b1[0x13] + b1[0x1B];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
300 out1[0x10 * 11] = b1[0x1B] + b1[0x17];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
301 out1[0x10 * 13] = b1[0x17] + b1[0x1F];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
302 out1[0x10 * 15] = b1[0x1F];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
303 }
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
304
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
305 /*
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
306 * the call via mpg123_dct64 is a trick to force GCC to use
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
307 * (new) registers for the b1,b2 pointer to the bufs[xx] field
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
308 */
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
309 void mpg123_dct64(real * a, real * b, real * c)
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
310 {
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
311 real bufs[0x40];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
312
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
313 mpg123_dct64_1(a, b, bufs, bufs + 0x20, c);
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
314 }