annotate mp3lib/dct64.c @ 10624:cdfd4a43c406

I've juste found a bug which prevent to load a file whose name contain a quote ('). The menu simply execute a "loadfile '%p'" but when the %p is replaced by the actual value, quotes in it are not escaped ! Moreover, mp_input_parse_cmd contain some code to unescape strings but this code was placed after the string was copied in his final buffer. So this patch correct this issue. By Aurlien Jacobs
author albeu
date Fri, 15 Aug 2003 18:45:35 +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 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 static void dct64_1(real *out0,real *out1,real *b1,real *b2,real *samples)
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
11 {
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
12
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
13 {
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
14 register real *costab = pnts[0];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
15
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
16 b1[0x00] = samples[0x00] + samples[0x1F];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
17 b1[0x1F] = (samples[0x00] - samples[0x1F]) * costab[0x0];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
18
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
19 b1[0x01] = samples[0x01] + samples[0x1E];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
20 b1[0x1E] = (samples[0x01] - samples[0x1E]) * costab[0x1];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
21
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
22 b1[0x02] = samples[0x02] + samples[0x1D];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
23 b1[0x1D] = (samples[0x02] - samples[0x1D]) * costab[0x2];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
24
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
25 b1[0x03] = samples[0x03] + samples[0x1C];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
26 b1[0x1C] = (samples[0x03] - samples[0x1C]) * costab[0x3];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
27
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
28 b1[0x04] = samples[0x04] + samples[0x1B];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
29 b1[0x1B] = (samples[0x04] - samples[0x1B]) * costab[0x4];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
30
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
31 b1[0x05] = samples[0x05] + samples[0x1A];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
32 b1[0x1A] = (samples[0x05] - samples[0x1A]) * costab[0x5];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
33
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
34 b1[0x06] = samples[0x06] + samples[0x19];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
35 b1[0x19] = (samples[0x06] - samples[0x19]) * costab[0x6];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
36
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
37 b1[0x07] = samples[0x07] + samples[0x18];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
38 b1[0x18] = (samples[0x07] - samples[0x18]) * costab[0x7];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
39
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
40 b1[0x08] = samples[0x08] + samples[0x17];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
41 b1[0x17] = (samples[0x08] - samples[0x17]) * costab[0x8];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
42
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
43 b1[0x09] = samples[0x09] + samples[0x16];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
44 b1[0x16] = (samples[0x09] - samples[0x16]) * costab[0x9];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
45
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
46 b1[0x0A] = samples[0x0A] + samples[0x15];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
47 b1[0x15] = (samples[0x0A] - samples[0x15]) * costab[0xA];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
48
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
49 b1[0x0B] = samples[0x0B] + samples[0x14];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
50 b1[0x14] = (samples[0x0B] - samples[0x14]) * costab[0xB];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
51
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
52 b1[0x0C] = samples[0x0C] + samples[0x13];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
53 b1[0x13] = (samples[0x0C] - samples[0x13]) * costab[0xC];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
54
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
55 b1[0x0D] = samples[0x0D] + samples[0x12];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
56 b1[0x12] = (samples[0x0D] - samples[0x12]) * costab[0xD];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
57
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
58 b1[0x0E] = samples[0x0E] + samples[0x11];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
59 b1[0x11] = (samples[0x0E] - samples[0x11]) * costab[0xE];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
60
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
61 b1[0x0F] = samples[0x0F] + samples[0x10];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
62 b1[0x10] = (samples[0x0F] - samples[0x10]) * costab[0xF];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
63 }
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
64
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 register real *costab = pnts[1];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
68
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
69 b2[0x00] = b1[0x00] + b1[0x0F];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
70 b2[0x0F] = (b1[0x00] - b1[0x0F]) * costab[0];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
71 b2[0x01] = b1[0x01] + b1[0x0E];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
72 b2[0x0E] = (b1[0x01] - b1[0x0E]) * costab[1];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
73 b2[0x02] = b1[0x02] + b1[0x0D];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
74 b2[0x0D] = (b1[0x02] - b1[0x0D]) * costab[2];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
75 b2[0x03] = b1[0x03] + b1[0x0C];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
76 b2[0x0C] = (b1[0x03] - b1[0x0C]) * costab[3];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
77 b2[0x04] = b1[0x04] + b1[0x0B];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
78 b2[0x0B] = (b1[0x04] - b1[0x0B]) * costab[4];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
79 b2[0x05] = b1[0x05] + b1[0x0A];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
80 b2[0x0A] = (b1[0x05] - b1[0x0A]) * costab[5];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
81 b2[0x06] = b1[0x06] + b1[0x09];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
82 b2[0x09] = (b1[0x06] - b1[0x09]) * costab[6];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
83 b2[0x07] = b1[0x07] + b1[0x08];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
84 b2[0x08] = (b1[0x07] - b1[0x08]) * costab[7];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
85
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
86 b2[0x10] = b1[0x10] + b1[0x1F];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
87 b2[0x1F] = (b1[0x1F] - b1[0x10]) * costab[0];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
88 b2[0x11] = b1[0x11] + b1[0x1E];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
89 b2[0x1E] = (b1[0x1E] - b1[0x11]) * costab[1];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
90 b2[0x12] = b1[0x12] + b1[0x1D];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
91 b2[0x1D] = (b1[0x1D] - b1[0x12]) * costab[2];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
92 b2[0x13] = b1[0x13] + b1[0x1C];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
93 b2[0x1C] = (b1[0x1C] - b1[0x13]) * costab[3];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
94 b2[0x14] = b1[0x14] + b1[0x1B];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
95 b2[0x1B] = (b1[0x1B] - b1[0x14]) * costab[4];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
96 b2[0x15] = b1[0x15] + b1[0x1A];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
97 b2[0x1A] = (b1[0x1A] - b1[0x15]) * costab[5];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
98 b2[0x16] = b1[0x16] + b1[0x19];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
99 b2[0x19] = (b1[0x19] - b1[0x16]) * costab[6];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
100 b2[0x17] = b1[0x17] + b1[0x18];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
101 b2[0x18] = (b1[0x18] - b1[0x17]) * costab[7];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
102 }
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 register real *costab = pnts[2];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
106
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
107 b1[0x00] = b2[0x00] + b2[0x07];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
108 b1[0x07] = (b2[0x00] - b2[0x07]) * costab[0];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
109 b1[0x01] = b2[0x01] + b2[0x06];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
110 b1[0x06] = (b2[0x01] - b2[0x06]) * costab[1];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
111 b1[0x02] = b2[0x02] + b2[0x05];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
112 b1[0x05] = (b2[0x02] - b2[0x05]) * costab[2];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
113 b1[0x03] = b2[0x03] + b2[0x04];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
114 b1[0x04] = (b2[0x03] - b2[0x04]) * costab[3];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
115
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
116 b1[0x08] = b2[0x08] + b2[0x0F];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
117 b1[0x0F] = (b2[0x0F] - b2[0x08]) * costab[0];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
118 b1[0x09] = b2[0x09] + b2[0x0E];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
119 b1[0x0E] = (b2[0x0E] - b2[0x09]) * costab[1];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
120 b1[0x0A] = b2[0x0A] + b2[0x0D];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
121 b1[0x0D] = (b2[0x0D] - b2[0x0A]) * costab[2];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
122 b1[0x0B] = b2[0x0B] + b2[0x0C];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
123 b1[0x0C] = (b2[0x0C] - b2[0x0B]) * costab[3];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
124
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
125 b1[0x10] = b2[0x10] + b2[0x17];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
126 b1[0x17] = (b2[0x10] - b2[0x17]) * costab[0];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
127 b1[0x11] = b2[0x11] + b2[0x16];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
128 b1[0x16] = (b2[0x11] - b2[0x16]) * costab[1];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
129 b1[0x12] = b2[0x12] + b2[0x15];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
130 b1[0x15] = (b2[0x12] - b2[0x15]) * costab[2];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
131 b1[0x13] = b2[0x13] + b2[0x14];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
132 b1[0x14] = (b2[0x13] - b2[0x14]) * costab[3];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
133
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
134 b1[0x18] = b2[0x18] + b2[0x1F];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
135 b1[0x1F] = (b2[0x1F] - b2[0x18]) * costab[0];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
136 b1[0x19] = b2[0x19] + b2[0x1E];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
137 b1[0x1E] = (b2[0x1E] - b2[0x19]) * costab[1];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
138 b1[0x1A] = b2[0x1A] + b2[0x1D];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
139 b1[0x1D] = (b2[0x1D] - b2[0x1A]) * costab[2];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
140 b1[0x1B] = b2[0x1B] + b2[0x1C];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
141 b1[0x1C] = (b2[0x1C] - b2[0x1B]) * costab[3];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
142 }
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 register real const cos0 = pnts[3][0];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
146 register real const cos1 = pnts[3][1];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
147
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
148 b2[0x00] = b1[0x00] + b1[0x03];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
149 b2[0x03] = (b1[0x00] - b1[0x03]) * cos0;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
150 b2[0x01] = b1[0x01] + b1[0x02];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
151 b2[0x02] = (b1[0x01] - b1[0x02]) * cos1;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
152
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
153 b2[0x04] = b1[0x04] + b1[0x07];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
154 b2[0x07] = (b1[0x07] - b1[0x04]) * cos0;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
155 b2[0x05] = b1[0x05] + b1[0x06];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
156 b2[0x06] = (b1[0x06] - b1[0x05]) * cos1;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
157
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
158 b2[0x08] = b1[0x08] + b1[0x0B];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
159 b2[0x0B] = (b1[0x08] - b1[0x0B]) * cos0;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
160 b2[0x09] = b1[0x09] + b1[0x0A];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
161 b2[0x0A] = (b1[0x09] - b1[0x0A]) * cos1;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
162
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
163 b2[0x0C] = b1[0x0C] + b1[0x0F];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
164 b2[0x0F] = (b1[0x0F] - b1[0x0C]) * cos0;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
165 b2[0x0D] = b1[0x0D] + b1[0x0E];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
166 b2[0x0E] = (b1[0x0E] - b1[0x0D]) * cos1;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
167
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
168 b2[0x10] = b1[0x10] + b1[0x13];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
169 b2[0x13] = (b1[0x10] - b1[0x13]) * cos0;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
170 b2[0x11] = b1[0x11] + b1[0x12];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
171 b2[0x12] = (b1[0x11] - b1[0x12]) * cos1;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
172
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
173 b2[0x14] = b1[0x14] + b1[0x17];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
174 b2[0x17] = (b1[0x17] - b1[0x14]) * cos0;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
175 b2[0x15] = b1[0x15] + b1[0x16];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
176 b2[0x16] = (b1[0x16] - b1[0x15]) * cos1;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
177
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
178 b2[0x18] = b1[0x18] + b1[0x1B];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
179 b2[0x1B] = (b1[0x18] - b1[0x1B]) * cos0;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
180 b2[0x19] = b1[0x19] + b1[0x1A];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
181 b2[0x1A] = (b1[0x19] - b1[0x1A]) * cos1;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
182
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
183 b2[0x1C] = b1[0x1C] + b1[0x1F];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
184 b2[0x1F] = (b1[0x1F] - b1[0x1C]) * cos0;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
185 b2[0x1D] = b1[0x1D] + b1[0x1E];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
186 b2[0x1E] = (b1[0x1E] - b1[0x1D]) * cos1;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
187 }
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 register real const cos0 = pnts[4][0];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
191
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
192 b1[0x00] = b2[0x00] + b2[0x01];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
193 b1[0x01] = (b2[0x00] - b2[0x01]) * cos0;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
194 b1[0x02] = b2[0x02] + b2[0x03];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
195 b1[0x03] = (b2[0x03] - b2[0x02]) * cos0;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
196 b1[0x02] += b1[0x03];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
197
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
198 b1[0x04] = b2[0x04] + b2[0x05];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
199 b1[0x05] = (b2[0x04] - b2[0x05]) * cos0;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
200 b1[0x06] = b2[0x06] + b2[0x07];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
201 b1[0x07] = (b2[0x07] - b2[0x06]) * cos0;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
202 b1[0x06] += b1[0x07];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
203 b1[0x04] += b1[0x06];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
204 b1[0x06] += b1[0x05];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
205 b1[0x05] += b1[0x07];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
206
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
207 b1[0x08] = b2[0x08] + b2[0x09];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
208 b1[0x09] = (b2[0x08] - b2[0x09]) * cos0;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
209 b1[0x0A] = b2[0x0A] + b2[0x0B];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
210 b1[0x0B] = (b2[0x0B] - b2[0x0A]) * cos0;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
211 b1[0x0A] += b1[0x0B];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
212
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
213 b1[0x0C] = b2[0x0C] + b2[0x0D];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
214 b1[0x0D] = (b2[0x0C] - b2[0x0D]) * cos0;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
215 b1[0x0E] = b2[0x0E] + b2[0x0F];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
216 b1[0x0F] = (b2[0x0F] - b2[0x0E]) * cos0;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
217 b1[0x0E] += b1[0x0F];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
218 b1[0x0C] += b1[0x0E];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
219 b1[0x0E] += b1[0x0D];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
220 b1[0x0D] += b1[0x0F];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
221
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
222 b1[0x10] = b2[0x10] + b2[0x11];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
223 b1[0x11] = (b2[0x10] - b2[0x11]) * cos0;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
224 b1[0x12] = b2[0x12] + b2[0x13];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
225 b1[0x13] = (b2[0x13] - b2[0x12]) * cos0;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
226 b1[0x12] += b1[0x13];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
227
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
228 b1[0x14] = b2[0x14] + b2[0x15];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
229 b1[0x15] = (b2[0x14] - b2[0x15]) * cos0;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
230 b1[0x16] = b2[0x16] + b2[0x17];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
231 b1[0x17] = (b2[0x17] - b2[0x16]) * cos0;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
232 b1[0x16] += b1[0x17];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
233 b1[0x14] += b1[0x16];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
234 b1[0x16] += b1[0x15];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
235 b1[0x15] += b1[0x17];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
236
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
237 b1[0x18] = b2[0x18] + b2[0x19];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
238 b1[0x19] = (b2[0x18] - b2[0x19]) * cos0;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
239 b1[0x1A] = b2[0x1A] + b2[0x1B];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
240 b1[0x1B] = (b2[0x1B] - b2[0x1A]) * cos0;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
241 b1[0x1A] += b1[0x1B];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
242
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
243 b1[0x1C] = b2[0x1C] + b2[0x1D];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
244 b1[0x1D] = (b2[0x1C] - b2[0x1D]) * cos0;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
245 b1[0x1E] = b2[0x1E] + b2[0x1F];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
246 b1[0x1F] = (b2[0x1F] - b2[0x1E]) * cos0;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
247 b1[0x1E] += b1[0x1F];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
248 b1[0x1C] += b1[0x1E];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
249 b1[0x1E] += b1[0x1D];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
250 b1[0x1D] += b1[0x1F];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
251 }
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
252
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
253 out0[0x10*16] = b1[0x00];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
254 out0[0x10*12] = b1[0x04];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
255 out0[0x10* 8] = b1[0x02];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
256 out0[0x10* 4] = b1[0x06];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
257 out0[0x10* 0] = b1[0x01];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
258 out1[0x10* 0] = b1[0x01];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
259 out1[0x10* 4] = b1[0x05];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
260 out1[0x10* 8] = b1[0x03];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
261 out1[0x10*12] = b1[0x07];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
262
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
263 b1[0x08] += b1[0x0C];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
264 out0[0x10*14] = b1[0x08];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
265 b1[0x0C] += b1[0x0a];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
266 out0[0x10*10] = b1[0x0C];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
267 b1[0x0A] += b1[0x0E];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
268 out0[0x10* 6] = b1[0x0A];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
269 b1[0x0E] += b1[0x09];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
270 out0[0x10* 2] = b1[0x0E];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
271 b1[0x09] += b1[0x0D];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
272 out1[0x10* 2] = b1[0x09];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
273 b1[0x0D] += b1[0x0B];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
274 out1[0x10* 6] = b1[0x0D];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
275 b1[0x0B] += b1[0x0F];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
276 out1[0x10*10] = b1[0x0B];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
277 out1[0x10*14] = b1[0x0F];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
278
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
279 b1[0x18] += b1[0x1C];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
280 out0[0x10*15] = b1[0x10] + b1[0x18];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
281 out0[0x10*13] = b1[0x18] + b1[0x14];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
282 b1[0x1C] += b1[0x1a];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
283 out0[0x10*11] = b1[0x14] + b1[0x1C];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
284 out0[0x10* 9] = b1[0x1C] + b1[0x12];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
285 b1[0x1A] += b1[0x1E];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
286 out0[0x10* 7] = b1[0x12] + b1[0x1A];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
287 out0[0x10* 5] = b1[0x1A] + b1[0x16];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
288 b1[0x1E] += b1[0x19];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
289 out0[0x10* 3] = b1[0x16] + b1[0x1E];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
290 out0[0x10* 1] = b1[0x1E] + b1[0x11];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
291 b1[0x19] += b1[0x1D];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
292 out1[0x10* 1] = b1[0x11] + b1[0x19];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
293 out1[0x10* 3] = b1[0x19] + b1[0x15];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
294 b1[0x1D] += b1[0x1B];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
295 out1[0x10* 5] = b1[0x15] + b1[0x1D];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
296 out1[0x10* 7] = b1[0x1D] + b1[0x13];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
297 b1[0x1B] += b1[0x1F];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
298 out1[0x10* 9] = b1[0x13] + b1[0x1B];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
299 out1[0x10*11] = b1[0x1B] + b1[0x17];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
300 out1[0x10*13] = b1[0x17] + b1[0x1F];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
301 out1[0x10*15] = b1[0x1F];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
302 }
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 * the call via dct64 is a trick to force GCC to use
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
306 * (new) registers for the b1,b2 pointer to the bufs[xx] field
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
307 */
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
308 void dct64(real *a,real *b,real *c)
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
309 {
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
310 real bufs[0x40];
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
311 dct64_1(a,b,bufs,bufs+0x20,c);
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
312 }
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
313