cannam@85: /* cannam@85: * libmad - MPEG audio decoder library cannam@85: * Copyright (C) 2000-2004 Underbit Technologies, Inc. cannam@85: * cannam@85: * This program is free software; you can redistribute it and/or modify cannam@85: * it under the terms of the GNU General Public License as published by cannam@85: * the Free Software Foundation; either version 2 of the License, or cannam@85: * (at your option) any later version. cannam@85: * cannam@85: * This program is distributed in the hope that it will be useful, cannam@85: * but WITHOUT ANY WARRANTY; without even the implied warranty of cannam@85: * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the cannam@85: * GNU General Public License for more details. cannam@85: * cannam@85: * You should have received a copy of the GNU General Public License cannam@85: * along with this program; if not, write to the Free Software cannam@85: * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA cannam@85: * cannam@85: * $Id: synth.c,v 1.25 2004/01/23 09:41:33 rob Exp $ cannam@85: */ cannam@85: cannam@85: # ifdef HAVE_CONFIG_H cannam@85: # include "config.h" cannam@85: # endif cannam@85: cannam@85: # include "global.h" cannam@85: cannam@85: # include "fixed.h" cannam@85: # include "frame.h" cannam@85: # include "synth.h" cannam@85: cannam@85: /* cannam@85: * NAME: synth->init() cannam@85: * DESCRIPTION: initialize synth struct cannam@85: */ cannam@85: void mad_synth_init(struct mad_synth *synth) cannam@85: { cannam@85: mad_synth_mute(synth); cannam@85: cannam@85: synth->phase = 0; cannam@85: cannam@85: synth->pcm.samplerate = 0; cannam@85: synth->pcm.channels = 0; cannam@85: synth->pcm.length = 0; cannam@85: } cannam@85: cannam@85: /* cannam@85: * NAME: synth->mute() cannam@85: * DESCRIPTION: zero all polyphase filterbank values, resetting synthesis cannam@85: */ cannam@85: void mad_synth_mute(struct mad_synth *synth) cannam@85: { cannam@85: unsigned int ch, s, v; cannam@85: cannam@85: for (ch = 0; ch < 2; ++ch) { cannam@85: for (s = 0; s < 16; ++s) { cannam@85: for (v = 0; v < 8; ++v) { cannam@85: synth->filter[ch][0][0][s][v] = synth->filter[ch][0][1][s][v] = cannam@85: synth->filter[ch][1][0][s][v] = synth->filter[ch][1][1][s][v] = 0; cannam@85: } cannam@85: } cannam@85: } cannam@85: } cannam@85: cannam@85: /* cannam@85: * An optional optimization called here the Subband Synthesis Optimization cannam@85: * (SSO) improves the performance of subband synthesis at the expense of cannam@85: * accuracy. cannam@85: * cannam@85: * The idea is to simplify 32x32->64-bit multiplication to 32x32->32 such cannam@85: * that extra scaling and rounding are not necessary. This often allows the cannam@85: * compiler to use faster 32-bit multiply-accumulate instructions instead of cannam@85: * explicit 64-bit multiply, shift, and add instructions. cannam@85: * cannam@85: * SSO works like this: a full 32x32->64-bit multiply of two mad_fixed_t cannam@85: * values requires the result to be right-shifted 28 bits to be properly cannam@85: * scaled to the same fixed-point format. Right shifts can be applied at any cannam@85: * time to either operand or to the result, so the optimization involves cannam@85: * careful placement of these shifts to minimize the loss of accuracy. cannam@85: * cannam@85: * First, a 14-bit shift is applied with rounding at compile-time to the D[] cannam@85: * table of coefficients for the subband synthesis window. This only loses 2 cannam@85: * bits of accuracy because the lower 12 bits are always zero. A second cannam@85: * 12-bit shift occurs after the DCT calculation. This loses 12 bits of cannam@85: * accuracy. Finally, a third 2-bit shift occurs just before the sample is cannam@85: * saved in the PCM buffer. 14 + 12 + 2 == 28 bits. cannam@85: */ cannam@85: cannam@85: /* FPM_DEFAULT without OPT_SSO will actually lose accuracy and performance */ cannam@85: cannam@85: # if defined(FPM_DEFAULT) && !defined(OPT_SSO) cannam@85: # define OPT_SSO cannam@85: # endif cannam@85: cannam@85: /* second SSO shift, with rounding */ cannam@85: cannam@85: # if defined(OPT_SSO) cannam@85: # define SHIFT(x) (((x) + (1L << 11)) >> 12) cannam@85: # else cannam@85: # define SHIFT(x) (x) cannam@85: # endif cannam@85: cannam@85: /* possible DCT speed optimization */ cannam@85: cannam@85: # if defined(OPT_SPEED) && defined(MAD_F_MLX) cannam@85: # define OPT_DCTO cannam@85: # define MUL(x, y) \ cannam@85: ({ mad_fixed64hi_t hi; \ cannam@85: mad_fixed64lo_t lo; \ cannam@85: MAD_F_MLX(hi, lo, (x), (y)); \ cannam@85: hi << (32 - MAD_F_SCALEBITS - 3); \ cannam@85: }) cannam@85: # else cannam@85: # undef OPT_DCTO cannam@85: # define MUL(x, y) mad_f_mul((x), (y)) cannam@85: # endif cannam@85: cannam@85: /* cannam@85: * NAME: dct32() cannam@85: * DESCRIPTION: perform fast in[32]->out[32] DCT cannam@85: */ cannam@85: static cannam@85: void dct32(mad_fixed_t const in[32], unsigned int slot, cannam@85: mad_fixed_t lo[16][8], mad_fixed_t hi[16][8]) cannam@85: { cannam@85: mad_fixed_t t0, t1, t2, t3, t4, t5, t6, t7; cannam@85: mad_fixed_t t8, t9, t10, t11, t12, t13, t14, t15; cannam@85: mad_fixed_t t16, t17, t18, t19, t20, t21, t22, t23; cannam@85: mad_fixed_t t24, t25, t26, t27, t28, t29, t30, t31; cannam@85: mad_fixed_t t32, t33, t34, t35, t36, t37, t38, t39; cannam@85: mad_fixed_t t40, t41, t42, t43, t44, t45, t46, t47; cannam@85: mad_fixed_t t48, t49, t50, t51, t52, t53, t54, t55; cannam@85: mad_fixed_t t56, t57, t58, t59, t60, t61, t62, t63; cannam@85: mad_fixed_t t64, t65, t66, t67, t68, t69, t70, t71; cannam@85: mad_fixed_t t72, t73, t74, t75, t76, t77, t78, t79; cannam@85: mad_fixed_t t80, t81, t82, t83, t84, t85, t86, t87; cannam@85: mad_fixed_t t88, t89, t90, t91, t92, t93, t94, t95; cannam@85: mad_fixed_t t96, t97, t98, t99, t100, t101, t102, t103; cannam@85: mad_fixed_t t104, t105, t106, t107, t108, t109, t110, t111; cannam@85: mad_fixed_t t112, t113, t114, t115, t116, t117, t118, t119; cannam@85: mad_fixed_t t120, t121, t122, t123, t124, t125, t126, t127; cannam@85: mad_fixed_t t128, t129, t130, t131, t132, t133, t134, t135; cannam@85: mad_fixed_t t136, t137, t138, t139, t140, t141, t142, t143; cannam@85: mad_fixed_t t144, t145, t146, t147, t148, t149, t150, t151; cannam@85: mad_fixed_t t152, t153, t154, t155, t156, t157, t158, t159; cannam@85: mad_fixed_t t160, t161, t162, t163, t164, t165, t166, t167; cannam@85: mad_fixed_t t168, t169, t170, t171, t172, t173, t174, t175; cannam@85: mad_fixed_t t176; cannam@85: cannam@85: /* costab[i] = cos(PI / (2 * 32) * i) */ cannam@85: cannam@85: # if defined(OPT_DCTO) cannam@85: # define costab1 MAD_F(0x7fd8878e) cannam@85: # define costab2 MAD_F(0x7f62368f) cannam@85: # define costab3 MAD_F(0x7e9d55fc) cannam@85: # define costab4 MAD_F(0x7d8a5f40) cannam@85: # define costab5 MAD_F(0x7c29fbee) cannam@85: # define costab6 MAD_F(0x7a7d055b) cannam@85: # define costab7 MAD_F(0x78848414) cannam@85: # define costab8 MAD_F(0x7641af3d) cannam@85: # define costab9 MAD_F(0x73b5ebd1) cannam@85: # define costab10 MAD_F(0x70e2cbc6) cannam@85: # define costab11 MAD_F(0x6dca0d14) cannam@85: # define costab12 MAD_F(0x6a6d98a4) cannam@85: # define costab13 MAD_F(0x66cf8120) cannam@85: # define costab14 MAD_F(0x62f201ac) cannam@85: # define costab15 MAD_F(0x5ed77c8a) cannam@85: # define costab16 MAD_F(0x5a82799a) cannam@85: # define costab17 MAD_F(0x55f5a4d2) cannam@85: # define costab18 MAD_F(0x5133cc94) cannam@85: # define costab19 MAD_F(0x4c3fdff4) cannam@85: # define costab20 MAD_F(0x471cece7) cannam@85: # define costab21 MAD_F(0x41ce1e65) cannam@85: # define costab22 MAD_F(0x3c56ba70) cannam@85: # define costab23 MAD_F(0x36ba2014) cannam@85: # define costab24 MAD_F(0x30fbc54d) cannam@85: # define costab25 MAD_F(0x2b1f34eb) cannam@85: # define costab26 MAD_F(0x25280c5e) cannam@85: # define costab27 MAD_F(0x1f19f97b) cannam@85: # define costab28 MAD_F(0x18f8b83c) cannam@85: # define costab29 MAD_F(0x12c8106f) cannam@85: # define costab30 MAD_F(0x0c8bd35e) cannam@85: # define costab31 MAD_F(0x0647d97c) cannam@85: # else cannam@85: # define costab1 MAD_F(0x0ffb10f2) /* 0.998795456 */ cannam@85: # define costab2 MAD_F(0x0fec46d2) /* 0.995184727 */ cannam@85: # define costab3 MAD_F(0x0fd3aac0) /* 0.989176510 */ cannam@85: # define costab4 MAD_F(0x0fb14be8) /* 0.980785280 */ cannam@85: # define costab5 MAD_F(0x0f853f7e) /* 0.970031253 */ cannam@85: # define costab6 MAD_F(0x0f4fa0ab) /* 0.956940336 */ cannam@85: # define costab7 MAD_F(0x0f109082) /* 0.941544065 */ cannam@85: # define costab8 MAD_F(0x0ec835e8) /* 0.923879533 */ cannam@85: # define costab9 MAD_F(0x0e76bd7a) /* 0.903989293 */ cannam@85: # define costab10 MAD_F(0x0e1c5979) /* 0.881921264 */ cannam@85: # define costab11 MAD_F(0x0db941a3) /* 0.857728610 */ cannam@85: # define costab12 MAD_F(0x0d4db315) /* 0.831469612 */ cannam@85: # define costab13 MAD_F(0x0cd9f024) /* 0.803207531 */ cannam@85: # define costab14 MAD_F(0x0c5e4036) /* 0.773010453 */ cannam@85: # define costab15 MAD_F(0x0bdaef91) /* 0.740951125 */ cannam@85: # define costab16 MAD_F(0x0b504f33) /* 0.707106781 */ cannam@85: # define costab17 MAD_F(0x0abeb49a) /* 0.671558955 */ cannam@85: # define costab18 MAD_F(0x0a267993) /* 0.634393284 */ cannam@85: # define costab19 MAD_F(0x0987fbfe) /* 0.595699304 */ cannam@85: # define costab20 MAD_F(0x08e39d9d) /* 0.555570233 */ cannam@85: # define costab21 MAD_F(0x0839c3cd) /* 0.514102744 */ cannam@85: # define costab22 MAD_F(0x078ad74e) /* 0.471396737 */ cannam@85: # define costab23 MAD_F(0x06d74402) /* 0.427555093 */ cannam@85: # define costab24 MAD_F(0x061f78aa) /* 0.382683432 */ cannam@85: # define costab25 MAD_F(0x0563e69d) /* 0.336889853 */ cannam@85: # define costab26 MAD_F(0x04a5018c) /* 0.290284677 */ cannam@85: # define costab27 MAD_F(0x03e33f2f) /* 0.242980180 */ cannam@85: # define costab28 MAD_F(0x031f1708) /* 0.195090322 */ cannam@85: # define costab29 MAD_F(0x0259020e) /* 0.146730474 */ cannam@85: # define costab30 MAD_F(0x01917a6c) /* 0.098017140 */ cannam@85: # define costab31 MAD_F(0x00c8fb30) /* 0.049067674 */ cannam@85: # endif cannam@85: cannam@85: t0 = in[0] + in[31]; t16 = MUL(in[0] - in[31], costab1); cannam@85: t1 = in[15] + in[16]; t17 = MUL(in[15] - in[16], costab31); cannam@85: cannam@85: t41 = t16 + t17; cannam@85: t59 = MUL(t16 - t17, costab2); cannam@85: t33 = t0 + t1; cannam@85: t50 = MUL(t0 - t1, costab2); cannam@85: cannam@85: t2 = in[7] + in[24]; t18 = MUL(in[7] - in[24], costab15); cannam@85: t3 = in[8] + in[23]; t19 = MUL(in[8] - in[23], costab17); cannam@85: cannam@85: t42 = t18 + t19; cannam@85: t60 = MUL(t18 - t19, costab30); cannam@85: t34 = t2 + t3; cannam@85: t51 = MUL(t2 - t3, costab30); cannam@85: cannam@85: t4 = in[3] + in[28]; t20 = MUL(in[3] - in[28], costab7); cannam@85: t5 = in[12] + in[19]; t21 = MUL(in[12] - in[19], costab25); cannam@85: cannam@85: t43 = t20 + t21; cannam@85: t61 = MUL(t20 - t21, costab14); cannam@85: t35 = t4 + t5; cannam@85: t52 = MUL(t4 - t5, costab14); cannam@85: cannam@85: t6 = in[4] + in[27]; t22 = MUL(in[4] - in[27], costab9); cannam@85: t7 = in[11] + in[20]; t23 = MUL(in[11] - in[20], costab23); cannam@85: cannam@85: t44 = t22 + t23; cannam@85: t62 = MUL(t22 - t23, costab18); cannam@85: t36 = t6 + t7; cannam@85: t53 = MUL(t6 - t7, costab18); cannam@85: cannam@85: t8 = in[1] + in[30]; t24 = MUL(in[1] - in[30], costab3); cannam@85: t9 = in[14] + in[17]; t25 = MUL(in[14] - in[17], costab29); cannam@85: cannam@85: t45 = t24 + t25; cannam@85: t63 = MUL(t24 - t25, costab6); cannam@85: t37 = t8 + t9; cannam@85: t54 = MUL(t8 - t9, costab6); cannam@85: cannam@85: t10 = in[6] + in[25]; t26 = MUL(in[6] - in[25], costab13); cannam@85: t11 = in[9] + in[22]; t27 = MUL(in[9] - in[22], costab19); cannam@85: cannam@85: t46 = t26 + t27; cannam@85: t64 = MUL(t26 - t27, costab26); cannam@85: t38 = t10 + t11; cannam@85: t55 = MUL(t10 - t11, costab26); cannam@85: cannam@85: t12 = in[2] + in[29]; t28 = MUL(in[2] - in[29], costab5); cannam@85: t13 = in[13] + in[18]; t29 = MUL(in[13] - in[18], costab27); cannam@85: cannam@85: t47 = t28 + t29; cannam@85: t65 = MUL(t28 - t29, costab10); cannam@85: t39 = t12 + t13; cannam@85: t56 = MUL(t12 - t13, costab10); cannam@85: cannam@85: t14 = in[5] + in[26]; t30 = MUL(in[5] - in[26], costab11); cannam@85: t15 = in[10] + in[21]; t31 = MUL(in[10] - in[21], costab21); cannam@85: cannam@85: t48 = t30 + t31; cannam@85: t66 = MUL(t30 - t31, costab22); cannam@85: t40 = t14 + t15; cannam@85: t57 = MUL(t14 - t15, costab22); cannam@85: cannam@85: t69 = t33 + t34; t89 = MUL(t33 - t34, costab4); cannam@85: t70 = t35 + t36; t90 = MUL(t35 - t36, costab28); cannam@85: t71 = t37 + t38; t91 = MUL(t37 - t38, costab12); cannam@85: t72 = t39 + t40; t92 = MUL(t39 - t40, costab20); cannam@85: t73 = t41 + t42; t94 = MUL(t41 - t42, costab4); cannam@85: t74 = t43 + t44; t95 = MUL(t43 - t44, costab28); cannam@85: t75 = t45 + t46; t96 = MUL(t45 - t46, costab12); cannam@85: t76 = t47 + t48; t97 = MUL(t47 - t48, costab20); cannam@85: cannam@85: t78 = t50 + t51; t100 = MUL(t50 - t51, costab4); cannam@85: t79 = t52 + t53; t101 = MUL(t52 - t53, costab28); cannam@85: t80 = t54 + t55; t102 = MUL(t54 - t55, costab12); cannam@85: t81 = t56 + t57; t103 = MUL(t56 - t57, costab20); cannam@85: cannam@85: t83 = t59 + t60; t106 = MUL(t59 - t60, costab4); cannam@85: t84 = t61 + t62; t107 = MUL(t61 - t62, costab28); cannam@85: t85 = t63 + t64; t108 = MUL(t63 - t64, costab12); cannam@85: t86 = t65 + t66; t109 = MUL(t65 - t66, costab20); cannam@85: cannam@85: t113 = t69 + t70; cannam@85: t114 = t71 + t72; cannam@85: cannam@85: /* 0 */ hi[15][slot] = SHIFT(t113 + t114); cannam@85: /* 16 */ lo[ 0][slot] = SHIFT(MUL(t113 - t114, costab16)); cannam@85: cannam@85: t115 = t73 + t74; cannam@85: t116 = t75 + t76; cannam@85: cannam@85: t32 = t115 + t116; cannam@85: cannam@85: /* 1 */ hi[14][slot] = SHIFT(t32); cannam@85: cannam@85: t118 = t78 + t79; cannam@85: t119 = t80 + t81; cannam@85: cannam@85: t58 = t118 + t119; cannam@85: cannam@85: /* 2 */ hi[13][slot] = SHIFT(t58); cannam@85: cannam@85: t121 = t83 + t84; cannam@85: t122 = t85 + t86; cannam@85: cannam@85: t67 = t121 + t122; cannam@85: cannam@85: t49 = (t67 * 2) - t32; cannam@85: cannam@85: /* 3 */ hi[12][slot] = SHIFT(t49); cannam@85: cannam@85: t125 = t89 + t90; cannam@85: t126 = t91 + t92; cannam@85: cannam@85: t93 = t125 + t126; cannam@85: cannam@85: /* 4 */ hi[11][slot] = SHIFT(t93); cannam@85: cannam@85: t128 = t94 + t95; cannam@85: t129 = t96 + t97; cannam@85: cannam@85: t98 = t128 + t129; cannam@85: cannam@85: t68 = (t98 * 2) - t49; cannam@85: cannam@85: /* 5 */ hi[10][slot] = SHIFT(t68); cannam@85: cannam@85: t132 = t100 + t101; cannam@85: t133 = t102 + t103; cannam@85: cannam@85: t104 = t132 + t133; cannam@85: cannam@85: t82 = (t104 * 2) - t58; cannam@85: cannam@85: /* 6 */ hi[ 9][slot] = SHIFT(t82); cannam@85: cannam@85: t136 = t106 + t107; cannam@85: t137 = t108 + t109; cannam@85: cannam@85: t110 = t136 + t137; cannam@85: cannam@85: t87 = (t110 * 2) - t67; cannam@85: cannam@85: t77 = (t87 * 2) - t68; cannam@85: cannam@85: /* 7 */ hi[ 8][slot] = SHIFT(t77); cannam@85: cannam@85: t141 = MUL(t69 - t70, costab8); cannam@85: t142 = MUL(t71 - t72, costab24); cannam@85: t143 = t141 + t142; cannam@85: cannam@85: /* 8 */ hi[ 7][slot] = SHIFT(t143); cannam@85: /* 24 */ lo[ 8][slot] = cannam@85: SHIFT((MUL(t141 - t142, costab16) * 2) - t143); cannam@85: cannam@85: t144 = MUL(t73 - t74, costab8); cannam@85: t145 = MUL(t75 - t76, costab24); cannam@85: t146 = t144 + t145; cannam@85: cannam@85: t88 = (t146 * 2) - t77; cannam@85: cannam@85: /* 9 */ hi[ 6][slot] = SHIFT(t88); cannam@85: cannam@85: t148 = MUL(t78 - t79, costab8); cannam@85: t149 = MUL(t80 - t81, costab24); cannam@85: t150 = t148 + t149; cannam@85: cannam@85: t105 = (t150 * 2) - t82; cannam@85: cannam@85: /* 10 */ hi[ 5][slot] = SHIFT(t105); cannam@85: cannam@85: t152 = MUL(t83 - t84, costab8); cannam@85: t153 = MUL(t85 - t86, costab24); cannam@85: t154 = t152 + t153; cannam@85: cannam@85: t111 = (t154 * 2) - t87; cannam@85: cannam@85: t99 = (t111 * 2) - t88; cannam@85: cannam@85: /* 11 */ hi[ 4][slot] = SHIFT(t99); cannam@85: cannam@85: t157 = MUL(t89 - t90, costab8); cannam@85: t158 = MUL(t91 - t92, costab24); cannam@85: t159 = t157 + t158; cannam@85: cannam@85: t127 = (t159 * 2) - t93; cannam@85: cannam@85: /* 12 */ hi[ 3][slot] = SHIFT(t127); cannam@85: cannam@85: t160 = (MUL(t125 - t126, costab16) * 2) - t127; cannam@85: cannam@85: /* 20 */ lo[ 4][slot] = SHIFT(t160); cannam@85: /* 28 */ lo[12][slot] = cannam@85: SHIFT((((MUL(t157 - t158, costab16) * 2) - t159) * 2) - t160); cannam@85: cannam@85: t161 = MUL(t94 - t95, costab8); cannam@85: t162 = MUL(t96 - t97, costab24); cannam@85: t163 = t161 + t162; cannam@85: cannam@85: t130 = (t163 * 2) - t98; cannam@85: cannam@85: t112 = (t130 * 2) - t99; cannam@85: cannam@85: /* 13 */ hi[ 2][slot] = SHIFT(t112); cannam@85: cannam@85: t164 = (MUL(t128 - t129, costab16) * 2) - t130; cannam@85: cannam@85: t166 = MUL(t100 - t101, costab8); cannam@85: t167 = MUL(t102 - t103, costab24); cannam@85: t168 = t166 + t167; cannam@85: cannam@85: t134 = (t168 * 2) - t104; cannam@85: cannam@85: t120 = (t134 * 2) - t105; cannam@85: cannam@85: /* 14 */ hi[ 1][slot] = SHIFT(t120); cannam@85: cannam@85: t135 = (MUL(t118 - t119, costab16) * 2) - t120; cannam@85: cannam@85: /* 18 */ lo[ 2][slot] = SHIFT(t135); cannam@85: cannam@85: t169 = (MUL(t132 - t133, costab16) * 2) - t134; cannam@85: cannam@85: t151 = (t169 * 2) - t135; cannam@85: cannam@85: /* 22 */ lo[ 6][slot] = SHIFT(t151); cannam@85: cannam@85: t170 = (((MUL(t148 - t149, costab16) * 2) - t150) * 2) - t151; cannam@85: cannam@85: /* 26 */ lo[10][slot] = SHIFT(t170); cannam@85: /* 30 */ lo[14][slot] = cannam@85: SHIFT((((((MUL(t166 - t167, costab16) * 2) - cannam@85: t168) * 2) - t169) * 2) - t170); cannam@85: cannam@85: t171 = MUL(t106 - t107, costab8); cannam@85: t172 = MUL(t108 - t109, costab24); cannam@85: t173 = t171 + t172; cannam@85: cannam@85: t138 = (t173 * 2) - t110; cannam@85: cannam@85: t123 = (t138 * 2) - t111; cannam@85: cannam@85: t139 = (MUL(t121 - t122, costab16) * 2) - t123; cannam@85: cannam@85: t117 = (t123 * 2) - t112; cannam@85: cannam@85: /* 15 */ hi[ 0][slot] = SHIFT(t117); cannam@85: cannam@85: t124 = (MUL(t115 - t116, costab16) * 2) - t117; cannam@85: cannam@85: /* 17 */ lo[ 1][slot] = SHIFT(t124); cannam@85: cannam@85: t131 = (t139 * 2) - t124; cannam@85: cannam@85: /* 19 */ lo[ 3][slot] = SHIFT(t131); cannam@85: cannam@85: t140 = (t164 * 2) - t131; cannam@85: cannam@85: /* 21 */ lo[ 5][slot] = SHIFT(t140); cannam@85: cannam@85: t174 = (MUL(t136 - t137, costab16) * 2) - t138; cannam@85: cannam@85: t155 = (t174 * 2) - t139; cannam@85: cannam@85: t147 = (t155 * 2) - t140; cannam@85: cannam@85: /* 23 */ lo[ 7][slot] = SHIFT(t147); cannam@85: cannam@85: t156 = (((MUL(t144 - t145, costab16) * 2) - t146) * 2) - t147; cannam@85: cannam@85: /* 25 */ lo[ 9][slot] = SHIFT(t156); cannam@85: cannam@85: t175 = (((MUL(t152 - t153, costab16) * 2) - t154) * 2) - t155; cannam@85: cannam@85: t165 = (t175 * 2) - t156; cannam@85: cannam@85: /* 27 */ lo[11][slot] = SHIFT(t165); cannam@85: cannam@85: t176 = (((((MUL(t161 - t162, costab16) * 2) - cannam@85: t163) * 2) - t164) * 2) - t165; cannam@85: cannam@85: /* 29 */ lo[13][slot] = SHIFT(t176); cannam@85: /* 31 */ lo[15][slot] = cannam@85: SHIFT((((((((MUL(t171 - t172, costab16) * 2) - cannam@85: t173) * 2) - t174) * 2) - t175) * 2) - t176); cannam@85: cannam@85: /* cannam@85: * Totals: cannam@85: * 80 multiplies cannam@85: * 80 additions cannam@85: * 119 subtractions cannam@85: * 49 shifts (not counting SSO) cannam@85: */ cannam@85: } cannam@85: cannam@85: # undef MUL cannam@85: # undef SHIFT cannam@85: cannam@85: /* third SSO shift and/or D[] optimization preshift */ cannam@85: cannam@85: # if defined(OPT_SSO) cannam@85: # if MAD_F_FRACBITS != 28 cannam@85: # error "MAD_F_FRACBITS must be 28 to use OPT_SSO" cannam@85: # endif cannam@85: # define ML0(hi, lo, x, y) ((lo) = (x) * (y)) cannam@85: # define MLA(hi, lo, x, y) ((lo) += (x) * (y)) cannam@85: # define MLN(hi, lo) ((lo) = -(lo)) cannam@85: # define MLZ(hi, lo) ((void) (hi), (mad_fixed_t) (lo)) cannam@85: # define SHIFT(x) ((x) >> 2) cannam@85: # define PRESHIFT(x) ((MAD_F(x) + (1L << 13)) >> 14) cannam@85: # else cannam@85: # define ML0(hi, lo, x, y) MAD_F_ML0((hi), (lo), (x), (y)) cannam@85: # define MLA(hi, lo, x, y) MAD_F_MLA((hi), (lo), (x), (y)) cannam@85: # define MLN(hi, lo) MAD_F_MLN((hi), (lo)) cannam@85: # define MLZ(hi, lo) MAD_F_MLZ((hi), (lo)) cannam@85: # define SHIFT(x) (x) cannam@85: # if defined(MAD_F_SCALEBITS) cannam@85: # undef MAD_F_SCALEBITS cannam@85: # define MAD_F_SCALEBITS (MAD_F_FRACBITS - 12) cannam@85: # define PRESHIFT(x) (MAD_F(x) >> 12) cannam@85: # else cannam@85: # define PRESHIFT(x) MAD_F(x) cannam@85: # endif cannam@85: # endif cannam@85: cannam@85: static cannam@85: mad_fixed_t const D[17][32] = { cannam@85: # include "D.dat" cannam@85: }; cannam@85: cannam@85: # if defined(ASO_SYNTH) cannam@85: void synth_full(struct mad_synth *, struct mad_frame const *, cannam@85: unsigned int, unsigned int); cannam@85: # else cannam@85: /* cannam@85: * NAME: synth->full() cannam@85: * DESCRIPTION: perform full frequency PCM synthesis cannam@85: */ cannam@85: static cannam@85: void synth_full(struct mad_synth *synth, struct mad_frame const *frame, cannam@85: unsigned int nch, unsigned int ns) cannam@85: { cannam@85: unsigned int phase, ch, s, sb, pe, po; cannam@85: mad_fixed_t *pcm1, *pcm2, (*filter)[2][2][16][8]; cannam@85: mad_fixed_t const (*sbsample)[36][32]; cannam@85: register mad_fixed_t (*fe)[8], (*fx)[8], (*fo)[8]; cannam@85: register mad_fixed_t const (*Dptr)[32], *ptr; cannam@85: register mad_fixed64hi_t hi; cannam@85: register mad_fixed64lo_t lo; cannam@85: cannam@85: for (ch = 0; ch < nch; ++ch) { cannam@85: sbsample = &frame->sbsample[ch]; cannam@85: filter = &synth->filter[ch]; cannam@85: phase = synth->phase; cannam@85: pcm1 = synth->pcm.samples[ch]; cannam@85: cannam@85: for (s = 0; s < ns; ++s) { cannam@85: dct32((*sbsample)[s], phase >> 1, cannam@85: (*filter)[0][phase & 1], (*filter)[1][phase & 1]); cannam@85: cannam@85: pe = phase & ~1; cannam@85: po = ((phase - 1) & 0xf) | 1; cannam@85: cannam@85: /* calculate 32 samples */ cannam@85: cannam@85: fe = &(*filter)[0][ phase & 1][0]; cannam@85: fx = &(*filter)[0][~phase & 1][0]; cannam@85: fo = &(*filter)[1][~phase & 1][0]; cannam@85: cannam@85: Dptr = &D[0]; cannam@85: cannam@85: ptr = *Dptr + po; cannam@85: ML0(hi, lo, (*fx)[0], ptr[ 0]); cannam@85: MLA(hi, lo, (*fx)[1], ptr[14]); cannam@85: MLA(hi, lo, (*fx)[2], ptr[12]); cannam@85: MLA(hi, lo, (*fx)[3], ptr[10]); cannam@85: MLA(hi, lo, (*fx)[4], ptr[ 8]); cannam@85: MLA(hi, lo, (*fx)[5], ptr[ 6]); cannam@85: MLA(hi, lo, (*fx)[6], ptr[ 4]); cannam@85: MLA(hi, lo, (*fx)[7], ptr[ 2]); cannam@85: MLN(hi, lo); cannam@85: cannam@85: ptr = *Dptr + pe; cannam@85: MLA(hi, lo, (*fe)[0], ptr[ 0]); cannam@85: MLA(hi, lo, (*fe)[1], ptr[14]); cannam@85: MLA(hi, lo, (*fe)[2], ptr[12]); cannam@85: MLA(hi, lo, (*fe)[3], ptr[10]); cannam@85: MLA(hi, lo, (*fe)[4], ptr[ 8]); cannam@85: MLA(hi, lo, (*fe)[5], ptr[ 6]); cannam@85: MLA(hi, lo, (*fe)[6], ptr[ 4]); cannam@85: MLA(hi, lo, (*fe)[7], ptr[ 2]); cannam@85: cannam@85: *pcm1++ = SHIFT(MLZ(hi, lo)); cannam@85: cannam@85: pcm2 = pcm1 + 30; cannam@85: cannam@85: for (sb = 1; sb < 16; ++sb) { cannam@85: ++fe; cannam@85: ++Dptr; cannam@85: cannam@85: /* D[32 - sb][i] == -D[sb][31 - i] */ cannam@85: cannam@85: ptr = *Dptr + po; cannam@85: ML0(hi, lo, (*fo)[0], ptr[ 0]); cannam@85: MLA(hi, lo, (*fo)[1], ptr[14]); cannam@85: MLA(hi, lo, (*fo)[2], ptr[12]); cannam@85: MLA(hi, lo, (*fo)[3], ptr[10]); cannam@85: MLA(hi, lo, (*fo)[4], ptr[ 8]); cannam@85: MLA(hi, lo, (*fo)[5], ptr[ 6]); cannam@85: MLA(hi, lo, (*fo)[6], ptr[ 4]); cannam@85: MLA(hi, lo, (*fo)[7], ptr[ 2]); cannam@85: MLN(hi, lo); cannam@85: cannam@85: ptr = *Dptr + pe; cannam@85: MLA(hi, lo, (*fe)[7], ptr[ 2]); cannam@85: MLA(hi, lo, (*fe)[6], ptr[ 4]); cannam@85: MLA(hi, lo, (*fe)[5], ptr[ 6]); cannam@85: MLA(hi, lo, (*fe)[4], ptr[ 8]); cannam@85: MLA(hi, lo, (*fe)[3], ptr[10]); cannam@85: MLA(hi, lo, (*fe)[2], ptr[12]); cannam@85: MLA(hi, lo, (*fe)[1], ptr[14]); cannam@85: MLA(hi, lo, (*fe)[0], ptr[ 0]); cannam@85: cannam@85: *pcm1++ = SHIFT(MLZ(hi, lo)); cannam@85: cannam@85: ptr = *Dptr - pe; cannam@85: ML0(hi, lo, (*fe)[0], ptr[31 - 16]); cannam@85: MLA(hi, lo, (*fe)[1], ptr[31 - 14]); cannam@85: MLA(hi, lo, (*fe)[2], ptr[31 - 12]); cannam@85: MLA(hi, lo, (*fe)[3], ptr[31 - 10]); cannam@85: MLA(hi, lo, (*fe)[4], ptr[31 - 8]); cannam@85: MLA(hi, lo, (*fe)[5], ptr[31 - 6]); cannam@85: MLA(hi, lo, (*fe)[6], ptr[31 - 4]); cannam@85: MLA(hi, lo, (*fe)[7], ptr[31 - 2]); cannam@85: cannam@85: ptr = *Dptr - po; cannam@85: MLA(hi, lo, (*fo)[7], ptr[31 - 2]); cannam@85: MLA(hi, lo, (*fo)[6], ptr[31 - 4]); cannam@85: MLA(hi, lo, (*fo)[5], ptr[31 - 6]); cannam@85: MLA(hi, lo, (*fo)[4], ptr[31 - 8]); cannam@85: MLA(hi, lo, (*fo)[3], ptr[31 - 10]); cannam@85: MLA(hi, lo, (*fo)[2], ptr[31 - 12]); cannam@85: MLA(hi, lo, (*fo)[1], ptr[31 - 14]); cannam@85: MLA(hi, lo, (*fo)[0], ptr[31 - 16]); cannam@85: cannam@85: *pcm2-- = SHIFT(MLZ(hi, lo)); cannam@85: cannam@85: ++fo; cannam@85: } cannam@85: cannam@85: ++Dptr; cannam@85: cannam@85: ptr = *Dptr + po; cannam@85: ML0(hi, lo, (*fo)[0], ptr[ 0]); cannam@85: MLA(hi, lo, (*fo)[1], ptr[14]); cannam@85: MLA(hi, lo, (*fo)[2], ptr[12]); cannam@85: MLA(hi, lo, (*fo)[3], ptr[10]); cannam@85: MLA(hi, lo, (*fo)[4], ptr[ 8]); cannam@85: MLA(hi, lo, (*fo)[5], ptr[ 6]); cannam@85: MLA(hi, lo, (*fo)[6], ptr[ 4]); cannam@85: MLA(hi, lo, (*fo)[7], ptr[ 2]); cannam@85: cannam@85: *pcm1 = SHIFT(-MLZ(hi, lo)); cannam@85: pcm1 += 16; cannam@85: cannam@85: phase = (phase + 1) % 16; cannam@85: } cannam@85: } cannam@85: } cannam@85: # endif cannam@85: cannam@85: /* cannam@85: * NAME: synth->half() cannam@85: * DESCRIPTION: perform half frequency PCM synthesis cannam@85: */ cannam@85: static cannam@85: void synth_half(struct mad_synth *synth, struct mad_frame const *frame, cannam@85: unsigned int nch, unsigned int ns) cannam@85: { cannam@85: unsigned int phase, ch, s, sb, pe, po; cannam@85: mad_fixed_t *pcm1, *pcm2, (*filter)[2][2][16][8]; cannam@85: mad_fixed_t const (*sbsample)[36][32]; cannam@85: register mad_fixed_t (*fe)[8], (*fx)[8], (*fo)[8]; cannam@85: register mad_fixed_t const (*Dptr)[32], *ptr; cannam@85: register mad_fixed64hi_t hi; cannam@85: register mad_fixed64lo_t lo; cannam@85: cannam@85: for (ch = 0; ch < nch; ++ch) { cannam@85: sbsample = &frame->sbsample[ch]; cannam@85: filter = &synth->filter[ch]; cannam@85: phase = synth->phase; cannam@85: pcm1 = synth->pcm.samples[ch]; cannam@85: cannam@85: for (s = 0; s < ns; ++s) { cannam@85: dct32((*sbsample)[s], phase >> 1, cannam@85: (*filter)[0][phase & 1], (*filter)[1][phase & 1]); cannam@85: cannam@85: pe = phase & ~1; cannam@85: po = ((phase - 1) & 0xf) | 1; cannam@85: cannam@85: /* calculate 16 samples */ cannam@85: cannam@85: fe = &(*filter)[0][ phase & 1][0]; cannam@85: fx = &(*filter)[0][~phase & 1][0]; cannam@85: fo = &(*filter)[1][~phase & 1][0]; cannam@85: cannam@85: Dptr = &D[0]; cannam@85: cannam@85: ptr = *Dptr + po; cannam@85: ML0(hi, lo, (*fx)[0], ptr[ 0]); cannam@85: MLA(hi, lo, (*fx)[1], ptr[14]); cannam@85: MLA(hi, lo, (*fx)[2], ptr[12]); cannam@85: MLA(hi, lo, (*fx)[3], ptr[10]); cannam@85: MLA(hi, lo, (*fx)[4], ptr[ 8]); cannam@85: MLA(hi, lo, (*fx)[5], ptr[ 6]); cannam@85: MLA(hi, lo, (*fx)[6], ptr[ 4]); cannam@85: MLA(hi, lo, (*fx)[7], ptr[ 2]); cannam@85: MLN(hi, lo); cannam@85: cannam@85: ptr = *Dptr + pe; cannam@85: MLA(hi, lo, (*fe)[0], ptr[ 0]); cannam@85: MLA(hi, lo, (*fe)[1], ptr[14]); cannam@85: MLA(hi, lo, (*fe)[2], ptr[12]); cannam@85: MLA(hi, lo, (*fe)[3], ptr[10]); cannam@85: MLA(hi, lo, (*fe)[4], ptr[ 8]); cannam@85: MLA(hi, lo, (*fe)[5], ptr[ 6]); cannam@85: MLA(hi, lo, (*fe)[6], ptr[ 4]); cannam@85: MLA(hi, lo, (*fe)[7], ptr[ 2]); cannam@85: cannam@85: *pcm1++ = SHIFT(MLZ(hi, lo)); cannam@85: cannam@85: pcm2 = pcm1 + 14; cannam@85: cannam@85: for (sb = 1; sb < 16; ++sb) { cannam@85: ++fe; cannam@85: ++Dptr; cannam@85: cannam@85: /* D[32 - sb][i] == -D[sb][31 - i] */ cannam@85: cannam@85: if (!(sb & 1)) { cannam@85: ptr = *Dptr + po; cannam@85: ML0(hi, lo, (*fo)[0], ptr[ 0]); cannam@85: MLA(hi, lo, (*fo)[1], ptr[14]); cannam@85: MLA(hi, lo, (*fo)[2], ptr[12]); cannam@85: MLA(hi, lo, (*fo)[3], ptr[10]); cannam@85: MLA(hi, lo, (*fo)[4], ptr[ 8]); cannam@85: MLA(hi, lo, (*fo)[5], ptr[ 6]); cannam@85: MLA(hi, lo, (*fo)[6], ptr[ 4]); cannam@85: MLA(hi, lo, (*fo)[7], ptr[ 2]); cannam@85: MLN(hi, lo); cannam@85: cannam@85: ptr = *Dptr + pe; cannam@85: MLA(hi, lo, (*fe)[7], ptr[ 2]); cannam@85: MLA(hi, lo, (*fe)[6], ptr[ 4]); cannam@85: MLA(hi, lo, (*fe)[5], ptr[ 6]); cannam@85: MLA(hi, lo, (*fe)[4], ptr[ 8]); cannam@85: MLA(hi, lo, (*fe)[3], ptr[10]); cannam@85: MLA(hi, lo, (*fe)[2], ptr[12]); cannam@85: MLA(hi, lo, (*fe)[1], ptr[14]); cannam@85: MLA(hi, lo, (*fe)[0], ptr[ 0]); cannam@85: cannam@85: *pcm1++ = SHIFT(MLZ(hi, lo)); cannam@85: cannam@85: ptr = *Dptr - po; cannam@85: ML0(hi, lo, (*fo)[7], ptr[31 - 2]); cannam@85: MLA(hi, lo, (*fo)[6], ptr[31 - 4]); cannam@85: MLA(hi, lo, (*fo)[5], ptr[31 - 6]); cannam@85: MLA(hi, lo, (*fo)[4], ptr[31 - 8]); cannam@85: MLA(hi, lo, (*fo)[3], ptr[31 - 10]); cannam@85: MLA(hi, lo, (*fo)[2], ptr[31 - 12]); cannam@85: MLA(hi, lo, (*fo)[1], ptr[31 - 14]); cannam@85: MLA(hi, lo, (*fo)[0], ptr[31 - 16]); cannam@85: cannam@85: ptr = *Dptr - pe; cannam@85: MLA(hi, lo, (*fe)[0], ptr[31 - 16]); cannam@85: MLA(hi, lo, (*fe)[1], ptr[31 - 14]); cannam@85: MLA(hi, lo, (*fe)[2], ptr[31 - 12]); cannam@85: MLA(hi, lo, (*fe)[3], ptr[31 - 10]); cannam@85: MLA(hi, lo, (*fe)[4], ptr[31 - 8]); cannam@85: MLA(hi, lo, (*fe)[5], ptr[31 - 6]); cannam@85: MLA(hi, lo, (*fe)[6], ptr[31 - 4]); cannam@85: MLA(hi, lo, (*fe)[7], ptr[31 - 2]); cannam@85: cannam@85: *pcm2-- = SHIFT(MLZ(hi, lo)); cannam@85: } cannam@85: cannam@85: ++fo; cannam@85: } cannam@85: cannam@85: ++Dptr; cannam@85: cannam@85: ptr = *Dptr + po; cannam@85: ML0(hi, lo, (*fo)[0], ptr[ 0]); cannam@85: MLA(hi, lo, (*fo)[1], ptr[14]); cannam@85: MLA(hi, lo, (*fo)[2], ptr[12]); cannam@85: MLA(hi, lo, (*fo)[3], ptr[10]); cannam@85: MLA(hi, lo, (*fo)[4], ptr[ 8]); cannam@85: MLA(hi, lo, (*fo)[5], ptr[ 6]); cannam@85: MLA(hi, lo, (*fo)[6], ptr[ 4]); cannam@85: MLA(hi, lo, (*fo)[7], ptr[ 2]); cannam@85: cannam@85: *pcm1 = SHIFT(-MLZ(hi, lo)); cannam@85: pcm1 += 8; cannam@85: cannam@85: phase = (phase + 1) % 16; cannam@85: } cannam@85: } cannam@85: } cannam@85: cannam@85: /* cannam@85: * NAME: synth->frame() cannam@85: * DESCRIPTION: perform PCM synthesis of frame subband samples cannam@85: */ cannam@85: void mad_synth_frame(struct mad_synth *synth, struct mad_frame const *frame) cannam@85: { cannam@85: unsigned int nch, ns; cannam@85: void (*synth_frame)(struct mad_synth *, struct mad_frame const *, cannam@85: unsigned int, unsigned int); cannam@85: cannam@85: nch = MAD_NCHANNELS(&frame->header); cannam@85: ns = MAD_NSBSAMPLES(&frame->header); cannam@85: cannam@85: synth->pcm.samplerate = frame->header.samplerate; cannam@85: synth->pcm.channels = nch; cannam@85: synth->pcm.length = 32 * ns; cannam@85: cannam@85: synth_frame = synth_full; cannam@85: cannam@85: if (frame->options & MAD_OPTION_HALFSAMPLERATE) { cannam@85: synth->pcm.samplerate /= 2; cannam@85: synth->pcm.length /= 2; cannam@85: cannam@85: synth_frame = synth_half; cannam@85: } cannam@85: cannam@85: synth_frame(synth, frame, nch, ns); cannam@85: cannam@85: synth->phase = (synth->phase + ns) % 16; cannam@85: }