8fef839d60e0dab607184e7983fe21a65d661cc7
[libav.git] / libavcodec / mace.c
1 /*
2 * MACE decoder
3 * Copyright (c) 2002 Laszlo Torok <torokl@alpha.dfmk.hu>
4 *
5 * This file is part of Libav.
6 *
7 * Libav is free software; you can redistribute it and/or
8 * modify it under the terms of the GNU Lesser General Public
9 * License as published by the Free Software Foundation; either
10 * version 2.1 of the License, or (at your option) any later version.
11 *
12 * Libav is distributed in the hope that it will be useful,
13 * but WITHOUT ANY WARRANTY; without even the implied warranty of
14 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
15 * Lesser General Public License for more details.
16 *
17 * You should have received a copy of the GNU Lesser General Public
18 * License along with Libav; if not, write to the Free Software
19 * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
20 */
21
22 /**
23 * @file
24 * MACE decoder.
25 */
26
27 #include "avcodec.h"
28 #include "libavutil/common.h"
29
30 /*
31 * Adapted to libavcodec by Francois Revol <revol@free.fr>
32 * (removed 68k REG stuff, changed types, added some statics and consts,
33 * libavcodec api, context stuff, interlaced stereo out).
34 */
35
36 static const int16_t MACEtab1[] = {-13, 8, 76, 222, 222, 76, 8, -13};
37
38 static const int16_t MACEtab3[] = {-18, 140, 140, -18};
39
40 static const int16_t MACEtab2[][4] = {
41 { 37, 116, 206, 330}, { 39, 121, 216, 346},
42 { 41, 127, 225, 361}, { 42, 132, 235, 377},
43 { 44, 137, 245, 392}, { 46, 144, 256, 410},
44 { 48, 150, 267, 428}, { 51, 157, 280, 449},
45 { 53, 165, 293, 470}, { 55, 172, 306, 490},
46 { 58, 179, 319, 511}, { 60, 187, 333, 534},
47 { 63, 195, 348, 557}, { 66, 205, 364, 583},
48 { 69, 214, 380, 609}, { 72, 223, 396, 635},
49 { 75, 233, 414, 663}, { 79, 244, 433, 694},
50 { 82, 254, 453, 725}, { 86, 265, 472, 756},
51 { 90, 278, 495, 792}, { 94, 290, 516, 826},
52 { 98, 303, 538, 862}, { 102, 316, 562, 901},
53 { 107, 331, 588, 942}, { 112, 345, 614, 983},
54 { 117, 361, 641, 1027}, { 122, 377, 670, 1074},
55 { 127, 394, 701, 1123}, { 133, 411, 732, 1172},
56 { 139, 430, 764, 1224}, { 145, 449, 799, 1280},
57 { 152, 469, 835, 1337}, { 159, 490, 872, 1397},
58 { 166, 512, 911, 1459}, { 173, 535, 951, 1523},
59 { 181, 558, 993, 1590}, { 189, 584, 1038, 1663},
60 { 197, 610, 1085, 1738}, { 206, 637, 1133, 1815},
61 { 215, 665, 1183, 1895}, { 225, 695, 1237, 1980},
62 { 235, 726, 1291, 2068}, { 246, 759, 1349, 2161},
63 { 257, 792, 1409, 2257}, { 268, 828, 1472, 2357},
64 { 280, 865, 1538, 2463}, { 293, 903, 1606, 2572},
65 { 306, 944, 1678, 2688}, { 319, 986, 1753, 2807},
66 { 334, 1030, 1832, 2933}, { 349, 1076, 1914, 3065},
67 { 364, 1124, 1999, 3202}, { 380, 1174, 2088, 3344},
68 { 398, 1227, 2182, 3494}, { 415, 1281, 2278, 3649},
69 { 434, 1339, 2380, 3811}, { 453, 1398, 2486, 3982},
70 { 473, 1461, 2598, 4160}, { 495, 1526, 2714, 4346},
71 { 517, 1594, 2835, 4540}, { 540, 1665, 2961, 4741},
72 { 564, 1740, 3093, 4953}, { 589, 1818, 3232, 5175},
73 { 615, 1898, 3375, 5405}, { 643, 1984, 3527, 5647},
74 { 671, 2072, 3683, 5898}, { 701, 2164, 3848, 6161},
75 { 733, 2261, 4020, 6438}, { 766, 2362, 4199, 6724},
76 { 800, 2467, 4386, 7024}, { 836, 2578, 4583, 7339},
77 { 873, 2692, 4786, 7664}, { 912, 2813, 5001, 8008},
78 { 952, 2938, 5223, 8364}, { 995, 3070, 5457, 8739},
79 { 1039, 3207, 5701, 9129}, { 1086, 3350, 5956, 9537},
80 { 1134, 3499, 6220, 9960}, { 1185, 3655, 6497, 10404},
81 { 1238, 3818, 6788, 10869}, { 1293, 3989, 7091, 11355},
82 { 1351, 4166, 7407, 11861}, { 1411, 4352, 7738, 12390},
83 { 1474, 4547, 8084, 12946}, { 1540, 4750, 8444, 13522},
84 { 1609, 4962, 8821, 14126}, { 1680, 5183, 9215, 14756},
85 { 1756, 5415, 9626, 15415}, { 1834, 5657, 10057, 16104},
86 { 1916, 5909, 10505, 16822}, { 2001, 6173, 10975, 17574},
87 { 2091, 6448, 11463, 18356}, { 2184, 6736, 11974, 19175},
88 { 2282, 7037, 12510, 20032}, { 2383, 7351, 13068, 20926},
89 { 2490, 7679, 13652, 21861}, { 2601, 8021, 14260, 22834},
90 { 2717, 8380, 14897, 23854}, { 2838, 8753, 15561, 24918},
91 { 2965, 9144, 16256, 26031}, { 3097, 9553, 16982, 27193},
92 { 3236, 9979, 17740, 28407}, { 3380, 10424, 18532, 29675},
93 { 3531, 10890, 19359, 31000}, { 3688, 11375, 20222, 32382},
94 { 3853, 11883, 21125, 32767}, { 4025, 12414, 22069, 32767},
95 { 4205, 12967, 23053, 32767}, { 4392, 13546, 24082, 32767},
96 { 4589, 14151, 25157, 32767}, { 4793, 14783, 26280, 32767},
97 { 5007, 15442, 27452, 32767}, { 5231, 16132, 28678, 32767},
98 { 5464, 16851, 29957, 32767}, { 5708, 17603, 31294, 32767},
99 { 5963, 18389, 32691, 32767}, { 6229, 19210, 32767, 32767},
100 { 6507, 20067, 32767, 32767}, { 6797, 20963, 32767, 32767},
101 { 7101, 21899, 32767, 32767}, { 7418, 22876, 32767, 32767},
102 { 7749, 23897, 32767, 32767}, { 8095, 24964, 32767, 32767},
103 { 8456, 26078, 32767, 32767}, { 8833, 27242, 32767, 32767},
104 { 9228, 28457, 32767, 32767}, { 9639, 29727, 32767, 32767}
105 };
106
107 static const int16_t MACEtab4[][2] = {
108 { 64, 216}, { 67, 226}, { 70, 236}, { 74, 246},
109 { 77, 257}, { 80, 268}, { 84, 280}, { 88, 294},
110 { 92, 307}, { 96, 321}, { 100, 334}, { 104, 350},
111 { 109, 365}, { 114, 382}, { 119, 399}, { 124, 416},
112 { 130, 434}, { 136, 454}, { 142, 475}, { 148, 495},
113 { 155, 519}, { 162, 541}, { 169, 564}, { 176, 590},
114 { 185, 617}, { 193, 644}, { 201, 673}, { 210, 703},
115 { 220, 735}, { 230, 767}, { 240, 801}, { 251, 838},
116 { 262, 876}, { 274, 914}, { 286, 955}, { 299, 997},
117 { 312, 1041}, { 326, 1089}, { 341, 1138}, { 356, 1188},
118 { 372, 1241}, { 388, 1297}, { 406, 1354}, { 424, 1415},
119 { 443, 1478}, { 462, 1544}, { 483, 1613}, { 505, 1684},
120 { 527, 1760}, { 551, 1838}, { 576, 1921}, { 601, 2007},
121 { 628, 2097}, { 656, 2190}, { 686, 2288}, { 716, 2389},
122 { 748, 2496}, { 781, 2607}, { 816, 2724}, { 853, 2846},
123 { 891, 2973}, { 930, 3104}, { 972, 3243}, { 1016, 3389},
124 { 1061, 3539}, { 1108, 3698}, { 1158, 3862}, { 1209, 4035},
125 { 1264, 4216}, { 1320, 4403}, { 1379, 4599}, { 1441, 4806},
126 { 1505, 5019}, { 1572, 5244}, { 1642, 5477}, { 1715, 5722},
127 { 1792, 5978}, { 1872, 6245}, { 1955, 6522}, { 2043, 6813},
128 { 2134, 7118}, { 2229, 7436}, { 2329, 7767}, { 2432, 8114},
129 { 2541, 8477}, { 2655, 8854}, { 2773, 9250}, { 2897, 9663},
130 { 3026, 10094}, { 3162, 10546}, { 3303, 11016}, { 3450, 11508},
131 { 3604, 12020}, { 3765, 12556}, { 3933, 13118}, { 4108, 13703},
132 { 4292, 14315}, { 4483, 14953}, { 4683, 15621}, { 4892, 16318},
133 { 5111, 17046}, { 5339, 17807}, { 5577, 18602}, { 5826, 19433},
134 { 6086, 20300}, { 6358, 21205}, { 6642, 22152}, { 6938, 23141},
135 { 7248, 24173}, { 7571, 25252}, { 7909, 26380}, { 8262, 27557},
136 { 8631, 28786}, { 9016, 30072}, { 9419, 31413}, { 9839, 32767},
137 { 10278, 32767}, { 10737, 32767}, { 11216, 32767}, { 11717, 32767},
138 { 12240, 32767}, { 12786, 32767}, { 13356, 32767}, { 13953, 32767},
139 { 14576, 32767}, { 15226, 32767}, { 15906, 32767}, { 16615, 32767}
140 };
141
142 static const struct {
143 const int16_t *tab1; const int16_t *tab2; int stride;
144 } tabs[] = {
145 {MACEtab1, &MACEtab2[0][0], 4},
146 {MACEtab3, &MACEtab4[0][0], 2},
147 {MACEtab1, &MACEtab2[0][0], 4}
148 };
149
150 #define QT_8S_2_16S(x) (((x) & 0xFF00) | (((x) >> 8) & 0xFF))
151
152 typedef struct ChannelData {
153 int16_t index, factor, prev2, previous, level;
154 } ChannelData;
155
156 typedef struct MACEContext {
157 AVFrame frame;
158 ChannelData chd[2];
159 } MACEContext;
160
161 /**
162 * MACE version of av_clip_int16(). We have to do this to keep binary
163 * identical output to the binary decoder.
164 */
165 static inline int16_t mace_broken_clip_int16(int n)
166 {
167 if (n > 32767)
168 return 32767;
169 else if (n < -32768)
170 return -32767;
171 else
172 return n;
173 }
174
175 static int16_t read_table(ChannelData *chd, uint8_t val, int tab_idx)
176 {
177 int16_t current;
178
179 if (val < tabs[tab_idx].stride)
180 current = tabs[tab_idx].tab2[((chd->index & 0x7f0) >> 4) * tabs[tab_idx].stride + val];
181 else
182 current = - 1 - tabs[tab_idx].tab2[((chd->index & 0x7f0) >> 4)*tabs[tab_idx].stride + 2*tabs[tab_idx].stride-val-1];
183
184 if (( chd->index += tabs[tab_idx].tab1[val]-(chd->index >> 5) ) < 0)
185 chd->index = 0;
186
187 return current;
188 }
189
190 static void chomp3(ChannelData *chd, int16_t *output, uint8_t val, int tab_idx)
191 {
192
193 int16_t current = read_table(chd, val, tab_idx);
194
195 current = mace_broken_clip_int16(current + chd->level);
196
197 chd->level = current - (current >> 3);
198 *output = QT_8S_2_16S(current);
199 }
200
201 static void chomp6(ChannelData *chd, int16_t *output, uint8_t val, int tab_idx)
202 {
203 int16_t current = read_table(chd, val, tab_idx);
204
205 if ((chd->previous ^ current) >= 0) {
206 chd->factor = FFMIN(chd->factor + 506, 32767);
207 } else {
208 if (chd->factor - 314 < -32768)
209 chd->factor = -32767;
210 else
211 chd->factor -= 314;
212 }
213
214 current = mace_broken_clip_int16(current + chd->level);
215
216 chd->level = (current*chd->factor) >> 15;
217 current >>= 1;
218
219 output[0] = QT_8S_2_16S(chd->previous + chd->prev2 -
220 ((chd->prev2-current) >> 2));
221 output[1] = QT_8S_2_16S(chd->previous + current +
222 ((chd->prev2-current) >> 2));
223 chd->prev2 = chd->previous;
224 chd->previous = current;
225 }
226
227 static av_cold int mace_decode_init(AVCodecContext * avctx)
228 {
229 MACEContext *ctx = avctx->priv_data;
230
231 if (avctx->channels > 2)
232 return -1;
233 avctx->sample_fmt = AV_SAMPLE_FMT_S16P;
234
235 avcodec_get_frame_defaults(&ctx->frame);
236 avctx->coded_frame = &ctx->frame;
237
238 return 0;
239 }
240
241 static int mace_decode_frame(AVCodecContext *avctx, void *data,
242 int *got_frame_ptr, AVPacket *avpkt)
243 {
244 const uint8_t *buf = avpkt->data;
245 int buf_size = avpkt->size;
246 int16_t **samples;
247 MACEContext *ctx = avctx->priv_data;
248 int i, j, k, l, ret;
249 int is_mace3 = (avctx->codec_id == AV_CODEC_ID_MACE3);
250
251 /* get output buffer */
252 ctx->frame.nb_samples = 3 * (buf_size << (1 - is_mace3)) / avctx->channels;
253 if ((ret = avctx->get_buffer(avctx, &ctx->frame)) < 0) {
254 av_log(avctx, AV_LOG_ERROR, "get_buffer() failed\n");
255 return ret;
256 }
257 samples = (int16_t **)ctx->frame.extended_data;
258
259 for(i = 0; i < avctx->channels; i++) {
260 int16_t *output = samples[i];
261
262 for (j=0; j < buf_size / (avctx->channels << is_mace3); j++)
263 for (k=0; k < (1 << is_mace3); k++) {
264 uint8_t pkt = buf[(i << is_mace3) +
265 (j*avctx->channels << is_mace3) + k];
266
267 uint8_t val[2][3] = {{pkt >> 5, (pkt >> 3) & 3, pkt & 7 },
268 {pkt & 7 , (pkt >> 3) & 3, pkt >> 5}};
269
270 for (l=0; l < 3; l++) {
271 if (is_mace3)
272 chomp3(&ctx->chd[i], output, val[1][l], l);
273 else
274 chomp6(&ctx->chd[i], output, val[0][l], l);
275
276 output += 1 << (1-is_mace3);
277 }
278 }
279 }
280
281 *got_frame_ptr = 1;
282 *(AVFrame *)data = ctx->frame;
283
284 return buf_size;
285 }
286
287 AVCodec ff_mace3_decoder = {
288 .name = "mace3",
289 .type = AVMEDIA_TYPE_AUDIO,
290 .id = AV_CODEC_ID_MACE3,
291 .priv_data_size = sizeof(MACEContext),
292 .init = mace_decode_init,
293 .decode = mace_decode_frame,
294 .capabilities = CODEC_CAP_DR1,
295 .long_name = NULL_IF_CONFIG_SMALL("MACE (Macintosh Audio Compression/Expansion) 3:1"),
296 .sample_fmts = (const enum AVSampleFormat[]) { AV_SAMPLE_FMT_S16P,
297 AV_SAMPLE_FMT_NONE },
298 };
299
300 AVCodec ff_mace6_decoder = {
301 .name = "mace6",
302 .type = AVMEDIA_TYPE_AUDIO,
303 .id = AV_CODEC_ID_MACE6,
304 .priv_data_size = sizeof(MACEContext),
305 .init = mace_decode_init,
306 .decode = mace_decode_frame,
307 .capabilities = CODEC_CAP_DR1,
308 .long_name = NULL_IF_CONFIG_SMALL("MACE (Macintosh Audio Compression/Expansion) 6:1"),
309 .sample_fmts = (const enum AVSampleFormat[]) { AV_SAMPLE_FMT_S16P,
310 AV_SAMPLE_FMT_NONE },
311 };