- * Switch mappings for VBR mode VBR_RH - * vbr_q qcomp_l qcomp_s expY st_lrm st_s mask adj_l adj_s ath_lower ath_curve ath_sens interChR safejoint sfb21mod msfix - *- */ - var vbr_old_switch_map = [ - new VBRPresets(0, 9, 9, 0, 5.20, 125.0, -4.2, -6.3, 4.8, 1, 0, 0, 2, 21, 0.97), - new VBRPresets(1, 9, 9, 0, 5.30, 125.0, -3.6, -5.6, 4.5, 1.5, 0, 0, 2, 21, 1.35), - new VBRPresets(2, 9, 9, 0, 5.60, 125.0, -2.2, -3.5, 2.8, 2, 0, 0, 2, 21, 1.49), - new VBRPresets(3, 9, 9, 1, 5.80, 130.0, -1.8, -2.8, 2.6, 3, -4, 0, 2, 20, 1.64), - new VBRPresets(4, 9, 9, 1, 6.00, 135.0, -0.7, -1.1, 1.1, 3.5, -8, 0, 2, 0, 1.79), - new VBRPresets(5, 9, 9, 1, 6.40, 140.0, 0.5, 0.4, -7.5, 4, -12, 0.0002, 0, 0, 1.95), - new VBRPresets(6, 9, 9, 1, 6.60, 145.0, 0.67, 0.65, -14.7, 6.5, -19, 0.0004, 0, 0, 2.30), - new VBRPresets(7, 9, 9, 1, 6.60, 145.0, 0.8, 0.75, -19.7, 8, -22, 0.0006, 0, 0, 2.70), - new VBRPresets(8, 9, 9, 1, 6.60, 145.0, 1.2, 1.15, -27.5, 10, -23, 0.0007, 0, 0, 0), - new VBRPresets(9, 9, 9, 1, 6.60, 145.0, 1.6, 1.6, -36, 11, -25, 0.0008, 0, 0, 0), - new VBRPresets(10, 9, 9, 1, 6.60, 145.0, 2.0, 2.0, -36, 12, -25, 0.0008, 0, 0, 0) - ]; - - /** - *
- * vbr_q qcomp_l qcomp_s expY st_lrm st_s mask adj_l adj_s ath_lower ath_curve ath_sens interChR safejoint sfb21mod msfix - *- */ - var vbr_psy_switch_map = [ - new VBRPresets(0, 9, 9, 0, 4.20, 25.0, -7.0, -4.0, 7.5, 1, 0, 0, 2, 26, 0.97), - new VBRPresets(1, 9, 9, 0, 4.20, 25.0, -5.6, -3.6, 4.5, 1.5, 0, 0, 2, 21, 1.35), - new VBRPresets(2, 9, 9, 0, 4.20, 25.0, -4.4, -1.8, 2, 2, 0, 0, 2, 18, 1.49), - new VBRPresets(3, 9, 9, 1, 4.20, 25.0, -3.4, -1.25, 1.1, 3, -4, 0, 2, 15, 1.64), - new VBRPresets(4, 9, 9, 1, 4.20, 25.0, -2.2, 0.1, 0, 3.5, -8, 0, 2, 0, 1.79), - new VBRPresets(5, 9, 9, 1, 4.20, 25.0, -1.0, 1.65, -7.7, 4, -12, 0.0002, 0, 0, 1.95), - new VBRPresets(6, 9, 9, 1, 4.20, 25.0, -0.0, 2.47, -7.7, 6.5, -19, 0.0004, 0, 0, 2), - new VBRPresets(7, 9, 9, 1, 4.20, 25.0, 0.5, 2.0, -14.5, 8, -22, 0.0006, 0, 0, 2), - new VBRPresets(8, 9, 9, 1, 4.20, 25.0, 1.0, 2.4, -22.0, 10, -23, 0.0007, 0, 0, 2), - new VBRPresets(9, 9, 9, 1, 4.20, 25.0, 1.5, 2.95, -30.0, 11, -25, 0.0008, 0, 0, 2), - new VBRPresets(10, 9, 9, 1, 4.20, 25.0, 2.0, 2.95, -36.0, 12, -30, 0.0008, 0, 0, 2) - ]; - - function apply_vbr_preset(gfp, a, enforce) { - var vbr_preset = gfp.VBR == VbrMode.vbr_rh ? vbr_old_switch_map - : vbr_psy_switch_map; - - var x = gfp.VBR_q_frac; - var p = vbr_preset[a]; - var q = vbr_preset[a + 1]; - var set = p; - - // NOOP(vbr_q); - // NOOP(quant_comp); - // NOOP(quant_comp_s); - // NOOP(expY); - p.st_lrm = p.st_lrm + x * (q.st_lrm - p.st_lrm); - // LERP(st_lrm); - p.st_s = p.st_s + x * (q.st_s - p.st_s); - // LERP(st_s); - p.masking_adj = p.masking_adj + x * (q.masking_adj - p.masking_adj); - // LERP(masking_adj); - p.masking_adj_short = p.masking_adj_short + x - * (q.masking_adj_short - p.masking_adj_short); - // LERP(masking_adj_short); - p.ath_lower = p.ath_lower + x * (q.ath_lower - p.ath_lower); - // LERP(ath_lower); - p.ath_curve = p.ath_curve + x * (q.ath_curve - p.ath_curve); - // LERP(ath_curve); - p.ath_sensitivity = p.ath_sensitivity + x - * (q.ath_sensitivity - p.ath_sensitivity); - // LERP(ath_sensitivity); - p.interch = p.interch + x * (q.interch - p.interch); - // LERP(interch); - // NOOP(safejoint); - // NOOP(sfb21mod); - p.msfix = p.msfix + x * (q.msfix - p.msfix); - // LERP(msfix); - - lame_set_VBR_q(gfp, set.vbr_q); - - if (enforce != 0) - gfp.quant_comp = set.quant_comp; - else if (!(Math.abs(gfp.quant_comp - -1) > 0)) - gfp.quant_comp = set.quant_comp; - // SET_OPTION(quant_comp, set.quant_comp, -1); - if (enforce != 0) - gfp.quant_comp_short = set.quant_comp_s; - else if (!(Math.abs(gfp.quant_comp_short - -1) > 0)) - gfp.quant_comp_short = set.quant_comp_s; - // SET_OPTION(quant_comp_short, set.quant_comp_s, -1); - if (set.expY != 0) { - gfp.experimentalY = set.expY != 0; - } - if (enforce != 0) - gfp.internal_flags.nsPsy.attackthre = set.st_lrm; - else if (!(Math.abs(gfp.internal_flags.nsPsy.attackthre - -1) > 0)) - gfp.internal_flags.nsPsy.attackthre = set.st_lrm; - // SET_OPTION(short_threshold_lrm, set.st_lrm, -1); - if (enforce != 0) - gfp.internal_flags.nsPsy.attackthre_s = set.st_s; - else if (!(Math.abs(gfp.internal_flags.nsPsy.attackthre_s - -1) > 0)) - gfp.internal_flags.nsPsy.attackthre_s = set.st_s; - // SET_OPTION(short_threshold_s, set.st_s, -1); - if (enforce != 0) - gfp.maskingadjust = set.masking_adj; - else if (!(Math.abs(gfp.maskingadjust - 0) > 0)) - gfp.maskingadjust = set.masking_adj; - // SET_OPTION(maskingadjust, set.masking_adj, 0); - if (enforce != 0) - gfp.maskingadjust_short = set.masking_adj_short; - else if (!(Math.abs(gfp.maskingadjust_short - 0) > 0)) - gfp.maskingadjust_short = set.masking_adj_short; - // SET_OPTION(maskingadjust_short, set.masking_adj_short, 0); - if (enforce != 0) - gfp.ATHlower = -set.ath_lower / 10.0; - else if (!(Math.abs((-gfp.ATHlower * 10.0) - 0) > 0)) - gfp.ATHlower = -set.ath_lower / 10.0; - // SET_OPTION(ATHlower, set.ath_lower, 0); - if (enforce != 0) - gfp.ATHcurve = set.ath_curve; - else if (!(Math.abs(gfp.ATHcurve - -1) > 0)) - gfp.ATHcurve = set.ath_curve; - // SET_OPTION(ATHcurve, set.ath_curve, -1); - if (enforce != 0) - gfp.athaa_sensitivity = set.ath_sensitivity; - else if (!(Math.abs(gfp.athaa_sensitivity - -1) > 0)) - gfp.athaa_sensitivity = set.ath_sensitivity; - // SET_OPTION(athaa_sensitivity, set.ath_sensitivity, 0); - if (set.interch > 0) { - if (enforce != 0) - gfp.interChRatio = set.interch; - else if (!(Math.abs(gfp.interChRatio - -1) > 0)) - gfp.interChRatio = set.interch; - // SET_OPTION(interChRatio, set.interch, -1); - } - - /* parameters for which there is no proper set/get interface */ - if (set.safejoint > 0) { - gfp.exp_nspsytune = gfp.exp_nspsytune | set.safejoint; - } - if (set.sfb21mod > 0) { - gfp.exp_nspsytune = gfp.exp_nspsytune | (set.sfb21mod << 20); - } - if (enforce != 0) - gfp.msfix = set.msfix; - else if (!(Math.abs(gfp.msfix - -1) > 0)) - gfp.msfix = set.msfix; - // SET_OPTION(msfix, set.msfix, -1); - - if (enforce == 0) { - gfp.VBR_q = a; - gfp.VBR_q_frac = x; - } - } - - /** - *
- * Switch mappings for ABR mode - * - * kbps quant q_s safejoint nsmsfix st_lrm st_s ns-bass scale msk ath_lwr ath_curve interch , sfscale - *- */ - var abr_switch_map = [ - new ABRPresets(8, 9, 9, 0, 0, 6.60, 145, 0, 0.95, 0, -30.0, 11, 0.0012, 1), /* 8, impossible to use in stereo */ - new ABRPresets(16, 9, 9, 0, 0, 6.60, 145, 0, 0.95, 0, -25.0, 11, 0.0010, 1), /* 16 */ - new ABRPresets(24, 9, 9, 0, 0, 6.60, 145, 0, 0.95, 0, -20.0, 11, 0.0010, 1), /* 24 */ - new ABRPresets(32, 9, 9, 0, 0, 6.60, 145, 0, 0.95, 0, -15.0, 11, 0.0010, 1), /* 32 */ - new ABRPresets(40, 9, 9, 0, 0, 6.60, 145, 0, 0.95, 0, -10.0, 11, 0.0009, 1), /* 40 */ - new ABRPresets(48, 9, 9, 0, 0, 6.60, 145, 0, 0.95, 0, -10.0, 11, 0.0009, 1), /* 48 */ - new ABRPresets(56, 9, 9, 0, 0, 6.60, 145, 0, 0.95, 0, -6.0, 11, 0.0008, 1), /* 56 */ - new ABRPresets(64, 9, 9, 0, 0, 6.60, 145, 0, 0.95, 0, -2.0, 11, 0.0008, 1), /* 64 */ - new ABRPresets(80, 9, 9, 0, 0, 6.60, 145, 0, 0.95, 0, .0, 8, 0.0007, 1), /* 80 */ - new ABRPresets(96, 9, 9, 0, 2.50, 6.60, 145, 0, 0.95, 0, 1.0, 5.5, 0.0006, 1), /* 96 */ - new ABRPresets(112, 9, 9, 0, 2.25, 6.60, 145, 0, 0.95, 0, 2.0, 4.5, 0.0005, 1), /* 112 */ - new ABRPresets(128, 9, 9, 0, 1.95, 6.40, 140, 0, 0.95, 0, 3.0, 4, 0.0002, 1), /* 128 */ - new ABRPresets(160, 9, 9, 1, 1.79, 6.00, 135, 0, 0.95, -2, 5.0, 3.5, 0, 1), /* 160 */ - new ABRPresets(192, 9, 9, 1, 1.49, 5.60, 125, 0, 0.97, -4, 7.0, 3, 0, 0), /* 192 */ - new ABRPresets(224, 9, 9, 1, 1.25, 5.20, 125, 0, 0.98, -6, 9.0, 2, 0, 0), /* 224 */ - new ABRPresets(256, 9, 9, 1, 0.97, 5.20, 125, 0, 1.00, -8, 10.0, 1, 0, 0), /* 256 */ - new ABRPresets(320, 9, 9, 1, 0.90, 5.20, 125, 0, 1.00, -10, 12.0, 0, 0, 0) /* 320 */ - ]; - - function apply_abr_preset(gfp, preset, enforce) { - /* Variables for the ABR stuff */ - var actual_bitrate = preset; - - var r = lame.nearestBitrateFullIndex(preset); - - gfp.VBR = VbrMode.vbr_abr; - gfp.VBR_mean_bitrate_kbps = actual_bitrate; - gfp.VBR_mean_bitrate_kbps = Math.min(gfp.VBR_mean_bitrate_kbps, 320); - gfp.VBR_mean_bitrate_kbps = Math.max(gfp.VBR_mean_bitrate_kbps, 8); - gfp.brate = gfp.VBR_mean_bitrate_kbps; - if (gfp.VBR_mean_bitrate_kbps > 320) { - gfp.disable_reservoir = true; - } - - /* parameters for which there is no proper set/get interface */ - if (abr_switch_map[r].safejoint > 0) - gfp.exp_nspsytune = gfp.exp_nspsytune | 2; - /* safejoint */ - - if (abr_switch_map[r].sfscale > 0) { - gfp.internal_flags.noise_shaping = 2; - } - /* ns-bass tweaks */ - if (Math.abs(abr_switch_map[r].nsbass) > 0) { - var k = (int)(abr_switch_map[r].nsbass * 4); - if (k < 0) - k += 64; - gfp.exp_nspsytune = gfp.exp_nspsytune | (k << 2); - } - - if (enforce != 0) - gfp.quant_comp = abr_switch_map[r].quant_comp; - else if (!(Math.abs(gfp.quant_comp - -1) > 0)) - gfp.quant_comp = abr_switch_map[r].quant_comp; - // SET_OPTION(quant_comp, abr_switch_map[r].quant_comp, -1); - if (enforce != 0) - gfp.quant_comp_short = abr_switch_map[r].quant_comp_s; - else if (!(Math.abs(gfp.quant_comp_short - -1) > 0)) - gfp.quant_comp_short = abr_switch_map[r].quant_comp_s; - // SET_OPTION(quant_comp_short, abr_switch_map[r].quant_comp_s, -1); - - if (enforce != 0) - gfp.msfix = abr_switch_map[r].nsmsfix; - else if (!(Math.abs(gfp.msfix - -1) > 0)) - gfp.msfix = abr_switch_map[r].nsmsfix; - // SET_OPTION(msfix, abr_switch_map[r].nsmsfix, -1); - - if (enforce != 0) - gfp.internal_flags.nsPsy.attackthre = abr_switch_map[r].st_lrm; - else if (!(Math.abs(gfp.internal_flags.nsPsy.attackthre - -1) > 0)) - gfp.internal_flags.nsPsy.attackthre = abr_switch_map[r].st_lrm; - // SET_OPTION(short_threshold_lrm, abr_switch_map[r].st_lrm, -1); - if (enforce != 0) - gfp.internal_flags.nsPsy.attackthre_s = abr_switch_map[r].st_s; - else if (!(Math.abs(gfp.internal_flags.nsPsy.attackthre_s - -1) > 0)) - gfp.internal_flags.nsPsy.attackthre_s = abr_switch_map[r].st_s; - // SET_OPTION(short_threshold_s, abr_switch_map[r].st_s, -1); - - /* - * ABR seems to have big problems with clipping, especially at low - * bitrates - */ - /* - * so we compensate for that here by using a scale value depending on - * bitrate - */ - if (enforce != 0) - gfp.scale = abr_switch_map[r].scale; - else if (!(Math.abs(gfp.scale - -1) > 0)) - gfp.scale = abr_switch_map[r].scale; - // SET_OPTION(scale, abr_switch_map[r].scale, -1); - - if (enforce != 0) - gfp.maskingadjust = abr_switch_map[r].masking_adj; - else if (!(Math.abs(gfp.maskingadjust - 0) > 0)) - gfp.maskingadjust = abr_switch_map[r].masking_adj; - // SET_OPTION(maskingadjust, abr_switch_map[r].masking_adj, 0); - if (abr_switch_map[r].masking_adj > 0) { - if (enforce != 0) - gfp.maskingadjust_short = (abr_switch_map[r].masking_adj * .9); - else if (!(Math.abs(gfp.maskingadjust_short - 0) > 0)) - gfp.maskingadjust_short = (abr_switch_map[r].masking_adj * .9); - // SET_OPTION(maskingadjust_short, abr_switch_map[r].masking_adj * - // .9, 0); - } else { - if (enforce != 0) - gfp.maskingadjust_short = (abr_switch_map[r].masking_adj * 1.1); - else if (!(Math.abs(gfp.maskingadjust_short - 0) > 0)) - gfp.maskingadjust_short = (abr_switch_map[r].masking_adj * 1.1); - // SET_OPTION(maskingadjust_short, abr_switch_map[r].masking_adj * - // 1.1, 0); - } - - if (enforce != 0) - gfp.ATHlower = -abr_switch_map[r].ath_lower / 10.; - else if (!(Math.abs((-gfp.ATHlower * 10.) - 0) > 0)) - gfp.ATHlower = -abr_switch_map[r].ath_lower / 10.; - // SET_OPTION(ATHlower, abr_switch_map[r].ath_lower, 0); - if (enforce != 0) - gfp.ATHcurve = abr_switch_map[r].ath_curve; - else if (!(Math.abs(gfp.ATHcurve - -1) > 0)) - gfp.ATHcurve = abr_switch_map[r].ath_curve; - // SET_OPTION(ATHcurve, abr_switch_map[r].ath_curve, -1); - - if (enforce != 0) - gfp.interChRatio = abr_switch_map[r].interch; - else if (!(Math.abs(gfp.interChRatio - -1) > 0)) - gfp.interChRatio = abr_switch_map[r].interch; - // SET_OPTION(interChRatio, abr_switch_map[r].interch, -1); - - return preset; - } - - this.apply_preset = function(gfp, preset, enforce) { - /* translate legacy presets */ - switch (preset) { - case Lame.R3MIX: - { - preset = Lame.V3; - gfp.VBR = VbrMode.vbr_mtrh; - break; - } - case Lame.MEDIUM: - { - preset = Lame.V4; - gfp.VBR = VbrMode.vbr_rh; - break; - } - case Lame.MEDIUM_FAST: - { - preset = Lame.V4; - gfp.VBR = VbrMode.vbr_mtrh; - break; - } - case Lame.STANDARD: - { - preset = Lame.V2; - gfp.VBR = VbrMode.vbr_rh; - break; - } - case Lame.STANDARD_FAST: - { - preset = Lame.V2; - gfp.VBR = VbrMode.vbr_mtrh; - break; - } - case Lame.EXTREME: - { - preset = Lame.V0; - gfp.VBR = VbrMode.vbr_rh; - break; - } - case Lame.EXTREME_FAST: - { - preset = Lame.V0; - gfp.VBR = VbrMode.vbr_mtrh; - break; - } - case Lame.INSANE: - { - preset = 320; - gfp.preset = preset; - apply_abr_preset(gfp, preset, enforce); - gfp.VBR = VbrMode.vbr_off; - return preset; - } - } - - gfp.preset = preset; - { - switch (preset) { - case Lame.V9: - apply_vbr_preset(gfp, 9, enforce); - return preset; - case Lame.V8: - apply_vbr_preset(gfp, 8, enforce); - return preset; - case Lame.V7: - apply_vbr_preset(gfp, 7, enforce); - return preset; - case Lame.V6: - apply_vbr_preset(gfp, 6, enforce); - return preset; - case Lame.V5: - apply_vbr_preset(gfp, 5, enforce); - return preset; - case Lame.V4: - apply_vbr_preset(gfp, 4, enforce); - return preset; - case Lame.V3: - apply_vbr_preset(gfp, 3, enforce); - return preset; - case Lame.V2: - apply_vbr_preset(gfp, 2, enforce); - return preset; - case Lame.V1: - apply_vbr_preset(gfp, 1, enforce); - return preset; - case Lame.V0: - apply_vbr_preset(gfp, 0, enforce); - return preset; - default: - break; - } - } - if (8 <= preset && preset <= 320) { - return apply_abr_preset(gfp, preset, enforce); - } - - /* no corresponding preset found */ - gfp.preset = 0; - return preset; - } - - // Rest from getset.c: - - /** - * VBR quality level.
- * 0 = highest
- * 9 = lowest - */ - function lame_set_VBR_q(gfp, VBR_q) { - var ret = 0; - - if (0 > VBR_q) { - /* Unknown VBR quality level! */ - ret = -1; - VBR_q = 0; - } - if (9 < VBR_q) { - ret = -1; - VBR_q = 9; - } - - gfp.VBR_q = VBR_q; - gfp.VBR_q_frac = 0; - return ret; - } - -} - -/* - * MP3 huffman table selecting and bit counting - * - * Copyright (c) 1999-2005 Takehiro TOMINAGA - * Copyright (c) 2002-2005 Gabriel Bouvigne - * - * This library is free software; you can redistribute it and/or - * modify it under the terms of the GNU Lesser General Public - * License as published by the Free Software Foundation; either - * version 2 of the License, or (at your option) any later version. - * - * This library is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU - * Library General Public License for more details. - * - * You should have received a copy of the GNU Lesser General Public - * License along with this library; if not, write to the - * Free Software Foundation, Inc., 59 Temple Place - Suite 330, - * Boston, MA 02111-1307, USA. - */ - -/* $Id: Takehiro.java,v 1.26 2011/05/24 20:48:06 kenchis Exp $ */ - -//package mp3; - -//import java.util.Arrays; - - - -function Takehiro() { - - var qupvt = null; - this.qupvt = null; - - this.setModules = function (_qupvt) { - this.qupvt = _qupvt; - qupvt = _qupvt; - } - - function Bits(b) { - this.bits = 0 | b; - } - - var subdv_table = [[0, 0], /* 0 bands */ - [0, 0], /* 1 bands */ - [0, 0], /* 2 bands */ - [0, 0], /* 3 bands */ - [0, 0], /* 4 bands */ - [0, 1], /* 5 bands */ - [1, 1], /* 6 bands */ - [1, 1], /* 7 bands */ - [1, 2], /* 8 bands */ - [2, 2], /* 9 bands */ - [2, 3], /* 10 bands */ - [2, 3], /* 11 bands */ - [3, 4], /* 12 bands */ - [3, 4], /* 13 bands */ - [3, 4], /* 14 bands */ - [4, 5], /* 15 bands */ - [4, 5], /* 16 bands */ - [4, 6], /* 17 bands */ - [5, 6], /* 18 bands */ - [5, 6], /* 19 bands */ - [5, 7], /* 20 bands */ - [6, 7], /* 21 bands */ - [6, 7], /* 22 bands */ - ]; - - /** - * nonlinear quantization of xr More accurate formula than the ISO formula. - * Takes into account the fact that we are quantizing xr . ix, but we want - * ix^4/3 to be as close as possible to x^4/3. (taking the nearest int would - * mean ix is as close as possible to xr, which is different.) - * - * From Segher Boessenkool
- * if XRPOW_FTOI(x) = nearest_int(x), then QUANTFAC(x)=adj43asm[x]
- * ROUNDFAC= -0.0946
- * - * if XRPOW_FTOI(x) = floor(x), then QUANTFAC(x)=asj43[x]
- * ROUNDFAC=0.4054
- * - * Note: using floor() or 0| is extremely slow. On machines where the - * TAKEHIRO_IEEE754_HACK code above does not work, it is worthwile to write - * some ASM for XRPOW_FTOI(). - */ - function quantize_lines_xrpow(l, istep, xr, xrPos, ix, ixPos) { - - l = l >> 1; - var remaining = l % 2; - l = l >> 1; - while (l-- != 0) { - var x0, x1, x2, x3; - var rx0, rx1, rx2, rx3; - - x0 = xr[xrPos++] * istep; - x1 = xr[xrPos++] * istep; - rx0 = 0 | x0; - x2 = xr[xrPos++] * istep; - rx1 = 0 | x1; - x3 = xr[xrPos++] * istep; - rx2 = 0 | x2; - x0 += qupvt.adj43[rx0]; - rx3 = 0 | x3; - x1 += qupvt.adj43[rx1]; - ix[ixPos++] = 0 | x0; - x2 += qupvt.adj43[rx2]; - ix[ixPos++] = 0 | x1; - x3 += qupvt.adj43[rx3]; - ix[ixPos++] = 0 | x2; - ix[ixPos++] = 0 | x3; - } - if (remaining != 0) { - var x0, x1; - var rx0, rx1; - - x0 = xr[xrPos++] * istep; - x1 = xr[xrPos++] * istep; - rx0 = 0 | x0; - rx1 = 0 | x1; - x0 += qupvt.adj43[rx0]; - x1 += qupvt.adj43[rx1]; - ix[ixPos++] = 0 | x0; - ix[ixPos++] = 0 | x1; - } - } - - /** - * Quantization function This function will select which lines to quantize - * and call the proper quantization function - */ - function quantize_xrpow(xp, pi, istep, codInfo, prevNoise) { - /* quantize on xr^(3/4) instead of xr */ - var sfb; - var sfbmax; - var j = 0; - var prev_data_use; - var accumulate = 0; - var accumulate01 = 0; - var xpPos = 0; - var iData = pi; - var iDataPos = 0; - var acc_iData = iData; - var acc_iDataPos = 0; - var acc_xp = xp; - var acc_xpPos = 0; - - /* - * Reusing previously computed data does not seems to work if global - * gain is changed. Finding why it behaves this way would allow to use a - * cache of previously computed values (let's 10 cached values per sfb) - * that would probably provide a noticeable speedup - */ - prev_data_use = (prevNoise != null && (codInfo.global_gain == prevNoise.global_gain)); - - if (codInfo.block_type == Encoder.SHORT_TYPE) - sfbmax = 38; - else - sfbmax = 21; - - for (sfb = 0; sfb <= sfbmax; sfb++) { - var step = -1; - - if (prev_data_use || codInfo.block_type == Encoder.NORM_TYPE) { - step = codInfo.global_gain - - ((codInfo.scalefac[sfb] + (codInfo.preflag != 0 ? qupvt.pretab[sfb] - : 0)) << (codInfo.scalefac_scale + 1)) - - codInfo.subblock_gain[codInfo.window[sfb]] * 8; - } - if (prev_data_use && (prevNoise.step[sfb] == step)) { - /* - * do not recompute this part, but compute accumulated lines - */ - if (accumulate != 0) { - quantize_lines_xrpow(accumulate, istep, acc_xp, acc_xpPos, - acc_iData, acc_iDataPos); - accumulate = 0; - } - if (accumulate01 != 0) { - quantize_lines_xrpow_01(accumulate01, istep, acc_xp, - acc_xpPos, acc_iData, acc_iDataPos); - accumulate01 = 0; - } - } else { /* should compute this part */ - var l = codInfo.width[sfb]; - - if ((j + codInfo.width[sfb]) > codInfo.max_nonzero_coeff) { - /* do not compute upper zero part */ - var usefullsize; - usefullsize = codInfo.max_nonzero_coeff - j + 1; - Arrays.fill(pi, codInfo.max_nonzero_coeff, 576, 0); - l = usefullsize; - - if (l < 0) { - l = 0; - } - - /* no need to compute higher sfb values */ - sfb = sfbmax + 1; - } - - /* accumulate lines to quantize */ - if (0 == accumulate && 0 == accumulate01) { - acc_iData = iData; - acc_iDataPos = iDataPos; - acc_xp = xp; - acc_xpPos = xpPos; - } - if (prevNoise != null && prevNoise.sfb_count1 > 0 - && sfb >= prevNoise.sfb_count1 - && prevNoise.step[sfb] > 0 - && step >= prevNoise.step[sfb]) { - - if (accumulate != 0) { - quantize_lines_xrpow(accumulate, istep, acc_xp, - acc_xpPos, acc_iData, acc_iDataPos); - accumulate = 0; - acc_iData = iData; - acc_iDataPos = iDataPos; - acc_xp = xp; - acc_xpPos = xpPos; - } - accumulate01 += l; - } else { - if (accumulate01 != 0) { - quantize_lines_xrpow_01(accumulate01, istep, acc_xp, - acc_xpPos, acc_iData, acc_iDataPos); - accumulate01 = 0; - acc_iData = iData; - acc_iDataPos = iDataPos; - acc_xp = xp; - acc_xpPos = xpPos; - } - accumulate += l; - } - - if (l <= 0) { - /* - * rh: 20040215 may happen due to "prev_data_use" - * optimization - */ - if (accumulate01 != 0) { - quantize_lines_xrpow_01(accumulate01, istep, acc_xp, - acc_xpPos, acc_iData, acc_iDataPos); - accumulate01 = 0; - } - if (accumulate != 0) { - quantize_lines_xrpow(accumulate, istep, acc_xp, - acc_xpPos, acc_iData, acc_iDataPos); - accumulate = 0; - } - - break; - /* ends for-loop */ - } - } - if (sfb <= sfbmax) { - iDataPos += codInfo.width[sfb]; - xpPos += codInfo.width[sfb]; - j += codInfo.width[sfb]; - } - } - if (accumulate != 0) { /* last data part */ - quantize_lines_xrpow(accumulate, istep, acc_xp, acc_xpPos, - acc_iData, acc_iDataPos); - accumulate = 0; - } - if (accumulate01 != 0) { /* last data part */ - quantize_lines_xrpow_01(accumulate01, istep, acc_xp, acc_xpPos, - acc_iData, acc_iDataPos); - accumulate01 = 0; - } - - } - - /** - * ix_max - */ - function ix_max(ix, ixPos, endPos) { - var max1 = 0, max2 = 0; - - do { - var x1 = ix[ixPos++]; - var x2 = ix[ixPos++]; - if (max1 < x1) - max1 = x1; - - if (max2 < x2) - max2 = x2; - } while (ixPos < endPos); - if (max1 < max2) - max1 = max2; - return max1; - } - - function count_bit_ESC(ix, ixPos, end, t1, t2, s) { - /* ESC-table is used */ - var linbits = Tables.ht[t1].xlen * 65536 + Tables.ht[t2].xlen; - var sum = 0, sum2; - - do { - var x = ix[ixPos++]; - var y = ix[ixPos++]; - - if (x != 0) { - if (x > 14) { - x = 15; - sum += linbits; - } - x *= 16; - } - - if (y != 0) { - if (y > 14) { - y = 15; - sum += linbits; - } - x += y; - } - - sum += Tables.largetbl[x]; - } while (ixPos < end); - - sum2 = sum & 0xffff; - sum >>= 16; - - if (sum > sum2) { - sum = sum2; - t1 = t2; - } - - s.bits += sum; - return t1; - } - - function count_bit_noESC(ix, ixPos, end, s) { - /* No ESC-words */ - var sum1 = 0; - var hlen1 = Tables.ht[1].hlen; - - do { - var x = ix[ixPos + 0] * 2 + ix[ixPos + 1]; - ixPos += 2; - sum1 += hlen1[x]; - } while (ixPos < end); - - s.bits += sum1; - return 1; - } - - function count_bit_noESC_from2(ix, ixPos, end, t1, s) { - /* No ESC-words */ - var sum = 0, sum2; - var xlen = Tables.ht[t1].xlen; - var hlen; - if (t1 == 2) - hlen = Tables.table23; - else - hlen = Tables.table56; - - do { - var x = ix[ixPos + 0] * xlen + ix[ixPos + 1]; - ixPos += 2; - sum += hlen[x]; - } while (ixPos < end); - - sum2 = sum & 0xffff; - sum >>= 16; - - if (sum > sum2) { - sum = sum2; - t1++; - } - - s.bits += sum; - return t1; - } - - function count_bit_noESC_from3(ix, ixPos, end, t1, s) { - /* No ESC-words */ - var sum1 = 0; - var sum2 = 0; - var sum3 = 0; - var xlen = Tables.ht[t1].xlen; - var hlen1 = Tables.ht[t1].hlen; - var hlen2 = Tables.ht[t1 + 1].hlen; - var hlen3 = Tables.ht[t1 + 2].hlen; - - do { - var x = ix[ixPos + 0] * xlen + ix[ixPos + 1]; - ixPos += 2; - sum1 += hlen1[x]; - sum2 += hlen2[x]; - sum3 += hlen3[x]; - } while (ixPos < end); - var t = t1; - if (sum1 > sum2) { - sum1 = sum2; - t++; - } - if (sum1 > sum3) { - sum1 = sum3; - t = t1 + 2; - } - s.bits += sum1; - - return t; - } - - /*************************************************************************/ - /* choose table */ - /*************************************************************************/ - - var huf_tbl_noESC = [1, 2, 5, 7, 7, 10, 10, 13, 13, - 13, 13, 13, 13, 13, 13]; - - /** - * Choose the Huffman table that will encode ix[begin..end] with the fewest - * bits. - * - * Note: This code contains knowledge about the sizes and characteristics of - * the Huffman tables as defined in the IS (Table B.7), and will not work - * with any arbitrary tables. - */ - function choose_table(ix, ixPos, endPos, s) { - var max = ix_max(ix, ixPos, endPos); - - switch (max) { - case 0: - return max; - - case 1: - return count_bit_noESC(ix, ixPos, endPos, s); - - case 2: - case 3: - return count_bit_noESC_from2(ix, ixPos, endPos, - huf_tbl_noESC[max - 1], s); - - case 4: - case 5: - case 6: - case 7: - case 8: - case 9: - case 10: - case 11: - case 12: - case 13: - case 14: - case 15: - return count_bit_noESC_from3(ix, ixPos, endPos, - huf_tbl_noESC[max - 1], s); - - default: - /* try tables with linbits */ - if (max > QuantizePVT.IXMAX_VAL) { - s.bits = QuantizePVT.LARGE_BITS; - return -1; - } - max -= 15; - var choice2; - for (choice2 = 24; choice2 < 32; choice2++) { - if (Tables.ht[choice2].linmax >= max) { - break; - } - } - var choice; - for (choice = choice2 - 8; choice < 24; choice++) { - if (Tables.ht[choice].linmax >= max) { - break; - } - } - return count_bit_ESC(ix, ixPos, endPos, choice, choice2, s); - } - } - - /** - * count_bit - */ - this.noquant_count_bits = function (gfc, gi, prev_noise) { - var ix = gi.l3_enc; - var i = Math.min(576, ((gi.max_nonzero_coeff + 2) >> 1) << 1); - - if (prev_noise != null) - prev_noise.sfb_count1 = 0; - - /* Determine count1 region */ - for (; i > 1; i -= 2) - if ((ix[i - 1] | ix[i - 2]) != 0) - break; - gi.count1 = i; - - /* Determines the number of bits to encode the quadruples. */ - var a1 = 0; - var a2 = 0; - for (; i > 3; i -= 4) { - var p; - /* hack to check if all values <= 1 */ - //throw "TODO: HACK if ((((long) ix[i - 1] | (long) ix[i - 2] | (long) ix[i - 3] | (long) ix[i - 4]) & 0xffffffffL) > 1L " - //if (true) { - if (((ix[i - 1] | ix[i - 2] | ix[i - 3] | ix[i - 4]) & 0x7fffffff) > 1) { - break; - } - p = ((ix[i - 4] * 2 + ix[i - 3]) * 2 + ix[i - 2]) * 2 + ix[i - 1]; - a1 += Tables.t32l[p]; - a2 += Tables.t33l[p]; - } - var bits = a1; - gi.count1table_select = 0; - if (a1 > a2) { - bits = a2; - gi.count1table_select = 1; - } - - gi.count1bits = bits; - gi.big_values = i; - if (i == 0) - return bits; - - if (gi.block_type == Encoder.SHORT_TYPE) { - a1 = 3 * gfc.scalefac_band.s[3]; - if (a1 > gi.big_values) - a1 = gi.big_values; - a2 = gi.big_values; - - } else if (gi.block_type == Encoder.NORM_TYPE) { - /* bv_scf has 576 entries (0..575) */ - a1 = gi.region0_count = gfc.bv_scf[i - 2]; - a2 = gi.region1_count = gfc.bv_scf[i - 1]; - - a2 = gfc.scalefac_band.l[a1 + a2 + 2]; - a1 = gfc.scalefac_band.l[a1 + 1]; - if (a2 < i) { - var bi = new Bits(bits); - gi.table_select[2] = choose_table(ix, a2, i, bi); - bits = bi.bits; - } - } else { - gi.region0_count = 7; - /* gi.region1_count = SBPSY_l - 7 - 1; */ - gi.region1_count = Encoder.SBMAX_l - 1 - 7 - 1; - a1 = gfc.scalefac_band.l[7 + 1]; - a2 = i; - if (a1 > a2) { - a1 = a2; - } - } - - /* have to allow for the case when bigvalues < region0 < region1 */ - /* (and region0, region1 are ignored) */ - a1 = Math.min(a1, i); - a2 = Math.min(a2, i); - - - /* Count the number of bits necessary to code the bigvalues region. */ - if (0 < a1) { - var bi = new Bits(bits); - gi.table_select[0] = choose_table(ix, 0, a1, bi); - bits = bi.bits; - } - if (a1 < a2) { - var bi = new Bits(bits); - gi.table_select[1] = choose_table(ix, a1, a2, bi); - bits = bi.bits; - } - if (gfc.use_best_huffman == 2) { - gi.part2_3_length = bits; - best_huffman_divide(gfc, gi); - bits = gi.part2_3_length; - } - - if (prev_noise != null) { - if (gi.block_type == Encoder.NORM_TYPE) { - var sfb = 0; - while (gfc.scalefac_band.l[sfb] < gi.big_values) { - sfb++; - } - prev_noise.sfb_count1 = sfb; - } - } - - return bits; - } - - this.count_bits = function (gfc, xr, gi, prev_noise) { - var ix = gi.l3_enc; - - /* since quantize_xrpow uses table lookup, we need to check this first: */ - var w = (QuantizePVT.IXMAX_VAL) / qupvt.IPOW20(gi.global_gain); - - if (gi.xrpow_max > w) - return QuantizePVT.LARGE_BITS; - - quantize_xrpow(xr, ix, qupvt.IPOW20(gi.global_gain), gi, prev_noise); - - if ((gfc.substep_shaping & 2) != 0) { - var j = 0; - /* 0.634521682242439 = 0.5946*2**(.5*0.1875) */ - var gain = gi.global_gain + gi.scalefac_scale; - var roundfac = 0.634521682242439 / qupvt.IPOW20(gain); - for (var sfb = 0; sfb < gi.sfbmax; sfb++) { - var width = gi.width[sfb]; - if (0 == gfc.pseudohalf[sfb]) { - j += width; - } else { - var k; - for (k = j, j += width; k < j; ++k) { - ix[k] = (xr[k] >= roundfac) ? ix[k] : 0; - } - } - } - } - return this.noquant_count_bits(gfc, gi, prev_noise); - } - - /** - * re-calculate the best scalefac_compress using scfsi the saved bits are - * kept in the bit reservoir. - */ - function recalc_divide_init(gfc, cod_info, ix, r01_bits, r01_div, r0_tbl, r1_tbl) { - var bigv = cod_info.big_values; - - for (var r0 = 0; r0 <= 7 + 15; r0++) { - r01_bits[r0] = QuantizePVT.LARGE_BITS; - } - - for (var r0 = 0; r0 < 16; r0++) { - var a1 = gfc.scalefac_band.l[r0 + 1]; - if (a1 >= bigv) - break; - var r0bits = 0; - var bi = new Bits(r0bits); - var r0t = choose_table(ix, 0, a1, bi); - r0bits = bi.bits; - - for (var r1 = 0; r1 < 8; r1++) { - var a2 = gfc.scalefac_band.l[r0 + r1 + 2]; - if (a2 >= bigv) - break; - var bits = r0bits; - bi = new Bits(bits); - var r1t = choose_table(ix, a1, a2, bi); - bits = bi.bits; - if (r01_bits[r0 + r1] > bits) { - r01_bits[r0 + r1] = bits; - r01_div[r0 + r1] = r0; - r0_tbl[r0 + r1] = r0t; - r1_tbl[r0 + r1] = r1t; - } - } - } - } - - function recalc_divide_sub(gfc, cod_info2, gi, ix, r01_bits, r01_div, r0_tbl, r1_tbl) { - var bigv = cod_info2.big_values; - - for (var r2 = 2; r2 < Encoder.SBMAX_l + 1; r2++) { - var a2 = gfc.scalefac_band.l[r2]; - if (a2 >= bigv) - break; - var bits = r01_bits[r2 - 2] + cod_info2.count1bits; - if (gi.part2_3_length <= bits) - break; - - var bi = new Bits(bits); - var r2t = choose_table(ix, a2, bigv, bi); - bits = bi.bits; - if (gi.part2_3_length <= bits) - continue; - - gi.assign(cod_info2); - gi.part2_3_length = bits; - gi.region0_count = r01_div[r2 - 2]; - gi.region1_count = r2 - 2 - r01_div[r2 - 2]; - gi.table_select[0] = r0_tbl[r2 - 2]; - gi.table_select[1] = r1_tbl[r2 - 2]; - gi.table_select[2] = r2t; - } - } - - this.best_huffman_divide = function (gfc, gi) { - var cod_info2 = new GrInfo(); - var ix = gi.l3_enc; - var r01_bits = new_int(7 + 15 + 1); - var r01_div = new_int(7 + 15 + 1); - var r0_tbl = new_int(7 + 15 + 1); - var r1_tbl = new_int(7 + 15 + 1); - - /* SHORT BLOCK stuff fails for MPEG2 */ - if (gi.block_type == Encoder.SHORT_TYPE && gfc.mode_gr == 1) - return; - - cod_info2.assign(gi); - if (gi.block_type == Encoder.NORM_TYPE) { - recalc_divide_init(gfc, gi, ix, r01_bits, r01_div, r0_tbl, r1_tbl); - recalc_divide_sub(gfc, cod_info2, gi, ix, r01_bits, r01_div, - r0_tbl, r1_tbl); - } - var i = cod_info2.big_values; - if (i == 0 || (ix[i - 2] | ix[i - 1]) > 1) - return; - - i = gi.count1 + 2; - if (i > 576) - return; - - /* Determines the number of bits to encode the quadruples. */ - cod_info2.assign(gi); - cod_info2.count1 = i; - var a1 = 0; - var a2 = 0; - - - for (; i > cod_info2.big_values; i -= 4) { - var p = ((ix[i - 4] * 2 + ix[i - 3]) * 2 + ix[i - 2]) * 2 - + ix[i - 1]; - a1 += Tables.t32l[p]; - a2 += Tables.t33l[p]; - } - cod_info2.big_values = i; - - cod_info2.count1table_select = 0; - if (a1 > a2) { - a1 = a2; - cod_info2.count1table_select = 1; - } - - cod_info2.count1bits = a1; - - if (cod_info2.block_type == Encoder.NORM_TYPE) - recalc_divide_sub(gfc, cod_info2, gi, ix, r01_bits, r01_div, - r0_tbl, r1_tbl); - else { - /* Count the number of bits necessary to code the bigvalues region. */ - cod_info2.part2_3_length = a1; - a1 = gfc.scalefac_band.l[7 + 1]; - if (a1 > i) { - a1 = i; - } - if (a1 > 0) { - var bi = new Bits(cod_info2.part2_3_length); - cod_info2.table_select[0] = choose_table(ix, 0, a1, bi); - cod_info2.part2_3_length = bi.bits; - } - if (i > a1) { - var bi = new Bits(cod_info2.part2_3_length); - cod_info2.table_select[1] = choose_table(ix, a1, i, bi); - cod_info2.part2_3_length = bi.bits; - } - if (gi.part2_3_length > cod_info2.part2_3_length) - gi.assign(cod_info2); - } - } - - var slen1_n = [1, 1, 1, 1, 8, 2, 2, 2, 4, 4, 4, 8, 8, 8, 16, 16]; - var slen2_n = [1, 2, 4, 8, 1, 2, 4, 8, 2, 4, 8, 2, 4, 8, 4, 8]; - var slen1_tab = [0, 0, 0, 0, 3, 1, 1, 1, 2, 2, 2, 3, 3, 3, 4, 4]; - var slen2_tab = [0, 1, 2, 3, 0, 1, 2, 3, 1, 2, 3, 1, 2, 3, 2, 3]; - Takehiro.slen1_tab = slen1_tab; - Takehiro.slen2_tab = slen2_tab; - - function scfsi_calc(ch, l3_side) { - var sfb; - var gi = l3_side.tt[1][ch]; - var g0 = l3_side.tt[0][ch]; - - for (var i = 0; i < Tables.scfsi_band.length - 1; i++) { - for (sfb = Tables.scfsi_band[i]; sfb < Tables.scfsi_band[i + 1]; sfb++) { - if (g0.scalefac[sfb] != gi.scalefac[sfb] - && gi.scalefac[sfb] >= 0) - break; - } - if (sfb == Tables.scfsi_band[i + 1]) { - for (sfb = Tables.scfsi_band[i]; sfb < Tables.scfsi_band[i + 1]; sfb++) { - gi.scalefac[sfb] = -1; - } - l3_side.scfsi[ch][i] = 1; - } - } - var s1 = 0; - var c1 = 0; - for (sfb = 0; sfb < 11; sfb++) { - if (gi.scalefac[sfb] == -1) - continue; - c1++; - if (s1 < gi.scalefac[sfb]) - s1 = gi.scalefac[sfb]; - } - var s2 = 0; - var c2 = 0; - for (; sfb < Encoder.SBPSY_l; sfb++) { - if (gi.scalefac[sfb] == -1) - continue; - c2++; - if (s2 < gi.scalefac[sfb]) - s2 = gi.scalefac[sfb]; - } - - for (var i = 0; i < 16; i++) { - if (s1 < slen1_n[i] && s2 < slen2_n[i]) { - var c = slen1_tab[i] * c1 + slen2_tab[i] * c2; - if (gi.part2_length > c) { - gi.part2_length = c; - gi.scalefac_compress = i; - } - } - } - } - - /** - * Find the optimal way to store the scalefactors. Only call this routine - * after final scalefactors have been chosen and the channel/granule will - * not be re-encoded. - */ - this.best_scalefac_store = function (gfc, gr, ch, l3_side) { - /* use scalefac_scale if we can */ - var gi = l3_side.tt[gr][ch]; - var sfb, i, j, l; - var recalc = 0; - - /* - * remove scalefacs from bands with ix=0. This idea comes from the AAC - * ISO docs. added mt 3/00 - */ - /* check if l3_enc=0 */ - j = 0; - for (sfb = 0; sfb < gi.sfbmax; sfb++) { - var width = gi.width[sfb]; - j += width; - for (l = -width; l < 0; l++) { - if (gi.l3_enc[l + j] != 0) - break; - } - if (l == 0) - gi.scalefac[sfb] = recalc = -2; - /* anything goes. */ - /* - * only best_scalefac_store and calc_scfsi know--and only they - * should know--about the magic number -2. - */ - } - - if (0 == gi.scalefac_scale && 0 == gi.preflag) { - var s = 0; - for (sfb = 0; sfb < gi.sfbmax; sfb++) - if (gi.scalefac[sfb] > 0) - s |= gi.scalefac[sfb]; - - if (0 == (s & 1) && s != 0) { - for (sfb = 0; sfb < gi.sfbmax; sfb++) - if (gi.scalefac[sfb] > 0) - gi.scalefac[sfb] >>= 1; - - gi.scalefac_scale = recalc = 1; - } - } - - if (0 == gi.preflag && gi.block_type != Encoder.SHORT_TYPE - && gfc.mode_gr == 2) { - for (sfb = 11; sfb < Encoder.SBPSY_l; sfb++) - if (gi.scalefac[sfb] < qupvt.pretab[sfb] - && gi.scalefac[sfb] != -2) - break; - if (sfb == Encoder.SBPSY_l) { - for (sfb = 11; sfb < Encoder.SBPSY_l; sfb++) - if (gi.scalefac[sfb] > 0) - gi.scalefac[sfb] -= qupvt.pretab[sfb]; - - gi.preflag = recalc = 1; - } - } - - for (i = 0; i < 4; i++) - l3_side.scfsi[ch][i] = 0; - - if (gfc.mode_gr == 2 && gr == 1 - && l3_side.tt[0][ch].block_type != Encoder.SHORT_TYPE - && l3_side.tt[1][ch].block_type != Encoder.SHORT_TYPE) { - scfsi_calc(ch, l3_side); - recalc = 0; - } - for (sfb = 0; sfb < gi.sfbmax; sfb++) { - if (gi.scalefac[sfb] == -2) { - gi.scalefac[sfb] = 0; - /* if anything goes, then 0 is a good choice */ - } - } - if (recalc != 0) { - if (gfc.mode_gr == 2) { - this.scale_bitcount(gi); - } else { - this.scale_bitcount_lsf(gfc, gi); - } - } - } - - function all_scalefactors_not_negative(scalefac, n) { - for (var i = 0; i < n; ++i) { - if (scalefac[i] < 0) - return false; - } - return true; - } - - /** - * number of bits used to encode scalefacs. - * - * 18*slen1_tab[i] + 18*slen2_tab[i] - */ - var scale_short = [0, 18, 36, 54, 54, 36, 54, 72, - 54, 72, 90, 72, 90, 108, 108, 126]; - - /** - * number of bits used to encode scalefacs. - * - * 17*slen1_tab[i] + 18*slen2_tab[i] - */ - var scale_mixed = [0, 18, 36, 54, 51, 35, 53, 71, - 52, 70, 88, 69, 87, 105, 104, 122]; - - /** - * number of bits used to encode scalefacs. - * - * 11*slen1_tab[i] + 10*slen2_tab[i] - */ - var scale_long = [0, 10, 20, 30, 33, 21, 31, 41, 32, 42, - 52, 43, 53, 63, 64, 74]; - - /** - * Also calculates the number of bits necessary to code the scalefactors. - */ - this.scale_bitcount = function (cod_info) { - var k, sfb, max_slen1 = 0, max_slen2 = 0; - - /* maximum values */ - var tab; - var scalefac = cod_info.scalefac; - - - if (cod_info.block_type == Encoder.SHORT_TYPE) { - tab = scale_short; - if (cod_info.mixed_block_flag != 0) - tab = scale_mixed; - } else { /* block_type == 1,2,or 3 */ - tab = scale_long; - if (0 == cod_info.preflag) { - for (sfb = 11; sfb < Encoder.SBPSY_l; sfb++) - if (scalefac[sfb] < qupvt.pretab[sfb]) - break; - - if (sfb == Encoder.SBPSY_l) { - cod_info.preflag = 1; - for (sfb = 11; sfb < Encoder.SBPSY_l; sfb++) - scalefac[sfb] -= qupvt.pretab[sfb]; - } - } - } - - for (sfb = 0; sfb < cod_info.sfbdivide; sfb++) - if (max_slen1 < scalefac[sfb]) - max_slen1 = scalefac[sfb]; - - for (; sfb < cod_info.sfbmax; sfb++) - if (max_slen2 < scalefac[sfb]) - max_slen2 = scalefac[sfb]; - - /* - * from Takehiro TOMINAGA
- * Called (repeatedly) at the beginning of a frame. Updates the maximum size of - * the reservoir, and checks to make sure main_data_begin was set properly by - * the formatter
- * Background information: - * - * This is the original text from the ISO standard. Because of sooo many bugs - * and irritations correcting comments are added in brackets []. A '^W' means - * you should remove the last word. - * - *
- * 1. The following rule can be used to calculate the maximum - * number of bits used for one granule [^W frame]:- */ - - -function Reservoir() { - var bs; - - this.setModules = function(_bs) { - bs = _bs; - } - - this.ResvFrameBegin = function(gfp, mean_bits) { - var gfc = gfp.internal_flags; - var maxmp3buf; - var l3_side = gfc.l3_side; - - var frameLength = bs.getframebits(gfp); - mean_bits.bits = (frameLength - gfc.sideinfo_len * 8) / gfc.mode_gr; - - /** - *
- * At the highest possible bitrate of Layer III (320 kbps - * per stereo signal [^W^W^W], 48 kHz) the frames must be of - * [^W^W^W are designed to have] constant length, i.e. - * one buffer [^W^W the frame] length is:
- * - * 320 kbps * 1152/48 kHz = 7680 bit = 960 byte - * - * This value is used as the maximum buffer per channel [^W^W] at - * lower bitrates [than 320 kbps]. At 64 kbps mono or 128 kbps - * stereo the main granule length is 64 kbps * 576/48 kHz = 768 bit - * [per granule and channel] at 48 kHz sampling frequency. - * This means that there is a maximum deviation (short time buffer - * [= reservoir]) of 7680 - 2*2*768 = 4608 bits is allowed at 64 kbps. - * The actual deviation is equal to the number of bytes [with the - * meaning of octets] denoted by the main_data_end offset pointer. - * The actual maximum deviation is (2^9-1)*8 bit = 4088 bits - * [for MPEG-1 and (2^8-1)*8 bit for MPEG-2, both are hard limits]. - * ... The xchange of buffer bits between the left and right channel - * is allowed without restrictions [exception: dual channel]. - * Because of the [constructed] constraint on the buffer size - * main_data_end is always set to 0 in the case of bit_rate_index==14, - * i.e. data rate 320 kbps per stereo signal [^W^W^W]. In this case - * all data are allocated between adjacent header [^W sync] words - * [, i.e. there is no buffering at all]. - *
- * Meaning of the variables: - * resvLimit: (0, 8, ..., 8*255 (MPEG-2), 8*511 (MPEG-1)) - * Number of bits can be stored in previous frame(s) due to - * counter size constaints - * maxmp3buf: ( ??? ... 8*1951 (MPEG-1 and 2), 8*2047 (MPEG-2.5)) - * Number of bits allowed to encode one frame (you can take 8*511 bit - * from the bit reservoir and at most 8*1440 bit from the current - * frame (320 kbps, 32 kHz), so 8*1951 bit is the largest possible - * value for MPEG-1 and -2) - * - * maximum allowed granule/channel size times 4 = 8*2047 bits., - * so this is the absolute maximum supported by the format. - * - * - * fullFrameBits: maximum number of bits available for encoding - * the current frame. - * - * mean_bits: target number of bits per granule. - * - * frameLength: - * - * gfc.ResvMax: maximum allowed reservoir - * - * gfc.ResvSize: current reservoir size - * - * l3_side.resvDrain_pre: - * ancillary data to be added to previous frame: - * (only usefull in VBR modes if it is possible to have - * maxmp3buf < fullFrameBits)). Currently disabled, - * see #define NEW_DRAIN - * 2010-02-13: RH now enabled, it seems to be needed for CBR too, - * as there exists one example, where the FhG decoder - * can't decode a -b320 CBR file anymore. - * - * l3_side.resvDrain_post: - * ancillary data to be added to this frame: - * - *- */ - - /* main_data_begin has 9 bits in MPEG-1, 8 bits MPEG-2 */ - var resvLimit = (8 * 256) * gfc.mode_gr - 8; - - /* - * maximum allowed frame size. dont use more than this number of bits, - * even if the frame has the space for them: - */ - if (gfp.brate > 320) { - /* in freeformat the buffer is constant */ - maxmp3buf = 8 * ((int) ((gfp.brate * 1000) - / (gfp.out_samplerate / 1152) / 8 + .5)); - } else { - /* - * all mp3 decoders should have enough buffer to handle this value: - * size of a 320kbps 32kHz frame - */ - maxmp3buf = 8 * 1440; - - /* - * Bouvigne suggests this more lax interpretation of the ISO doc - * instead of using 8*960. - */ - - if (gfp.strict_ISO) { - maxmp3buf = 8 * ((int) (320000 / (gfp.out_samplerate / 1152) / 8 + .5)); - } - } - - gfc.ResvMax = maxmp3buf - frameLength; - if (gfc.ResvMax > resvLimit) - gfc.ResvMax = resvLimit; - if (gfc.ResvMax < 0 || gfp.disable_reservoir) - gfc.ResvMax = 0; - - var fullFrameBits = mean_bits.bits * gfc.mode_gr - + Math.min(gfc.ResvSize, gfc.ResvMax); - - if (fullFrameBits > maxmp3buf) - fullFrameBits = maxmp3buf; - - - l3_side.resvDrain_pre = 0; - - // frame analyzer code - if (gfc.pinfo != null) { - /* - * expected bits per channel per granule [is this also right for - * mono/stereo, MPEG-1/2 ?] - */ - gfc.pinfo.mean_bits = mean_bits.bits / 2; - gfc.pinfo.resvsize = gfc.ResvSize; - } - - return fullFrameBits; - } - - /** - * returns targ_bits: target number of bits to use for 1 granule
- * extra_bits: amount extra available from reservoir
- * Mark Taylor 4/99 - */ - this.ResvMaxBits = function(gfp, mean_bits, targ_bits, cbr) { - var gfc = gfp.internal_flags; - var add_bits; - var ResvSize = gfc.ResvSize, ResvMax = gfc.ResvMax; - - /* compensate the saved bits used in the 1st granule */ - if (cbr != 0) - ResvSize += mean_bits; - - if ((gfc.substep_shaping & 1) != 0) - ResvMax *= 0.9; - - targ_bits.bits = mean_bits; - - /* extra bits if the reservoir is almost full */ - if (ResvSize * 10 > ResvMax * 9) { - add_bits = ResvSize - (ResvMax * 9) / 10; - targ_bits.bits += add_bits; - gfc.substep_shaping |= 0x80; - } else { - add_bits = 0; - gfc.substep_shaping &= 0x7f; - /* - * build up reservoir. this builds the reservoir a little slower - * than FhG. It could simple be mean_bits/15, but this was rigged to - * always produce 100 (the old value) at 128kbs - */ - if (!gfp.disable_reservoir && 0 == (gfc.substep_shaping & 1)) - targ_bits.bits -= .1 * mean_bits; - } - - /* amount from the reservoir we are allowed to use. ISO says 6/10 */ - var extra_bits = (ResvSize < (gfc.ResvMax * 6) / 10 ? ResvSize - : (gfc.ResvMax * 6) / 10); - extra_bits -= add_bits; - - if (extra_bits < 0) - extra_bits = 0; - return extra_bits; - } - - /** - * Called after a granule's bit allocation. Readjusts the size of the - * reservoir to reflect the granule's usage. - */ - this.ResvAdjust = function(gfc, gi) { - gfc.ResvSize -= gi.part2_3_length + gi.part2_length; - } - - /** - * Called after all granules in a frame have been allocated. Makes sure that - * the reservoir size is within limits, possibly by adding stuffing bits. - */ - this.ResvFrameEnd = function(gfc, mean_bits) { - var over_bits; - var l3_side = gfc.l3_side; - - gfc.ResvSize += mean_bits * gfc.mode_gr; - var stuffingBits = 0; - l3_side.resvDrain_post = 0; - l3_side.resvDrain_pre = 0; - - /* we must be byte aligned */ - if ((over_bits = gfc.ResvSize % 8) != 0) - stuffingBits += over_bits; - - over_bits = (gfc.ResvSize - stuffingBits) - gfc.ResvMax; - if (over_bits > 0) { - stuffingBits += over_bits; - } - - /* - * NOTE: enabling the NEW_DRAIN code fixes some problems with FhG - * decoder shipped with MS Windows operating systems. Using this, it is - * even possible to use Gabriel's lax buffer consideration again, which - * assumes, any decoder should have a buffer large enough for a 320 kbps - * frame at 32 kHz sample rate. - * - * old drain code: lame -b320 BlackBird.wav --. does not play with - * GraphEdit.exe using FhG decoder V1.5 Build 50 - * - * new drain code: lame -b320 BlackBird.wav --. plays fine with - * GraphEdit.exe using FhG decoder V1.5 Build 50 - * - * Robert Hegemann, 2010-02-13. - */ - /* - * drain as many bits as possible into previous frame ancillary data In - * particular, in VBR mode ResvMax may have changed, and we have to make - * sure main_data_begin does not create a reservoir bigger than ResvMax - * mt 4/00 - */ - { - var mdb_bytes = Math.min(l3_side.main_data_begin * 8, stuffingBits) / 8; - l3_side.resvDrain_pre += 8 * mdb_bytes; - stuffingBits -= 8 * mdb_bytes; - gfc.ResvSize -= 8 * mdb_bytes; - l3_side.main_data_begin -= mdb_bytes; - } - /* drain the rest into this frames ancillary data */ - l3_side.resvDrain_post += stuffingBits; - gfc.ResvSize -= stuffingBits; - } -} - - - -BitStream.EQ = function (a, b) { - return (Math.abs(a) > Math.abs(b)) ? (Math.abs((a) - (b)) <= (Math - .abs(a) * 1e-6)) - : (Math.abs((a) - (b)) <= (Math.abs(b) * 1e-6)); -}; - -BitStream.NEQ = function (a, b) { - return !BitStream.EQ(a, b); -}; - -function BitStream() { - var self = this; - var CRC16_POLYNOMIAL = 0x8005; - - /* - * we work with ints, so when doing bit manipulation, we limit ourselves to - * MAX_LENGTH-2 just to be on the safe side - */ - var MAX_LENGTH = 32; - - //GainAnalysis ga; - //MPGLib mpg; - //Version ver; - //VBRTag vbr; - var ga = null; - var mpg = null; - var ver = null; - var vbr = null; - - //public final void setModules(GainAnalysis ga, MPGLib mpg, Version ver, - // VBRTag vbr) { - - this.setModules = function (_ga, _mpg, _ver, _vbr) { - ga = _ga; - mpg = _mpg; - ver = _ver; - vbr = _vbr; - }; - - /** - * Bit stream buffer. - */ - //private byte[] buf; - var buf = null; - /** - * Bit counter of bit stream. - */ - var totbit = 0; - /** - * Pointer to top byte in buffer. - */ - var bufByteIdx = 0; - /** - * Pointer to top bit of top byte in buffer. - */ - var bufBitIdx = 0; - - /** - * compute bitsperframe and mean_bits for a layer III frame - */ - this.getframebits = function (gfp) { - var gfc = gfp.internal_flags; - var bit_rate; - - /* get bitrate in kbps [?] */ - if (gfc.bitrate_index != 0) - bit_rate = Tables.bitrate_table[gfp.version][gfc.bitrate_index]; - else - bit_rate = gfp.brate; - - /* main encoding routine toggles padding on and off */ - /* one Layer3 Slot consists of 8 bits */ - var bytes = 0 | (gfp.version + 1) * 72000 * bit_rate / gfp.out_samplerate + gfc.padding; - return 8 * bytes; - }; - - function putheader_bits(gfc) { - System.arraycopy(gfc.header[gfc.w_ptr].buf, 0, buf, bufByteIdx, gfc.sideinfo_len); - bufByteIdx += gfc.sideinfo_len; - totbit += gfc.sideinfo_len * 8; - gfc.w_ptr = (gfc.w_ptr + 1) & (LameInternalFlags.MAX_HEADER_BUF - 1); - } - - /** - * write j bits into the bit stream - */ - function putbits2(gfc, val, j) { - - while (j > 0) { - var k; - if (bufBitIdx == 0) { - bufBitIdx = 8; - bufByteIdx++; - if (gfc.header[gfc.w_ptr].write_timing == totbit) { - putheader_bits(gfc); - } - buf[bufByteIdx] = 0; - } - - k = Math.min(j, bufBitIdx); - j -= k; - - bufBitIdx -= k; - - /* 32 too large on 32 bit machines */ - - buf[bufByteIdx] |= ((val >> j) << bufBitIdx); - totbit += k; - } - } - - /** - * write j bits into the bit stream, ignoring frame headers - */ - function putbits_noheaders(gfc, val, j) { - - while (j > 0) { - var k; - if (bufBitIdx == 0) { - bufBitIdx = 8; - bufByteIdx++; - buf[bufByteIdx] = 0; - } - - k = Math.min(j, bufBitIdx); - j -= k; - - bufBitIdx -= k; - - /* 32 too large on 32 bit machines */ - - buf[bufByteIdx] |= ((val >> j) << bufBitIdx); - totbit += k; - } - } - - /** - * Some combinations of bitrate, Fs, and stereo make it impossible to stuff - * out a frame using just main_data, due to the limited number of bits to - * indicate main_data_length. In these situations, we put stuffing bits into - * the ancillary data... - */ - function drain_into_ancillary(gfp, remainingBits) { - var gfc = gfp.internal_flags; - var i; - - if (remainingBits >= 8) { - putbits2(gfc, 0x4c, 8); - remainingBits -= 8; - } - if (remainingBits >= 8) { - putbits2(gfc, 0x41, 8); - remainingBits -= 8; - } - if (remainingBits >= 8) { - putbits2(gfc, 0x4d, 8); - remainingBits -= 8; - } - if (remainingBits >= 8) { - putbits2(gfc, 0x45, 8); - remainingBits -= 8; - } - - if (remainingBits >= 32) { - var version = ver.getLameShortVersion(); - if (remainingBits >= 32) - for (i = 0; i < version.length && remainingBits >= 8; ++i) { - remainingBits -= 8; - putbits2(gfc, version.charAt(i), 8); - } - } - - for (; remainingBits >= 1; remainingBits -= 1) { - putbits2(gfc, gfc.ancillary_flag, 1); - gfc.ancillary_flag ^= (!gfp.disable_reservoir ? 1 : 0); - } - - - } - - /** - * write N bits into the header - */ - function writeheader(gfc, val, j) { - var ptr = gfc.header[gfc.h_ptr].ptr; - - while (j > 0) { - var k = Math.min(j, 8 - (ptr & 7)); - j -= k; - /* >> 32 too large for 32 bit machines */ - - gfc.header[gfc.h_ptr].buf[ptr >> 3] |= ((val >> j)) << (8 - (ptr & 7) - k); - ptr += k; - } - gfc.header[gfc.h_ptr].ptr = ptr; - } - - function CRC_update(value, crc) { - value <<= 8; - for (var i = 0; i < 8; i++) { - value <<= 1; - crc <<= 1; - - if ((((crc ^ value) & 0x10000) != 0)) - crc ^= CRC16_POLYNOMIAL; - } - return crc; - } - - this.CRC_writeheader = function (gfc, header) { - var crc = 0xffff; - /* (jo) init crc16 for error_protection */ - - crc = CRC_update(header[2] & 0xff, crc); - crc = CRC_update(header[3] & 0xff, crc); - for (var i = 6; i < gfc.sideinfo_len; i++) { - crc = CRC_update(header[i] & 0xff, crc); - } - - header[4] = (byte)(crc >> 8); - header[5] = (byte)(crc & 255); - }; - - function encodeSideInfo2(gfp, bitsPerFrame) { - var gfc = gfp.internal_flags; - var l3_side; - var gr, ch; - - l3_side = gfc.l3_side; - gfc.header[gfc.h_ptr].ptr = 0; - Arrays.fill(gfc.header[gfc.h_ptr].buf, 0, gfc.sideinfo_len, 0); - if (gfp.out_samplerate < 16000) - writeheader(gfc, 0xffe, 12); - else - writeheader(gfc, 0xfff, 12); - writeheader(gfc, (gfp.version), 1); - writeheader(gfc, 4 - 3, 2); - writeheader(gfc, (!gfp.error_protection ? 1 : 0), 1); - writeheader(gfc, (gfc.bitrate_index), 4); - writeheader(gfc, (gfc.samplerate_index), 2); - writeheader(gfc, (gfc.padding), 1); - writeheader(gfc, (gfp.extension), 1); - writeheader(gfc, (gfp.mode.ordinal()), 2); - writeheader(gfc, (gfc.mode_ext), 2); - writeheader(gfc, (gfp.copyright), 1); - writeheader(gfc, (gfp.original), 1); - writeheader(gfc, (gfp.emphasis), 2); - if (gfp.error_protection) { - writeheader(gfc, 0, 16); - /* dummy */ - } - - if (gfp.version == 1) { - /* MPEG1 */ - writeheader(gfc, (l3_side.main_data_begin), 9); - - if (gfc.channels_out == 2) - writeheader(gfc, l3_side.private_bits, 3); - else - writeheader(gfc, l3_side.private_bits, 5); - - for (ch = 0; ch < gfc.channels_out; ch++) { - var band; - for (band = 0; band < 4; band++) { - writeheader(gfc, l3_side.scfsi[ch][band], 1); - } - } - - for (gr = 0; gr < 2; gr++) { - for (ch = 0; ch < gfc.channels_out; ch++) { - var gi = l3_side.tt[gr][ch]; - writeheader(gfc, gi.part2_3_length + gi.part2_length, 12); - writeheader(gfc, gi.big_values / 2, 9); - writeheader(gfc, gi.global_gain, 8); - writeheader(gfc, gi.scalefac_compress, 4); - - if (gi.block_type != Encoder.NORM_TYPE) { - writeheader(gfc, 1, 1); - /* window_switching_flag */ - writeheader(gfc, gi.block_type, 2); - writeheader(gfc, gi.mixed_block_flag, 1); - - if (gi.table_select[0] == 14) - gi.table_select[0] = 16; - writeheader(gfc, gi.table_select[0], 5); - if (gi.table_select[1] == 14) - gi.table_select[1] = 16; - writeheader(gfc, gi.table_select[1], 5); - - writeheader(gfc, gi.subblock_gain[0], 3); - writeheader(gfc, gi.subblock_gain[1], 3); - writeheader(gfc, gi.subblock_gain[2], 3); - } else { - writeheader(gfc, 0, 1); - /* window_switching_flag */ - if (gi.table_select[0] == 14) - gi.table_select[0] = 16; - writeheader(gfc, gi.table_select[0], 5); - if (gi.table_select[1] == 14) - gi.table_select[1] = 16; - writeheader(gfc, gi.table_select[1], 5); - if (gi.table_select[2] == 14) - gi.table_select[2] = 16; - writeheader(gfc, gi.table_select[2], 5); - - writeheader(gfc, gi.region0_count, 4); - writeheader(gfc, gi.region1_count, 3); - } - writeheader(gfc, gi.preflag, 1); - writeheader(gfc, gi.scalefac_scale, 1); - writeheader(gfc, gi.count1table_select, 1); - } - } - } else { - /* MPEG2 */ - writeheader(gfc, (l3_side.main_data_begin), 8); - writeheader(gfc, l3_side.private_bits, gfc.channels_out); - - gr = 0; - for (ch = 0; ch < gfc.channels_out; ch++) { - var gi = l3_side.tt[gr][ch]; - writeheader(gfc, gi.part2_3_length + gi.part2_length, 12); - writeheader(gfc, gi.big_values / 2, 9); - writeheader(gfc, gi.global_gain, 8); - writeheader(gfc, gi.scalefac_compress, 9); - - if (gi.block_type != Encoder.NORM_TYPE) { - writeheader(gfc, 1, 1); - /* window_switching_flag */ - writeheader(gfc, gi.block_type, 2); - writeheader(gfc, gi.mixed_block_flag, 1); - - if (gi.table_select[0] == 14) - gi.table_select[0] = 16; - writeheader(gfc, gi.table_select[0], 5); - if (gi.table_select[1] == 14) - gi.table_select[1] = 16; - writeheader(gfc, gi.table_select[1], 5); - - writeheader(gfc, gi.subblock_gain[0], 3); - writeheader(gfc, gi.subblock_gain[1], 3); - writeheader(gfc, gi.subblock_gain[2], 3); - } else { - writeheader(gfc, 0, 1); - /* window_switching_flag */ - if (gi.table_select[0] == 14) - gi.table_select[0] = 16; - writeheader(gfc, gi.table_select[0], 5); - if (gi.table_select[1] == 14) - gi.table_select[1] = 16; - writeheader(gfc, gi.table_select[1], 5); - if (gi.table_select[2] == 14) - gi.table_select[2] = 16; - writeheader(gfc, gi.table_select[2], 5); - - writeheader(gfc, gi.region0_count, 4); - writeheader(gfc, gi.region1_count, 3); - } - - writeheader(gfc, gi.scalefac_scale, 1); - writeheader(gfc, gi.count1table_select, 1); - } - } - - if (gfp.error_protection) { - /* (jo) error_protection: add crc16 information to header */ - CRC_writeheader(gfc, gfc.header[gfc.h_ptr].buf); - } - - { - var old = gfc.h_ptr; - - gfc.h_ptr = (old + 1) & (LameInternalFlags.MAX_HEADER_BUF - 1); - gfc.header[gfc.h_ptr].write_timing = gfc.header[old].write_timing - + bitsPerFrame; - - if (gfc.h_ptr == gfc.w_ptr) { - /* yikes! we are out of header buffer space */ - System.err - .println("Error: MAX_HEADER_BUF too small in bitstream.c \n"); - } - - } - } - - function huffman_coder_count1(gfc, gi) { - /* Write count1 area */ - var h = Tables.ht[gi.count1table_select + 32]; - var i, bits = 0; - - var ix = gi.big_values; - var xr = gi.big_values; - - for (i = (gi.count1 - gi.big_values) / 4; i > 0; --i) { - var huffbits = 0; - var p = 0, v; - - v = gi.l3_enc[ix + 0]; - if (v != 0) { - p += 8; - if (gi.xr[xr + 0] < 0) - huffbits++; - } - - v = gi.l3_enc[ix + 1]; - if (v != 0) { - p += 4; - huffbits *= 2; - if (gi.xr[xr + 1] < 0) - huffbits++; - } - - v = gi.l3_enc[ix + 2]; - if (v != 0) { - p += 2; - huffbits *= 2; - if (gi.xr[xr + 2] < 0) - huffbits++; - } - - v = gi.l3_enc[ix + 3]; - if (v != 0) { - p++; - huffbits *= 2; - if (gi.xr[xr + 3] < 0) - huffbits++; - } - - ix += 4; - xr += 4; - putbits2(gfc, huffbits + h.table[p], h.hlen[p]); - bits += h.hlen[p]; - } - return bits; - } - - /** - * Implements the pseudocode of page 98 of the IS - */ - function Huffmancode(gfc, tableindex, start, end, gi) { - var h = Tables.ht[tableindex]; - var bits = 0; - - if (0 == tableindex) - return bits; - - for (var i = start; i < end; i += 2) { - var cbits = 0; - var xbits = 0; - var linbits = h.xlen; - var xlen = h.xlen; - var ext = 0; - var x1 = gi.l3_enc[i]; - var x2 = gi.l3_enc[i + 1]; - - if (x1 != 0) { - if (gi.xr[i] < 0) - ext++; - cbits--; - } - - if (tableindex > 15) { - /* use ESC-words */ - if (x1 > 14) { - var linbits_x1 = x1 - 15; - ext |= linbits_x1 << 1; - xbits = linbits; - x1 = 15; - } - - if (x2 > 14) { - var linbits_x2 = x2 - 15; - ext <<= linbits; - ext |= linbits_x2; - xbits += linbits; - x2 = 15; - } - xlen = 16; - } - - if (x2 != 0) { - ext <<= 1; - if (gi.xr[i + 1] < 0) - ext++; - cbits--; - } - - - x1 = x1 * xlen + x2; - xbits -= cbits; - cbits += h.hlen[x1]; - - - putbits2(gfc, h.table[x1], cbits); - putbits2(gfc, ext, xbits); - bits += cbits + xbits; - } - return bits; - } - - /** - * Note the discussion of huffmancodebits() on pages 28 and 29 of the IS, as - * well as the definitions of the side information on pages 26 and 27. - */ - function ShortHuffmancodebits(gfc, gi) { - var region1Start = 3 * gfc.scalefac_band.s[3]; - if (region1Start > gi.big_values) - region1Start = gi.big_values; - - /* short blocks do not have a region2 */ - var bits = Huffmancode(gfc, gi.table_select[0], 0, region1Start, gi); - bits += Huffmancode(gfc, gi.table_select[1], region1Start, - gi.big_values, gi); - return bits; - } - - function LongHuffmancodebits(gfc, gi) { - var bigvalues, bits; - var region1Start, region2Start; - - bigvalues = gi.big_values; - - var i = gi.region0_count + 1; - region1Start = gfc.scalefac_band.l[i]; - i += gi.region1_count + 1; - region2Start = gfc.scalefac_band.l[i]; - - if (region1Start > bigvalues) - region1Start = bigvalues; - - if (region2Start > bigvalues) - region2Start = bigvalues; - - bits = Huffmancode(gfc, gi.table_select[0], 0, region1Start, gi); - bits += Huffmancode(gfc, gi.table_select[1], region1Start, - region2Start, gi); - bits += Huffmancode(gfc, gi.table_select[2], region2Start, bigvalues, - gi); - return bits; - } - - function writeMainData(gfp) { - var gr, ch, sfb, data_bits, tot_bits = 0; - var gfc = gfp.internal_flags; - var l3_side = gfc.l3_side; - - if (gfp.version == 1) { - /* MPEG 1 */ - for (gr = 0; gr < 2; gr++) { - for (ch = 0; ch < gfc.channels_out; ch++) { - var gi = l3_side.tt[gr][ch]; - var slen1 = Takehiro.slen1_tab[gi.scalefac_compress]; - var slen2 = Takehiro.slen2_tab[gi.scalefac_compress]; - data_bits = 0; - for (sfb = 0; sfb < gi.sfbdivide; sfb++) { - if (gi.scalefac[sfb] == -1) - continue; - /* scfsi is used */ - putbits2(gfc, gi.scalefac[sfb], slen1); - data_bits += slen1; - } - for (; sfb < gi.sfbmax; sfb++) { - if (gi.scalefac[sfb] == -1) - continue; - /* scfsi is used */ - putbits2(gfc, gi.scalefac[sfb], slen2); - data_bits += slen2; - } - - if (gi.block_type == Encoder.SHORT_TYPE) { - data_bits += ShortHuffmancodebits(gfc, gi); - } else { - data_bits += LongHuffmancodebits(gfc, gi); - } - data_bits += huffman_coder_count1(gfc, gi); - /* does bitcount in quantize.c agree with actual bit count? */ - tot_bits += data_bits; - } - /* for ch */ - } - /* for gr */ - } else { - /* MPEG 2 */ - gr = 0; - for (ch = 0; ch < gfc.channels_out; ch++) { - var gi = l3_side.tt[gr][ch]; - var i, sfb_partition, scale_bits = 0; - data_bits = 0; - sfb = 0; - sfb_partition = 0; - - if (gi.block_type == Encoder.SHORT_TYPE) { - for (; sfb_partition < 4; sfb_partition++) { - var sfbs = gi.sfb_partition_table[sfb_partition] / 3; - var slen = gi.slen[sfb_partition]; - for (i = 0; i < sfbs; i++, sfb++) { - putbits2(gfc, - Math.max(gi.scalefac[sfb * 3 + 0], 0), slen); - putbits2(gfc, - Math.max(gi.scalefac[sfb * 3 + 1], 0), slen); - putbits2(gfc, - Math.max(gi.scalefac[sfb * 3 + 2], 0), slen); - scale_bits += 3 * slen; - } - } - data_bits += ShortHuffmancodebits(gfc, gi); - } else { - for (; sfb_partition < 4; sfb_partition++) { - var sfbs = gi.sfb_partition_table[sfb_partition]; - var slen = gi.slen[sfb_partition]; - for (i = 0; i < sfbs; i++, sfb++) { - putbits2(gfc, Math.max(gi.scalefac[sfb], 0), slen); - scale_bits += slen; - } - } - data_bits += LongHuffmancodebits(gfc, gi); - } - data_bits += huffman_coder_count1(gfc, gi); - /* does bitcount in quantize.c agree with actual bit count? */ - tot_bits += scale_bits + data_bits; - } - /* for ch */ - } - /* for gf */ - return tot_bits; - } - - /* main_data */ - - function TotalBytes() { - this.total = 0; - } - - /* - * compute the number of bits required to flush all mp3 frames currently in - * the buffer. This should be the same as the reservoir size. Only call this - * routine between frames - i.e. only after all headers and data have been - * added to the buffer by format_bitstream(). - * - * Also compute total_bits_output = size of mp3 buffer (including frame - * headers which may not have yet been send to the mp3 buffer) + number of - * bits needed to flush all mp3 frames. - * - * total_bytes_output is the size of the mp3 output buffer if - * lame_encode_flush_nogap() was called right now. - */ - function compute_flushbits(gfp, total_bytes_output) { - var gfc = gfp.internal_flags; - var flushbits, remaining_headers; - var bitsPerFrame; - var last_ptr, first_ptr; - first_ptr = gfc.w_ptr; - /* first header to add to bitstream */ - last_ptr = gfc.h_ptr - 1; - /* last header to add to bitstream */ - if (last_ptr == -1) - last_ptr = LameInternalFlags.MAX_HEADER_BUF - 1; - - /* add this many bits to bitstream so we can flush all headers */ - flushbits = gfc.header[last_ptr].write_timing - totbit; - total_bytes_output.total = flushbits; - - if (flushbits >= 0) { - /* if flushbits >= 0, some headers have not yet been written */ - /* reduce flushbits by the size of the headers */ - remaining_headers = 1 + last_ptr - first_ptr; - if (last_ptr < first_ptr) - remaining_headers = 1 + last_ptr - first_ptr - + LameInternalFlags.MAX_HEADER_BUF; - flushbits -= remaining_headers * 8 * gfc.sideinfo_len; - } - - /* - * finally, add some bits so that the last frame is complete these bits - * are not necessary to decode the last frame, but some decoders will - * ignore last frame if these bits are missing - */ - bitsPerFrame = self.getframebits(gfp); - flushbits += bitsPerFrame; - total_bytes_output.total += bitsPerFrame; - /* round up: */ - if ((total_bytes_output.total % 8) != 0) - total_bytes_output.total = 1 + (total_bytes_output.total / 8); - else - total_bytes_output.total = (total_bytes_output.total / 8); - total_bytes_output.total += bufByteIdx + 1; - - if (flushbits < 0) { - System.err.println("strange error flushing buffer ... \n"); - } - return flushbits; - } - - this.flush_bitstream = function (gfp) { - var gfc = gfp.internal_flags; - var l3_side; - var flushbits; - var last_ptr = gfc.h_ptr - 1; - /* last header to add to bitstream */ - if (last_ptr == -1) - last_ptr = LameInternalFlags.MAX_HEADER_BUF - 1; - l3_side = gfc.l3_side; - - if ((flushbits = compute_flushbits(gfp, new TotalBytes())) < 0) - return; - drain_into_ancillary(gfp, flushbits); - - /* check that the 100% of the last frame has been written to bitstream */ - - /* - * we have padded out all frames with ancillary data, which is the same - * as filling the bitreservoir with ancillary data, so : - */ - gfc.ResvSize = 0; - l3_side.main_data_begin = 0; - - /* save the ReplayGain value */ - if (gfc.findReplayGain) { - var RadioGain = ga.GetTitleGain(gfc.rgdata); - gfc.RadioGain = Math.floor(RadioGain * 10.0 + 0.5) | 0; - /* round to nearest */ - } - - /* find the gain and scale change required for no clipping */ - if (gfc.findPeakSample) { - gfc.noclipGainChange = Math.ceil(Math - .log10(gfc.PeakSample / 32767.0) * 20.0 * 10.0) | 0; - /* round up */ - - if (gfc.noclipGainChange > 0) { - /* clipping occurs */ - if (EQ(gfp.scale, 1.0) || EQ(gfp.scale, 0.0)) - gfc.noclipScale = (Math - .floor((32767.0 / gfc.PeakSample) * 100.0) / 100.0); - /* round down */ - else { - /* - * the user specified his own scaling factor. We could - * suggest the scaling factor of - * (32767.0/gfp.PeakSample)*(gfp.scale) but it's usually - * very inaccurate. So we'd rather not advice him on the - * scaling factor. - */ - gfc.noclipScale = -1; - } - } else - /* no clipping */ - gfc.noclipScale = -1; - } - }; - - this.add_dummy_byte = function (gfp, val, n) { - var gfc = gfp.internal_flags; - var i; - - while (n-- > 0) { - putbits_noheaders(gfc, val, 8); - - for (i = 0; i < LameInternalFlags.MAX_HEADER_BUF; ++i) - gfc.header[i].write_timing += 8; - } - }; - - /** - * This is called after a frame of audio has been quantized and coded. It - * will write the encoded audio to the bitstream. Note that from a layer3 - * encoder's perspective the bit stream is primarily a series of main_data() - * blocks, with header and side information inserted at the proper locations - * to maintain framing. (See Figure A.7 in the IS). - */ - this.format_bitstream = function (gfp) { - var gfc = gfp.internal_flags; - var l3_side; - l3_side = gfc.l3_side; - - var bitsPerFrame = this.getframebits(gfp); - drain_into_ancillary(gfp, l3_side.resvDrain_pre); - - encodeSideInfo2(gfp, bitsPerFrame); - var bits = 8 * gfc.sideinfo_len; - bits += writeMainData(gfp); - drain_into_ancillary(gfp, l3_side.resvDrain_post); - bits += l3_side.resvDrain_post; - - l3_side.main_data_begin += (bitsPerFrame - bits) / 8; - - /* - * compare number of bits needed to clear all buffered mp3 frames with - * what we think the resvsize is: - */ - if (compute_flushbits(gfp, new TotalBytes()) != gfc.ResvSize) { - System.err.println("Internal buffer inconsistency. flushbits <> ResvSize"); - } - - /* - * compare main_data_begin for the next frame with what we think the - * resvsize is: - */ - if ((l3_side.main_data_begin * 8) != gfc.ResvSize) { - System.err.printf("bit reservoir error: \n" - + "l3_side.main_data_begin: %d \n" - + "Resvoir size: %d \n" - + "resv drain (post) %d \n" - + "resv drain (pre) %d \n" - + "header and sideinfo: %d \n" - + "data bits: %d \n" - + "total bits: %d (remainder: %d) \n" - + "bitsperframe: %d \n", - 8 * l3_side.main_data_begin, gfc.ResvSize, - l3_side.resvDrain_post, l3_side.resvDrain_pre, - 8 * gfc.sideinfo_len, bits - l3_side.resvDrain_post - 8 - * gfc.sideinfo_len, bits, bits % 8, bitsPerFrame); - - System.err.println("This is a fatal error. It has several possible causes:"); - System.err.println("90%% LAME compiled with buggy version of gcc using advanced optimizations"); - System.err.println(" 9%% Your system is overclocked"); - System.err.println(" 1%% bug in LAME encoding library"); - - gfc.ResvSize = l3_side.main_data_begin * 8; - } - //; - - if (totbit > 1000000000) { - /* - * to avoid totbit overflow, (at 8h encoding at 128kbs) lets reset - * bit counter - */ - var i; - for (i = 0; i < LameInternalFlags.MAX_HEADER_BUF; ++i) - gfc.header[i].write_timing -= totbit; - totbit = 0; - } - - return 0; - }; - - /** - *
- * copy data out of the internal MP3 bit buffer into a user supplied - * unsigned char buffer. - * - * mp3data=0 indicates data in buffer is an id3tags and VBR tags - * mp3data=1 data is real mp3 frame data. - *- */ - this.copy_buffer = function (gfc, buffer, bufferPos, size, mp3data) { - var minimum = bufByteIdx + 1; - if (minimum <= 0) - return 0; - if (size != 0 && minimum > size) { - /* buffer is too small */ - return -1; - } - System.arraycopy(buf, 0, buffer, bufferPos, minimum); - bufByteIdx = -1; - bufBitIdx = 0; - - if (mp3data != 0) { - var crc = new_int(1); - crc[0] = gfc.nMusicCRC; - vbr.updateMusicCRC(crc, buffer, bufferPos, minimum); - gfc.nMusicCRC = crc[0]; - - /** - * sum number of bytes belonging to the mp3 stream this info will be - * written into the Xing/LAME header for seeking - */ - if (minimum > 0) { - gfc.VBR_seek_table.nBytesWritten += minimum; - } - - if (gfc.decode_on_the_fly) { /* decode the frame */ - var pcm_buf = new_float_n([2, 1152]); - var mp3_in = minimum; - var samples_out = -1; - var i; - - /* re-synthesis to pcm. Repeat until we get a samples_out=0 */ - while (samples_out != 0) { - - samples_out = mpg.hip_decode1_unclipped(gfc.hip, buffer, - bufferPos, mp3_in, pcm_buf[0], pcm_buf[1]); - /* - * samples_out = 0: need more data to decode samples_out = - * -1: error. Lets assume 0 pcm output samples_out = number - * of samples output - */ - - /* - * set the lenght of the mp3 input buffer to zero, so that - * in the next iteration of the loop we will be querying - * mpglib about buffered data - */ - mp3_in = 0; - - if (samples_out == -1) { - /* - * error decoding. Not fatal, but might screw up the - * ReplayGain tag. What should we do? Ignore for now - */ - samples_out = 0; - } - if (samples_out > 0) { - /* process the PCM data */ - - /* - * this should not be possible, and indicates we have - * overflown the pcm_buf buffer - */ - - if (gfc.findPeakSample) { - for (i = 0; i < samples_out; i++) { - if (pcm_buf[0][i] > gfc.PeakSample) - gfc.PeakSample = pcm_buf[0][i]; - else if (-pcm_buf[0][i] > gfc.PeakSample) - gfc.PeakSample = -pcm_buf[0][i]; - } - if (gfc.channels_out > 1) - for (i = 0; i < samples_out; i++) { - if (pcm_buf[1][i] > gfc.PeakSample) - gfc.PeakSample = pcm_buf[1][i]; - else if (-pcm_buf[1][i] > gfc.PeakSample) - gfc.PeakSample = -pcm_buf[1][i]; - } - } - - if (gfc.findReplayGain) - if (ga.AnalyzeSamples(gfc.rgdata, pcm_buf[0], 0, - pcm_buf[1], 0, samples_out, - gfc.channels_out) == GainAnalysis.GAIN_ANALYSIS_ERROR) - return -6; - - } - /* if (samples_out>0) */ - } - /* while (samples_out!=0) */ - } - /* if (gfc.decode_on_the_fly) */ - - } - /* if (mp3data) */ - return minimum; - }; - - this.init_bit_stream_w = function (gfc) { - buf = new_byte(Lame.LAME_MAXMP3BUFFER); - - gfc.h_ptr = gfc.w_ptr = 0; - gfc.header[gfc.h_ptr].write_timing = 0; - bufByteIdx = -1; - bufBitIdx = 0; - totbit = 0; - }; - - // From machine.h - - -} - - -/** - * A Vbr header may be present in the ancillary data field of the first frame of - * an mp3 bitstream
- * The Vbr header (optionally) contains - *
-
- *
- frames total number of audio frames in the bitstream - *
- bytes total number of bytes in the bitstream - *
- toc table of contents - *
- * The ith entry determines the seek point for i-percent duration.
- * seek point in bytes = (toc[i]/256.0) * total_bitstream_bytes
- * e.g. half duration seek point = (toc[50]/256.0) * total_bitstream_bytes - */ -VBRTag.NUMTOCENTRIES = 100; -VBRTag.MAXFRAMESIZE = 2880; - -function VBRTag() { - - var lame; - var bs; - var v; - - this.setModules = function (_lame, _bs, _v) { - lame = _lame; - bs = _bs; - v = _v; - }; - - var FRAMES_FLAG = 0x0001; - var BYTES_FLAG = 0x0002; - var TOC_FLAG = 0x0004; - var VBR_SCALE_FLAG = 0x0008; - - var NUMTOCENTRIES = VBRTag.NUMTOCENTRIES; - - /** - * (0xB40) the max freeformat 640 32kHz framesize. - */ - var MAXFRAMESIZE = VBRTag.MAXFRAMESIZE; - - /** - *
- * 4 bytes for Header Tag - * 4 bytes for Header Flags - * 100 bytes for entry (toc) - * 4 bytes for frame size - * 4 bytes for stream size - * 4 bytes for VBR scale. a VBR quality indicator: 0=best 100=worst - * 20 bytes for LAME tag. for example, "LAME3.12 (beta 6)" - * ___________ - * 140 bytes - *- */ - var VBRHEADERSIZE = (NUMTOCENTRIES + 4 + 4 + 4 + 4 + 4); - - var LAMEHEADERSIZE = (VBRHEADERSIZE + 9 + 1 + 1 + 8 - + 1 + 1 + 3 + 1 + 1 + 2 + 4 + 2 + 2); - - /** - * The size of the Xing header MPEG-1, bit rate in kbps. - */ - var XING_BITRATE1 = 128; - /** - * The size of the Xing header MPEG-2, bit rate in kbps. - */ - var XING_BITRATE2 = 64; - /** - * The size of the Xing header MPEG-2.5, bit rate in kbps. - */ - var XING_BITRATE25 = 32; - - /** - * ISO-8859-1 charset for byte to string operations. - */ - var ISO_8859_1 = null; //Charset.forName("ISO-8859-1"); - - /** - * VBR header magic string. - */ - var VBRTag0 = "Xing"; - /** - * VBR header magic string (VBR == VBRMode.vbr_off). - */ - var VBRTag1 = "Info"; - - /** - * Lookup table for fast CRC-16 computation. Uses the polynomial - * x^16+x^15+x^2+1 - */ - var crc16Lookup = [0x0000, 0xC0C1, 0xC181, 0x0140, - 0xC301, 0x03C0, 0x0280, 0xC241, 0xC601, 0x06C0, 0x0780, 0xC741, - 0x0500, 0xC5C1, 0xC481, 0x0440, 0xCC01, 0x0CC0, 0x0D80, 0xCD41, - 0x0F00, 0xCFC1, 0xCE81, 0x0E40, 0x0A00, 0xCAC1, 0xCB81, 0x0B40, - 0xC901, 0x09C0, 0x0880, 0xC841, 0xD801, 0x18C0, 0x1980, 0xD941, - 0x1B00, 0xDBC1, 0xDA81, 0x1A40, 0x1E00, 0xDEC1, 0xDF81, 0x1F40, - 0xDD01, 0x1DC0, 0x1C80, 0xDC41, 0x1400, 0xD4C1, 0xD581, 0x1540, - 0xD701, 0x17C0, 0x1680, 0xD641, 0xD201, 0x12C0, 0x1380, 0xD341, - 0x1100, 0xD1C1, 0xD081, 0x1040, 0xF001, 0x30C0, 0x3180, 0xF141, - 0x3300, 0xF3C1, 0xF281, 0x3240, 0x3600, 0xF6C1, 0xF781, 0x3740, - 0xF501, 0x35C0, 0x3480, 0xF441, 0x3C00, 0xFCC1, 0xFD81, 0x3D40, - 0xFF01, 0x3FC0, 0x3E80, 0xFE41, 0xFA01, 0x3AC0, 0x3B80, 0xFB41, - 0x3900, 0xF9C1, 0xF881, 0x3840, 0x2800, 0xE8C1, 0xE981, 0x2940, - 0xEB01, 0x2BC0, 0x2A80, 0xEA41, 0xEE01, 0x2EC0, 0x2F80, 0xEF41, - 0x2D00, 0xEDC1, 0xEC81, 0x2C40, 0xE401, 0x24C0, 0x2580, 0xE541, - 0x2700, 0xE7C1, 0xE681, 0x2640, 0x2200, 0xE2C1, 0xE381, 0x2340, - 0xE101, 0x21C0, 0x2080, 0xE041, 0xA001, 0x60C0, 0x6180, 0xA141, - 0x6300, 0xA3C1, 0xA281, 0x6240, 0x6600, 0xA6C1, 0xA781, 0x6740, - 0xA501, 0x65C0, 0x6480, 0xA441, 0x6C00, 0xACC1, 0xAD81, 0x6D40, - 0xAF01, 0x6FC0, 0x6E80, 0xAE41, 0xAA01, 0x6AC0, 0x6B80, 0xAB41, - 0x6900, 0xA9C1, 0xA881, 0x6840, 0x7800, 0xB8C1, 0xB981, 0x7940, - 0xBB01, 0x7BC0, 0x7A80, 0xBA41, 0xBE01, 0x7EC0, 0x7F80, 0xBF41, - 0x7D00, 0xBDC1, 0xBC81, 0x7C40, 0xB401, 0x74C0, 0x7580, 0xB541, - 0x7700, 0xB7C1, 0xB681, 0x7640, 0x7200, 0xB2C1, 0xB381, 0x7340, - 0xB101, 0x71C0, 0x7080, 0xB041, 0x5000, 0x90C1, 0x9181, 0x5140, - 0x9301, 0x53C0, 0x5280, 0x9241, 0x9601, 0x56C0, 0x5780, 0x9741, - 0x5500, 0x95C1, 0x9481, 0x5440, 0x9C01, 0x5CC0, 0x5D80, 0x9D41, - 0x5F00, 0x9FC1, 0x9E81, 0x5E40, 0x5A00, 0x9AC1, 0x9B81, 0x5B40, - 0x9901, 0x59C0, 0x5880, 0x9841, 0x8801, 0x48C0, 0x4980, 0x8941, - 0x4B00, 0x8BC1, 0x8A81, 0x4A40, 0x4E00, 0x8EC1, 0x8F81, 0x4F40, - 0x8D01, 0x4DC0, 0x4C80, 0x8C41, 0x4400, 0x84C1, 0x8581, 0x4540, - 0x8701, 0x47C0, 0x4680, 0x8641, 0x8201, 0x42C0, 0x4380, 0x8341, - 0x4100, 0x81C1, 0x8081, 0x4040]; - - /*********************************************************************** - * Robert Hegemann 2001-01-17 - ***********************************************************************/ - - function addVbr(v, bitrate) { - v.nVbrNumFrames++; - v.sum += bitrate; - v.seen++; - - if (v.seen < v.want) { - return; - } - - if (v.pos < v.size) { - v.bag[v.pos] = v.sum; - v.pos++; - v.seen = 0; - } - if (v.pos == v.size) { - for (var i = 1; i < v.size; i += 2) { - v.bag[i / 2] = v.bag[i]; - } - v.want *= 2; - v.pos /= 2; - } - } - - function xingSeekTable(v, t) { - if (v.pos <= 0) - return; - - for (var i = 1; i < NUMTOCENTRIES; ++i) { - var j = i / NUMTOCENTRIES, act, sum; - var indx = 0 | (Math.floor(j * v.pos)); - if (indx > v.pos - 1) - indx = v.pos - 1; - act = v.bag[indx]; - sum = v.sum; - var seek_point = 0 | (256. * act / sum); - if (seek_point > 255) - seek_point = 255; - t[i] = 0xff & seek_point; - } - } - - /** - * Add VBR entry, used to fill the VBR TOC entries. - * - * @param gfp - * global flags - */ - this.addVbrFrame = function (gfp) { - var gfc = gfp.internal_flags; - var kbps = Tables.bitrate_table[gfp.version][gfc.bitrate_index]; - addVbr(gfc.VBR_seek_table, kbps); - } - - /** - * Read big endian integer (4-bytes) from header. - * - * @param buf - * header containing the integer - * @param bufPos - * offset into the header - * @return extracted integer - */ - function extractInteger(buf, bufPos) { - var x = buf[bufPos + 0] & 0xff; - x <<= 8; - x |= buf[bufPos + 1] & 0xff; - x <<= 8; - x |= buf[bufPos + 2] & 0xff; - x <<= 8; - x |= buf[bufPos + 3] & 0xff; - return x; - } - - /** - * Write big endian integer (4-bytes) in the header. - * - * @param buf - * header to write the integer into - * @param bufPos - * offset into the header - * @param value - * integer value to write - */ - function createInteger(buf, bufPos, value) { - buf[bufPos + 0] = 0xff & ((value >> 24) & 0xff); - buf[bufPos + 1] = 0xff & ((value >> 16) & 0xff); - buf[bufPos + 2] = 0xff & ((value >> 8) & 0xff); - buf[bufPos + 3] = 0xff & (value & 0xff); - } - - /** - * Write big endian short (2-bytes) in the header. - * - * @param buf - * header to write the integer into - * @param bufPos - * offset into the header - * @param value - * integer value to write - */ - function createShort(buf, bufPos, value) { - buf[bufPos + 0] = 0xff & ((value >> 8) & 0xff); - buf[bufPos + 1] = 0xff & (value & 0xff); - } - - /** - * Check for magic strings (Xing/Info). - * - * @param buf - * header to check - * @param bufPos - * header offset to check - * @return magic string found - */ - function isVbrTag(buf, bufPos) { - return new String(buf, bufPos, VBRTag0.length(), ISO_8859_1) - .equals(VBRTag0) - || new String(buf, bufPos, VBRTag1.length(), ISO_8859_1) - .equals(VBRTag1); - } - - function shiftInBitsValue(x, n, v) { - return 0xff & ((x << n) | (v & ~(-1 << n))); - } - - /** - * Construct the MP3 header using the settings of the global flags. - * - *
- *
- * @param gfp
- * global flags
- * @param buffer
- * header
- */
- function setLameTagFrameHeader(gfp, buffer) {
- var gfc = gfp.internal_flags;
-
- // MP3 Sync Word
- buffer[0] = shiftInBitsValue(buffer[0], 8, 0xff);
-
- buffer[1] = shiftInBitsValue(buffer[1], 3, 7);
- buffer[1] = shiftInBitsValue(buffer[1], 1,
- (gfp.out_samplerate < 16000) ? 0 : 1);
- // Version
- buffer[1] = shiftInBitsValue(buffer[1], 1, gfp.version);
- // 01 == Layer 3
- buffer[1] = shiftInBitsValue(buffer[1], 2, 4 - 3);
- // Error protection
- buffer[1] = shiftInBitsValue(buffer[1], 1, (!gfp.error_protection) ? 1
- : 0);
-
- // Bit rate
- buffer[2] = shiftInBitsValue(buffer[2], 4, gfc.bitrate_index);
- // Frequency
- buffer[2] = shiftInBitsValue(buffer[2], 2, gfc.samplerate_index);
- // Pad. Bit
- buffer[2] = shiftInBitsValue(buffer[2], 1, 0);
- // Priv. Bit
- buffer[2] = shiftInBitsValue(buffer[2], 1, gfp.extension);
-
- // Mode
- buffer[3] = shiftInBitsValue(buffer[3], 2, gfp.mode.ordinal());
- // Mode extension (Used with Joint Stereo)
- buffer[3] = shiftInBitsValue(buffer[3], 2, gfc.mode_ext);
- // Copy
- buffer[3] = shiftInBitsValue(buffer[3], 1, gfp.copyright);
- // Original
- buffer[3] = shiftInBitsValue(buffer[3], 1, gfp.original);
- // Emphasis
- buffer[3] = shiftInBitsValue(buffer[3], 2, gfp.emphasis);
-
- /* the default VBR header. 48 kbps layer III, no padding, no crc */
- /* but sampling freq, mode and copyright/copy protection taken */
- /* from first valid frame */
- buffer[0] = 0xff;
- var abyte = 0xff & (buffer[1] & 0xf1);
- var bitrate;
- if (1 == gfp.version) {
- bitrate = XING_BITRATE1;
- } else {
- if (gfp.out_samplerate < 16000)
- bitrate = XING_BITRATE25;
- else
- bitrate = XING_BITRATE2;
- }
-
- if (gfp.VBR == VbrMode.vbr_off)
- bitrate = gfp.brate;
-
- var bbyte;
- if (gfp.free_format)
- bbyte = 0x00;
- else
- bbyte = 0xff & (16 * lame.BitrateIndex(bitrate, gfp.version,
- gfp.out_samplerate));
-
- /*
- * Use as much of the info from the real frames in the Xing header:
- * samplerate, channels, crc, etc...
- */
- if (gfp.version == 1) {
- /* MPEG1 */
- buffer[1] = 0xff & (abyte | 0x0a);
- /* was 0x0b; */
- abyte = 0xff & (buffer[2] & 0x0d);
- /* AF keep also private bit */
- buffer[2] = 0xff & (bbyte | abyte);
- /* 64kbs MPEG1 frame */
- } else {
- /* MPEG2 */
- buffer[1] = 0xff & (abyte | 0x02);
- /* was 0x03; */
- abyte = 0xff & (buffer[2] & 0x0d);
- /* AF keep also private bit */
- buffer[2] = 0xff & (bbyte | abyte);
- /* 64kbs MPEG2 frame */
- }
- }
-
- /**
- * Get VBR tag information
- *
- * @param buf
- * header to analyze
- * @param bufPos
- * offset into the header
- * @return VBR tag data
- */
- this.getVbrTag = function (buf) {
- var pTagData = new VBRTagData();
- var bufPos = 0;
-
- /* get Vbr header data */
- pTagData.flags = 0;
-
- /* get selected MPEG header data */
- var hId = (buf[bufPos + 1] >> 3) & 1;
- var hSrIndex = (buf[bufPos + 2] >> 2) & 3;
- var hMode = (buf[bufPos + 3] >> 6) & 3;
- var hBitrate = ((buf[bufPos + 2] >> 4) & 0xf);
- hBitrate = Tables.bitrate_table[hId][hBitrate];
-
- /* check for FFE syncword */
- if ((buf[bufPos + 1] >> 4) == 0xE)
- pTagData.samprate = Tables.samplerate_table[2][hSrIndex];
- else
- pTagData.samprate = Tables.samplerate_table[hId][hSrIndex];
-
- /* determine offset of header */
- if (hId != 0) {
- /* mpeg1 */
- if (hMode != 3)
- bufPos += (32 + 4);
- else
- bufPos += (17 + 4);
- } else {
- /* mpeg2 */
- if (hMode != 3)
- bufPos += (17 + 4);
- else
- bufPos += (9 + 4);
- }
-
- if (!isVbrTag(buf, bufPos))
- return null;
-
- bufPos += 4;
-
- pTagData.hId = hId;
-
- /* get flags */
- var head_flags = pTagData.flags = extractInteger(buf, bufPos);
- bufPos += 4;
-
- if ((head_flags & FRAMES_FLAG) != 0) {
- pTagData.frames = extractInteger(buf, bufPos);
- bufPos += 4;
- }
-
- if ((head_flags & BYTES_FLAG) != 0) {
- pTagData.bytes = extractInteger(buf, bufPos);
- bufPos += 4;
- }
-
- if ((head_flags & TOC_FLAG) != 0) {
- if (pTagData.toc != null) {
- for (var i = 0; i < NUMTOCENTRIES; i++)
- pTagData.toc[i] = buf[bufPos + i];
- }
- bufPos += NUMTOCENTRIES;
- }
-
- pTagData.vbrScale = -1;
-
- if ((head_flags & VBR_SCALE_FLAG) != 0) {
- pTagData.vbrScale = extractInteger(buf, bufPos);
- bufPos += 4;
- }
-
- pTagData.headersize = ((hId + 1) * 72000 * hBitrate)
- / pTagData.samprate;
-
- bufPos += 21;
- var encDelay = buf[bufPos + 0] << 4;
- encDelay += buf[bufPos + 1] >> 4;
- var encPadding = (buf[bufPos + 1] & 0x0F) << 8;
- encPadding += buf[bufPos + 2] & 0xff;
- /* check for reasonable values (this may be an old Xing header, */
- /* not a INFO tag) */
- if (encDelay < 0 || encDelay > 3000)
- encDelay = -1;
- if (encPadding < 0 || encPadding > 3000)
- encPadding = -1;
-
- pTagData.encDelay = encDelay;
- pTagData.encPadding = encPadding;
-
- /* success */
- return pTagData;
- }
-
- /**
- * Initializes the header
- *
- * @param gfp
- * global flags
- */
- this.InitVbrTag = function (gfp) {
- var gfc = gfp.internal_flags;
-
- /**
- * - * Xing VBR pretends to be a 48kbs layer III frame. (at 44.1kHz). - * (at 48kHz they use 56kbs since 48kbs frame not big enough for - * table of contents) - * let's always embed Xing header inside a 64kbs layer III frame. - * this gives us enough room for a LAME version string too. - * size determined by sampling frequency (MPEG1) - * 32kHz: 216 bytes@48kbs 288bytes@ 64kbs - * 44.1kHz: 156 bytes 208bytes@64kbs (+1 if padding = 1) - * 48kHz: 144 bytes 192 - * - * MPEG 2 values are the same since the framesize and samplerate - * are each reduced by a factor of 2. - *- */ - var kbps_header; - if (1 == gfp.version) { - kbps_header = XING_BITRATE1; - } else { - if (gfp.out_samplerate < 16000) - kbps_header = XING_BITRATE25; - else - kbps_header = XING_BITRATE2; - } - - if (gfp.VBR == VbrMode.vbr_off) - kbps_header = gfp.brate; - - // make sure LAME Header fits into Frame - var totalFrameSize = ((gfp.version + 1) * 72000 * kbps_header) - / gfp.out_samplerate; - var headerSize = (gfc.sideinfo_len + LAMEHEADERSIZE); - gfc.VBR_seek_table.TotalFrameSize = totalFrameSize; - if (totalFrameSize < headerSize || totalFrameSize > MAXFRAMESIZE) { - /* disable tag, it wont fit */ - gfp.bWriteVbrTag = false; - return; - } - - gfc.VBR_seek_table.nVbrNumFrames = 0; - gfc.VBR_seek_table.nBytesWritten = 0; - gfc.VBR_seek_table.sum = 0; - - gfc.VBR_seek_table.seen = 0; - gfc.VBR_seek_table.want = 1; - gfc.VBR_seek_table.pos = 0; - - if (gfc.VBR_seek_table.bag == null) { - gfc.VBR_seek_table.bag = new int[400]; - gfc.VBR_seek_table.size = 400; - } - - // write dummy VBR tag of all 0's into bitstream - var buffer = new_byte(MAXFRAMESIZE); - - setLameTagFrameHeader(gfp, buffer); - var n = gfc.VBR_seek_table.TotalFrameSize; - for (var i = 0; i < n; ++i) { - bs.add_dummy_byte(gfp, buffer[i] & 0xff, 1); - } - } - - /** - * Fast CRC-16 computation (uses table crc16Lookup). - * - * @param value - * @param crc - * @return - */ - function crcUpdateLookup(value, crc) { - var tmp = crc ^ value; - crc = (crc >> 8) ^ crc16Lookup[tmp & 0xff]; - return crc; - } - - this.updateMusicCRC = function (crc, buffer, bufferPos, size) { - for (var i = 0; i < size; ++i) - crc[0] = crcUpdateLookup(buffer[bufferPos + i], crc[0]); - } - - /** - * Write LAME info: mini version + info on various switches used (Jonathan - * Dee 2001/08/31). - * - * @param gfp - * global flags - * @param musicLength - * music length - * @param streamBuffer - * pointer to output buffer - * @param streamBufferPos - * offset into the output buffer - * @param crc - * computation of CRC-16 of Lame Tag so far (starting at frame - * sync) - * @return number of bytes written to the stream - */ - function putLameVBR(gfp, musicLength, streamBuffer, streamBufferPos, crc) { - var gfc = gfp.internal_flags; - var bytesWritten = 0; - - /* encoder delay */ - var encDelay = gfp.encoder_delay; - /* encoder padding */ - var encPadding = gfp.encoder_padding; - - /* recall: gfp.VBR_q is for example set by the switch -V */ - /* gfp.quality by -q, -h, -f, etc */ - var quality = (100 - 10 * gfp.VBR_q - gfp.quality); - - var version = v.getLameVeryShortVersion(); - var vbr; - var revision = 0x00; - var revMethod; - // numbering different in vbr_mode vs. Lame tag - var vbrTypeTranslator = [1, 5, 3, 2, 4, 0, 3]; - var lowpass = 0 | (((gfp.lowpassfreq / 100.0) + .5) > 255 ? 255 - : (gfp.lowpassfreq / 100.0) + .5); - var peakSignalAmplitude = 0; - var radioReplayGain = 0; - var audiophileReplayGain = 0; - var noiseShaping = gfp.internal_flags.noise_shaping; - var stereoMode = 0; - var nonOptimal = 0; - var sourceFreq = 0; - var misc = 0; - var musicCRC = 0; - - // psy model type: Gpsycho or NsPsytune - var expNPsyTune = (gfp.exp_nspsytune & 1) != 0; - var safeJoint = (gfp.exp_nspsytune & 2) != 0; - var noGapMore = false; - var noGapPrevious = false; - var noGapCount = gfp.internal_flags.nogap_total; - var noGapCurr = gfp.internal_flags.nogap_current; - - // 4 bits - var athType = gfp.ATHtype; - var flags = 0; - - // vbr modes - var abrBitrate; - switch (gfp.VBR) { - case vbr_abr: - abrBitrate = gfp.VBR_mean_bitrate_kbps; - break; - case vbr_off: - abrBitrate = gfp.brate; - break; - default: - abrBitrate = gfp.VBR_min_bitrate_kbps; - } - - // revision and vbr method - if (gfp.VBR.ordinal() < vbrTypeTranslator.length) - vbr = vbrTypeTranslator[gfp.VBR.ordinal()]; - else - vbr = 0x00; // unknown - - revMethod = 0x10 * revision + vbr; - - // ReplayGain - if (gfc.findReplayGain) { - if (gfc.RadioGain > 0x1FE) - gfc.RadioGain = 0x1FE; - if (gfc.RadioGain < -0x1FE) - gfc.RadioGain = -0x1FE; - - // set name code - radioReplayGain = 0x2000; - // set originator code to `determined automatically' - radioReplayGain |= 0xC00; - - if (gfc.RadioGain >= 0) { - // set gain adjustment - radioReplayGain |= gfc.RadioGain; - } else { - // set the sign bit - radioReplayGain |= 0x200; - // set gain adjustment - radioReplayGain |= -gfc.RadioGain; - } - } - - // peak sample - if (gfc.findPeakSample) - peakSignalAmplitude = Math - .abs(0 | ((( gfc.PeakSample) / 32767.0) * Math.pow(2, 23) + .5)); - - // nogap - if (noGapCount != -1) { - if (noGapCurr > 0) - noGapPrevious = true; - - if (noGapCurr < noGapCount - 1) - noGapMore = true; - } - - // flags - flags = athType + ((expNPsyTune ? 1 : 0) << 4) - + ((safeJoint ? 1 : 0) << 5) + ((noGapMore ? 1 : 0) << 6) - + ((noGapPrevious ? 1 : 0) << 7); - - if (quality < 0) - quality = 0; - - // stereo mode field (Intensity stereo is not implemented) - switch (gfp.mode) { - case MONO: - stereoMode = 0; - break; - case STEREO: - stereoMode = 1; - break; - case DUAL_CHANNEL: - stereoMode = 2; - break; - case JOINT_STEREO: - if (gfp.force_ms) - stereoMode = 4; - else - stereoMode = 3; - break; - case NOT_SET: - //$FALL-THROUGH$ - default: - stereoMode = 7; - break; - } - - if (gfp.in_samplerate <= 32000) - sourceFreq = 0x00; - else if (gfp.in_samplerate == 48000) - sourceFreq = 0x02; - else if (gfp.in_samplerate > 48000) - sourceFreq = 0x03; - else { - // default is 44100Hz - sourceFreq = 0x01; - } - - // Check if the user overrided the default LAME behavior with some - // nasty options - if (gfp.short_blocks == ShortBlock.short_block_forced - || gfp.short_blocks == ShortBlock.short_block_dispensed - || ((gfp.lowpassfreq == -1) && (gfp.highpassfreq == -1)) || /* "-k" */ - (gfp.scale_left < gfp.scale_right) - || (gfp.scale_left > gfp.scale_right) - || (gfp.disable_reservoir && gfp.brate < 320) || gfp.noATH - || gfp.ATHonly || (athType == 0) || gfp.in_samplerate <= 32000) - nonOptimal = 1; - - misc = noiseShaping + (stereoMode << 2) + (nonOptimal << 5) - + (sourceFreq << 6); - - musicCRC = gfc.nMusicCRC; - - // Write all this information into the stream - - createInteger(streamBuffer, streamBufferPos + bytesWritten, quality); - bytesWritten += 4; - - for (var j = 0; j < 9; j++) { - streamBuffer[streamBufferPos + bytesWritten + j] = 0xff & version .charAt(j); - } - bytesWritten += 9; - - streamBuffer[streamBufferPos + bytesWritten] = 0xff & revMethod; - bytesWritten++; - - streamBuffer[streamBufferPos + bytesWritten] = 0xff & lowpass; - bytesWritten++; - - createInteger(streamBuffer, streamBufferPos + bytesWritten, - peakSignalAmplitude); - bytesWritten += 4; - - createShort(streamBuffer, streamBufferPos + bytesWritten, - radioReplayGain); - bytesWritten += 2; - - createShort(streamBuffer, streamBufferPos + bytesWritten, - audiophileReplayGain); - bytesWritten += 2; - - streamBuffer[streamBufferPos + bytesWritten] = 0xff & flags; - bytesWritten++; - - if (abrBitrate >= 255) - streamBuffer[streamBufferPos + bytesWritten] = 0xFF; - else - streamBuffer[streamBufferPos + bytesWritten] = 0xff & abrBitrate; - bytesWritten++; - - streamBuffer[streamBufferPos + bytesWritten] = 0xff & (encDelay >> 4); - streamBuffer[streamBufferPos + bytesWritten + 1] = 0xff & ((encDelay << 4) + (encPadding >> 8)); - streamBuffer[streamBufferPos + bytesWritten + 2] = 0xff & encPadding; - - bytesWritten += 3; - - streamBuffer[streamBufferPos + bytesWritten] = 0xff & misc; - bytesWritten++; - - // unused in rev0 - streamBuffer[streamBufferPos + bytesWritten++] = 0; - - createShort(streamBuffer, streamBufferPos + bytesWritten, gfp.preset); - bytesWritten += 2; - - createInteger(streamBuffer, streamBufferPos + bytesWritten, musicLength); - bytesWritten += 4; - - createShort(streamBuffer, streamBufferPos + bytesWritten, musicCRC); - bytesWritten += 2; - - // Calculate tag CRC.... must be done here, since it includes previous - // information - - for (var i = 0; i < bytesWritten; i++) - crc = crcUpdateLookup(streamBuffer[streamBufferPos + i], crc); - - createShort(streamBuffer, streamBufferPos + bytesWritten, crc); - bytesWritten += 2; - - return bytesWritten; - } - - function skipId3v2(fpStream) { - // seek to the beginning of the stream - fpStream.seek(0); - // read 10 bytes in case there's an ID3 version 2 header here - var id3v2Header = new_byte(10); - fpStream.readFully(id3v2Header); - /* does the stream begin with the ID3 version 2 file identifier? */ - var id3v2TagSize; - if (!new String(id3v2Header, "ISO-8859-1").startsWith("ID3")) { - /* - * the tag size (minus the 10-byte header) is encoded into four - * bytes where the most significant bit is clear in each byte - */ - id3v2TagSize = (((id3v2Header[6] & 0x7f) << 21) - | ((id3v2Header[7] & 0x7f) << 14) - | ((id3v2Header[8] & 0x7f) << 7) | (id3v2Header[9] & 0x7f)) - + id3v2Header.length; - } else { - /* no ID3 version 2 tag in this stream */ - id3v2TagSize = 0; - } - return id3v2TagSize; - } - - this.getLameTagFrame = function (gfp, buffer) { - var gfc = gfp.internal_flags; - - if (!gfp.bWriteVbrTag) { - return 0; - } - if (gfc.Class_ID != Lame.LAME_ID) { - return 0; - } - if (gfc.VBR_seek_table.pos <= 0) { - return 0; - } - if (buffer.length < gfc.VBR_seek_table.TotalFrameSize) { - return gfc.VBR_seek_table.TotalFrameSize; - } - - Arrays.fill(buffer, 0, gfc.VBR_seek_table.TotalFrameSize, 0); - - // 4 bytes frame header - setLameTagFrameHeader(gfp, buffer); - - // Create TOC entries - var toc = new_byte(NUMTOCENTRIES); - - if (gfp.free_format) { - for (var i = 1; i < NUMTOCENTRIES; ++i) - toc[i] = 0xff & (255 * i / 100); - } else { - xingSeekTable(gfc.VBR_seek_table, toc); - } - - // Start writing the tag after the zero frame - var streamIndex = gfc.sideinfo_len; - /** - * Note: Xing header specifies that Xing data goes in the ancillary data - * with NO ERROR PROTECTION. If error protecton in enabled, the Xing - * data still starts at the same offset, and now it is in sideinfo data - * block, and thus will not decode correctly by non-Xing tag aware - * players - */ - if (gfp.error_protection) - streamIndex -= 2; - - // Put Vbr tag - if (gfp.VBR == VbrMode.vbr_off) { - buffer[streamIndex++] = 0xff & VBRTag1.charAt(0); - buffer[streamIndex++] = 0xff & VBRTag1.charAt(1); - buffer[streamIndex++] = 0xff & VBRTag1.charAt(2); - buffer[streamIndex++] = 0xff & VBRTag1.charAt(3); - - } else { - buffer[streamIndex++] = 0xff & VBRTag0.charAt(0); - buffer[streamIndex++] = 0xff & VBRTag0.charAt(1); - buffer[streamIndex++] = 0xff & VBRTag0.charAt(2); - buffer[streamIndex++] = 0xff & VBRTag0.charAt(3); - } - - // Put header flags - createInteger(buffer, streamIndex, FRAMES_FLAG + BYTES_FLAG + TOC_FLAG - + VBR_SCALE_FLAG); - streamIndex += 4; - - // Put Total Number of frames - createInteger(buffer, streamIndex, gfc.VBR_seek_table.nVbrNumFrames); - streamIndex += 4; - - // Put total audio stream size, including Xing/LAME Header - var streamSize = (gfc.VBR_seek_table.nBytesWritten + gfc.VBR_seek_table.TotalFrameSize); - createInteger(buffer, streamIndex, 0 | streamSize); - streamIndex += 4; - - /* Put TOC */ - System.arraycopy(toc, 0, buffer, streamIndex, toc.length); - streamIndex += toc.length; - - if (gfp.error_protection) { - // (jo) error_protection: add crc16 information to header - bs.CRC_writeheader(gfc, buffer); - } - - // work out CRC so far: initially crc = 0 - var crc = 0x00; - for (var i = 0; i < streamIndex; i++) - crc = crcUpdateLookup(buffer[i], crc); - // Put LAME VBR info - streamIndex += putLameVBR(gfp, streamSize, buffer, streamIndex, crc); - - return gfc.VBR_seek_table.TotalFrameSize; - } - - /** - * Write final VBR tag to the file. - * - * @param gfp - * global flags - * @param stream - * stream to add the VBR tag to - * @return 0 (OK), -1 else - * @throws IOException - * I/O error - */ - this.putVbrTag = function (gfp, stream) { - var gfc = gfp.internal_flags; - - if (gfc.VBR_seek_table.pos <= 0) - return -1; - - // Seek to end of file - stream.seek(stream.length()); - - // Get file size, abort if file has zero length. - if (stream.length() == 0) - return -1; - - // The VBR tag may NOT be located at the beginning of the stream. If an - // ID3 version 2 tag was added, then it must be skipped to write the VBR - // tag data. - var id3v2TagSize = skipId3v2(stream); - - // Seek to the beginning of the stream - stream.seek(id3v2TagSize); - - var buffer = new_byte(MAXFRAMESIZE); - var bytes = getLameTagFrame(gfp, buffer); - if (bytes > buffer.length) { - return -1; - } - - if (bytes < 1) { - return 0; - } - - // Put it all to disk again - stream.write(buffer, 0, bytes); - // success - return 0; - } - -} - -function HuffCodeTab(len, max, tab, hl) { - this.xlen = len; - this.linmax = max; - this.table = tab; - this.hlen = hl; -} - -var Tables = {}; - - -Tables.t1HB = [ - 1, 1, - 1, 0 -]; - -Tables.t2HB = [ - 1, 2, 1, - 3, 1, 1, - 3, 2, 0 -]; - -Tables.t3HB = [ - 3, 2, 1, - 1, 1, 1, - 3, 2, 0 -]; - -Tables.t5HB = [ - 1, 2, 6, 5, - 3, 1, 4, 4, - 7, 5, 7, 1, - 6, 1, 1, 0 -]; - -Tables.t6HB = [ - 7, 3, 5, 1, - 6, 2, 3, 2, - 5, 4, 4, 1, - 3, 3, 2, 0 -]; - -Tables.t7HB = [ - 1, 2, 10, 19, 16, 10, - 3, 3, 7, 10, 5, 3, - 11, 4, 13, 17, 8, 4, - 12, 11, 18, 15, 11, 2, - 7, 6, 9, 14, 3, 1, - 6, 4, 5, 3, 2, 0 -]; - -Tables.t8HB = [ - 3, 4, 6, 18, 12, 5, - 5, 1, 2, 16, 9, 3, - 7, 3, 5, 14, 7, 3, - 19, 17, 15, 13, 10, 4, - 13, 5, 8, 11, 5, 1, - 12, 4, 4, 1, 1, 0 -]; - -Tables.t9HB = [ - 7, 5, 9, 14, 15, 7, - 6, 4, 5, 5, 6, 7, - 7, 6, 8, 8, 8, 5, - 15, 6, 9, 10, 5, 1, - 11, 7, 9, 6, 4, 1, - 14, 4, 6, 2, 6, 0 -]; - -Tables.t10HB = [ - 1, 2, 10, 23, 35, 30, 12, 17, - 3, 3, 8, 12, 18, 21, 12, 7, - 11, 9, 15, 21, 32, 40, 19, 6, - 14, 13, 22, 34, 46, 23, 18, 7, - 20, 19, 33, 47, 27, 22, 9, 3, - 31, 22, 41, 26, 21, 20, 5, 3, - 14, 13, 10, 11, 16, 6, 5, 1, - 9, 8, 7, 8, 4, 4, 2, 0 -]; - -Tables.t11HB = [ - 3, 4, 10, 24, 34, 33, 21, 15, - 5, 3, 4, 10, 32, 17, 11, 10, - 11, 7, 13, 18, 30, 31, 20, 5, - 25, 11, 19, 59, 27, 18, 12, 5, - 35, 33, 31, 58, 30, 16, 7, 5, - 28, 26, 32, 19, 17, 15, 8, 14, - 14, 12, 9, 13, 14, 9, 4, 1, - 11, 4, 6, 6, 6, 3, 2, 0 -]; - -Tables.t12HB = [ - 9, 6, 16, 33, 41, 39, 38, 26, - 7, 5, 6, 9, 23, 16, 26, 11, - 17, 7, 11, 14, 21, 30, 10, 7, - 17, 10, 15, 12, 18, 28, 14, 5, - 32, 13, 22, 19, 18, 16, 9, 5, - 40, 17, 31, 29, 17, 13, 4, 2, - 27, 12, 11, 15, 10, 7, 4, 1, - 27, 12, 8, 12, 6, 3, 1, 0 -]; - -Tables.t13HB = [ - 1, 5, 14, 21, 34, 51, 46, 71, 42, 52, 68, 52, 67, 44, 43, 19, - 3, 4, 12, 19, 31, 26, 44, 33, 31, 24, 32, 24, 31, 35, 22, 14, - 15, 13, 23, 36, 59, 49, 77, 65, 29, 40, 30, 40, 27, 33, 42, 16, - 22, 20, 37, 61, 56, 79, 73, 64, 43, 76, 56, 37, 26, 31, 25, 14, - 35, 16, 60, 57, 97, 75, 114, 91, 54, 73, 55, 41, 48, 53, 23, 24, - 58, 27, 50, 96, 76, 70, 93, 84, 77, 58, 79, 29, 74, 49, 41, 17, - 47, 45, 78, 74, 115, 94, 90, 79, 69, 83, 71, 50, 59, 38, 36, 15, - 72, 34, 56, 95, 92, 85, 91, 90, 86, 73, 77, 65, 51, 44, 43, 42, - 43, 20, 30, 44, 55, 78, 72, 87, 78, 61, 46, 54, 37, 30, 20, 16, - 53, 25, 41, 37, 44, 59, 54, 81, 66, 76, 57, 54, 37, 18, 39, 11, - 35, 33, 31, 57, 42, 82, 72, 80, 47, 58, 55, 21, 22, 26, 38, 22, - 53, 25, 23, 38, 70, 60, 51, 36, 55, 26, 34, 23, 27, 14, 9, 7, - 34, 32, 28, 39, 49, 75, 30, 52, 48, 40, 52, 28, 18, 17, 9, 5, - 45, 21, 34, 64, 56, 50, 49, 45, 31, 19, 12, 15, 10, 7, 6, 3, - 48, 23, 20, 39, 36, 35, 53, 21, 16, 23, 13, 10, 6, 1, 4, 2, - 16, 15, 17, 27, 25, 20, 29, 11, 17, 12, 16, 8, 1, 1, 0, 1 -]; - -Tables.t15HB = [ - 7, 12, 18, 53, 47, 76, 124, 108, 89, 123, 108, 119, 107, 81, 122, 63, - 13, 5, 16, 27, 46, 36, 61, 51, 42, 70, 52, 83, 65, 41, 59, 36, - 19, 17, 15, 24, 41, 34, 59, 48, 40, 64, 50, 78, 62, 80, 56, 33, - 29, 28, 25, 43, 39, 63, 55, 93, 76, 59, 93, 72, 54, 75, 50, 29, - 52, 22, 42, 40, 67, 57, 95, 79, 72, 57, 89, 69, 49, 66, 46, 27, - 77, 37, 35, 66, 58, 52, 91, 74, 62, 48, 79, 63, 90, 62, 40, 38, - 125, 32, 60, 56, 50, 92, 78, 65, 55, 87, 71, 51, 73, 51, 70, 30, - 109, 53, 49, 94, 88, 75, 66, 122, 91, 73, 56, 42, 64, 44, 21, 25, - 90, 43, 41, 77, 73, 63, 56, 92, 77, 66, 47, 67, 48, 53, 36, 20, - 71, 34, 67, 60, 58, 49, 88, 76, 67, 106, 71, 54, 38, 39, 23, 15, - 109, 53, 51, 47, 90, 82, 58, 57, 48, 72, 57, 41, 23, 27, 62, 9, - 86, 42, 40, 37, 70, 64, 52, 43, 70, 55, 42, 25, 29, 18, 11, 11, - 118, 68, 30, 55, 50, 46, 74, 65, 49, 39, 24, 16, 22, 13, 14, 7, - 91, 44, 39, 38, 34, 63, 52, 45, 31, 52, 28, 19, 14, 8, 9, 3, - 123, 60, 58, 53, 47, 43, 32, 22, 37, 24, 17, 12, 15, 10, 2, 1, - 71, 37, 34, 30, 28, 20, 17, 26, 21, 16, 10, 6, 8, 6, 2, 0 -]; - -Tables.t16HB = [ - 1, 5, 14, 44, 74, 63, 110, 93, 172, 149, 138, 242, 225, 195, 376, 17, - 3, 4, 12, 20, 35, 62, 53, 47, 83, 75, 68, 119, 201, 107, 207, 9, - 15, 13, 23, 38, 67, 58, 103, 90, 161, 72, 127, 117, 110, 209, 206, 16, - 45, 21, 39, 69, 64, 114, 99, 87, 158, 140, 252, 212, 199, 387, 365, 26, - 75, 36, 68, 65, 115, 101, 179, 164, 155, 264, 246, 226, 395, 382, 362, 9, - 66, 30, 59, 56, 102, 185, 173, 265, 142, 253, 232, 400, 388, 378, 445, 16, - 111, 54, 52, 100, 184, 178, 160, 133, 257, 244, 228, 217, 385, 366, 715, 10, - 98, 48, 91, 88, 165, 157, 148, 261, 248, 407, 397, 372, 380, 889, 884, 8, - 85, 84, 81, 159, 156, 143, 260, 249, 427, 401, 392, 383, 727, 713, 708, 7, - 154, 76, 73, 141, 131, 256, 245, 426, 406, 394, 384, 735, 359, 710, 352, 11, - 139, 129, 67, 125, 247, 233, 229, 219, 393, 743, 737, 720, 885, 882, 439, 4, - 243, 120, 118, 115, 227, 223, 396, 746, 742, 736, 721, 712, 706, 223, 436, 6, - 202, 224, 222, 218, 216, 389, 386, 381, 364, 888, 443, 707, 440, 437, 1728, 4, - 747, 211, 210, 208, 370, 379, 734, 723, 714, 1735, 883, 877, 876, 3459, 865, 2, - 377, 369, 102, 187, 726, 722, 358, 711, 709, 866, 1734, 871, 3458, 870, 434, 0, - 12, 10, 7, 11, 10, 17, 11, 9, 13, 12, 10, 7, 5, 3, 1, 3 -]; - -Tables.t24HB = [ - 15, 13, 46, 80, 146, 262, 248, 434, 426, 669, 653, 649, 621, 517, 1032, 88, - 14, 12, 21, 38, 71, 130, 122, 216, 209, 198, 327, 345, 319, 297, 279, 42, - 47, 22, 41, 74, 68, 128, 120, 221, 207, 194, 182, 340, 315, 295, 541, 18, - 81, 39, 75, 70, 134, 125, 116, 220, 204, 190, 178, 325, 311, 293, 271, 16, - 147, 72, 69, 135, 127, 118, 112, 210, 200, 188, 352, 323, 306, 285, 540, 14, - 263, 66, 129, 126, 119, 114, 214, 202, 192, 180, 341, 317, 301, 281, 262, 12, - 249, 123, 121, 117, 113, 215, 206, 195, 185, 347, 330, 308, 291, 272, 520, 10, - 435, 115, 111, 109, 211, 203, 196, 187, 353, 332, 313, 298, 283, 531, 381, 17, - 427, 212, 208, 205, 201, 193, 186, 177, 169, 320, 303, 286, 268, 514, 377, 16, - 335, 199, 197, 191, 189, 181, 174, 333, 321, 305, 289, 275, 521, 379, 371, 11, - 668, 184, 183, 179, 175, 344, 331, 314, 304, 290, 277, 530, 383, 373, 366, 10, - 652, 346, 171, 168, 164, 318, 309, 299, 287, 276, 263, 513, 375, 368, 362, 6, - 648, 322, 316, 312, 307, 302, 292, 284, 269, 261, 512, 376, 370, 364, 359, 4, - 620, 300, 296, 294, 288, 282, 273, 266, 515, 380, 374, 369, 365, 361, 357, 2, - 1033, 280, 278, 274, 267, 264, 259, 382, 378, 372, 367, 363, 360, 358, 356, 0, - 43, 20, 19, 17, 15, 13, 11, 9, 7, 6, 4, 7, 5, 3, 1, 3 -]; - -Tables.t32HB = [ - 1 << 0, 5 << 1, 4 << 1, 5 << 2, 6 << 1, 5 << 2, 4 << 2, 4 << 3, - 7 << 1, 3 << 2, 6 << 2, 0 << 3, 7 << 2, 2 << 3, 3 << 3, 1 << 4 -]; - -Tables.t33HB = [ - 15 << 0, 14 << 1, 13 << 1, 12 << 2, 11 << 1, 10 << 2, 9 << 2, 8 << 3, - 7 << 1, 6 << 2, 5 << 2, 4 << 3, 3 << 2, 2 << 3, 1 << 3, 0 << 4 -]; - -Tables.t1l = [ - 1, 4, - 3, 5 -]; - -Tables.t2l = [ - 1, 4, 7, - 4, 5, 7, - 6, 7, 8 -]; - -Tables.t3l = [ - 2, 3, 7, - 4, 4, 7, - 6, 7, 8 -]; - -Tables.t5l = [ - 1, 4, 7, 8, - 4, 5, 8, 9, - 7, 8, 9, 10, - 8, 8, 9, 10 -]; - -Tables.t6l = [ - 3, 4, 6, 8, - 4, 4, 6, 7, - 5, 6, 7, 8, - 7, 7, 8, 9 -]; - -Tables.t7l = [ - 1, 4, 7, 9, 9, 10, - 4, 6, 8, 9, 9, 10, - 7, 7, 9, 10, 10, 11, - 8, 9, 10, 11, 11, 11, - 8, 9, 10, 11, 11, 12, - 9, 10, 11, 12, 12, 12 -]; - -Tables.t8l = [ - 2, 4, 7, 9, 9, 10, - 4, 4, 6, 10, 10, 10, - 7, 6, 8, 10, 10, 11, - 9, 10, 10, 11, 11, 12, - 9, 9, 10, 11, 12, 12, - 10, 10, 11, 11, 13, 13 -]; - -Tables.t9l = [ - 3, 4, 6, 7, 9, 10, - 4, 5, 6, 7, 8, 10, - 5, 6, 7, 8, 9, 10, - 7, 7, 8, 9, 9, 10, - 8, 8, 9, 9, 10, 11, - 9, 9, 10, 10, 11, 11 -]; - -Tables.t10l = [ - 1, 4, 7, 9, 10, 10, 10, 11, - 4, 6, 8, 9, 10, 11, 10, 10, - 7, 8, 9, 10, 11, 12, 11, 11, - 8, 9, 10, 11, 12, 12, 11, 12, - 9, 10, 11, 12, 12, 12, 12, 12, - 10, 11, 12, 12, 13, 13, 12, 13, - 9, 10, 11, 12, 12, 12, 13, 13, - 10, 10, 11, 12, 12, 13, 13, 13 -]; - -Tables.t11l = [ - 2, 4, 6, 8, 9, 10, 9, 10, - 4, 5, 6, 8, 10, 10, 9, 10, - 6, 7, 8, 9, 10, 11, 10, 10, - 8, 8, 9, 11, 10, 12, 10, 11, - 9, 10, 10, 11, 11, 12, 11, 12, - 9, 10, 11, 12, 12, 13, 12, 13, - 9, 9, 9, 10, 11, 12, 12, 12, - 9, 9, 10, 11, 12, 12, 12, 12 -]; - -Tables.t12l = [ - 4, 4, 6, 8, 9, 10, 10, 10, - 4, 5, 6, 7, 9, 9, 10, 10, - 6, 6, 7, 8, 9, 10, 9, 10, - 7, 7, 8, 8, 9, 10, 10, 10, - 8, 8, 9, 9, 10, 10, 10, 11, - 9, 9, 10, 10, 10, 11, 10, 11, - 9, 9, 9, 10, 10, 11, 11, 12, - 10, 10, 10, 11, 11, 11, 11, 12 -]; - -Tables.t13l = [ - 1, 5, 7, 8, 9, 10, 10, 11, 10, 11, 12, 12, 13, 13, 14, 14, - 4, 6, 8, 9, 10, 10, 11, 11, 11, 11, 12, 12, 13, 14, 14, 14, - 7, 8, 9, 10, 11, 11, 12, 12, 11, 12, 12, 13, 13, 14, 15, 15, - 8, 9, 10, 11, 11, 12, 12, 12, 12, 13, 13, 13, 13, 14, 15, 15, - 9, 9, 11, 11, 12, 12, 13, 13, 12, 13, 13, 14, 14, 15, 15, 16, - 10, 10, 11, 12, 12, 12, 13, 13, 13, 13, 14, 13, 15, 15, 16, 16, - 10, 11, 12, 12, 13, 13, 13, 13, 13, 14, 14, 14, 15, 15, 16, 16, - 11, 11, 12, 13, 13, 13, 14, 14, 14, 14, 15, 15, 15, 16, 18, 18, - 10, 10, 11, 12, 12, 13, 13, 14, 14, 14, 14, 15, 15, 16, 17, 17, - 11, 11, 12, 12, 13, 13, 13, 15, 14, 15, 15, 16, 16, 16, 18, 17, - 11, 12, 12, 13, 13, 14, 14, 15, 14, 15, 16, 15, 16, 17, 18, 19, - 12, 12, 12, 13, 14, 14, 14, 14, 15, 15, 15, 16, 17, 17, 17, 18, - 12, 13, 13, 14, 14, 15, 14, 15, 16, 16, 17, 17, 17, 18, 18, 18, - 13, 13, 14, 15, 15, 15, 16, 16, 16, 16, 16, 17, 18, 17, 18, 18, - 14, 14, 14, 15, 15, 15, 17, 16, 16, 19, 17, 17, 17, 19, 18, 18, - 13, 14, 15, 16, 16, 16, 17, 16, 17, 17, 18, 18, 21, 20, 21, 18 -]; - -Tables.t15l = [ - 3, 5, 6, 8, 8, 9, 10, 10, 10, 11, 11, 12, 12, 12, 13, 14, - 5, 5, 7, 8, 9, 9, 10, 10, 10, 11, 11, 12, 12, 12, 13, 13, - 6, 7, 7, 8, 9, 9, 10, 10, 10, 11, 11, 12, 12, 13, 13, 13, - 7, 8, 8, 9, 9, 10, 10, 11, 11, 11, 12, 12, 12, 13, 13, 13, - 8, 8, 9, 9, 10, 10, 11, 11, 11, 11, 12, 12, 12, 13, 13, 13, - 9, 9, 9, 10, 10, 10, 11, 11, 11, 11, 12, 12, 13, 13, 13, 14, - 10, 9, 10, 10, 10, 11, 11, 11, 11, 12, 12, 12, 13, 13, 14, 14, - 10, 10, 10, 11, 11, 11, 11, 12, 12, 12, 12, 12, 13, 13, 13, 14, - 10, 10, 10, 11, 11, 11, 11, 12, 12, 12, 12, 13, 13, 14, 14, 14, - 10, 10, 11, 11, 11, 11, 12, 12, 12, 13, 13, 13, 13, 14, 14, 14, - 11, 11, 11, 11, 12, 12, 12, 12, 12, 13, 13, 13, 13, 14, 15, 14, - 11, 11, 11, 11, 12, 12, 12, 12, 13, 13, 13, 13, 14, 14, 14, 15, - 12, 12, 11, 12, 12, 12, 13, 13, 13, 13, 13, 13, 14, 14, 15, 15, - 12, 12, 12, 12, 12, 13, 13, 13, 13, 14, 14, 14, 14, 14, 15, 15, - 13, 13, 13, 13, 13, 13, 13, 13, 14, 14, 14, 14, 15, 15, 14, 15, - 13, 13, 13, 13, 13, 13, 13, 14, 14, 14, 14, 14, 15, 15, 15, 15 -]; - -Tables.t16_5l = [ - 1, 5, 7, 9, 10, 10, 11, 11, 12, 12, 12, 13, 13, 13, 14, 11, - 4, 6, 8, 9, 10, 11, 11, 11, 12, 12, 12, 13, 14, 13, 14, 11, - 7, 8, 9, 10, 11, 11, 12, 12, 13, 12, 13, 13, 13, 14, 14, 12, - 9, 9, 10, 11, 11, 12, 12, 12, 13, 13, 14, 14, 14, 15, 15, 13, - 10, 10, 11, 11, 12, 12, 13, 13, 13, 14, 14, 14, 15, 15, 15, 12, - 10, 10, 11, 11, 12, 13, 13, 14, 13, 14, 14, 15, 15, 15, 16, 13, - 11, 11, 11, 12, 13, 13, 13, 13, 14, 14, 14, 14, 15, 15, 16, 13, - 11, 11, 12, 12, 13, 13, 13, 14, 14, 15, 15, 15, 15, 17, 17, 13, - 11, 12, 12, 13, 13, 13, 14, 14, 15, 15, 15, 15, 16, 16, 16, 13, - 12, 12, 12, 13, 13, 14, 14, 15, 15, 15, 15, 16, 15, 16, 15, 14, - 12, 13, 12, 13, 14, 14, 14, 14, 15, 16, 16, 16, 17, 17, 16, 13, - 13, 13, 13, 13, 14, 14, 15, 16, 16, 16, 16, 16, 16, 15, 16, 14, - 13, 14, 14, 14, 14, 15, 15, 15, 15, 17, 16, 16, 16, 16, 18, 14, - 15, 14, 14, 14, 15, 15, 16, 16, 16, 18, 17, 17, 17, 19, 17, 14, - 14, 15, 13, 14, 16, 16, 15, 16, 16, 17, 18, 17, 19, 17, 16, 14, - 11, 11, 11, 12, 12, 13, 13, 13, 14, 14, 14, 14, 14, 14, 14, 12 -]; - -Tables.t16l = [ - 1, 5, 7, 9, 10, 10, 11, 11, 12, 12, 12, 13, 13, 13, 14, 10, - 4, 6, 8, 9, 10, 11, 11, 11, 12, 12, 12, 13, 14, 13, 14, 10, - 7, 8, 9, 10, 11, 11, 12, 12, 13, 12, 13, 13, 13, 14, 14, 11, - 9, 9, 10, 11, 11, 12, 12, 12, 13, 13, 14, 14, 14, 15, 15, 12, - 10, 10, 11, 11, 12, 12, 13, 13, 13, 14, 14, 14, 15, 15, 15, 11, - 10, 10, 11, 11, 12, 13, 13, 14, 13, 14, 14, 15, 15, 15, 16, 12, - 11, 11, 11, 12, 13, 13, 13, 13, 14, 14, 14, 14, 15, 15, 16, 12, - 11, 11, 12, 12, 13, 13, 13, 14, 14, 15, 15, 15, 15, 17, 17, 12, - 11, 12, 12, 13, 13, 13, 14, 14, 15, 15, 15, 15, 16, 16, 16, 12, - 12, 12, 12, 13, 13, 14, 14, 15, 15, 15, 15, 16, 15, 16, 15, 13, - 12, 13, 12, 13, 14, 14, 14, 14, 15, 16, 16, 16, 17, 17, 16, 12, - 13, 13, 13, 13, 14, 14, 15, 16, 16, 16, 16, 16, 16, 15, 16, 13, - 13, 14, 14, 14, 14, 15, 15, 15, 15, 17, 16, 16, 16, 16, 18, 13, - 15, 14, 14, 14, 15, 15, 16, 16, 16, 18, 17, 17, 17, 19, 17, 13, - 14, 15, 13, 14, 16, 16, 15, 16, 16, 17, 18, 17, 19, 17, 16, 13, - 10, 10, 10, 11, 11, 12, 12, 12, 13, 13, 13, 13, 13, 13, 13, 10 -]; - -Tables.t24l = [ - 4, 5, 7, 8, 9, 10, 10, 11, 11, 12, 12, 12, 12, 12, 13, 10, - 5, 6, 7, 8, 9, 10, 10, 11, 11, 11, 12, 12, 12, 12, 12, 10, - 7, 7, 8, 9, 9, 10, 10, 11, 11, 11, 11, 12, 12, 12, 13, 9, - 8, 8, 9, 9, 10, 10, 10, 11, 11, 11, 11, 12, 12, 12, 12, 9, - 9, 9, 9, 10, 10, 10, 10, 11, 11, 11, 12, 12, 12, 12, 13, 9, - 10, 9, 10, 10, 10, 10, 11, 11, 11, 11, 12, 12, 12, 12, 12, 9, - 10, 10, 10, 10, 10, 11, 11, 11, 11, 12, 12, 12, 12, 12, 13, 9, - 11, 10, 10, 10, 11, 11, 11, 11, 12, 12, 12, 12, 12, 13, 13, 10, - 11, 11, 11, 11, 11, 11, 11, 11, 11, 12, 12, 12, 12, 13, 13, 10, - 11, 11, 11, 11, 11, 11, 11, 12, 12, 12, 12, 12, 13, 13, 13, 10, - 12, 11, 11, 11, 11, 12, 12, 12, 12, 12, 12, 13, 13, 13, 13, 10, - 12, 12, 11, 11, 11, 12, 12, 12, 12, 12, 12, 13, 13, 13, 13, 10, - 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 13, 13, 13, 13, 13, 10, - 12, 12, 12, 12, 12, 12, 12, 12, 13, 13, 13, 13, 13, 13, 13, 10, - 13, 12, 12, 12, 12, 12, 12, 13, 13, 13, 13, 13, 13, 13, 13, 10, - 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 10, 10, 10, 10, 6 -]; - -Tables.t32l = [ - 1 + 0, 4 + 1, 4 + 1, 5 + 2, 4 + 1, 6 + 2, 5 + 2, 6 + 3, - 4 + 1, 5 + 2, 5 + 2, 6 + 3, 5 + 2, 6 + 3, 6 + 3, 6 + 4 -]; - -Tables.t33l = [ - 4 + 0, 4 + 1, 4 + 1, 4 + 2, 4 + 1, 4 + 2, 4 + 2, 4 + 3, - 4 + 1, 4 + 2, 4 + 2, 4 + 3, 4 + 2, 4 + 3, 4 + 3, 4 + 4 -]; - -Tables.ht = [ - /* xlen, linmax, table, hlen */ - new HuffCodeTab(0, 0, null, null), - new HuffCodeTab(2, 0, Tables.t1HB, Tables.t1l), - new HuffCodeTab(3, 0, Tables.t2HB, Tables.t2l), - new HuffCodeTab(3, 0, Tables.t3HB, Tables.t3l), - new HuffCodeTab(0, 0, null, null), /* Apparently not used */ - new HuffCodeTab(4, 0, Tables.t5HB, Tables.t5l), - new HuffCodeTab(4, 0, Tables.t6HB, Tables.t6l), - new HuffCodeTab(6, 0, Tables.t7HB, Tables.t7l), - new HuffCodeTab(6, 0, Tables.t8HB, Tables.t8l), - new HuffCodeTab(6, 0, Tables.t9HB, Tables.t9l), - new HuffCodeTab(8, 0, Tables.t10HB, Tables.t10l), - new HuffCodeTab(8, 0, Tables.t11HB, Tables.t11l), - new HuffCodeTab(8, 0, Tables.t12HB, Tables.t12l), - new HuffCodeTab(16, 0, Tables.t13HB, Tables.t13l), - new HuffCodeTab(0, 0, null, Tables.t16_5l), /* Apparently not used */ - new HuffCodeTab(16, 0, Tables.t15HB, Tables.t15l), - - new HuffCodeTab(1, 1, Tables.t16HB, Tables.t16l), - new HuffCodeTab(2, 3, Tables.t16HB, Tables.t16l), - new HuffCodeTab(3, 7, Tables.t16HB, Tables.t16l), - new HuffCodeTab(4, 15, Tables.t16HB, Tables.t16l), - new HuffCodeTab(6, 63, Tables.t16HB, Tables.t16l), - new HuffCodeTab(8, 255, Tables.t16HB, Tables.t16l), - new HuffCodeTab(10, 1023, Tables.t16HB, Tables.t16l), - new HuffCodeTab(13, 8191, Tables.t16HB, Tables.t16l), - - new HuffCodeTab(4, 15, Tables.t24HB, Tables.t24l), - new HuffCodeTab(5, 31, Tables.t24HB, Tables.t24l), - new HuffCodeTab(6, 63, Tables.t24HB, Tables.t24l), - new HuffCodeTab(7, 127, Tables.t24HB, Tables.t24l), - new HuffCodeTab(8, 255, Tables.t24HB, Tables.t24l), - new HuffCodeTab(9, 511, Tables.t24HB, Tables.t24l), - new HuffCodeTab(11, 2047, Tables.t24HB, Tables.t24l), - new HuffCodeTab(13, 8191, Tables.t24HB, Tables.t24l), - - new HuffCodeTab(0, 0, Tables.t32HB, Tables.t32l), - new HuffCodeTab(0, 0, Tables.t33HB, Tables.t33l), -]; - -/** - *
- * for (i = 0; i < 16*16; i++) [
- * largetbl[i] = ((ht[16].hlen[i]) << 16) + ht[24].hlen[i];
- * ]
- *
- *
- */
-Tables.largetbl = [
- 0x010004, 0x050005, 0x070007, 0x090008, 0x0a0009, 0x0a000a, 0x0b000a, 0x0b000b,
- 0x0c000b, 0x0c000c, 0x0c000c, 0x0d000c, 0x0d000c, 0x0d000c, 0x0e000d, 0x0a000a,
- 0x040005, 0x060006, 0x080007, 0x090008, 0x0a0009, 0x0b000a, 0x0b000a, 0x0b000b,
- 0x0c000b, 0x0c000b, 0x0c000c, 0x0d000c, 0x0e000c, 0x0d000c, 0x0e000c, 0x0a000a,
- 0x070007, 0x080007, 0x090008, 0x0a0009, 0x0b0009, 0x0b000a, 0x0c000a, 0x0c000b,
- 0x0d000b, 0x0c000b, 0x0d000b, 0x0d000c, 0x0d000c, 0x0e000c, 0x0e000d, 0x0b0009,
- 0x090008, 0x090008, 0x0a0009, 0x0b0009, 0x0b000a, 0x0c000a, 0x0c000a, 0x0c000b,
- 0x0d000b, 0x0d000b, 0x0e000b, 0x0e000c, 0x0e000c, 0x0f000c, 0x0f000c, 0x0c0009,
- 0x0a0009, 0x0a0009, 0x0b0009, 0x0b000a, 0x0c000a, 0x0c000a, 0x0d000a, 0x0d000b,
- 0x0d000b, 0x0e000b, 0x0e000c, 0x0e000c, 0x0f000c, 0x0f000c, 0x0f000d, 0x0b0009,
- 0x0a000a, 0x0a0009, 0x0b000a, 0x0b000a, 0x0c000a, 0x0d000a, 0x0d000b, 0x0e000b,
- 0x0d000b, 0x0e000b, 0x0e000c, 0x0f000c, 0x0f000c, 0x0f000c, 0x10000c, 0x0c0009,
- 0x0b000a, 0x0b000a, 0x0b000a, 0x0c000a, 0x0d000a, 0x0d000b, 0x0d000b, 0x0d000b,
- 0x0e000b, 0x0e000c, 0x0e000c, 0x0e000c, 0x0f000c, 0x0f000c, 0x10000d, 0x0c0009,
- 0x0b000b, 0x0b000a, 0x0c000a, 0x0c000a, 0x0d000b, 0x0d000b, 0x0d000b, 0x0e000b,
- 0x0e000c, 0x0f000c, 0x0f000c, 0x0f000c, 0x0f000c, 0x11000d, 0x11000d, 0x0c000a,
- 0x0b000b, 0x0c000b, 0x0c000b, 0x0d000b, 0x0d000b, 0x0d000b, 0x0e000b, 0x0e000b,
- 0x0f000b, 0x0f000c, 0x0f000c, 0x0f000c, 0x10000c, 0x10000d, 0x10000d, 0x0c000a,
- 0x0c000b, 0x0c000b, 0x0c000b, 0x0d000b, 0x0d000b, 0x0e000b, 0x0e000b, 0x0f000c,
- 0x0f000c, 0x0f000c, 0x0f000c, 0x10000c, 0x0f000d, 0x10000d, 0x0f000d, 0x0d000a,
- 0x0c000c, 0x0d000b, 0x0c000b, 0x0d000b, 0x0e000b, 0x0e000c, 0x0e000c, 0x0e000c,
- 0x0f000c, 0x10000c, 0x10000c, 0x10000d, 0x11000d, 0x11000d, 0x10000d, 0x0c000a,
- 0x0d000c, 0x0d000c, 0x0d000b, 0x0d000b, 0x0e000b, 0x0e000c, 0x0f000c, 0x10000c,
- 0x10000c, 0x10000c, 0x10000c, 0x10000d, 0x10000d, 0x0f000d, 0x10000d, 0x0d000a,
- 0x0d000c, 0x0e000c, 0x0e000c, 0x0e000c, 0x0e000c, 0x0f000c, 0x0f000c, 0x0f000c,
- 0x0f000c, 0x11000c, 0x10000d, 0x10000d, 0x10000d, 0x10000d, 0x12000d, 0x0d000a,
- 0x0f000c, 0x0e000c, 0x0e000c, 0x0e000c, 0x0f000c, 0x0f000c, 0x10000c, 0x10000c,
- 0x10000d, 0x12000d, 0x11000d, 0x11000d, 0x11000d, 0x13000d, 0x11000d, 0x0d000a,
- 0x0e000d, 0x0f000c, 0x0d000c, 0x0e000c, 0x10000c, 0x10000c, 0x0f000c, 0x10000d,
- 0x10000d, 0x11000d, 0x12000d, 0x11000d, 0x13000d, 0x11000d, 0x10000d, 0x0d000a,
- 0x0a0009, 0x0a0009, 0x0a0009, 0x0b0009, 0x0b0009, 0x0c0009, 0x0c0009, 0x0c0009,
- 0x0d0009, 0x0d0009, 0x0d0009, 0x0d000a, 0x0d000a, 0x0d000a, 0x0d000a, 0x0a0006
-];
-/**
- *
- * for (i = 0; i < 3*3; i++) [
- * table23[i] = ((ht[2].hlen[i]) << 16) + ht[3].hlen[i];
- * ]
- *
- *
- */
-Tables.table23 = [
- 0x010002, 0x040003, 0x070007,
- 0x040004, 0x050004, 0x070007,
- 0x060006, 0x070007, 0x080008
-];
-
-/**
- *
- * for (i = 0; i < 4*4; i++) [
- * table56[i] = ((ht[5].hlen[i]) << 16) + ht[6].hlen[i];
- * ]
- *
- *
- */
-Tables.table56 = [
- 0x010003, 0x040004, 0x070006, 0x080008, 0x040004, 0x050004, 0x080006, 0x090007,
- 0x070005, 0x080006, 0x090007, 0x0a0008, 0x080007, 0x080007, 0x090008, 0x0a0009
-];
-
-Tables.bitrate_table = [
- [0, 8, 16, 24, 32, 40, 48, 56, 64, 80, 96, 112, 128, 144, 160, -1], /* MPEG 2 */
- [0, 32, 40, 48, 56, 64, 80, 96, 112, 128, 160, 192, 224, 256, 320, -1], /* MPEG 1 */
- [0, 8, 16, 24, 32, 40, 48, 56, 64, -1, -1, -1, -1, -1, -1, -1], /* MPEG 2.5 */
-];
-
-/**
- * MPEG 2, MPEG 1, MPEG 2.5.
- */
-Tables.samplerate_table = [
- [22050, 24000, 16000, -1],
- [44100, 48000, 32000, -1],
- [11025, 12000, 8000, -1],
-];
-
-/**
- * This is the scfsi_band table from 2.4.2.7 of the IS.
- */
-Tables.scfsi_band = [0, 6, 11, 16, 21];
-
-function MeanBits(meanBits) {
- this.bits = meanBits;
-}
-
-function VBRQuantize() {
- var qupvt;
- var tak;
-
- this.setModules = function (_qupvt, _tk) {
- qupvt = _qupvt;
- tak = _tk;
- }
- //TODO
-
-}
-
-//package mp3;
-
-function CalcNoiseResult() {
- /**
- * sum of quantization noise > masking
- */
- this.over_noise = 0.;
- /**
- * sum of all quantization noise
- */
- this.tot_noise = 0.;
- /**
- * max quantization noise
- */
- this.max_noise = 0.;
- /**
- * number of quantization noise > masking
- */
- this.over_count = 0;
- /**
- * SSD-like cost of distorted bands
- */
- this.over_SSD = 0;
- this.bits = 0;
-}
-
-
-function LameGlobalFlags() {
-
- this.class_id = 0;
-
- /* input description */
-
- /**
- * number of samples. default=-1
- */
- this.num_samples = 0;
- /**
- * input number of channels. default=2
- */
- this.num_channels = 0;
- /**
- * input_samp_rate in Hz. default=44.1 kHz
- */
- this.in_samplerate = 0;
- /**
- * output_samp_rate. default: LAME picks best value at least not used for
- * MP3 decoding: Remember 44.1 kHz MP3s and AC97
- */
- this.out_samplerate = 0;
- /**
- * scale input by this amount before encoding at least not used for MP3
- * decoding
- */
- this.scale = 0.;
- /**
- * scale input of channel 0 (left) by this amount before encoding
- */
- this.scale_left = 0.;
- /**
- * scale input of channel 1 (right) by this amount before encoding
- */
- this.scale_right = 0.;
-
- /* general control params */
- /**
- * collect data for a MP3 frame analyzer?
- */
- this.analysis = false;
- /**
- * add Xing VBR tag?
- */
- this.bWriteVbrTag = false;
-
- /**
- * use lame/mpglib to convert mp3 to wav
- */
- this.decode_only = false;
- /**
- * quality setting 0=best, 9=worst default=5
- */
- this.quality = 0;
- /**
- * see enum default = LAME picks best value
- */
- this.mode = MPEGMode.STEREO;
- /**
- * force M/S mode. requires mode=1
- */
- this.force_ms = false;
- /**
- * use free format? default=0
- */
- this.free_format = false;
- /**
- * find the RG value? default=0
- */
- this.findReplayGain = false;
- /**
- * decode on the fly? default=0
- */
- this.decode_on_the_fly = false;
- /**
- * 1 (default) writes ID3 tags, 0 not
- */
- this.write_id3tag_automatic = false;
-
- /*
- * set either brate>0 or compression_ratio>0, LAME will compute the value of
- * the variable not set. Default is compression_ratio = 11.025
- */
- /**
- * bitrate
- */
- this.brate = 0;
- /**
- * sizeof(wav file)/sizeof(mp3 file)
- */
- this.compression_ratio = 0.;
-
- /* frame params */
- /**
- * mark as copyright. default=0
- */
- this.copyright = 0;
- /**
- * mark as original. default=1
- */
- this.original = 0;
- /**
- * the MP3 'private extension' bit. Meaningless
- */
- this.extension = 0;
- /**
- * Input PCM is emphased PCM (for instance from one of the rarely emphased
- * CDs), it is STRONGLY not recommended to use this, because psycho does not
- * take it into account, and last but not least many decoders don't care
- * about these bits
- */
- this.emphasis = 0;
- /**
- * use 2 bytes per frame for a CRC checksum. default=0
- */
- this.error_protection = 0;
- /**
- * enforce ISO spec as much as possible
- */
- this.strict_ISO = false;
-
- /**
- * use bit reservoir?
- */
- this.disable_reservoir = false;
-
- /* quantization/noise shaping */
- this.quant_comp = 0;
- this.quant_comp_short = 0;
- this.experimentalY = false;
- this.experimentalZ = 0;
- this.exp_nspsytune = 0;
-
- this.preset = 0;
-
- /* VBR control */
- this.VBR = null;
- /**
- * Range [0,...,1[
- */
- this.VBR_q_frac = 0.;
- /**
- * Range [0,...,9]
- */
- this.VBR_q = 0;
- this.VBR_mean_bitrate_kbps = 0;
- this.VBR_min_bitrate_kbps = 0;
- this.VBR_max_bitrate_kbps = 0;
- /**
- * strictly enforce VBR_min_bitrate normaly, it will be violated for analog
- * silence
- */
- this.VBR_hard_min = 0;
-
- /* resampling and filtering */
-
- /**
- * freq in Hz. 0=lame choses. -1=no filter
- */
- this.lowpassfreq = 0;
- /**
- * freq in Hz. 0=lame choses. -1=no filter
- */
- this.highpassfreq = 0;
- /**
- * freq width of filter, in Hz (default=15%)
- */
- this.lowpasswidth = 0;
- /**
- * freq width of filter, in Hz (default=15%)
- */
- this.highpasswidth = 0;
-
- /*
- * psycho acoustics and other arguments which you should not change unless
- * you know what you are doing
- */
-
- this.maskingadjust = 0.;
- this.maskingadjust_short = 0.;
- /**
- * only use ATH
- */
- this.ATHonly = false;
- /**
- * only use ATH for short blocks
- */
- this.ATHshort = false;
- /**
- * disable ATH
- */
- this.noATH = false;
- /**
- * select ATH formula
- */
- this.ATHtype = 0;
- /**
- * change ATH formula 4 shape
- */
- this.ATHcurve = 0.;
- /**
- * lower ATH by this many db
- */
- this.ATHlower = 0.;
- /**
- * select ATH auto-adjust scheme
- */
- this.athaa_type = 0;
- /**
- * select ATH auto-adjust loudness calc
- */
- this.athaa_loudapprox = 0;
- /**
- * dB, tune active region of auto-level
- */
- this.athaa_sensitivity = 0.;
- this.short_blocks = null;
- /**
- * use temporal masking effect
- */
- this.useTemporal = false;
- this.interChRatio = 0.;
- /**
- * Naoki's adjustment of Mid/Side maskings
- */
- this.msfix = 0.;
-
- /**
- * 0 off, 1 on
- */
- this.tune = false;
- /**
- * used to pass values for debugging and stuff
- */
- this.tune_value_a = 0.;
-
- /************************************************************************/
- /* internal variables, do not set... */
- /* provided because they may be of use to calling application */
- /************************************************************************/
-
- /**
- * 0=MPEG-2/2.5 1=MPEG-1
- */
- this.version = 0;
- this.encoder_delay = 0;
- /**
- * number of samples of padding appended to input
- */
- this.encoder_padding = 0;
- this.framesize = 0;
- /**
- * number of frames encoded
- */
- this.frameNum = 0;
- /**
- * is this struct owned by calling program or lame?
- */
- this.lame_allocated_gfp = 0;
- /**************************************************************************/
- /* more internal variables are stored in this structure: */
- /**************************************************************************/
- this.internal_flags = null;
-}
-
-
-
-function ReplayGain() {
- this.linprebuf = new_float(GainAnalysis.MAX_ORDER * 2);
- /**
- * left input samples, with pre-buffer
- */
- this.linpre = 0;
- this.lstepbuf = new_float(GainAnalysis.MAX_SAMPLES_PER_WINDOW + GainAnalysis.MAX_ORDER);
- /**
- * left "first step" (i.e. post first filter) samples
- */
- this.lstep = 0;
- this.loutbuf = new_float(GainAnalysis.MAX_SAMPLES_PER_WINDOW + GainAnalysis.MAX_ORDER);
- /**
- * left "out" (i.e. post second filter) samples
- */
- this.lout = 0;
- this.rinprebuf = new_float(GainAnalysis.MAX_ORDER * 2);
- /**
- * right input samples ...
- */
- this.rinpre = 0;
- this.rstepbuf = new_float(GainAnalysis.MAX_SAMPLES_PER_WINDOW + GainAnalysis.MAX_ORDER);
- this.rstep = 0;
- this.routbuf = new_float(GainAnalysis.MAX_SAMPLES_PER_WINDOW + GainAnalysis.MAX_ORDER);
- this.rout = 0;
- /**
- * number of samples required to reach number of milliseconds required
- * for RMS window
- */
- this.sampleWindow = 0;
- this.totsamp = 0;
- this.lsum = 0.;
- this.rsum = 0.;
- this.freqindex = 0;
- this.first = 0;
- this.A = new_int(0 | (GainAnalysis.STEPS_per_dB * GainAnalysis.MAX_dB));
- this.B = new_int(0 | (GainAnalysis.STEPS_per_dB * GainAnalysis.MAX_dB));
-
-}
-
-
-
-function CBRNewIterationLoop(_quantize) {
- var quantize = _quantize;
- this.quantize = quantize;
- this.iteration_loop = function(gfp, pe, ms_ener_ratio, ratio) {
- var gfc = gfp.internal_flags;
- var l3_xmin = new_float(L3Side.SFBMAX);
- var xrpow = new_float(576);
- var targ_bits = new_int(2);
- var mean_bits = 0, max_bits;
- var l3_side = gfc.l3_side;
-
- var mb = new MeanBits(mean_bits);
- this.quantize.rv.ResvFrameBegin(gfp, mb);
- mean_bits = mb.bits;
-
- /* quantize! */
- for (var gr = 0; gr < gfc.mode_gr; gr++) {
-
- /*
- * calculate needed bits
- */
- max_bits = this.quantize.qupvt.on_pe(gfp, pe, targ_bits, mean_bits,
- gr, gr);
-
- if (gfc.mode_ext == Encoder.MPG_MD_MS_LR) {
- this.quantize.ms_convert(gfc.l3_side, gr);
- this.quantize.qupvt.reduce_side(targ_bits, ms_ener_ratio[gr],
- mean_bits, max_bits);
- }
-
- for (var ch = 0; ch < gfc.channels_out; ch++) {
- var adjust, masking_lower_db;
- var cod_info = l3_side.tt[gr][ch];
-
- if (cod_info.block_type != Encoder.SHORT_TYPE) {
- // NORM, START or STOP type
- adjust = 0;
- masking_lower_db = gfc.PSY.mask_adjust - adjust;
- } else {
- adjust = 0;
- masking_lower_db = gfc.PSY.mask_adjust_short - adjust;
- }
- gfc.masking_lower = Math.pow(10.0,
- masking_lower_db * 0.1);
-
- /*
- * init_outer_loop sets up cod_info, scalefac and xrpow
- */
- this.quantize.init_outer_loop(gfc, cod_info);
- if (this.quantize.init_xrpow(gfc, cod_info, xrpow)) {
- /*
- * xr contains energy we will have to encode calculate the
- * masking abilities find some good quantization in
- * outer_loop
- */
- this.quantize.qupvt.calc_xmin(gfp, ratio[gr][ch], cod_info,
- l3_xmin);
- this.quantize.outer_loop(gfp, cod_info, l3_xmin, xrpow, ch,
- targ_bits[ch]);
- }
-
- this.quantize.iteration_finish_one(gfc, gr, ch);
- } /* for ch */
- } /* for gr */
-
- this.quantize.rv.ResvFrameEnd(gfc, mean_bits);
- }
-}
-
-
-/**
- * ATH related stuff, if something new ATH related has to be added, please plug
- * it here into the ATH.
- */
-function ATH() {
- /**
- * Method for the auto adjustment.
- */
- this.useAdjust = 0;
- /**
- * factor for tuning the (sample power) point below which adaptive threshold
- * of hearing adjustment occurs
- */
- this.aaSensitivityP = 0.;
- /**
- * Lowering based on peak volume, 1 = no lowering.
- */
- this.adjust = 0.;
- /**
- * Limit for dynamic ATH adjust.
- */
- this.adjustLimit = 0.;
- /**
- * Determined to lower x dB each second.
- */
- this.decay = 0.;
- /**
- * Lowest ATH value.
- */
- this.floor = 0.;
- /**
- * ATH for sfbs in long blocks.
- */
- this.l = new_float(Encoder.SBMAX_l);
- /**
- * ATH for sfbs in short blocks.
- */
- this.s = new_float(Encoder.SBMAX_s);
- /**
- * ATH for partitioned sfb21 in long blocks.
- */
- this.psfb21 = new_float(Encoder.PSFB21);
- /**
- * ATH for partitioned sfb12 in short blocks.
- */
- this.psfb12 = new_float(Encoder.PSFB12);
- /**
- * ATH for long block convolution bands.
- */
- this.cb_l = new_float(Encoder.CBANDS);
- /**
- * ATH for short block convolution bands.
- */
- this.cb_s = new_float(Encoder.CBANDS);
- /**
- * Equal loudness weights (based on ATH).
- */
- this.eql_w = new_float(Encoder.BLKSIZE / 2);
-}
-
-//package mp3;
-
-/**
- * Layer III side information.
- *
- * @author Ken
- *
- */
-
-
-
-function ScaleFac(arrL, arrS, arr21, arr12) {
-
- this.l = new_int(1 + Encoder.SBMAX_l);
- this.s = new_int(1 + Encoder.SBMAX_s);
- this.psfb21 = new_int(1 + Encoder.PSFB21);
- this.psfb12 = new_int(1 + Encoder.PSFB12);
- var l = this.l;
- var s = this.s;
-
- if (arguments.length == 4) {
- //public ScaleFac(final int[] arrL, final int[] arrS, final int[] arr21,
- // final int[] arr12) {
- this.arrL = arguments[0];
- this.arrS = arguments[1];
- this.arr21 = arguments[2];
- this.arr12 = arguments[3];
-
- System.arraycopy(this.arrL, 0, l, 0, Math.min(this.arrL.length, this.l.length));
- System.arraycopy(this.arrS, 0, s, 0, Math.min(this.arrS.length, this.s.length));
- System.arraycopy(this.arr21, 0, this.psfb21, 0, Math.min(this.arr21.length, this.psfb21.length));
- System.arraycopy(this.arr12, 0, this.psfb12, 0, Math.min(this.arr12.length, this.psfb12.length));
- }
-}
-
-/*
- * quantize_pvt source file
- *
- * Copyright (c) 1999-2002 Takehiro Tominaga
- * Copyright (c) 2000-2002 Robert Hegemann
- * Copyright (c) 2001 Naoki Shibata
- * Copyright (c) 2002-2005 Gabriel Bouvigne
- *
- * This library is free software; you can redistribute it and/or
- * modify it under the terms of the GNU Lesser General Public
- * License as published by the Free Software Foundation; either
- * version 2 of the License, or (at your option) any later version.
- *
- * This library is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
- * Library General Public License for more details.
- *
- * You should have received a copy of the GNU Lesser General Public
- * License along with this library; if not, write to the
- * Free Software Foundation, Inc., 59 Temple Place - Suite 330,
- * Boston, MA 02111-1307, USA.
- */
-
-/* $Id: QuantizePVT.java,v 1.24 2011/05/24 20:48:06 kenchis Exp $ */
-
-
-QuantizePVT.Q_MAX = (256 + 1);
-QuantizePVT.Q_MAX2 = 116;
-QuantizePVT.LARGE_BITS = 100000;
-QuantizePVT.IXMAX_VAL = 8206;
-
-function QuantizePVT() {
-
- var tak = null;
- var rv = null;
- var psy = null;
-
- this.setModules = function (_tk, _rv, _psy) {
- tak = _tk;
- rv = _rv;
- psy = _psy;
- };
-
- function POW20(x) {
- return pow20[x + QuantizePVT.Q_MAX2];
- }
-
- this.IPOW20 = function (x) {
- return ipow20[x];
- }
-
- /**
- * smallest such that 1.0+DBL_EPSILON != 1.0
- */
- var DBL_EPSILON = 2.2204460492503131e-016;
-
- /**
- * ix always <= 8191+15. see count_bits()
- */
- var IXMAX_VAL = QuantizePVT.IXMAX_VAL;
-
- var PRECALC_SIZE = (IXMAX_VAL + 2);
-
- var Q_MAX = QuantizePVT.Q_MAX;
-
-
- /**
- *
- * minimum possible number of
- * -cod_info.global_gain + ((scalefac[] + (cod_info.preflag ? pretab[sfb] : 0))
- * << (cod_info.scalefac_scale + 1)) + cod_info.subblock_gain[cod_info.window[sfb]] * 8;
- *
- * for long block, 0+((15+3)<<2) = 18*4 = 72
- * for short block, 0+(15<<2)+7*8 = 15*4+56 = 116
- *
- */
- var Q_MAX2 = QuantizePVT.Q_MAX2;
-
- var LARGE_BITS = QuantizePVT.LARGE_BITS;
-
-
- /**
- * Assuming dynamic range=96dB, this value should be 92
- */
- var NSATHSCALE = 100;
-
- /**
- * The following table is used to implement the scalefactor partitioning for
- * MPEG2 as described in section 2.4.3.2 of the IS. The indexing corresponds
- * to the way the tables are presented in the IS:
- *
- * [table_number][row_in_table][column of nr_of_sfb]
- */
- this.nr_of_sfb_block = [
- [[6, 5, 5, 5], [9, 9, 9, 9], [6, 9, 9, 9]],
- [[6, 5, 7, 3], [9, 9, 12, 6], [6, 9, 12, 6]],
- [[11, 10, 0, 0], [18, 18, 0, 0], [15, 18, 0, 0]],
- [[7, 7, 7, 0], [12, 12, 12, 0], [6, 15, 12, 0]],
- [[6, 6, 6, 3], [12, 9, 9, 6], [6, 12, 9, 6]],
- [[8, 8, 5, 0], [15, 12, 9, 0], [6, 18, 9, 0]]];
-
- /**
- * Table B.6: layer3 preemphasis
- */
- var pretab = [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1,
- 2, 2, 3, 3, 3, 2, 0];
- this.pretab = pretab;
-
- /**
- * Here are MPEG1 Table B.8 and MPEG2 Table B.1 -- Layer III scalefactor
- * bands. - * Index into this using a method such as:
- * idx = fr_ps.header.sampling_frequency + (fr_ps.header.version * 3) - */ - this.sfBandIndex = [ - // Table B.2.b: 22.05 kHz - new ScaleFac([0, 6, 12, 18, 24, 30, 36, 44, 54, 66, 80, 96, 116, 140, 168, 200, 238, 284, 336, 396, 464, - 522, 576], - [0, 4, 8, 12, 18, 24, 32, 42, 56, 74, 100, 132, 174, 192] - , [0, 0, 0, 0, 0, 0, 0] // sfb21 pseudo sub bands - , [0, 0, 0, 0, 0, 0, 0] // sfb12 pseudo sub bands - ), - /* Table B.2.c: 24 kHz */ /* docs: 332. mpg123(broken): 330 */ - new ScaleFac([0, 6, 12, 18, 24, 30, 36, 44, 54, 66, 80, 96, 114, 136, 162, 194, 232, 278, 332, 394, 464, - 540, 576], - [0, 4, 8, 12, 18, 26, 36, 48, 62, 80, 104, 136, 180, 192] - , [0, 0, 0, 0, 0, 0, 0] /* sfb21 pseudo sub bands */ - , [0, 0, 0, 0, 0, 0, 0] /* sfb12 pseudo sub bands */ - ), - /* Table B.2.a: 16 kHz */ - new ScaleFac([0, 6, 12, 18, 24, 30, 36, 44, 54, 66, 80, 96, 116, 140, 168, 200, 238, 284, 336, 396, 464, - 522, 576], - [0, 4, 8, 12, 18, 26, 36, 48, 62, 80, 104, 134, 174, 192] - , [0, 0, 0, 0, 0, 0, 0] /* sfb21 pseudo sub bands */ - , [0, 0, 0, 0, 0, 0, 0] /* sfb12 pseudo sub bands */ - ), - /* Table B.8.b: 44.1 kHz */ - new ScaleFac([0, 4, 8, 12, 16, 20, 24, 30, 36, 44, 52, 62, 74, 90, 110, 134, 162, 196, 238, 288, 342, 418, - 576], - [0, 4, 8, 12, 16, 22, 30, 40, 52, 66, 84, 106, 136, 192] - , [0, 0, 0, 0, 0, 0, 0] /* sfb21 pseudo sub bands */ - , [0, 0, 0, 0, 0, 0, 0] /* sfb12 pseudo sub bands */ - ), - /* Table B.8.c: 48 kHz */ - new ScaleFac([0, 4, 8, 12, 16, 20, 24, 30, 36, 42, 50, 60, 72, 88, 106, 128, 156, 190, 230, 276, 330, 384, - 576], - [0, 4, 8, 12, 16, 22, 28, 38, 50, 64, 80, 100, 126, 192] - , [0, 0, 0, 0, 0, 0, 0] /* sfb21 pseudo sub bands */ - , [0, 0, 0, 0, 0, 0, 0] /* sfb12 pseudo sub bands */ - ), - /* Table B.8.a: 32 kHz */ - new ScaleFac([0, 4, 8, 12, 16, 20, 24, 30, 36, 44, 54, 66, 82, 102, 126, 156, 194, 240, 296, 364, 448, 550, - 576], - [0, 4, 8, 12, 16, 22, 30, 42, 58, 78, 104, 138, 180, 192] - , [0, 0, 0, 0, 0, 0, 0] /* sfb21 pseudo sub bands */ - , [0, 0, 0, 0, 0, 0, 0] /* sfb12 pseudo sub bands */ - ), - /* MPEG-2.5 11.025 kHz */ - new ScaleFac([0, 6, 12, 18, 24, 30, 36, 44, 54, 66, 80, 96, 116, 140, 168, 200, 238, 284, 336, 396, 464, - 522, 576], - [0 / 3, 12 / 3, 24 / 3, 36 / 3, 54 / 3, 78 / 3, 108 / 3, 144 / 3, 186 / 3, 240 / 3, 312 / 3, - 402 / 3, 522 / 3, 576 / 3] - , [0, 0, 0, 0, 0, 0, 0] /* sfb21 pseudo sub bands */ - , [0, 0, 0, 0, 0, 0, 0] /* sfb12 pseudo sub bands */ - ), - /* MPEG-2.5 12 kHz */ - new ScaleFac([0, 6, 12, 18, 24, 30, 36, 44, 54, 66, 80, 96, 116, 140, 168, 200, 238, 284, 336, 396, 464, - 522, 576], - [0 / 3, 12 / 3, 24 / 3, 36 / 3, 54 / 3, 78 / 3, 108 / 3, 144 / 3, 186 / 3, 240 / 3, 312 / 3, - 402 / 3, 522 / 3, 576 / 3] - , [0, 0, 0, 0, 0, 0, 0] /* sfb21 pseudo sub bands */ - , [0, 0, 0, 0, 0, 0, 0] /* sfb12 pseudo sub bands */ - ), - /* MPEG-2.5 8 kHz */ - new ScaleFac([0, 12, 24, 36, 48, 60, 72, 88, 108, 132, 160, 192, 232, 280, 336, 400, 476, 566, 568, 570, - 572, 574, 576], - [0 / 3, 24 / 3, 48 / 3, 72 / 3, 108 / 3, 156 / 3, 216 / 3, 288 / 3, 372 / 3, 480 / 3, 486 / 3, - 492 / 3, 498 / 3, 576 / 3] - , [0, 0, 0, 0, 0, 0, 0] /* sfb21 pseudo sub bands */ - , [0, 0, 0, 0, 0, 0, 0] /* sfb12 pseudo sub bands */ - ) - ]; - - var pow20 = new_float(Q_MAX + Q_MAX2 + 1); - var ipow20 = new_float(Q_MAX); - var pow43 = new_float(PRECALC_SIZE); - - var adj43 = new_float(PRECALC_SIZE); - this.adj43 = adj43; - - /** - *
- * compute the ATH for each scalefactor band cd range: 0..96db - * - * Input: 3.3kHz signal 32767 amplitude (3.3kHz is where ATH is smallest = - * -5db) longblocks: sfb=12 en0/bw=-11db max_en0 = 1.3db shortblocks: sfb=5 - * -9db 0db - * - * Input: 1 1 1 1 1 1 1 -1 -1 -1 -1 -1 -1 -1 (repeated) longblocks: amp=1 - * sfb=12 en0/bw=-103 db max_en0 = -92db amp=32767 sfb=12 -12 db -1.4db - * - * Input: 1 1 1 1 1 1 1 -1 -1 -1 -1 -1 -1 -1 (repeated) shortblocks: amp=1 - * sfb=5 en0/bw= -99 -86 amp=32767 sfb=5 -9 db 4db - * - * - * MAX energy of largest wave at 3.3kHz = 1db AVE energy of largest wave at - * 3.3kHz = -11db Let's take AVE: -11db = maximum signal in sfb=12. Dynamic - * range of CD: 96db. Therefor energy of smallest audible wave in sfb=12 = - * -11 - 96 = -107db = ATH at 3.3kHz. - * - * ATH formula for this wave: -5db. To adjust to LAME scaling, we need ATH = - * ATH_formula - 103 (db) ATH = ATH * 2.5e-10 (ener) - *- */ - function ATHmdct(gfp, f) { - var ath = psy.ATHformula(f, gfp); - - ath -= NSATHSCALE; - - /* modify the MDCT scaling for the ATH and convert to energy */ - ath = Math.pow(10.0, ath / 10.0 + gfp.ATHlower); - return ath; - } - - function compute_ath(gfp) { - var ATH_l = gfp.internal_flags.ATH.l; - var ATH_psfb21 = gfp.internal_flags.ATH.psfb21; - var ATH_s = gfp.internal_flags.ATH.s; - var ATH_psfb12 = gfp.internal_flags.ATH.psfb12; - var gfc = gfp.internal_flags; - var samp_freq = gfp.out_samplerate; - - for (var sfb = 0; sfb < Encoder.SBMAX_l; sfb++) { - var start = gfc.scalefac_band.l[sfb]; - var end = gfc.scalefac_band.l[sfb + 1]; - ATH_l[sfb] = Float.MAX_VALUE; - for (var i = start; i < end; i++) { - var freq = i * samp_freq / (2 * 576); - var ATH_f = ATHmdct(gfp, freq); - /* freq in kHz */ - ATH_l[sfb] = Math.min(ATH_l[sfb], ATH_f); - } - } - - for (var sfb = 0; sfb < Encoder.PSFB21; sfb++) { - var start = gfc.scalefac_band.psfb21[sfb]; - var end = gfc.scalefac_band.psfb21[sfb + 1]; - ATH_psfb21[sfb] = Float.MAX_VALUE; - for (var i = start; i < end; i++) { - var freq = i * samp_freq / (2 * 576); - var ATH_f = ATHmdct(gfp, freq); - /* freq in kHz */ - ATH_psfb21[sfb] = Math.min(ATH_psfb21[sfb], ATH_f); - } - } - - for (var sfb = 0; sfb < Encoder.SBMAX_s; sfb++) { - var start = gfc.scalefac_band.s[sfb]; - var end = gfc.scalefac_band.s[sfb + 1]; - ATH_s[sfb] = Float.MAX_VALUE; - for (var i = start; i < end; i++) { - var freq = i * samp_freq / (2 * 192); - var ATH_f = ATHmdct(gfp, freq); - /* freq in kHz */ - ATH_s[sfb] = Math.min(ATH_s[sfb], ATH_f); - } - ATH_s[sfb] *= (gfc.scalefac_band.s[sfb + 1] - gfc.scalefac_band.s[sfb]); - } - - for (var sfb = 0; sfb < Encoder.PSFB12; sfb++) { - var start = gfc.scalefac_band.psfb12[sfb]; - var end = gfc.scalefac_band.psfb12[sfb + 1]; - ATH_psfb12[sfb] = Float.MAX_VALUE; - for (var i = start; i < end; i++) { - var freq = i * samp_freq / (2 * 192); - var ATH_f = ATHmdct(gfp, freq); - /* freq in kHz */ - ATH_psfb12[sfb] = Math.min(ATH_psfb12[sfb], ATH_f); - } - /* not sure about the following */ - ATH_psfb12[sfb] *= (gfc.scalefac_band.s[13] - gfc.scalefac_band.s[12]); - } - - /* - * no-ATH mode: reduce ATH to -200 dB - */ - if (gfp.noATH) { - for (var sfb = 0; sfb < Encoder.SBMAX_l; sfb++) { - ATH_l[sfb] = 1E-20; - } - for (var sfb = 0; sfb < Encoder.PSFB21; sfb++) { - ATH_psfb21[sfb] = 1E-20; - } - for (var sfb = 0; sfb < Encoder.SBMAX_s; sfb++) { - ATH_s[sfb] = 1E-20; - } - for (var sfb = 0; sfb < Encoder.PSFB12; sfb++) { - ATH_psfb12[sfb] = 1E-20; - } - } - - /* - * work in progress, don't rely on it too much - */ - gfc.ATH.floor = 10. * Math.log10(ATHmdct(gfp, -1.)); - } - - /** - * initialization for iteration_loop - */ - this.iteration_init = function (gfp) { - var gfc = gfp.internal_flags; - var l3_side = gfc.l3_side; - var i; - - if (gfc.iteration_init_init == 0) { - gfc.iteration_init_init = 1; - - l3_side.main_data_begin = 0; - compute_ath(gfp); - - pow43[0] = 0.0; - for (i = 1; i < PRECALC_SIZE; i++) - pow43[i] = Math.pow(i, 4.0 / 3.0); - - for (i = 0; i < PRECALC_SIZE - 1; i++) - adj43[i] = ((i + 1) - Math.pow( - 0.5 * (pow43[i] + pow43[i + 1]), 0.75)); - adj43[i] = 0.5; - - for (i = 0; i < Q_MAX; i++) - ipow20[i] = Math.pow(2.0, (i - 210) * -0.1875); - for (i = 0; i <= Q_MAX + Q_MAX2; i++) - pow20[i] = Math.pow(2.0, (i - 210 - Q_MAX2) * 0.25); - - tak.huffman_init(gfc); - - { - var bass, alto, treble, sfb21; - - i = (gfp.exp_nspsytune >> 2) & 63; - if (i >= 32) - i -= 64; - bass = Math.pow(10, i / 4.0 / 10.0); - - i = (gfp.exp_nspsytune >> 8) & 63; - if (i >= 32) - i -= 64; - alto = Math.pow(10, i / 4.0 / 10.0); - - i = (gfp.exp_nspsytune >> 14) & 63; - if (i >= 32) - i -= 64; - treble = Math.pow(10, i / 4.0 / 10.0); - - /* - * to be compatible with Naoki's original code, the next 6 bits - * define only the amount of changing treble for sfb21 - */ - i = (gfp.exp_nspsytune >> 20) & 63; - if (i >= 32) - i -= 64; - sfb21 = treble * Math.pow(10, i / 4.0 / 10.0); - for (i = 0; i < Encoder.SBMAX_l; i++) { - var f; - if (i <= 6) - f = bass; - else if (i <= 13) - f = alto; - else if (i <= 20) - f = treble; - else - f = sfb21; - - gfc.nsPsy.longfact[i] = f; - } - for (i = 0; i < Encoder.SBMAX_s; i++) { - var f; - if (i <= 5) - f = bass; - else if (i <= 10) - f = alto; - else if (i <= 11) - f = treble; - else - f = sfb21; - - gfc.nsPsy.shortfact[i] = f; - } - } - } - } - - /** - * allocate bits among 2 channels based on PE
- * mt 6/99
- * bugfixes rh 8/01: often allocated more than the allowed 4095 bits - */ - this.on_pe = function (gfp, pe, - targ_bits, mean_bits, gr, cbr) { - var gfc = gfp.internal_flags; - var tbits = 0, bits; - var add_bits = new_int(2); - var ch; - - /* allocate targ_bits for granule */ - var mb = new MeanBits(tbits); - var extra_bits = rv.ResvMaxBits(gfp, mean_bits, mb, cbr); - tbits = mb.bits; - /* maximum allowed bits for this granule */ - var max_bits = tbits + extra_bits; - if (max_bits > LameInternalFlags.MAX_BITS_PER_GRANULE) { - // hard limit per granule - max_bits = LameInternalFlags.MAX_BITS_PER_GRANULE; - } - for (bits = 0, ch = 0; ch < gfc.channels_out; ++ch) { - /****************************************************************** - * allocate bits for each channel - ******************************************************************/ - targ_bits[ch] = Math.min(LameInternalFlags.MAX_BITS_PER_CHANNEL, - tbits / gfc.channels_out); - - add_bits[ch] = 0 | (targ_bits[ch] * pe[gr][ch] / 700.0 - targ_bits[ch]); - - /* at most increase bits by 1.5*average */ - if (add_bits[ch] > mean_bits * 3 / 4) - add_bits[ch] = mean_bits * 3 / 4; - if (add_bits[ch] < 0) - add_bits[ch] = 0; - - if (add_bits[ch] + targ_bits[ch] > LameInternalFlags.MAX_BITS_PER_CHANNEL) - add_bits[ch] = Math.max(0, - LameInternalFlags.MAX_BITS_PER_CHANNEL - targ_bits[ch]); - - bits += add_bits[ch]; - } - if (bits > extra_bits) { - for (ch = 0; ch < gfc.channels_out; ++ch) { - add_bits[ch] = extra_bits * add_bits[ch] / bits; - } - } - - for (ch = 0; ch < gfc.channels_out; ++ch) { - targ_bits[ch] += add_bits[ch]; - extra_bits -= add_bits[ch]; - } - - for (bits = 0, ch = 0; ch < gfc.channels_out; ++ch) { - bits += targ_bits[ch]; - } - if (bits > LameInternalFlags.MAX_BITS_PER_GRANULE) { - var sum = 0; - for (ch = 0; ch < gfc.channels_out; ++ch) { - targ_bits[ch] *= LameInternalFlags.MAX_BITS_PER_GRANULE; - targ_bits[ch] /= bits; - sum += targ_bits[ch]; - } - } - - return max_bits; - } - - this.reduce_side = function (targ_bits, ms_ener_ratio, mean_bits, max_bits) { - - /* - * ms_ener_ratio = 0: allocate 66/33 mid/side fac=.33 ms_ener_ratio =.5: - * allocate 50/50 mid/side fac= 0 - */ - /* 75/25 split is fac=.5 */ - var fac = .33 * (.5 - ms_ener_ratio) / .5; - if (fac < 0) - fac = 0; - if (fac > .5) - fac = .5; - - /* number of bits to move from side channel to mid channel */ - /* move_bits = fac*targ_bits[1]; */ - var move_bits = 0 | (fac * .5 * (targ_bits[0] + targ_bits[1])); - - if (move_bits > LameInternalFlags.MAX_BITS_PER_CHANNEL - targ_bits[0]) { - move_bits = LameInternalFlags.MAX_BITS_PER_CHANNEL - targ_bits[0]; - } - if (move_bits < 0) - move_bits = 0; - - if (targ_bits[1] >= 125) { - /* dont reduce side channel below 125 bits */ - if (targ_bits[1] - move_bits > 125) { - - /* if mid channel already has 2x more than average, dont bother */ - /* mean_bits = bits per granule (for both channels) */ - if (targ_bits[0] < mean_bits) - targ_bits[0] += move_bits; - targ_bits[1] -= move_bits; - } else { - targ_bits[0] += targ_bits[1] - 125; - targ_bits[1] = 125; - } - } - - move_bits = targ_bits[0] + targ_bits[1]; - if (move_bits > max_bits) { - targ_bits[0] = (max_bits * targ_bits[0]) / move_bits; - targ_bits[1] = (max_bits * targ_bits[1]) / move_bits; - } - }; - - /** - * Robert Hegemann 2001-04-27: - * this adjusts the ATH, keeping the original noise floor - * affects the higher frequencies more than the lower ones - */ - this.athAdjust = function (a, x, athFloor) { - /* - * work in progress - */ - var o = 90.30873362; - var p = 94.82444863; - var u = Util.FAST_LOG10_X(x, 10.0); - var v = a * a; - var w = 0.0; - u -= athFloor; - /* undo scaling */ - if (v > 1E-20) - w = 1. + Util.FAST_LOG10_X(v, 10.0 / o); - if (w < 0) - w = 0.; - u *= w; - u += athFloor + o - p; - /* redo scaling */ - - return Math.pow(10., 0.1 * u); - }; - - /** - * Calculate the allowed distortion for each scalefactor band, as determined - * by the psychoacoustic model. xmin(sb) = ratio(sb) * en(sb) / bw(sb) - * - * returns number of sfb's with energy > ATH - */ - this.calc_xmin = function (gfp, ratio, cod_info, pxmin) { - var pxminPos = 0; - var gfc = gfp.internal_flags; - var gsfb, j = 0, ath_over = 0; - var ATH = gfc.ATH; - var xr = cod_info.xr; - var enable_athaa_fix = (gfp.VBR == VbrMode.vbr_mtrh) ? 1 : 0; - var masking_lower = gfc.masking_lower; - - if (gfp.VBR == VbrMode.vbr_mtrh || gfp.VBR == VbrMode.vbr_mt) { - /* was already done in PSY-Model */ - masking_lower = 1.0; - } - - for (gsfb = 0; gsfb < cod_info.psy_lmax; gsfb++) { - var en0, xmin; - var rh1, rh2; - var width, l; - - if (gfp.VBR == VbrMode.vbr_rh || gfp.VBR == VbrMode.vbr_mtrh) - xmin = athAdjust(ATH.adjust, ATH.l[gsfb], ATH.floor); - else - xmin = ATH.adjust * ATH.l[gsfb]; - - width = cod_info.width[gsfb]; - rh1 = xmin / width; - rh2 = DBL_EPSILON; - l = width >> 1; - en0 = 0.0; - do { - var xa, xb; - xa = xr[j] * xr[j]; - en0 += xa; - rh2 += (xa < rh1) ? xa : rh1; - j++; - xb = xr[j] * xr[j]; - en0 += xb; - rh2 += (xb < rh1) ? xb : rh1; - j++; - } while (--l > 0); - if (en0 > xmin) - ath_over++; - - if (gsfb == Encoder.SBPSY_l) { - var x = xmin * gfc.nsPsy.longfact[gsfb]; - if (rh2 < x) { - rh2 = x; - } - } - if (enable_athaa_fix != 0) { - xmin = rh2; - } - if (!gfp.ATHonly) { - var e = ratio.en.l[gsfb]; - if (e > 0.0) { - var x; - x = en0 * ratio.thm.l[gsfb] * masking_lower / e; - if (enable_athaa_fix != 0) - x *= gfc.nsPsy.longfact[gsfb]; - if (xmin < x) - xmin = x; - } - } - if (enable_athaa_fix != 0) - pxmin[pxminPos++] = xmin; - else - pxmin[pxminPos++] = xmin * gfc.nsPsy.longfact[gsfb]; - } - /* end of long block loop */ - - /* use this function to determine the highest non-zero coeff */ - var max_nonzero = 575; - if (cod_info.block_type != Encoder.SHORT_TYPE) { - // NORM, START or STOP type, but not SHORT - var k = 576; - while (k-- != 0 && BitStream.EQ(xr[k], 0)) { - max_nonzero = k; - } - } - cod_info.max_nonzero_coeff = max_nonzero; - - for (var sfb = cod_info.sfb_smin; gsfb < cod_info.psymax; sfb++, gsfb += 3) { - var width, b; - var tmpATH; - if (gfp.VBR == VbrMode.vbr_rh || gfp.VBR == VbrMode.vbr_mtrh) - tmpATH = athAdjust(ATH.adjust, ATH.s[sfb], ATH.floor); - else - tmpATH = ATH.adjust * ATH.s[sfb]; - - width = cod_info.width[gsfb]; - for (b = 0; b < 3; b++) { - var en0 = 0.0, xmin; - var rh1, rh2; - var l = width >> 1; - - rh1 = tmpATH / width; - rh2 = DBL_EPSILON; - do { - var xa, xb; - xa = xr[j] * xr[j]; - en0 += xa; - rh2 += (xa < rh1) ? xa : rh1; - j++; - xb = xr[j] * xr[j]; - en0 += xb; - rh2 += (xb < rh1) ? xb : rh1; - j++; - } while (--l > 0); - if (en0 > tmpATH) - ath_over++; - if (sfb == Encoder.SBPSY_s) { - var x = tmpATH * gfc.nsPsy.shortfact[sfb]; - if (rh2 < x) { - rh2 = x; - } - } - if (enable_athaa_fix != 0) - xmin = rh2; - else - xmin = tmpATH; - - if (!gfp.ATHonly && !gfp.ATHshort) { - var e = ratio.en.s[sfb][b]; - if (e > 0.0) { - var x; - x = en0 * ratio.thm.s[sfb][b] * masking_lower / e; - if (enable_athaa_fix != 0) - x *= gfc.nsPsy.shortfact[sfb]; - if (xmin < x) - xmin = x; - } - } - if (enable_athaa_fix != 0) - pxmin[pxminPos++] = xmin; - else - pxmin[pxminPos++] = xmin * gfc.nsPsy.shortfact[sfb]; - } - /* b */ - if (gfp.useTemporal) { - if (pxmin[pxminPos - 3] > pxmin[pxminPos - 3 + 1]) - pxmin[pxminPos - 3 + 1] += (pxmin[pxminPos - 3] - pxmin[pxminPos - 3 + 1]) - * gfc.decay; - if (pxmin[pxminPos - 3 + 1] > pxmin[pxminPos - 3 + 2]) - pxmin[pxminPos - 3 + 2] += (pxmin[pxminPos - 3 + 1] - pxmin[pxminPos - 3 + 2]) - * gfc.decay; - } - } - /* end of short block sfb loop */ - - return ath_over; - }; - - function StartLine(j) { - this.s = j; - } - - this.calc_noise_core = function (cod_info, startline, l, step) { - var noise = 0; - var j = startline.s; - var ix = cod_info.l3_enc; - - if (j > cod_info.count1) { - while ((l--) != 0) { - var temp; - temp = cod_info.xr[j]; - j++; - noise += temp * temp; - temp = cod_info.xr[j]; - j++; - noise += temp * temp; - } - } else if (j > cod_info.big_values) { - var ix01 = new_float(2); - ix01[0] = 0; - ix01[1] = step; - while ((l--) != 0) { - var temp; - temp = Math.abs(cod_info.xr[j]) - ix01[ix[j]]; - j++; - noise += temp * temp; - temp = Math.abs(cod_info.xr[j]) - ix01[ix[j]]; - j++; - noise += temp * temp; - } - } else { - while ((l--) != 0) { - var temp; - temp = Math.abs(cod_info.xr[j]) - pow43[ix[j]] * step; - j++; - noise += temp * temp; - temp = Math.abs(cod_info.xr[j]) - pow43[ix[j]] * step; - j++; - noise += temp * temp; - } - } - - startline.s = j; - return noise; - } - - /** - *
- * -oo dB => -1.00 - * - 6 dB => -0.97 - * - 3 dB => -0.80 - * - 2 dB => -0.64 - * - 1 dB => -0.38 - * 0 dB => 0.00 - * + 1 dB => +0.49 - * + 2 dB => +1.06 - * + 3 dB => +1.68 - * + 6 dB => +3.69 - * +10 dB => +6.45 - *- */ - this.calc_noise = function (cod_info, l3_xmin, distort, res, prev_noise) { - var distortPos = 0; - var l3_xminPos = 0; - var sfb, l, over = 0; - var over_noise_db = 0; - /* 0 dB relative to masking */ - var tot_noise_db = 0; - /* -200 dB relative to masking */ - var max_noise = -20.0; - var j = 0; - var scalefac = cod_info.scalefac; - var scalefacPos = 0; - - res.over_SSD = 0; - - for (sfb = 0; sfb < cod_info.psymax; sfb++) { - var s = cod_info.global_gain - - (((scalefac[scalefacPos++]) + (cod_info.preflag != 0 ? pretab[sfb] - : 0)) << (cod_info.scalefac_scale + 1)) - - cod_info.subblock_gain[cod_info.window[sfb]] * 8; - var noise = 0.0; - - if (prev_noise != null && (prev_noise.step[sfb] == s)) { - - /* use previously computed values */ - noise = prev_noise.noise[sfb]; - j += cod_info.width[sfb]; - distort[distortPos++] = noise / l3_xmin[l3_xminPos++]; - - noise = prev_noise.noise_log[sfb]; - - } else { - var step = POW20(s); - l = cod_info.width[sfb] >> 1; - - if ((j + cod_info.width[sfb]) > cod_info.max_nonzero_coeff) { - var usefullsize; - usefullsize = cod_info.max_nonzero_coeff - j + 1; - - if (usefullsize > 0) - l = usefullsize >> 1; - else - l = 0; - } - - var sl = new StartLine(j); - noise = this.calc_noise_core(cod_info, sl, l, step); - j = sl.s; - - if (prev_noise != null) { - /* save noise values */ - prev_noise.step[sfb] = s; - prev_noise.noise[sfb] = noise; - } - - noise = distort[distortPos++] = noise / l3_xmin[l3_xminPos++]; - - /* multiplying here is adding in dB, but can overflow */ - noise = Util.FAST_LOG10(Math.max(noise, 1E-20)); - - if (prev_noise != null) { - /* save noise values */ - prev_noise.noise_log[sfb] = noise; - } - } - - if (prev_noise != null) { - /* save noise values */ - prev_noise.global_gain = cod_info.global_gain; - } - - tot_noise_db += noise; - - if (noise > 0.0) { - var tmp; - - tmp = Math.max(0 | (noise * 10 + .5), 1); - res.over_SSD += tmp * tmp; - - over++; - /* multiplying here is adding in dB -but can overflow */ - /* over_noise *= noise; */ - over_noise_db += noise; - } - max_noise = Math.max(max_noise, noise); - - } - - res.over_count = over; - res.tot_noise = tot_noise_db; - res.over_noise = over_noise_db; - res.max_noise = max_noise; - - return over; - } - - /** - * updates plotting data - * - * Mark Taylor 2000-??-?? - * - * Robert Hegemann: moved noise/distortion calc into it - */ - this.set_pinfo = function (gfp, cod_info, ratio, gr, ch) { - var gfc = gfp.internal_flags; - var sfb, sfb2; - var l; - var en0, en1; - var ifqstep = (cod_info.scalefac_scale == 0) ? .5 : 1.0; - var scalefac = cod_info.scalefac; - - var l3_xmin = new_float(L3Side.SFBMAX); - var xfsf = new_float(L3Side.SFBMAX); - var noise = new CalcNoiseResult(); - - calc_xmin(gfp, ratio, cod_info, l3_xmin); - calc_noise(cod_info, l3_xmin, xfsf, noise, null); - - var j = 0; - sfb2 = cod_info.sfb_lmax; - if (cod_info.block_type != Encoder.SHORT_TYPE - && 0 == cod_info.mixed_block_flag) - sfb2 = 22; - for (sfb = 0; sfb < sfb2; sfb++) { - var start = gfc.scalefac_band.l[sfb]; - var end = gfc.scalefac_band.l[sfb + 1]; - var bw = end - start; - for (en0 = 0.0; j < end; j++) - en0 += cod_info.xr[j] * cod_info.xr[j]; - en0 /= bw; - /* convert to MDCT units */ - /* scaling so it shows up on FFT plot */ - en1 = 1e15; - gfc.pinfo.en[gr][ch][sfb] = en1 * en0; - gfc.pinfo.xfsf[gr][ch][sfb] = en1 * l3_xmin[sfb] * xfsf[sfb] / bw; - - if (ratio.en.l[sfb] > 0 && !gfp.ATHonly) - en0 = en0 / ratio.en.l[sfb]; - else - en0 = 0.0; - - gfc.pinfo.thr[gr][ch][sfb] = en1 - * Math.max(en0 * ratio.thm.l[sfb], gfc.ATH.l[sfb]); - - /* there is no scalefactor bands >= SBPSY_l */ - gfc.pinfo.LAMEsfb[gr][ch][sfb] = 0; - if (cod_info.preflag != 0 && sfb >= 11) - gfc.pinfo.LAMEsfb[gr][ch][sfb] = -ifqstep * pretab[sfb]; - - if (sfb < Encoder.SBPSY_l) { - /* scfsi should be decoded by caller side */ - gfc.pinfo.LAMEsfb[gr][ch][sfb] -= ifqstep * scalefac[sfb]; - } - } - /* for sfb */ - - if (cod_info.block_type == Encoder.SHORT_TYPE) { - sfb2 = sfb; - for (sfb = cod_info.sfb_smin; sfb < Encoder.SBMAX_s; sfb++) { - var start = gfc.scalefac_band.s[sfb]; - var end = gfc.scalefac_band.s[sfb + 1]; - var bw = end - start; - for (var i = 0; i < 3; i++) { - for (en0 = 0.0, l = start; l < end; l++) { - en0 += cod_info.xr[j] * cod_info.xr[j]; - j++; - } - en0 = Math.max(en0 / bw, 1e-20); - /* convert to MDCT units */ - /* scaling so it shows up on FFT plot */ - en1 = 1e15; - - gfc.pinfo.en_s[gr][ch][3 * sfb + i] = en1 * en0; - gfc.pinfo.xfsf_s[gr][ch][3 * sfb + i] = en1 * l3_xmin[sfb2] - * xfsf[sfb2] / bw; - if (ratio.en.s[sfb][i] > 0) - en0 = en0 / ratio.en.s[sfb][i]; - else - en0 = 0.0; - if (gfp.ATHonly || gfp.ATHshort) - en0 = 0; - - gfc.pinfo.thr_s[gr][ch][3 * sfb + i] = en1 - * Math.max(en0 * ratio.thm.s[sfb][i], - gfc.ATH.s[sfb]); - - /* there is no scalefactor bands >= SBPSY_s */ - gfc.pinfo.LAMEsfb_s[gr][ch][3 * sfb + i] = -2.0 - * cod_info.subblock_gain[i]; - if (sfb < Encoder.SBPSY_s) { - gfc.pinfo.LAMEsfb_s[gr][ch][3 * sfb + i] -= ifqstep - * scalefac[sfb2]; - } - sfb2++; - } - } - } - /* block type short */ - gfc.pinfo.LAMEqss[gr][ch] = cod_info.global_gain; - gfc.pinfo.LAMEmainbits[gr][ch] = cod_info.part2_3_length - + cod_info.part2_length; - gfc.pinfo.LAMEsfbits[gr][ch] = cod_info.part2_length; - - gfc.pinfo.over[gr][ch] = noise.over_count; - gfc.pinfo.max_noise[gr][ch] = noise.max_noise * 10.0; - gfc.pinfo.over_noise[gr][ch] = noise.over_noise * 10.0; - gfc.pinfo.tot_noise[gr][ch] = noise.tot_noise * 10.0; - gfc.pinfo.over_SSD[gr][ch] = noise.over_SSD; - } - - /** - * updates plotting data for a whole frame - * - * Robert Hegemann 2000-10-21 - */ - function set_frame_pinfo(gfp, ratio) { - var gfc = gfp.internal_flags; - - gfc.masking_lower = 1.0; - - /* - * for every granule and channel patch l3_enc and set info - */ - for (var gr = 0; gr < gfc.mode_gr; gr++) { - for (var ch = 0; ch < gfc.channels_out; ch++) { - var cod_info = gfc.l3_side.tt[gr][ch]; - var scalefac_sav = new_int(L3Side.SFBMAX); - System.arraycopy(cod_info.scalefac, 0, scalefac_sav, 0, - scalefac_sav.length); - - /* - * reconstruct the scalefactors in case SCFSI was used - */ - if (gr == 1) { - var sfb; - for (sfb = 0; sfb < cod_info.sfb_lmax; sfb++) { - if (cod_info.scalefac[sfb] < 0) /* scfsi */ - cod_info.scalefac[sfb] = gfc.l3_side.tt[0][ch].scalefac[sfb]; - } - } - - set_pinfo(gfp, cod_info, ratio[gr][ch], gr, ch); - System.arraycopy(scalefac_sav, 0, cod_info.scalefac, 0, - scalefac_sav.length); - } - /* for ch */ - } - /* for gr */ - } - -} - - -function CalcNoiseData() { - this.global_gain = 0; - this.sfb_count1 = 0; - this.step = new_int(39); - this.noise = new_float(39); - this.noise_log = new_float(39); -} - -//package mp3; - - -function GrInfo() { - //float xr[] = new float[576]; - this.xr = new_float(576); - //int l3_enc[] = new int[576]; - this.l3_enc = new_int(576); - //int scalefac[] = new int[L3Side.SFBMAX]; - this.scalefac = new_int(L3Side.SFBMAX); - this.xrpow_max = 0.; - - this.part2_3_length = 0; - this.big_values = 0; - this.count1 = 0; - this.global_gain = 0; - this.scalefac_compress = 0; - this.block_type = 0; - this.mixed_block_flag = 0; - this.table_select = new_int(3); - this.subblock_gain = new_int(3 + 1); - this.region0_count = 0; - this.region1_count = 0; - this.preflag = 0; - this.scalefac_scale = 0; - this.count1table_select = 0; - - this.part2_length = 0; - this.sfb_lmax = 0; - this.sfb_smin = 0; - this.psy_lmax = 0; - this.sfbmax = 0; - this.psymax = 0; - this.sfbdivide = 0; - this.width = new_int(L3Side.SFBMAX); - this.window = new_int(L3Side.SFBMAX); - this.count1bits = 0; - /** - * added for LSF - */ - this.sfb_partition_table = null; - this.slen = new_int(4); - - this.max_nonzero_coeff = 0; - - var self = this; - function clone_int(array) { - return new Int32Array(array); - } - function clone_float(array) { - return new Float32Array(array); - } - this.assign = function (other) { - self.xr = clone_float(other.xr); //.slice(0); //clone(); - self.l3_enc = clone_int(other.l3_enc); //.slice(0); //clone(); - self.scalefac = clone_int(other.scalefac);//.slice(0); //clone(); - self.xrpow_max = other.xrpow_max; - - self.part2_3_length = other.part2_3_length; - self.big_values = other.big_values; - self.count1 = other.count1; - self.global_gain = other.global_gain; - self.scalefac_compress = other.scalefac_compress; - self.block_type = other.block_type; - self.mixed_block_flag = other.mixed_block_flag; - self.table_select = clone_int(other.table_select);//.slice(0); //clone(); - self.subblock_gain = clone_int(other.subblock_gain); //.slice(0); //.clone(); - self.region0_count = other.region0_count; - self.region1_count = other.region1_count; - self.preflag = other.preflag; - self.scalefac_scale = other.scalefac_scale; - self.count1table_select = other.count1table_select; - - self.part2_length = other.part2_length; - self.sfb_lmax = other.sfb_lmax; - self.sfb_smin = other.sfb_smin; - self.psy_lmax = other.psy_lmax; - self.sfbmax = other.sfbmax; - self.psymax = other.psymax; - self.sfbdivide = other.sfbdivide; - self.width = clone_int(other.width); //.slice(0); //.clone(); - self.window = clone_int(other.window); //.slice(0); //.clone(); - self.count1bits = other.count1bits; - - self.sfb_partition_table = other.sfb_partition_table.slice(0); //.clone(); - self.slen = clone_int(other.slen); //.slice(0); //.clone(); - self.max_nonzero_coeff = other.max_nonzero_coeff; - } -} - - -var L3Side = {}; - - - /** - * max scalefactor band, max(SBMAX_l, SBMAX_s*3, (SBMAX_s-3)*3+8) - */ -L3Side.SFBMAX = (Encoder.SBMAX_s * 3); - -/* - * MP3 quantization - * - * Copyright (c) 1999-2000 Mark Taylor - * Copyright (c) 1999-2003 Takehiro Tominaga - * Copyright (c) 2000-2007 Robert Hegemann - * Copyright (c) 2001-2005 Gabriel Bouvigne - * - * This library is free software; you can redistribute it and/or - * modify it under the terms of the GNU Lesser General Public - * License as published by the Free Software Foundation; either - * version 2 of the License, or (at your option) any later version. - * - * This library is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU - * Library General Public License for more details. - * - * You should have received a copy of the GNU Lesser General Public - * License along with this library; if not, write to the - * Free Software Foundation, Inc., 59 Temple Place - Suite 330, - * Boston, MA 02111-1307, USA. - */ - -/* $Id: Quantize.java,v 1.24 2011/05/24 20:48:06 kenchis Exp $ */ - -//package mp3; - -//import java.util.Arrays; - - -function Quantize() { - var bs; - this.rv = null; - var rv; - this.qupvt = null; - var qupvt; - - var vbr = new VBRQuantize(); - var tk; - - this.setModules = function (_bs, _rv, _qupvt, _tk) { - bs = _bs; - rv = _rv; - this.rv = _rv; - qupvt = _qupvt; - this.qupvt = _qupvt; - tk = _tk; - vbr.setModules(qupvt, tk); - } - - /** - * convert from L/R <. Mid/Side - */ - this.ms_convert = function (l3_side, gr) { - for (var i = 0; i < 576; ++i) { - var l = l3_side.tt[gr][0].xr[i]; - var r = l3_side.tt[gr][1].xr[i]; - l3_side.tt[gr][0].xr[i] = (l + r) * (Util.SQRT2 * 0.5); - l3_side.tt[gr][1].xr[i] = (l - r) * (Util.SQRT2 * 0.5); - } - }; - - /** - * mt 6/99 - * - * initializes cod_info, scalefac and xrpow - * - * returns 0 if all energies in xr are zero, else 1 - */ - function init_xrpow_core(cod_info, xrpow, upper, sum) { - sum = 0; - for (var i = 0; i <= upper; ++i) { - var tmp = Math.abs(cod_info.xr[i]); - sum += tmp; - xrpow[i] = Math.sqrt(tmp * Math.sqrt(tmp)); - - if (xrpow[i] > cod_info.xrpow_max) - cod_info.xrpow_max = xrpow[i]; - } - return sum; - } - - this.init_xrpow = function (gfc, cod_info, xrpow) { - var sum = 0; - var upper = 0 | cod_info.max_nonzero_coeff; - - cod_info.xrpow_max = 0; - - /* - * check if there is some energy we have to quantize and calculate xrpow - * matching our fresh scalefactors - */ - - Arrays.fill(xrpow, upper, 576, 0); - - sum = init_xrpow_core(cod_info, xrpow, upper, sum); - - /* - * return 1 if we have something to quantize, else 0 - */ - if (sum > 1E-20) { - var j = 0; - if ((gfc.substep_shaping & 2) != 0) - j = 1; - - for (var i = 0; i < cod_info.psymax; i++) - gfc.pseudohalf[i] = j; - - return true; - } - - Arrays.fill(cod_info.l3_enc, 0, 576, 0); - return false; - } - - /** - * Gabriel Bouvigne feb/apr 2003
- * Analog silence detection in partitionned sfb21 or sfb12 for short blocks - * - * From top to bottom of sfb, changes to 0 coeffs which are below ath. It - * stops on the first coeff higher than ath. - */ - function psfb21_analogsilence(gfc, cod_info) { - var ath = gfc.ATH; - var xr = cod_info.xr; - - if (cod_info.block_type != Encoder.SHORT_TYPE) { - /* NORM, START or STOP type, but not SHORT blocks */ - var stop = false; - for (var gsfb = Encoder.PSFB21 - 1; gsfb >= 0 && !stop; gsfb--) { - var start = gfc.scalefac_band.psfb21[gsfb]; - var end = gfc.scalefac_band.psfb21[gsfb + 1]; - var ath21 = qupvt.athAdjust(ath.adjust, ath.psfb21[gsfb], - ath.floor); - - if (gfc.nsPsy.longfact[21] > 1e-12) - ath21 *= gfc.nsPsy.longfact[21]; - - for (var j = end - 1; j >= start; j--) { - if (Math.abs(xr[j]) < ath21) - xr[j] = 0; - else { - stop = true; - break; - } - } - } - } else { - /* note: short blocks coeffs are reordered */ - for (var block = 0; block < 3; block++) { - var stop = false; - for (var gsfb = Encoder.PSFB12 - 1; gsfb >= 0 && !stop; gsfb--) { - var start = gfc.scalefac_band.s[12] - * 3 - + (gfc.scalefac_band.s[13] - gfc.scalefac_band.s[12]) - * block - + (gfc.scalefac_band.psfb12[gsfb] - gfc.scalefac_band.psfb12[0]); - var end = start - + (gfc.scalefac_band.psfb12[gsfb + 1] - gfc.scalefac_band.psfb12[gsfb]); - var ath12 = qupvt.athAdjust(ath.adjust, ath.psfb12[gsfb], - ath.floor); - - if (gfc.nsPsy.shortfact[12] > 1e-12) - ath12 *= gfc.nsPsy.shortfact[12]; - - for (var j = end - 1; j >= start; j--) { - if (Math.abs(xr[j]) < ath12) - xr[j] = 0; - else { - stop = true; - break; - } - } - } - } - } - - } - - this.init_outer_loop = function (gfc, cod_info) { - /* - * initialize fresh cod_info - */ - cod_info.part2_3_length = 0; - cod_info.big_values = 0; - cod_info.count1 = 0; - cod_info.global_gain = 210; - cod_info.scalefac_compress = 0; - /* mixed_block_flag, block_type was set in psymodel.c */ - cod_info.table_select[0] = 0; - cod_info.table_select[1] = 0; - cod_info.table_select[2] = 0; - cod_info.subblock_gain[0] = 0; - cod_info.subblock_gain[1] = 0; - cod_info.subblock_gain[2] = 0; - cod_info.subblock_gain[3] = 0; - /* this one is always 0 */ - cod_info.region0_count = 0; - cod_info.region1_count = 0; - cod_info.preflag = 0; - cod_info.scalefac_scale = 0; - cod_info.count1table_select = 0; - cod_info.part2_length = 0; - cod_info.sfb_lmax = Encoder.SBPSY_l; - cod_info.sfb_smin = Encoder.SBPSY_s; - cod_info.psy_lmax = gfc.sfb21_extra ? Encoder.SBMAX_l : Encoder.SBPSY_l; - cod_info.psymax = cod_info.psy_lmax; - cod_info.sfbmax = cod_info.sfb_lmax; - cod_info.sfbdivide = 11; - for (var sfb = 0; sfb < Encoder.SBMAX_l; sfb++) { - cod_info.width[sfb] = gfc.scalefac_band.l[sfb + 1] - - gfc.scalefac_band.l[sfb]; - /* which is always 0. */ - cod_info.window[sfb] = 3; - } - if (cod_info.block_type == Encoder.SHORT_TYPE) { - var ixwork = new_float(576); - - cod_info.sfb_smin = 0; - cod_info.sfb_lmax = 0; - if (cod_info.mixed_block_flag != 0) { - /* - * MPEG-1: sfbs 0-7 long block, 3-12 short blocks MPEG-2(.5): - * sfbs 0-5 long block, 3-12 short blocks - */ - cod_info.sfb_smin = 3; - cod_info.sfb_lmax = gfc.mode_gr * 2 + 4; - } - cod_info.psymax = cod_info.sfb_lmax - + 3 - * ((gfc.sfb21_extra ? Encoder.SBMAX_s : Encoder.SBPSY_s) - cod_info.sfb_smin); - cod_info.sfbmax = cod_info.sfb_lmax + 3 - * (Encoder.SBPSY_s - cod_info.sfb_smin); - cod_info.sfbdivide = cod_info.sfbmax - 18; - cod_info.psy_lmax = cod_info.sfb_lmax; - /* re-order the short blocks, for more efficient encoding below */ - /* By Takehiro TOMINAGA */ - /* - * Within each scalefactor band, data is given for successive time - * windows, beginning with window 0 and ending with window 2. Within - * each window, the quantized values are then arranged in order of - * increasing frequency... - */ - var ix = gfc.scalefac_band.l[cod_info.sfb_lmax]; - System.arraycopy(cod_info.xr, 0, ixwork, 0, 576); - for (var sfb = cod_info.sfb_smin; sfb < Encoder.SBMAX_s; sfb++) { - var start = gfc.scalefac_band.s[sfb]; - var end = gfc.scalefac_band.s[sfb + 1]; - for (var window = 0; window < 3; window++) { - for (var l = start; l < end; l++) { - cod_info.xr[ix++] = ixwork[3 * l + window]; - } - } - } - - var j = cod_info.sfb_lmax; - for (var sfb = cod_info.sfb_smin; sfb < Encoder.SBMAX_s; sfb++) { - cod_info.width[j] = cod_info.width[j + 1] = cod_info.width[j + 2] = gfc.scalefac_band.s[sfb + 1] - - gfc.scalefac_band.s[sfb]; - cod_info.window[j] = 0; - cod_info.window[j + 1] = 1; - cod_info.window[j + 2] = 2; - j += 3; - } - } - - cod_info.count1bits = 0; - cod_info.sfb_partition_table = qupvt.nr_of_sfb_block[0][0]; - cod_info.slen[0] = 0; - cod_info.slen[1] = 0; - cod_info.slen[2] = 0; - cod_info.slen[3] = 0; - - cod_info.max_nonzero_coeff = 575; - - /* - * fresh scalefactors are all zero - */ - Arrays.fill(cod_info.scalefac, 0); - - psfb21_analogsilence(gfc, cod_info); - }; - - function BinSearchDirection(ordinal) { - this.ordinal = ordinal; - } - - BinSearchDirection.BINSEARCH_NONE = new BinSearchDirection(0); - BinSearchDirection.BINSEARCH_UP = new BinSearchDirection(1); - BinSearchDirection.BINSEARCH_DOWN = new BinSearchDirection(2); - - /** - * author/date?? - * - * binary step size search used by outer_loop to get a quantizer step size - * to start with - */ - function bin_search_StepSize(gfc, cod_info, desired_rate, ch, xrpow) { - var nBits; - var CurrentStep = gfc.CurrentStep[ch]; - var flagGoneOver = false; - var start = gfc.OldValue[ch]; - var Direction = BinSearchDirection.BINSEARCH_NONE; - cod_info.global_gain = start; - desired_rate -= cod_info.part2_length; - - for (; ;) { - var step; - nBits = tk.count_bits(gfc, xrpow, cod_info, null); - - if (CurrentStep == 1 || nBits == desired_rate) - break; - /* nothing to adjust anymore */ - - if (nBits > desired_rate) { - /* increase Quantize_StepSize */ - if (Direction == BinSearchDirection.BINSEARCH_DOWN) - flagGoneOver = true; - - if (flagGoneOver) - CurrentStep /= 2; - Direction = BinSearchDirection.BINSEARCH_UP; - step = CurrentStep; - } else { - /* decrease Quantize_StepSize */ - if (Direction == BinSearchDirection.BINSEARCH_UP) - flagGoneOver = true; - - if (flagGoneOver) - CurrentStep /= 2; - Direction = BinSearchDirection.BINSEARCH_DOWN; - step = -CurrentStep; - } - cod_info.global_gain += step; - if (cod_info.global_gain < 0) { - cod_info.global_gain = 0; - flagGoneOver = true; - } - if (cod_info.global_gain > 255) { - cod_info.global_gain = 255; - flagGoneOver = true; - } - } - - - while (nBits > desired_rate && cod_info.global_gain < 255) { - cod_info.global_gain++; - nBits = tk.count_bits(gfc, xrpow, cod_info, null); - } - gfc.CurrentStep[ch] = (start - cod_info.global_gain >= 4) ? 4 : 2; - gfc.OldValue[ch] = cod_info.global_gain; - cod_info.part2_3_length = nBits; - return nBits; - } - - this.trancate_smallspectrums = function (gfc, gi, l3_xmin, work) { - var distort = new_float(L3Side.SFBMAX); - - if ((0 == (gfc.substep_shaping & 4) && gi.block_type == Encoder.SHORT_TYPE) - || (gfc.substep_shaping & 0x80) != 0) - return; - qupvt.calc_noise(gi, l3_xmin, distort, new CalcNoiseResult(), null); - for (var j = 0; j < 576; j++) { - var xr = 0.0; - if (gi.l3_enc[j] != 0) - xr = Math.abs(gi.xr[j]); - work[j] = xr; - } - - var j = 0; - var sfb = 8; - if (gi.block_type == Encoder.SHORT_TYPE) - sfb = 6; - do { - var allowedNoise, trancateThreshold; - var nsame, start; - - var width = gi.width[sfb]; - j += width; - if (distort[sfb] >= 1.0) - continue; - - Arrays.sort(work, j - width, width); - if (BitStream.EQ(work[j - 1], 0.0)) - continue; - /* all zero sfb */ - - allowedNoise = (1.0 - distort[sfb]) * l3_xmin[sfb]; - trancateThreshold = 0.0; - start = 0; - do { - var noise; - for (nsame = 1; start + nsame < width; nsame++) - if (BitStream.NEQ(work[start + j - width], work[start + j - + nsame - width])) - break; - - noise = work[start + j - width] * work[start + j - width] - * nsame; - if (allowedNoise < noise) { - if (start != 0) - trancateThreshold = work[start + j - width - 1]; - break; - } - allowedNoise -= noise; - start += nsame; - } while (start < width); - if (BitStream.EQ(trancateThreshold, 0.0)) - continue; - - do { - if (Math.abs(gi.xr[j - width]) <= trancateThreshold) - gi.l3_enc[j - width] = 0; - } while (--width > 0); - } while (++sfb < gi.psymax); - - gi.part2_3_length = tk.noquant_count_bits(gfc, gi, null); - }; - - /** - * author/date?? - * - * Function: Returns zero if there is a scalefac which has not been - * amplified. Otherwise it returns one. - */ - function loop_break(cod_info) { - for (var sfb = 0; sfb < cod_info.sfbmax; sfb++) - if (cod_info.scalefac[sfb] - + cod_info.subblock_gain[cod_info.window[sfb]] == 0) - return false; - - return true; - } - - /* mt 5/99: Function: Improved calc_noise for a single channel */ - - function penalties(noise) { - return Util.FAST_LOG10((0.368 + 0.632 * noise * noise * noise)); - } - - /** - * author/date?? - * - * several different codes to decide which quantization is better - */ - function get_klemm_noise(distort, gi) { - var klemm_noise = 1E-37; - for (var sfb = 0; sfb < gi.psymax; sfb++) - klemm_noise += penalties(distort[sfb]); - - return Math.max(1e-20, klemm_noise); - } - - function quant_compare(quant_comp, best, calc, gi, distort) { - /** - * noise is given in decibels (dB) relative to masking thesholds.
- * - * over_noise: ??? (the previous comment is fully wrong)
- * tot_noise: ??? (the previous comment is fully wrong)
- * max_noise: max quantization noise - */ - var better; - - switch (quant_comp) { - default: - case 9: - { - if (best.over_count > 0) { - /* there are distorted sfb */ - better = calc.over_SSD <= best.over_SSD; - if (calc.over_SSD == best.over_SSD) - better = calc.bits < best.bits; - } else { - /* no distorted sfb */ - better = ((calc.max_noise < 0) && ((calc.max_noise * 10 + calc.bits) <= (best.max_noise * 10 + best.bits))); - } - break; - } - - case 0: - better = calc.over_count < best.over_count - || (calc.over_count == best.over_count && calc.over_noise < best.over_noise) - || (calc.over_count == best.over_count - && BitStream.EQ(calc.over_noise, best.over_noise) && calc.tot_noise < best.tot_noise); - break; - - case 8: - calc.max_noise = get_klemm_noise(distort, gi); - //$FALL-THROUGH$ - case 1: - better = calc.max_noise < best.max_noise; - break; - case 2: - better = calc.tot_noise < best.tot_noise; - break; - case 3: - better = (calc.tot_noise < best.tot_noise) - && (calc.max_noise < best.max_noise); - break; - case 4: - better = (calc.max_noise <= 0.0 && best.max_noise > 0.2) - || (calc.max_noise <= 0.0 && best.max_noise < 0.0 - && best.max_noise > calc.max_noise - 0.2 && calc.tot_noise < best.tot_noise) - || (calc.max_noise <= 0.0 && best.max_noise > 0.0 - && best.max_noise > calc.max_noise - 0.2 && calc.tot_noise < best.tot_noise - + best.over_noise) - || (calc.max_noise > 0.0 && best.max_noise > -0.05 - && best.max_noise > calc.max_noise - 0.1 && calc.tot_noise - + calc.over_noise < best.tot_noise - + best.over_noise) - || (calc.max_noise > 0.0 && best.max_noise > -0.1 - && best.max_noise > calc.max_noise - 0.15 && calc.tot_noise - + calc.over_noise + calc.over_noise < best.tot_noise - + best.over_noise + best.over_noise); - break; - case 5: - better = calc.over_noise < best.over_noise - || (BitStream.EQ(calc.over_noise, best.over_noise) && calc.tot_noise < best.tot_noise); - break; - case 6: - better = calc.over_noise < best.over_noise - || (BitStream.EQ(calc.over_noise, best.over_noise) && (calc.max_noise < best.max_noise || (BitStream - .EQ(calc.max_noise, best.max_noise) && calc.tot_noise <= best.tot_noise))); - break; - case 7: - better = calc.over_count < best.over_count - || calc.over_noise < best.over_noise; - break; - } - - if (best.over_count == 0) { - /* - * If no distorted bands, only use this quantization if it is - * better, and if it uses less bits. Unfortunately, part2_3_length - * is sometimes a poor estimator of the final size at low bitrates. - */ - better = better && calc.bits < best.bits; - } - - return better; - } - - /** - * author/date?? - * - *
- * Amplify the scalefactor bands that violate the masking threshold. - * See ISO 11172-3 Section C.1.5.4.3.5 - * - * distort[] = noise/masking - * distort[] > 1 ==> noise is not masked - * distort[] < 1 ==> noise is masked - * max_dist = maximum value of distort[] - * - * Three algorithms: - * noise_shaping_amp - * 0 Amplify all bands with distort[]>1. - * - * 1 Amplify all bands with distort[] >= max_dist^(.5); - * ( 50% in the db scale) - * - * 2 Amplify first band with distort[] >= max_dist; - * - * - * For algorithms 0 and 1, if max_dist < 1, then amplify all bands - * with distort[] >= .95*max_dist. This is to make sure we always - * amplify at least one band. - *- */ - function amp_scalefac_bands(gfp, cod_info, distort, xrpow, bRefine) { - var gfc = gfp.internal_flags; - var ifqstep34; - - if (cod_info.scalefac_scale == 0) { - ifqstep34 = 1.29683955465100964055; - /* 2**(.75*.5) */ - } else { - ifqstep34 = 1.68179283050742922612; - /* 2**(.75*1) */ - } - - /* compute maximum value of distort[] */ - var trigger = 0; - for (var sfb = 0; sfb < cod_info.sfbmax; sfb++) { - if (trigger < distort[sfb]) - trigger = distort[sfb]; - } - - var noise_shaping_amp = gfc.noise_shaping_amp; - if (noise_shaping_amp == 3) { - if (bRefine) - noise_shaping_amp = 2; - else - noise_shaping_amp = 1; - } - switch (noise_shaping_amp) { - case 2: - /* amplify exactly 1 band */ - break; - - case 1: - /* amplify bands within 50% of max (on db scale) */ - if (trigger > 1.0) - trigger = Math.pow(trigger, .5); - else - trigger *= .95; - break; - - case 0: - default: - /* ISO algorithm. amplify all bands with distort>1 */ - if (trigger > 1.0) - trigger = 1.0; - else - trigger *= .95; - break; - } - - var j = 0; - for (var sfb = 0; sfb < cod_info.sfbmax; sfb++) { - var width = cod_info.width[sfb]; - var l; - j += width; - if (distort[sfb] < trigger) - continue; - - if ((gfc.substep_shaping & 2) != 0) { - gfc.pseudohalf[sfb] = (0 == gfc.pseudohalf[sfb]) ? 1 : 0; - if (0 == gfc.pseudohalf[sfb] && gfc.noise_shaping_amp == 2) - return; - } - cod_info.scalefac[sfb]++; - for (l = -width; l < 0; l++) { - xrpow[j + l] *= ifqstep34; - if (xrpow[j + l] > cod_info.xrpow_max) - cod_info.xrpow_max = xrpow[j + l]; - } - - if (gfc.noise_shaping_amp == 2) - return; - } - } - - /** - * Takehiro Tominaga 2000-xx-xx - * - * turns on scalefac scale and adjusts scalefactors - */ - function inc_scalefac_scale(cod_info, xrpow) { - var ifqstep34 = 1.29683955465100964055; - - var j = 0; - for (var sfb = 0; sfb < cod_info.sfbmax; sfb++) { - var width = cod_info.width[sfb]; - var s = cod_info.scalefac[sfb]; - if (cod_info.preflag != 0) - s += qupvt.pretab[sfb]; - j += width; - if ((s & 1) != 0) { - s++; - for (var l = -width; l < 0; l++) { - xrpow[j + l] *= ifqstep34; - if (xrpow[j + l] > cod_info.xrpow_max) - cod_info.xrpow_max = xrpow[j + l]; - } - } - cod_info.scalefac[sfb] = s >> 1; - } - cod_info.preflag = 0; - cod_info.scalefac_scale = 1; - } - - /** - * Takehiro Tominaga 2000-xx-xx - * - * increases the subblock gain and adjusts scalefactors - */ - function inc_subblock_gain(gfc, cod_info, xrpow) { - var sfb; - var scalefac = cod_info.scalefac; - - /* subbloc_gain can't do anything in the long block region */ - for (sfb = 0; sfb < cod_info.sfb_lmax; sfb++) { - if (scalefac[sfb] >= 16) - return true; - } - - for (var window = 0; window < 3; window++) { - var s1 = 0; - var s2 = 0; - - for (sfb = cod_info.sfb_lmax + window; sfb < cod_info.sfbdivide; sfb += 3) { - if (s1 < scalefac[sfb]) - s1 = scalefac[sfb]; - } - for (; sfb < cod_info.sfbmax; sfb += 3) { - if (s2 < scalefac[sfb]) - s2 = scalefac[sfb]; - } - - if (s1 < 16 && s2 < 8) - continue; - - if (cod_info.subblock_gain[window] >= 7) - return true; - - /* - * even though there is no scalefactor for sfb12 subblock gain - * affects upper frequencies too, that's why we have to go up to - * SBMAX_s - */ - cod_info.subblock_gain[window]++; - var j = gfc.scalefac_band.l[cod_info.sfb_lmax]; - for (sfb = cod_info.sfb_lmax + window; sfb < cod_info.sfbmax; sfb += 3) { - var amp; - var width = cod_info.width[sfb]; - var s = scalefac[sfb]; - s = s - (4 >> cod_info.scalefac_scale); - if (s >= 0) { - scalefac[sfb] = s; - j += width * 3; - continue; - } - - scalefac[sfb] = 0; - { - var gain = 210 + (s << (cod_info.scalefac_scale + 1)); - amp = qupvt.IPOW20(gain); - } - j += width * (window + 1); - for (var l = -width; l < 0; l++) { - xrpow[j + l] *= amp; - if (xrpow[j + l] > cod_info.xrpow_max) - cod_info.xrpow_max = xrpow[j + l]; - } - j += width * (3 - window - 1); - } - - { - var amp = qupvt.IPOW20(202); - j += cod_info.width[sfb] * (window + 1); - for (var l = -cod_info.width[sfb]; l < 0; l++) { - xrpow[j + l] *= amp; - if (xrpow[j + l] > cod_info.xrpow_max) - cod_info.xrpow_max = xrpow[j + l]; - } - } - } - return false; - } - - /** - *
- * Takehiro Tominaga /date?? - * Robert Hegemann 2000-09-06: made a function of it - * - * amplifies scalefactor bands, - * - if all are already amplified returns 0 - * - if some bands are amplified too much: - * * try to increase scalefac_scale - * * if already scalefac_scale was set - * try on short blocks to increase subblock gain - *- */ - function balance_noise(gfp, cod_info, distort, xrpow, bRefine) { - var gfc = gfp.internal_flags; - - amp_scalefac_bands(gfp, cod_info, distort, xrpow, bRefine); - - /* - * check to make sure we have not amplified too much loop_break returns - * 0 if there is an unamplified scalefac scale_bitcount returns 0 if no - * scalefactors are too large - */ - - var status = loop_break(cod_info); - - if (status) - return false; - /* all bands amplified */ - - /* - * not all scalefactors have been amplified. so these scalefacs are - * possibly valid. encode them: - */ - if (gfc.mode_gr == 2) - status = tk.scale_bitcount(cod_info); - else - status = tk.scale_bitcount_lsf(gfc, cod_info); - - if (!status) - return true; - /* amplified some bands not exceeding limits */ - - /* - * some scalefactors are too large. lets try setting scalefac_scale=1 - */ - if (gfc.noise_shaping > 1) { - Arrays.fill(gfc.pseudohalf, 0); - if (0 == cod_info.scalefac_scale) { - inc_scalefac_scale(cod_info, xrpow); - status = false; - } else { - if (cod_info.block_type == Encoder.SHORT_TYPE - && gfc.subblock_gain > 0) { - status = (inc_subblock_gain(gfc, cod_info, xrpow) || loop_break(cod_info)); - } - } - } - - if (!status) { - if (gfc.mode_gr == 2) - status = tk.scale_bitcount(cod_info); - else - status = tk.scale_bitcount_lsf(gfc, cod_info); - } - return !status; - } - - /** - *
- * Function: The outer iteration loop controls the masking conditions - * of all scalefactorbands. It computes the best scalefac and - * global gain. This module calls the inner iteration loop - * - * mt 5/99 completely rewritten to allow for bit reservoir control, - * mid/side channels with L/R or mid/side masking thresholds, - * and chooses best quantization instead of last quantization when - * no distortion free quantization can be found. - * - * added VBR support mt 5/99 - * - * some code shuffle rh 9/00 - *- * - * @param l3_xmin - * allowed distortion - * @param xrpow - * coloured magnitudes of spectral - * @param targ_bits - * maximum allowed bits - */ - this.outer_loop = function (gfp, cod_info, l3_xmin, xrpow, ch, targ_bits) { - var gfc = gfp.internal_flags; - var cod_info_w = new GrInfo(); - var save_xrpow = new_float(576); - var distort = new_float(L3Side.SFBMAX); - var best_noise_info = new CalcNoiseResult(); - var better; - var prev_noise = new CalcNoiseData(); - var best_part2_3_length = 9999999; - var bEndOfSearch = false; - var bRefine = false; - var best_ggain_pass1 = 0; - - bin_search_StepSize(gfc, cod_info, targ_bits, ch, xrpow); - - if (0 == gfc.noise_shaping) - /* fast mode, no noise shaping, we are ready */ - return 100; - /* default noise_info.over_count */ - - /* compute the distortion in this quantization */ - /* coefficients and thresholds both l/r (or both mid/side) */ - qupvt.calc_noise(cod_info, l3_xmin, distort, best_noise_info, - prev_noise); - best_noise_info.bits = cod_info.part2_3_length; - - cod_info_w.assign(cod_info); - var age = 0; - System.arraycopy(xrpow, 0, save_xrpow, 0, 576); - - while (!bEndOfSearch) { - /* BEGIN MAIN LOOP */ - do { - var noise_info = new CalcNoiseResult(); - var search_limit; - var maxggain = 255; - - /* - * When quantization with no distorted bands is found, allow up - * to X new unsuccesful tries in serial. This gives us more - * possibilities for different quant_compare modes. Much more - * than 3 makes not a big difference, it is only slower. - */ - - if ((gfc.substep_shaping & 2) != 0) { - search_limit = 20; - } else { - search_limit = 3; - } - - /* - * Check if the last scalefactor band is distorted. in VBR mode - * we can't get rid of the distortion, so quit now and VBR mode - * will try again with more bits. (makes a 10% speed increase, - * the files I tested were binary identical, 2000/05/20 Robert - * Hegemann) distort[] > 1 means noise > allowed noise - */ - if (gfc.sfb21_extra) { - if (distort[cod_info_w.sfbmax] > 1.0) - break; - if (cod_info_w.block_type == Encoder.SHORT_TYPE - && (distort[cod_info_w.sfbmax + 1] > 1.0 || distort[cod_info_w.sfbmax + 2] > 1.0)) - break; - } - - /* try a new scalefactor conbination on cod_info_w */ - if (!balance_noise(gfp, cod_info_w, distort, xrpow, bRefine)) - break; - if (cod_info_w.scalefac_scale != 0) - maxggain = 254; - - /* - * inner_loop starts with the initial quantization step computed - * above and slowly increases until the bits < huff_bits. Thus - * it is important not to start with too large of an inital - * quantization step. Too small is ok, but inner_loop will take - * longer - */ - var huff_bits = targ_bits - cod_info_w.part2_length; - if (huff_bits <= 0) - break; - - /* - * increase quantizer stepsize until needed bits are below - * maximum - */ - while ((cod_info_w.part2_3_length = tk.count_bits(gfc, xrpow, - cod_info_w, prev_noise)) > huff_bits - && cod_info_w.global_gain <= maxggain) - cod_info_w.global_gain++; - - if (cod_info_w.global_gain > maxggain) - break; - - if (best_noise_info.over_count == 0) { - - while ((cod_info_w.part2_3_length = tk.count_bits(gfc, - xrpow, cod_info_w, prev_noise)) > best_part2_3_length - && cod_info_w.global_gain <= maxggain) - cod_info_w.global_gain++; - - if (cod_info_w.global_gain > maxggain) - break; - } - - /* compute the distortion in this quantization */ - qupvt.calc_noise(cod_info_w, l3_xmin, distort, noise_info, - prev_noise); - noise_info.bits = cod_info_w.part2_3_length; - - /* - * check if this quantization is better than our saved - * quantization - */ - if (cod_info.block_type != Encoder.SHORT_TYPE) { - // NORM, START or STOP type - better = gfp.quant_comp; - } else - better = gfp.quant_comp_short; - - better = quant_compare(better, best_noise_info, noise_info, - cod_info_w, distort) ? 1 : 0; - - /* save data so we can restore this quantization later */ - if (better != 0) { - best_part2_3_length = cod_info.part2_3_length; - best_noise_info = noise_info; - cod_info.assign(cod_info_w); - age = 0; - /* save data so we can restore this quantization later */ - /* store for later reuse */ - System.arraycopy(xrpow, 0, save_xrpow, 0, 576); - } else { - /* early stop? */ - if (gfc.full_outer_loop == 0) { - if (++age > search_limit - && best_noise_info.over_count == 0) - break; - if ((gfc.noise_shaping_amp == 3) && bRefine && age > 30) - break; - if ((gfc.noise_shaping_amp == 3) - && bRefine - && (cod_info_w.global_gain - best_ggain_pass1) > 15) - break; - } - } - } while ((cod_info_w.global_gain + cod_info_w.scalefac_scale) < 255); - - if (gfc.noise_shaping_amp == 3) { - if (!bRefine) { - /* refine search */ - cod_info_w.assign(cod_info); - System.arraycopy(save_xrpow, 0, xrpow, 0, 576); - age = 0; - best_ggain_pass1 = cod_info_w.global_gain; - - bRefine = true; - } else { - /* search already refined, stop */ - bEndOfSearch = true; - } - - } else { - bEndOfSearch = true; - } - } - - /* - * finish up - */ - if (gfp.VBR == VbrMode.vbr_rh || gfp.VBR == VbrMode.vbr_mtrh) - /* restore for reuse on next try */ - System.arraycopy(save_xrpow, 0, xrpow, 0, 576); - /* - * do the 'substep shaping' - */ - else if ((gfc.substep_shaping & 1) != 0) - trancate_smallspectrums(gfc, cod_info, l3_xmin, xrpow); - - return best_noise_info.over_count; - } - - /** - * Robert Hegemann 2000-09-06 - * - * update reservoir status after FINAL quantization/bitrate - */ - this.iteration_finish_one = function (gfc, gr, ch) { - var l3_side = gfc.l3_side; - var cod_info = l3_side.tt[gr][ch]; - - /* - * try some better scalefac storage - */ - tk.best_scalefac_store(gfc, gr, ch, l3_side); - - /* - * best huffman_divide may save some bits too - */ - if (gfc.use_best_huffman == 1) - tk.best_huffman_divide(gfc, cod_info); - - /* - * update reservoir status after FINAL quantization/bitrate - */ - rv.ResvAdjust(gfc, cod_info); - }; - - /** - * - * 2000-09-04 Robert Hegemann - * - * @param l3_xmin - * allowed distortion of the scalefactor - * @param xrpow - * coloured magnitudes of spectral values - */ - this.VBR_encode_granule = function (gfp, cod_info, l3_xmin, xrpow, ch, min_bits, max_bits) { - var gfc = gfp.internal_flags; - var bst_cod_info = new GrInfo(); - var bst_xrpow = new_float(576); - var Max_bits = max_bits; - var real_bits = max_bits + 1; - var this_bits = (max_bits + min_bits) / 2; - var dbits, over, found = 0; - var sfb21_extra = gfc.sfb21_extra; - - Arrays.fill(bst_cod_info.l3_enc, 0); - - /* - * search within round about 40 bits of optimal - */ - do { - - if (this_bits > Max_bits - 42) - gfc.sfb21_extra = false; - else - gfc.sfb21_extra = sfb21_extra; - - over = outer_loop(gfp, cod_info, l3_xmin, xrpow, ch, this_bits); - - /* - * is quantization as good as we are looking for ? in this case: is - * no scalefactor band distorted? - */ - if (over <= 0) { - found = 1; - /* - * now we know it can be done with "real_bits" and maybe we can - * skip some iterations - */ - real_bits = cod_info.part2_3_length; - - /* - * store best quantization so far - */ - bst_cod_info.assign(cod_info); - System.arraycopy(xrpow, 0, bst_xrpow, 0, 576); - - /* - * try with fewer bits - */ - max_bits = real_bits - 32; - dbits = max_bits - min_bits; - this_bits = (max_bits + min_bits) / 2; - } else { - /* - * try with more bits - */ - min_bits = this_bits + 32; - dbits = max_bits - min_bits; - this_bits = (max_bits + min_bits) / 2; - - if (found != 0) { - found = 2; - /* - * start again with best quantization so far - */ - cod_info.assign(bst_cod_info); - System.arraycopy(bst_xrpow, 0, xrpow, 0, 576); - } - } - } while (dbits > 12); - - gfc.sfb21_extra = sfb21_extra; - - /* - * found=0 => nothing found, use last one found=1 => we just found the - * best and left the loop found=2 => we restored a good one and have now - * l3_enc to restore too - */ - if (found == 2) { - System.arraycopy(bst_cod_info.l3_enc, 0, cod_info.l3_enc, 0, 576); - } - } - - /** - * Robert Hegemann 2000-09-05 - * - * calculates * how many bits are available for analog silent granules * how - * many bits to use for the lowest allowed bitrate * how many bits each - * bitrate would provide - */ - this.get_framebits = function (gfp, frameBits) { - var gfc = gfp.internal_flags; - - /* - * always use at least this many bits per granule per channel unless we - * detect analog silence, see below - */ - gfc.bitrate_index = gfc.VBR_min_bitrate; - var bitsPerFrame = bs.getframebits(gfp); - - /* - * bits for analog silence - */ - gfc.bitrate_index = 1; - bitsPerFrame = bs.getframebits(gfp); - - for (var i = 1; i <= gfc.VBR_max_bitrate; i++) { - gfc.bitrate_index = i; - var mb = new MeanBits(bitsPerFrame); - frameBits[i] = rv.ResvFrameBegin(gfp, mb); - bitsPerFrame = mb.bits; - } - }; - - /* RH: this one needs to be overhauled sometime */ - - /** - *
- * 2000-09-04 Robert Hegemann - * - * * converts LR to MS coding when necessary - * * calculates allowed/adjusted quantization noise amounts - * * detects analog silent frames - * - * some remarks: - * - lower masking depending on Quality setting - * - quality control together with adjusted ATH MDCT scaling - * on lower quality setting allocate more noise from - * ATH masking, and on higher quality setting allocate - * less noise from ATH masking. - * - experiments show that going more than 2dB over GPSYCHO's - * limits ends up in very annoying artefacts - *- */ - this.VBR_old_prepare = function (gfp, pe, ms_ener_ratio, ratio, l3_xmin, frameBits, min_bits, - max_bits, bands) { - var gfc = gfp.internal_flags; - - var masking_lower_db, adjust = 0.0; - var analog_silence = 1; - var bits = 0; - - gfc.bitrate_index = gfc.VBR_max_bitrate; - var avg = rv.ResvFrameBegin(gfp, new MeanBits(0)) / gfc.mode_gr; - - get_framebits(gfp, frameBits); - - for (var gr = 0; gr < gfc.mode_gr; gr++) { - var mxb = qupvt.on_pe(gfp, pe, max_bits[gr], avg, gr, 0); - if (gfc.mode_ext == Encoder.MPG_MD_MS_LR) { - ms_convert(gfc.l3_side, gr); - qupvt.reduce_side(max_bits[gr], ms_ener_ratio[gr], avg, mxb); - } - for (var ch = 0; ch < gfc.channels_out; ++ch) { - var cod_info = gfc.l3_side.tt[gr][ch]; - - if (cod_info.block_type != Encoder.SHORT_TYPE) { - // NORM, START or STOP type - adjust = 1.28 / (1 + Math - .exp(3.5 - pe[gr][ch] / 300.)) - 0.05; - masking_lower_db = gfc.PSY.mask_adjust - adjust; - } else { - adjust = 2.56 / (1 + Math - .exp(3.5 - pe[gr][ch] / 300.)) - 0.14; - masking_lower_db = gfc.PSY.mask_adjust_short - adjust; - } - gfc.masking_lower = Math.pow(10.0, - masking_lower_db * 0.1); - - init_outer_loop(gfc, cod_info); - bands[gr][ch] = qupvt.calc_xmin(gfp, ratio[gr][ch], cod_info, - l3_xmin[gr][ch]); - if (bands[gr][ch] != 0) - analog_silence = 0; - - min_bits[gr][ch] = 126; - - bits += max_bits[gr][ch]; - } - } - for (var gr = 0; gr < gfc.mode_gr; gr++) { - for (var ch = 0; ch < gfc.channels_out; ch++) { - if (bits > frameBits[gfc.VBR_max_bitrate]) { - max_bits[gr][ch] *= frameBits[gfc.VBR_max_bitrate]; - max_bits[gr][ch] /= bits; - } - if (min_bits[gr][ch] > max_bits[gr][ch]) - min_bits[gr][ch] = max_bits[gr][ch]; - - } - /* for ch */ - } - /* for gr */ - - return analog_silence; - }; - - this.bitpressure_strategy = function (gfc, l3_xmin, min_bits, max_bits) { - for (var gr = 0; gr < gfc.mode_gr; gr++) { - for (var ch = 0; ch < gfc.channels_out; ch++) { - var gi = gfc.l3_side.tt[gr][ch]; - var pxmin = l3_xmin[gr][ch]; - var pxminPos = 0; - for (var sfb = 0; sfb < gi.psy_lmax; sfb++) - pxmin[pxminPos++] *= 1. + .029 * sfb * sfb - / Encoder.SBMAX_l / Encoder.SBMAX_l; - - if (gi.block_type == Encoder.SHORT_TYPE) { - for (var sfb = gi.sfb_smin; sfb < Encoder.SBMAX_s; sfb++) { - pxmin[pxminPos++] *= 1. + .029 * sfb * sfb - / Encoder.SBMAX_s / Encoder.SBMAX_s; - pxmin[pxminPos++] *= 1. + .029 * sfb * sfb - / Encoder.SBMAX_s / Encoder.SBMAX_s; - pxmin[pxminPos++] *= 1. + .029 * sfb * sfb - / Encoder.SBMAX_s / Encoder.SBMAX_s; - } - } - max_bits[gr][ch] = 0 | Math.max(min_bits[gr][ch], - 0.9 * max_bits[gr][ch]); - } - } - }; - - this.VBR_new_prepare = function (gfp, pe, ratio, l3_xmin, frameBits, max_bits) { - var gfc = gfp.internal_flags; - - var analog_silence = 1; - var avg = 0, bits = 0; - var maximum_framebits; - - if (!gfp.free_format) { - gfc.bitrate_index = gfc.VBR_max_bitrate; - - var mb = new MeanBits(avg); - rv.ResvFrameBegin(gfp, mb); - avg = mb.bits; - - get_framebits(gfp, frameBits); - maximum_framebits = frameBits[gfc.VBR_max_bitrate]; - } else { - gfc.bitrate_index = 0; - var mb = new MeanBits(avg); - maximum_framebits = rv.ResvFrameBegin(gfp, mb); - avg = mb.bits; - frameBits[0] = maximum_framebits; - } - - for (var gr = 0; gr < gfc.mode_gr; gr++) { - qupvt.on_pe(gfp, pe, max_bits[gr], avg, gr, 0); - if (gfc.mode_ext == Encoder.MPG_MD_MS_LR) { - ms_convert(gfc.l3_side, gr); - } - for (var ch = 0; ch < gfc.channels_out; ++ch) { - var cod_info = gfc.l3_side.tt[gr][ch]; - - gfc.masking_lower = Math.pow(10.0, - gfc.PSY.mask_adjust * 0.1); - - init_outer_loop(gfc, cod_info); - if (0 != qupvt.calc_xmin(gfp, ratio[gr][ch], cod_info, - l3_xmin[gr][ch])) - analog_silence = 0; - - bits += max_bits[gr][ch]; - } - } - for (var gr = 0; gr < gfc.mode_gr; gr++) { - for (var ch = 0; ch < gfc.channels_out; ch++) { - if (bits > maximum_framebits) { - max_bits[gr][ch] *= maximum_framebits; - max_bits[gr][ch] /= bits; - } - - } - /* for ch */ - } - /* for gr */ - - return analog_silence; - }; - - /** - * calculates target bits for ABR encoding - * - * mt 2000/05/31 - */ - this.calc_target_bits = function (gfp, pe, ms_ener_ratio, targ_bits, analog_silence_bits, max_frame_bits) { - var gfc = gfp.internal_flags; - var l3_side = gfc.l3_side; - var res_factor; - var gr, ch, totbits, mean_bits = 0; - - gfc.bitrate_index = gfc.VBR_max_bitrate; - var mb = new MeanBits(mean_bits); - max_frame_bits[0] = rv.ResvFrameBegin(gfp, mb); - mean_bits = mb.bits; - - gfc.bitrate_index = 1; - mean_bits = bs.getframebits(gfp) - gfc.sideinfo_len * 8; - analog_silence_bits[0] = mean_bits / (gfc.mode_gr * gfc.channels_out); - - mean_bits = gfp.VBR_mean_bitrate_kbps * gfp.framesize * 1000; - if ((gfc.substep_shaping & 1) != 0) - mean_bits *= 1.09; - mean_bits /= gfp.out_samplerate; - mean_bits -= gfc.sideinfo_len * 8; - mean_bits /= (gfc.mode_gr * gfc.channels_out); - - /** - *
- * res_factor is the percentage of the target bitrate that should - * be used on average. the remaining bits are added to the - * bitreservoir and used for difficult to encode frames. - * - * Since we are tracking the average bitrate, we should adjust - * res_factor "on the fly", increasing it if the average bitrate - * is greater than the requested bitrate, and decreasing it - * otherwise. Reasonable ranges are from .9 to 1.0 - * - * Until we get the above suggestion working, we use the following - * tuning: - * compression ratio res_factor - * 5.5 (256kbps) 1.0 no need for bitreservoir - * 11 (128kbps) .93 7% held for reservoir - * - * with linear interpolation for other values. - *- */ - res_factor = .93 + .07 * (11.0 - gfp.compression_ratio) - / (11.0 - 5.5); - if (res_factor < .90) - res_factor = .90; - if (res_factor > 1.00) - res_factor = 1.00; - - for (gr = 0; gr < gfc.mode_gr; gr++) { - var sum = 0; - for (ch = 0; ch < gfc.channels_out; ch++) { - targ_bits[gr][ch] = (int)(res_factor * mean_bits); - - if (pe[gr][ch] > 700) { - var add_bits = (int)((pe[gr][ch] - 700) / 1.4); - - var cod_info = l3_side.tt[gr][ch]; - targ_bits[gr][ch] = (int)(res_factor * mean_bits); - - /* short blocks use a little extra, no matter what the pe */ - if (cod_info.block_type == Encoder.SHORT_TYPE) { - if (add_bits < mean_bits / 2) - add_bits = mean_bits / 2; - } - /* at most increase bits by 1.5*average */ - if (add_bits > mean_bits * 3 / 2) - add_bits = mean_bits * 3 / 2; - else if (add_bits < 0) - add_bits = 0; - - targ_bits[gr][ch] += add_bits; - } - if (targ_bits[gr][ch] > LameInternalFlags.MAX_BITS_PER_CHANNEL) { - targ_bits[gr][ch] = LameInternalFlags.MAX_BITS_PER_CHANNEL; - } - sum += targ_bits[gr][ch]; - } - /* for ch */ - if (sum > LameInternalFlags.MAX_BITS_PER_GRANULE) { - for (ch = 0; ch < gfc.channels_out; ++ch) { - targ_bits[gr][ch] *= LameInternalFlags.MAX_BITS_PER_GRANULE; - targ_bits[gr][ch] /= sum; - } - } - } - /* for gr */ - - if (gfc.mode_ext == Encoder.MPG_MD_MS_LR) - for (gr = 0; gr < gfc.mode_gr; gr++) { - qupvt.reduce_side(targ_bits[gr], ms_ener_ratio[gr], mean_bits - * gfc.channels_out, - LameInternalFlags.MAX_BITS_PER_GRANULE); - } - - /* - * sum target bits - */ - totbits = 0; - for (gr = 0; gr < gfc.mode_gr; gr++) { - for (ch = 0; ch < gfc.channels_out; ch++) { - if (targ_bits[gr][ch] > LameInternalFlags.MAX_BITS_PER_CHANNEL) - targ_bits[gr][ch] = LameInternalFlags.MAX_BITS_PER_CHANNEL; - totbits += targ_bits[gr][ch]; - } - } - - /* - * repartion target bits if needed - */ - if (totbits > max_frame_bits[0]) { - for (gr = 0; gr < gfc.mode_gr; gr++) { - for (ch = 0; ch < gfc.channels_out; ch++) { - targ_bits[gr][ch] *= max_frame_bits[0]; - targ_bits[gr][ch] /= totbits; - } - } - } - } - -} - -/* - * MP3 window subband -> subband filtering -> mdct routine - * - * Copyright (c) 1999-2000 Takehiro Tominaga - * - * - * This library is free software; you can redistribute it and/or - * modify it under the terms of the GNU Lesser General Public - * License as published by the Free Software Foundation; either - * version 2 of the License, or (at your option) any later version. - * - * This library is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU - * Library General Public License for more details. - * - * You should have received a copy of the GNU Library General Public - * License along with this library; if not, write to the - * Free Software Foundation, Inc., 59 Temple Place - Suite 330, - * Boston, MA 02111-1307, USA. - */ -/* - * Special Thanks to Patrick De Smet for your advices. - */ - -/* $Id: NewMDCT.java,v 1.11 2011/05/24 20:48:06 kenchis Exp $ */ - -//package mp3; - -//import java.util.Arrays; - - - -function NewMDCT() { - - var enwindow = [ - -4.77e-07 * 0.740951125354959 / 2.384e-06, - 1.03951e-04 * 0.740951125354959 / 2.384e-06, - 9.53674e-04 * 0.740951125354959 / 2.384e-06, - 2.841473e-03 * 0.740951125354959 / 2.384e-06, - 3.5758972e-02 * 0.740951125354959 / 2.384e-06, - 3.401756e-03 * 0.740951125354959 / 2.384e-06, - 9.83715e-04 * 0.740951125354959 / 2.384e-06, - 9.9182e-05 * 0.740951125354959 / 2.384e-06, /* 15 */ - 1.2398e-05 * 0.740951125354959 / 2.384e-06, - 1.91212e-04 * 0.740951125354959 / 2.384e-06, - 2.283096e-03 * 0.740951125354959 / 2.384e-06, - 1.6994476e-02 * 0.740951125354959 / 2.384e-06, - -1.8756866e-02 * 0.740951125354959 / 2.384e-06, - -2.630711e-03 * 0.740951125354959 / 2.384e-06, - -2.47478e-04 * 0.740951125354959 / 2.384e-06, - -1.4782e-05 * 0.740951125354959 / 2.384e-06, - 9.063471690191471e-01, 1.960342806591213e-01, - - -4.77e-07 * 0.773010453362737 / 2.384e-06, - 1.05858e-04 * 0.773010453362737 / 2.384e-06, - 9.30786e-04 * 0.773010453362737 / 2.384e-06, - 2.521515e-03 * 0.773010453362737 / 2.384e-06, - 3.5694122e-02 * 0.773010453362737 / 2.384e-06, - 3.643036e-03 * 0.773010453362737 / 2.384e-06, - 9.91821e-04 * 0.773010453362737 / 2.384e-06, - 9.6321e-05 * 0.773010453362737 / 2.384e-06, /* 14 */ - 1.1444e-05 * 0.773010453362737 / 2.384e-06, - 1.65462e-04 * 0.773010453362737 / 2.384e-06, - 2.110004e-03 * 0.773010453362737 / 2.384e-06, - 1.6112804e-02 * 0.773010453362737 / 2.384e-06, - -1.9634247e-02 * 0.773010453362737 / 2.384e-06, - -2.803326e-03 * 0.773010453362737 / 2.384e-06, - -2.77042e-04 * 0.773010453362737 / 2.384e-06, - -1.6689e-05 * 0.773010453362737 / 2.384e-06, - 8.206787908286602e-01, 3.901806440322567e-01, - - -4.77e-07 * 0.803207531480645 / 2.384e-06, - 1.07288e-04 * 0.803207531480645 / 2.384e-06, - 9.02653e-04 * 0.803207531480645 / 2.384e-06, - 2.174854e-03 * 0.803207531480645 / 2.384e-06, - 3.5586357e-02 * 0.803207531480645 / 2.384e-06, - 3.858566e-03 * 0.803207531480645 / 2.384e-06, - 9.95159e-04 * 0.803207531480645 / 2.384e-06, - 9.3460e-05 * 0.803207531480645 / 2.384e-06, /* 13 */ - 1.0014e-05 * 0.803207531480645 / 2.384e-06, - 1.40190e-04 * 0.803207531480645 / 2.384e-06, - 1.937389e-03 * 0.803207531480645 / 2.384e-06, - 1.5233517e-02 * 0.803207531480645 / 2.384e-06, - -2.0506859e-02 * 0.803207531480645 / 2.384e-06, - -2.974033e-03 * 0.803207531480645 / 2.384e-06, - -3.07560e-04 * 0.803207531480645 / 2.384e-06, - -1.8120e-05 * 0.803207531480645 / 2.384e-06, - 7.416505462720353e-01, 5.805693545089249e-01, - - -4.77e-07 * 0.831469612302545 / 2.384e-06, - 1.08242e-04 * 0.831469612302545 / 2.384e-06, - 8.68797e-04 * 0.831469612302545 / 2.384e-06, - 1.800537e-03 * 0.831469612302545 / 2.384e-06, - 3.5435200e-02 * 0.831469612302545 / 2.384e-06, - 4.049301e-03 * 0.831469612302545 / 2.384e-06, - 9.94205e-04 * 0.831469612302545 / 2.384e-06, - 9.0599e-05 * 0.831469612302545 / 2.384e-06, /* 12 */ - 9.060e-06 * 0.831469612302545 / 2.384e-06, - 1.16348e-04 * 0.831469612302545 / 2.384e-06, - 1.766682e-03 * 0.831469612302545 / 2.384e-06, - 1.4358521e-02 * 0.831469612302545 / 2.384e-06, - -2.1372318e-02 * 0.831469612302545 / 2.384e-06, - -3.14188e-03 * 0.831469612302545 / 2.384e-06, - -3.39031e-04 * 0.831469612302545 / 2.384e-06, - -1.9550e-05 * 0.831469612302545 / 2.384e-06, - 6.681786379192989e-01, 7.653668647301797e-01, - - -4.77e-07 * 0.857728610000272 / 2.384e-06, - 1.08719e-04 * 0.857728610000272 / 2.384e-06, - 8.29220e-04 * 0.857728610000272 / 2.384e-06, - 1.399517e-03 * 0.857728610000272 / 2.384e-06, - 3.5242081e-02 * 0.857728610000272 / 2.384e-06, - 4.215240e-03 * 0.857728610000272 / 2.384e-06, - 9.89437e-04 * 0.857728610000272 / 2.384e-06, - 8.7261e-05 * 0.857728610000272 / 2.384e-06, /* 11 */ - 8.106e-06 * 0.857728610000272 / 2.384e-06, - 9.3937e-05 * 0.857728610000272 / 2.384e-06, - 1.597881e-03 * 0.857728610000272 / 2.384e-06, - 1.3489246e-02 * 0.857728610000272 / 2.384e-06, - -2.2228718e-02 * 0.857728610000272 / 2.384e-06, - -3.306866e-03 * 0.857728610000272 / 2.384e-06, - -3.71456e-04 * 0.857728610000272 / 2.384e-06, - -2.1458e-05 * 0.857728610000272 / 2.384e-06, - 5.993769336819237e-01, 9.427934736519954e-01, - - -4.77e-07 * 0.881921264348355 / 2.384e-06, - 1.08719e-04 * 0.881921264348355 / 2.384e-06, - 7.8392e-04 * 0.881921264348355 / 2.384e-06, - 9.71317e-04 * 0.881921264348355 / 2.384e-06, - 3.5007000e-02 * 0.881921264348355 / 2.384e-06, - 4.357815e-03 * 0.881921264348355 / 2.384e-06, - 9.80854e-04 * 0.881921264348355 / 2.384e-06, - 8.3923e-05 * 0.881921264348355 / 2.384e-06, /* 10 */ - 7.629e-06 * 0.881921264348355 / 2.384e-06, - 7.2956e-05 * 0.881921264348355 / 2.384e-06, - 1.432419e-03 * 0.881921264348355 / 2.384e-06, - 1.2627602e-02 * 0.881921264348355 / 2.384e-06, - -2.3074150e-02 * 0.881921264348355 / 2.384e-06, - -3.467083e-03 * 0.881921264348355 / 2.384e-06, - -4.04358e-04 * 0.881921264348355 / 2.384e-06, - -2.3365e-05 * 0.881921264348355 / 2.384e-06, - 5.345111359507916e-01, 1.111140466039205e+00, - - -9.54e-07 * 0.903989293123443 / 2.384e-06, - 1.08242e-04 * 0.903989293123443 / 2.384e-06, - 7.31945e-04 * 0.903989293123443 / 2.384e-06, - 5.15938e-04 * 0.903989293123443 / 2.384e-06, - 3.4730434e-02 * 0.903989293123443 / 2.384e-06, - 4.477024e-03 * 0.903989293123443 / 2.384e-06, - 9.68933e-04 * 0.903989293123443 / 2.384e-06, - 8.0585e-05 * 0.903989293123443 / 2.384e-06, /* 9 */ - 6.676e-06 * 0.903989293123443 / 2.384e-06, - 5.2929e-05 * 0.903989293123443 / 2.384e-06, - 1.269817e-03 * 0.903989293123443 / 2.384e-06, - 1.1775017e-02 * 0.903989293123443 / 2.384e-06, - -2.3907185e-02 * 0.903989293123443 / 2.384e-06, - -3.622532e-03 * 0.903989293123443 / 2.384e-06, - -4.38213e-04 * 0.903989293123443 / 2.384e-06, - -2.5272e-05 * 0.903989293123443 / 2.384e-06, - 4.729647758913199e-01, 1.268786568327291e+00, - - -9.54e-07 * 0.92387953251128675613 / 2.384e-06, - 1.06812e-04 * 0.92387953251128675613 / 2.384e-06, - 6.74248e-04 * 0.92387953251128675613 / 2.384e-06, - 3.3379e-05 * 0.92387953251128675613 / 2.384e-06, - 3.4412861e-02 * 0.92387953251128675613 / 2.384e-06, - 4.573822e-03 * 0.92387953251128675613 / 2.384e-06, - 9.54151e-04 * 0.92387953251128675613 / 2.384e-06, - 7.6771e-05 * 0.92387953251128675613 / 2.384e-06, - 6.199e-06 * 0.92387953251128675613 / 2.384e-06, - 3.4332e-05 * 0.92387953251128675613 / 2.384e-06, - 1.111031e-03 * 0.92387953251128675613 / 2.384e-06, - 1.0933399e-02 * 0.92387953251128675613 / 2.384e-06, - -2.4725437e-02 * 0.92387953251128675613 / 2.384e-06, - -3.771782e-03 * 0.92387953251128675613 / 2.384e-06, - -4.72546e-04 * 0.92387953251128675613 / 2.384e-06, - -2.7657e-05 * 0.92387953251128675613 / 2.384e-06, - 4.1421356237309504879e-01, /* tan(PI/8) */ - 1.414213562373095e+00, - - -9.54e-07 * 0.941544065183021 / 2.384e-06, - 1.05381e-04 * 0.941544065183021 / 2.384e-06, - 6.10352e-04 * 0.941544065183021 / 2.384e-06, - -4.75883e-04 * 0.941544065183021 / 2.384e-06, - 3.4055710e-02 * 0.941544065183021 / 2.384e-06, - 4.649162e-03 * 0.941544065183021 / 2.384e-06, - 9.35555e-04 * 0.941544065183021 / 2.384e-06, - 7.3433e-05 * 0.941544065183021 / 2.384e-06, /* 7 */ - 5.245e-06 * 0.941544065183021 / 2.384e-06, - 1.7166e-05 * 0.941544065183021 / 2.384e-06, - 9.56535e-04 * 0.941544065183021 / 2.384e-06, - 1.0103703e-02 * 0.941544065183021 / 2.384e-06, - -2.5527000e-02 * 0.941544065183021 / 2.384e-06, - -3.914356e-03 * 0.941544065183021 / 2.384e-06, - -5.07355e-04 * 0.941544065183021 / 2.384e-06, - -3.0041e-05 * 0.941544065183021 / 2.384e-06, - 3.578057213145241e-01, 1.546020906725474e+00, - - -9.54e-07 * 0.956940335732209 / 2.384e-06, - 1.02520e-04 * 0.956940335732209 / 2.384e-06, - 5.39303e-04 * 0.956940335732209 / 2.384e-06, - -1.011848e-03 * 0.956940335732209 / 2.384e-06, - 3.3659935e-02 * 0.956940335732209 / 2.384e-06, - 4.703045e-03 * 0.956940335732209 / 2.384e-06, - 9.15051e-04 * 0.956940335732209 / 2.384e-06, - 7.0095e-05 * 0.956940335732209 / 2.384e-06, /* 6 */ - 4.768e-06 * 0.956940335732209 / 2.384e-06, - 9.54e-07 * 0.956940335732209 / 2.384e-06, - 8.06808e-04 * 0.956940335732209 / 2.384e-06, - 9.287834e-03 * 0.956940335732209 / 2.384e-06, - -2.6310921e-02 * 0.956940335732209 / 2.384e-06, - -4.048824e-03 * 0.956940335732209 / 2.384e-06, - -5.42164e-04 * 0.956940335732209 / 2.384e-06, - -3.2425e-05 * 0.956940335732209 / 2.384e-06, - 3.033466836073424e-01, 1.662939224605090e+00, - - -1.431e-06 * 0.970031253194544 / 2.384e-06, - 9.9182e-05 * 0.970031253194544 / 2.384e-06, - 4.62532e-04 * 0.970031253194544 / 2.384e-06, - -1.573563e-03 * 0.970031253194544 / 2.384e-06, - 3.3225536e-02 * 0.970031253194544 / 2.384e-06, - 4.737377e-03 * 0.970031253194544 / 2.384e-06, - 8.91685e-04 * 0.970031253194544 / 2.384e-06, - 6.6280e-05 * 0.970031253194544 / 2.384e-06, /* 5 */ - 4.292e-06 * 0.970031253194544 / 2.384e-06, - -1.3828e-05 * 0.970031253194544 / 2.384e-06, - 6.61850e-04 * 0.970031253194544 / 2.384e-06, - 8.487225e-03 * 0.970031253194544 / 2.384e-06, - -2.7073860e-02 * 0.970031253194544 / 2.384e-06, - -4.174709e-03 * 0.970031253194544 / 2.384e-06, - -5.76973e-04 * 0.970031253194544 / 2.384e-06, - -3.4809e-05 * 0.970031253194544 / 2.384e-06, - 2.504869601913055e-01, 1.763842528696710e+00, - - -1.431e-06 * 0.98078528040323 / 2.384e-06, - 9.5367e-05 * 0.98078528040323 / 2.384e-06, - 3.78609e-04 * 0.98078528040323 / 2.384e-06, - -2.161503e-03 * 0.98078528040323 / 2.384e-06, - 3.2754898e-02 * 0.98078528040323 / 2.384e-06, - 4.752159e-03 * 0.98078528040323 / 2.384e-06, - 8.66413e-04 * 0.98078528040323 / 2.384e-06, - 6.2943e-05 * 0.98078528040323 / 2.384e-06, /* 4 */ - 3.815e-06 * 0.98078528040323 / 2.384e-06, - -2.718e-05 * 0.98078528040323 / 2.384e-06, - 5.22137e-04 * 0.98078528040323 / 2.384e-06, - 7.703304e-03 * 0.98078528040323 / 2.384e-06, - -2.7815342e-02 * 0.98078528040323 / 2.384e-06, - -4.290581e-03 * 0.98078528040323 / 2.384e-06, - -6.11782e-04 * 0.98078528040323 / 2.384e-06, - -3.7670e-05 * 0.98078528040323 / 2.384e-06, - 1.989123673796580e-01, 1.847759065022573e+00, - - -1.907e-06 * 0.989176509964781 / 2.384e-06, - 9.0122e-05 * 0.989176509964781 / 2.384e-06, - 2.88486e-04 * 0.989176509964781 / 2.384e-06, - -2.774239e-03 * 0.989176509964781 / 2.384e-06, - 3.2248020e-02 * 0.989176509964781 / 2.384e-06, - 4.748821e-03 * 0.989176509964781 / 2.384e-06, - 8.38757e-04 * 0.989176509964781 / 2.384e-06, - 5.9605e-05 * 0.989176509964781 / 2.384e-06, /* 3 */ - 3.338e-06 * 0.989176509964781 / 2.384e-06, - -3.9577e-05 * 0.989176509964781 / 2.384e-06, - 3.88145e-04 * 0.989176509964781 / 2.384e-06, - 6.937027e-03 * 0.989176509964781 / 2.384e-06, - -2.8532982e-02 * 0.989176509964781 / 2.384e-06, - -4.395962e-03 * 0.989176509964781 / 2.384e-06, - -6.46591e-04 * 0.989176509964781 / 2.384e-06, - -4.0531e-05 * 0.989176509964781 / 2.384e-06, - 1.483359875383474e-01, 1.913880671464418e+00, - - -1.907e-06 * 0.995184726672197 / 2.384e-06, - 8.4400e-05 * 0.995184726672197 / 2.384e-06, - 1.91689e-04 * 0.995184726672197 / 2.384e-06, - -3.411293e-03 * 0.995184726672197 / 2.384e-06, - 3.1706810e-02 * 0.995184726672197 / 2.384e-06, - 4.728317e-03 * 0.995184726672197 / 2.384e-06, - 8.09669e-04 * 0.995184726672197 / 2.384e-06, - 5.579e-05 * 0.995184726672197 / 2.384e-06, - 3.338e-06 * 0.995184726672197 / 2.384e-06, - -5.0545e-05 * 0.995184726672197 / 2.384e-06, - 2.59876e-04 * 0.995184726672197 / 2.384e-06, - 6.189346e-03 * 0.995184726672197 / 2.384e-06, - -2.9224873e-02 * 0.995184726672197 / 2.384e-06, - -4.489899e-03 * 0.995184726672197 / 2.384e-06, - -6.80923e-04 * 0.995184726672197 / 2.384e-06, - -4.3392e-05 * 0.995184726672197 / 2.384e-06, - 9.849140335716425e-02, 1.961570560806461e+00, - - -2.384e-06 * 0.998795456205172 / 2.384e-06, - 7.7724e-05 * 0.998795456205172 / 2.384e-06, - 8.8215e-05 * 0.998795456205172 / 2.384e-06, - -4.072189e-03 * 0.998795456205172 / 2.384e-06, - 3.1132698e-02 * 0.998795456205172 / 2.384e-06, - 4.691124e-03 * 0.998795456205172 / 2.384e-06, - 7.79152e-04 * 0.998795456205172 / 2.384e-06, - 5.2929e-05 * 0.998795456205172 / 2.384e-06, - 2.861e-06 * 0.998795456205172 / 2.384e-06, - -6.0558e-05 * 0.998795456205172 / 2.384e-06, - 1.37329e-04 * 0.998795456205172 / 2.384e-06, - 5.462170e-03 * 0.998795456205172 / 2.384e-06, - -2.9890060e-02 * 0.998795456205172 / 2.384e-06, - -4.570484e-03 * 0.998795456205172 / 2.384e-06, - -7.14302e-04 * 0.998795456205172 / 2.384e-06, - -4.6253e-05 * 0.998795456205172 / 2.384e-06, - 4.912684976946725e-02, 1.990369453344394e+00, - - 3.5780907e-02 * Util.SQRT2 * 0.5 / 2.384e-06, - 1.7876148e-02 * Util.SQRT2 * 0.5 / 2.384e-06, - 3.134727e-03 * Util.SQRT2 * 0.5 / 2.384e-06, - 2.457142e-03 * Util.SQRT2 * 0.5 / 2.384e-06, - 9.71317e-04 * Util.SQRT2 * 0.5 / 2.384e-06, - 2.18868e-04 * Util.SQRT2 * 0.5 / 2.384e-06, - 1.01566e-04 * Util.SQRT2 * 0.5 / 2.384e-06, - 1.3828e-05 * Util.SQRT2 * 0.5 / 2.384e-06, - - 3.0526638e-02 / 2.384e-06, 4.638195e-03 / 2.384e-06, - 7.47204e-04 / 2.384e-06, 4.9591e-05 / 2.384e-06, - 4.756451e-03 / 2.384e-06, 2.1458e-05 / 2.384e-06, - -6.9618e-05 / 2.384e-06, /* 2.384e-06/2.384e-06 */ - ]; - - var NS = 12; - var NL = 36; - - var win = [ - [ - 2.382191739347913e-13, - 6.423305872147834e-13, - 9.400849094049688e-13, - 1.122435026096556e-12, - 1.183840321267481e-12, - 1.122435026096556e-12, - 9.400849094049690e-13, - 6.423305872147839e-13, - 2.382191739347918e-13, - - 5.456116108943412e-12, - 4.878985199565852e-12, - 4.240448995017367e-12, - 3.559909094758252e-12, - 2.858043359288075e-12, - 2.156177623817898e-12, - 1.475637723558783e-12, - 8.371015190102974e-13, - 2.599706096327376e-13, - - -5.456116108943412e-12, - -4.878985199565852e-12, - -4.240448995017367e-12, - -3.559909094758252e-12, - -2.858043359288076e-12, - -2.156177623817898e-12, - -1.475637723558783e-12, - -8.371015190102975e-13, - -2.599706096327376e-13, - - -2.382191739347923e-13, - -6.423305872147843e-13, - -9.400849094049696e-13, - -1.122435026096556e-12, - -1.183840321267481e-12, - -1.122435026096556e-12, - -9.400849094049694e-13, - -6.423305872147840e-13, - -2.382191739347918e-13, - ], - [ - 2.382191739347913e-13, - 6.423305872147834e-13, - 9.400849094049688e-13, - 1.122435026096556e-12, - 1.183840321267481e-12, - 1.122435026096556e-12, - 9.400849094049688e-13, - 6.423305872147841e-13, - 2.382191739347918e-13, - - 5.456116108943413e-12, - 4.878985199565852e-12, - 4.240448995017367e-12, - 3.559909094758253e-12, - 2.858043359288075e-12, - 2.156177623817898e-12, - 1.475637723558782e-12, - 8.371015190102975e-13, - 2.599706096327376e-13, - - -5.461314069809755e-12, - -4.921085770524055e-12, - -4.343405037091838e-12, - -3.732668368707687e-12, - -3.093523840190885e-12, - -2.430835727329465e-12, - -1.734679010007751e-12, - -9.748253656609281e-13, - -2.797435120168326e-13, - - 0.000000000000000e+00, - 0.000000000000000e+00, - 0.000000000000000e+00, - 0.000000000000000e+00, - 0.000000000000000e+00, - 0.000000000000000e+00, - -2.283748241799531e-13, - -4.037858874020686e-13, - -2.146547464825323e-13, - ], - [ - 1.316524975873958e-01, /* win[SHORT_TYPE] */ - 4.142135623730950e-01, - 7.673269879789602e-01, - - 1.091308501069271e+00, /* tantab_l */ - 1.303225372841206e+00, - 1.569685577117490e+00, - 1.920982126971166e+00, - 2.414213562373094e+00, - 3.171594802363212e+00, - 4.510708503662055e+00, - 7.595754112725146e+00, - 2.290376554843115e+01, - - 0.98480775301220802032, /* cx */ - 0.64278760968653936292, - 0.34202014332566882393, - 0.93969262078590842791, - -0.17364817766693030343, - -0.76604444311897790243, - 0.86602540378443870761, - 0.500000000000000e+00, - - -5.144957554275265e-01, /* ca */ - -4.717319685649723e-01, - -3.133774542039019e-01, - -1.819131996109812e-01, - -9.457419252642064e-02, - -4.096558288530405e-02, - -1.419856857247115e-02, - -3.699974673760037e-03, - - 8.574929257125442e-01, /* cs */ - 8.817419973177052e-01, - 9.496286491027329e-01, - 9.833145924917901e-01, - 9.955178160675857e-01, - 9.991605581781475e-01, - 9.998991952444470e-01, - 9.999931550702802e-01, - ], - [ - 0.000000000000000e+00, - 0.000000000000000e+00, - 0.000000000000000e+00, - 0.000000000000000e+00, - 0.000000000000000e+00, - 0.000000000000000e+00, - 2.283748241799531e-13, - 4.037858874020686e-13, - 2.146547464825323e-13, - - 5.461314069809755e-12, - 4.921085770524055e-12, - 4.343405037091838e-12, - 3.732668368707687e-12, - 3.093523840190885e-12, - 2.430835727329466e-12, - 1.734679010007751e-12, - 9.748253656609281e-13, - 2.797435120168326e-13, - - -5.456116108943413e-12, - -4.878985199565852e-12, - -4.240448995017367e-12, - -3.559909094758253e-12, - -2.858043359288075e-12, - -2.156177623817898e-12, - -1.475637723558782e-12, - -8.371015190102975e-13, - -2.599706096327376e-13, - - -2.382191739347913e-13, - -6.423305872147834e-13, - -9.400849094049688e-13, - -1.122435026096556e-12, - -1.183840321267481e-12, - -1.122435026096556e-12, - -9.400849094049688e-13, - -6.423305872147841e-13, - -2.382191739347918e-13, - ] - ]; - - var tantab_l = win[Encoder.SHORT_TYPE]; - var cx = win[Encoder.SHORT_TYPE]; - var ca = win[Encoder.SHORT_TYPE]; - var cs = win[Encoder.SHORT_TYPE]; - - /** - * new IDCT routine written by Takehiro TOMINAGA - * - * PURPOSE: Overlapping window on PCM samples
- * - * SEMANTICS:
- * 32 16-bit pcm samples are scaled to fractional 2's complement and - * concatenated to the end of the window buffer #x#. The updated window - * buffer #x# is then windowed by the analysis window #c# to produce the - * windowed sample #z# - */ - var order = [ - 0, 1, 16, 17, 8, 9, 24, 25, 4, 5, 20, 21, 12, 13, 28, 29, - 2, 3, 18, 19, 10, 11, 26, 27, 6, 7, 22, 23, 14, 15, 30, 31 - ]; - - /** - * returns sum_j=0^31 a[j]*cos(PI*j*(k+1/2)/32), 0<=k<32 - */ - function window_subband(x1, x1Pos, a) { - var wp = 10; - - var x2 = x1Pos + 238 - 14 - 286; - - for (var i = -15; i < 0; i++) { - var w, s, t; - - w = enwindow[wp + -10]; - s = x1[x2 + -224] * w; - t = x1[x1Pos + 224] * w; - w = enwindow[wp + -9]; - s += x1[x2 + -160] * w; - t += x1[x1Pos + 160] * w; - w = enwindow[wp + -8]; - s += x1[x2 + -96] * w; - t += x1[x1Pos + 96] * w; - w = enwindow[wp + -7]; - s += x1[x2 + -32] * w; - t += x1[x1Pos + 32] * w; - w = enwindow[wp + -6]; - s += x1[x2 + 32] * w; - t += x1[x1Pos + -32] * w; - w = enwindow[wp + -5]; - s += x1[x2 + 96] * w; - t += x1[x1Pos + -96] * w; - w = enwindow[wp + -4]; - s += x1[x2 + 160] * w; - t += x1[x1Pos + -160] * w; - w = enwindow[wp + -3]; - s += x1[x2 + 224] * w; - t += x1[x1Pos + -224] * w; - - w = enwindow[wp + -2]; - s += x1[x1Pos + -256] * w; - t -= x1[x2 + 256] * w; - w = enwindow[wp + -1]; - s += x1[x1Pos + -192] * w; - t -= x1[x2 + 192] * w; - w = enwindow[wp + 0]; - s += x1[x1Pos + -128] * w; - t -= x1[x2 + 128] * w; - w = enwindow[wp + 1]; - s += x1[x1Pos + -64] * w; - t -= x1[x2 + 64] * w; - w = enwindow[wp + 2]; - s += x1[x1Pos + 0] * w; - t -= x1[x2 + 0] * w; - w = enwindow[wp + 3]; - s += x1[x1Pos + 64] * w; - t -= x1[x2 + -64] * w; - w = enwindow[wp + 4]; - s += x1[x1Pos + 128] * w; - t -= x1[x2 + -128] * w; - w = enwindow[wp + 5]; - s += x1[x1Pos + 192] * w; - t -= x1[x2 + -192] * w; - - /* - * this multiplyer could be removed, but it needs more 256 FLOAT - * data. thinking about the data cache performance, I think we - * should not use such a huge table. tt 2000/Oct/25 - */ - s *= enwindow[wp + 6]; - w = t - s; - a[30 + i * 2] = t + s; - a[31 + i * 2] = enwindow[wp + 7] * w; - wp += 18; - x1Pos--; - x2++; - } - { - var s, t, u, v; - t = x1[x1Pos + -16] * enwindow[wp + -10]; - s = x1[x1Pos + -32] * enwindow[wp + -2]; - t += (x1[x1Pos + -48] - x1[x1Pos + 16]) * enwindow[wp + -9]; - s += x1[x1Pos + -96] * enwindow[wp + -1]; - t += (x1[x1Pos + -80] + x1[x1Pos + 48]) * enwindow[wp + -8]; - s += x1[x1Pos + -160] * enwindow[wp + 0]; - t += (x1[x1Pos + -112] - x1[x1Pos + 80]) * enwindow[wp + -7]; - s += x1[x1Pos + -224] * enwindow[wp + 1]; - t += (x1[x1Pos + -144] + x1[x1Pos + 112]) * enwindow[wp + -6]; - s -= x1[x1Pos + 32] * enwindow[wp + 2]; - t += (x1[x1Pos + -176] - x1[x1Pos + 144]) * enwindow[wp + -5]; - s -= x1[x1Pos + 96] * enwindow[wp + 3]; - t += (x1[x1Pos + -208] + x1[x1Pos + 176]) * enwindow[wp + -4]; - s -= x1[x1Pos + 160] * enwindow[wp + 4]; - t += (x1[x1Pos + -240] - x1[x1Pos + 208]) * enwindow[wp + -3]; - s -= x1[x1Pos + 224]; - - u = s - t; - v = s + t; - - t = a[14]; - s = a[15] - t; - - a[31] = v + t; /* A0 */ - a[30] = u + s; /* A1 */ - a[15] = u - s; /* A2 */ - a[14] = v - t; /* A3 */ - } - { - var xr; - xr = a[28] - a[0]; - a[0] += a[28]; - a[28] = xr * enwindow[wp + -2 * 18 + 7]; - xr = a[29] - a[1]; - a[1] += a[29]; - a[29] = xr * enwindow[wp + -2 * 18 + 7]; - - xr = a[26] - a[2]; - a[2] += a[26]; - a[26] = xr * enwindow[wp + -4 * 18 + 7]; - xr = a[27] - a[3]; - a[3] += a[27]; - a[27] = xr * enwindow[wp + -4 * 18 + 7]; - - xr = a[24] - a[4]; - a[4] += a[24]; - a[24] = xr * enwindow[wp + -6 * 18 + 7]; - xr = a[25] - a[5]; - a[5] += a[25]; - a[25] = xr * enwindow[wp + -6 * 18 + 7]; - - xr = a[22] - a[6]; - a[6] += a[22]; - a[22] = xr * Util.SQRT2; - xr = a[23] - a[7]; - a[7] += a[23]; - a[23] = xr * Util.SQRT2 - a[7]; - a[7] -= a[6]; - a[22] -= a[7]; - a[23] -= a[22]; - - xr = a[6]; - a[6] = a[31] - xr; - a[31] = a[31] + xr; - xr = a[7]; - a[7] = a[30] - xr; - a[30] = a[30] + xr; - xr = a[22]; - a[22] = a[15] - xr; - a[15] = a[15] + xr; - xr = a[23]; - a[23] = a[14] - xr; - a[14] = a[14] + xr; - - xr = a[20] - a[8]; - a[8] += a[20]; - a[20] = xr * enwindow[wp + -10 * 18 + 7]; - xr = a[21] - a[9]; - a[9] += a[21]; - a[21] = xr * enwindow[wp + -10 * 18 + 7]; - - xr = a[18] - a[10]; - a[10] += a[18]; - a[18] = xr * enwindow[wp + -12 * 18 + 7]; - xr = a[19] - a[11]; - a[11] += a[19]; - a[19] = xr * enwindow[wp + -12 * 18 + 7]; - - xr = a[16] - a[12]; - a[12] += a[16]; - a[16] = xr * enwindow[wp + -14 * 18 + 7]; - xr = a[17] - a[13]; - a[13] += a[17]; - a[17] = xr * enwindow[wp + -14 * 18 + 7]; - - xr = -a[20] + a[24]; - a[20] += a[24]; - a[24] = xr * enwindow[wp + -12 * 18 + 7]; - xr = -a[21] + a[25]; - a[21] += a[25]; - a[25] = xr * enwindow[wp + -12 * 18 + 7]; - - xr = a[4] - a[8]; - a[4] += a[8]; - a[8] = xr * enwindow[wp + -12 * 18 + 7]; - xr = a[5] - a[9]; - a[5] += a[9]; - a[9] = xr * enwindow[wp + -12 * 18 + 7]; - - xr = a[0] - a[12]; - a[0] += a[12]; - a[12] = xr * enwindow[wp + -4 * 18 + 7]; - xr = a[1] - a[13]; - a[1] += a[13]; - a[13] = xr * enwindow[wp + -4 * 18 + 7]; - xr = a[16] - a[28]; - a[16] += a[28]; - a[28] = xr * enwindow[wp + -4 * 18 + 7]; - xr = -a[17] + a[29]; - a[17] += a[29]; - a[29] = xr * enwindow[wp + -4 * 18 + 7]; - - xr = Util.SQRT2 * (a[2] - a[10]); - a[2] += a[10]; - a[10] = xr; - xr = Util.SQRT2 * (a[3] - a[11]); - a[3] += a[11]; - a[11] = xr; - xr = Util.SQRT2 * (-a[18] + a[26]); - a[18] += a[26]; - a[26] = xr - a[18]; - xr = Util.SQRT2 * (-a[19] + a[27]); - a[19] += a[27]; - a[27] = xr - a[19]; - - xr = a[2]; - a[19] -= a[3]; - a[3] -= xr; - a[2] = a[31] - xr; - a[31] += xr; - xr = a[3]; - a[11] -= a[19]; - a[18] -= xr; - a[3] = a[30] - xr; - a[30] += xr; - xr = a[18]; - a[27] -= a[11]; - a[19] -= xr; - a[18] = a[15] - xr; - a[15] += xr; - - xr = a[19]; - a[10] -= xr; - a[19] = a[14] - xr; - a[14] += xr; - xr = a[10]; - a[11] -= xr; - a[10] = a[23] - xr; - a[23] += xr; - xr = a[11]; - a[26] -= xr; - a[11] = a[22] - xr; - a[22] += xr; - xr = a[26]; - a[27] -= xr; - a[26] = a[7] - xr; - a[7] += xr; - - xr = a[27]; - a[27] = a[6] - xr; - a[6] += xr; - - xr = Util.SQRT2 * (a[0] - a[4]); - a[0] += a[4]; - a[4] = xr; - xr = Util.SQRT2 * (a[1] - a[5]); - a[1] += a[5]; - a[5] = xr; - xr = Util.SQRT2 * (a[16] - a[20]); - a[16] += a[20]; - a[20] = xr; - xr = Util.SQRT2 * (a[17] - a[21]); - a[17] += a[21]; - a[21] = xr; - - xr = -Util.SQRT2 * (a[8] - a[12]); - a[8] += a[12]; - a[12] = xr - a[8]; - xr = -Util.SQRT2 * (a[9] - a[13]); - a[9] += a[13]; - a[13] = xr - a[9]; - xr = -Util.SQRT2 * (a[25] - a[29]); - a[25] += a[29]; - a[29] = xr - a[25]; - xr = -Util.SQRT2 * (a[24] + a[28]); - a[24] -= a[28]; - a[28] = xr - a[24]; - - xr = a[24] - a[16]; - a[24] = xr; - xr = a[20] - xr; - a[20] = xr; - xr = a[28] - xr; - a[28] = xr; - - xr = a[25] - a[17]; - a[25] = xr; - xr = a[21] - xr; - a[21] = xr; - xr = a[29] - xr; - a[29] = xr; - - xr = a[17] - a[1]; - a[17] = xr; - xr = a[9] - xr; - a[9] = xr; - xr = a[25] - xr; - a[25] = xr; - xr = a[5] - xr; - a[5] = xr; - xr = a[21] - xr; - a[21] = xr; - xr = a[13] - xr; - a[13] = xr; - xr = a[29] - xr; - a[29] = xr; - - xr = a[1] - a[0]; - a[1] = xr; - xr = a[16] - xr; - a[16] = xr; - xr = a[17] - xr; - a[17] = xr; - xr = a[8] - xr; - a[8] = xr; - xr = a[9] - xr; - a[9] = xr; - xr = a[24] - xr; - a[24] = xr; - xr = a[25] - xr; - a[25] = xr; - xr = a[4] - xr; - a[4] = xr; - xr = a[5] - xr; - a[5] = xr; - xr = a[20] - xr; - a[20] = xr; - xr = a[21] - xr; - a[21] = xr; - xr = a[12] - xr; - a[12] = xr; - xr = a[13] - xr; - a[13] = xr; - xr = a[28] - xr; - a[28] = xr; - xr = a[29] - xr; - a[29] = xr; - - xr = a[0]; - a[0] += a[31]; - a[31] -= xr; - xr = a[1]; - a[1] += a[30]; - a[30] -= xr; - xr = a[16]; - a[16] += a[15]; - a[15] -= xr; - xr = a[17]; - a[17] += a[14]; - a[14] -= xr; - xr = a[8]; - a[8] += a[23]; - a[23] -= xr; - xr = a[9]; - a[9] += a[22]; - a[22] -= xr; - xr = a[24]; - a[24] += a[7]; - a[7] -= xr; - xr = a[25]; - a[25] += a[6]; - a[6] -= xr; - xr = a[4]; - a[4] += a[27]; - a[27] -= xr; - xr = a[5]; - a[5] += a[26]; - a[26] -= xr; - xr = a[20]; - a[20] += a[11]; - a[11] -= xr; - xr = a[21]; - a[21] += a[10]; - a[10] -= xr; - xr = a[12]; - a[12] += a[19]; - a[19] -= xr; - xr = a[13]; - a[13] += a[18]; - a[18] -= xr; - xr = a[28]; - a[28] += a[3]; - a[3] -= xr; - xr = a[29]; - a[29] += a[2]; - a[2] -= xr; - } - } - - /** - * Function: Calculation of the MDCT In the case of long blocks (type 0,1,3) - * there are 36 coefficents in the time domain and 18 in the frequency - * domain.
- * In the case of short blocks (type 2) there are 3 transformations with - * short length. This leads to 12 coefficents in the time and 6 in the - * frequency domain. In this case the results are stored side by side in the - * vector out[]. - * - * New layer3 - */ - function mdct_short(inout, inoutPos) { - for (var l = 0; l < 3; l++) { - var tc0, tc1, tc2, ts0, ts1, ts2; - - ts0 = inout[inoutPos + 2 * 3] * win[Encoder.SHORT_TYPE][0] - - inout[inoutPos + 5 * 3]; - tc0 = inout[inoutPos + 0 * 3] * win[Encoder.SHORT_TYPE][2] - - inout[inoutPos + 3 * 3]; - tc1 = ts0 + tc0; - tc2 = ts0 - tc0; - - ts0 = inout[inoutPos + 5 * 3] * win[Encoder.SHORT_TYPE][0] - + inout[inoutPos + 2 * 3]; - tc0 = inout[inoutPos + 3 * 3] * win[Encoder.SHORT_TYPE][2] - + inout[inoutPos + 0 * 3]; - ts1 = ts0 + tc0; - ts2 = -ts0 + tc0; - - tc0 = (inout[inoutPos + 1 * 3] * win[Encoder.SHORT_TYPE][1] - inout[inoutPos + 4 * 3]) * 2.069978111953089e-11; - /* - * tritab_s [ 1 ] - */ - ts0 = (inout[inoutPos + 4 * 3] * win[Encoder.SHORT_TYPE][1] + inout[inoutPos + 1 * 3]) * 2.069978111953089e-11; - /* - * tritab_s [ 1 ] - */ - inout[inoutPos + 3 * 0] = tc1 * 1.907525191737280e-11 + tc0; - /* - * tritab_s[ 2 ] - */ - inout[inoutPos + 3 * 5] = -ts1 * 1.907525191737280e-11 + ts0; - /* - * tritab_s[0 ] - */ - tc2 = tc2 * 0.86602540378443870761 * 1.907525191737281e-11; - /* - * tritab_s[ 2] - */ - ts1 = ts1 * 0.5 * 1.907525191737281e-11 + ts0; - inout[inoutPos + 3 * 1] = tc2 - ts1; - inout[inoutPos + 3 * 2] = tc2 + ts1; - - tc1 = tc1 * 0.5 * 1.907525191737281e-11 - tc0; - ts2 = ts2 * 0.86602540378443870761 * 1.907525191737281e-11; - /* - * tritab_s[ 0] - */ - inout[inoutPos + 3 * 3] = tc1 + ts2; - inout[inoutPos + 3 * 4] = tc1 - ts2; - - inoutPos++; - } - } - - function mdct_long(out, outPos, _in) { - var ct, st; - { - var tc1, tc2, tc3, tc4, ts5, ts6, ts7, ts8; - /* 1,2, 5,6, 9,10, 13,14, 17 */ - tc1 = _in[17] - _in[9]; - tc3 = _in[15] - _in[11]; - tc4 = _in[14] - _in[12]; - ts5 = _in[0] + _in[8]; - ts6 = _in[1] + _in[7]; - ts7 = _in[2] + _in[6]; - ts8 = _in[3] + _in[5]; - - out[outPos + 17] = (ts5 + ts7 - ts8) - (ts6 - _in[4]); - st = (ts5 + ts7 - ts8) * cx[12 + 7] + (ts6 - _in[4]); - ct = (tc1 - tc3 - tc4) * cx[12 + 6]; - out[outPos + 5] = ct + st; - out[outPos + 6] = ct - st; - - tc2 = (_in[16] - _in[10]) * cx[12 + 6]; - ts6 = ts6 * cx[12 + 7] + _in[4]; - ct = tc1 * cx[12 + 0] + tc2 + tc3 * cx[12 + 1] + tc4 * cx[12 + 2]; - st = -ts5 * cx[12 + 4] + ts6 - ts7 * cx[12 + 5] + ts8 * cx[12 + 3]; - out[outPos + 1] = ct + st; - out[outPos + 2] = ct - st; - - ct = tc1 * cx[12 + 1] - tc2 - tc3 * cx[12 + 2] + tc4 * cx[12 + 0]; - st = -ts5 * cx[12 + 5] + ts6 - ts7 * cx[12 + 3] + ts8 * cx[12 + 4]; - out[outPos + 9] = ct + st; - out[outPos + 10] = ct - st; - - ct = tc1 * cx[12 + 2] - tc2 + tc3 * cx[12 + 0] - tc4 * cx[12 + 1]; - st = ts5 * cx[12 + 3] - ts6 + ts7 * cx[12 + 4] - ts8 * cx[12 + 5]; - out[outPos + 13] = ct + st; - out[outPos + 14] = ct - st; - } - { - var ts1, ts2, ts3, ts4, tc5, tc6, tc7, tc8; - - ts1 = _in[8] - _in[0]; - ts3 = _in[6] - _in[2]; - ts4 = _in[5] - _in[3]; - tc5 = _in[17] + _in[9]; - tc6 = _in[16] + _in[10]; - tc7 = _in[15] + _in[11]; - tc8 = _in[14] + _in[12]; - - out[outPos + 0] = (tc5 + tc7 + tc8) + (tc6 + _in[13]); - ct = (tc5 + tc7 + tc8) * cx[12 + 7] - (tc6 + _in[13]); - st = (ts1 - ts3 + ts4) * cx[12 + 6]; - out[outPos + 11] = ct + st; - out[outPos + 12] = ct - st; - - ts2 = (_in[7] - _in[1]) * cx[12 + 6]; - tc6 = _in[13] - tc6 * cx[12 + 7]; - ct = tc5 * cx[12 + 3] - tc6 + tc7 * cx[12 + 4] + tc8 * cx[12 + 5]; - st = ts1 * cx[12 + 2] + ts2 + ts3 * cx[12 + 0] + ts4 * cx[12 + 1]; - out[outPos + 3] = ct + st; - out[outPos + 4] = ct - st; - - ct = -tc5 * cx[12 + 5] + tc6 - tc7 * cx[12 + 3] - tc8 * cx[12 + 4]; - st = ts1 * cx[12 + 1] + ts2 - ts3 * cx[12 + 2] - ts4 * cx[12 + 0]; - out[outPos + 7] = ct + st; - out[outPos + 8] = ct - st; - - ct = -tc5 * cx[12 + 4] + tc6 - tc7 * cx[12 + 5] - tc8 * cx[12 + 3]; - st = ts1 * cx[12 + 0] - ts2 + ts3 * cx[12 + 1] - ts4 * cx[12 + 2]; - out[outPos + 15] = ct + st; - out[outPos + 16] = ct - st; - } - } - - this.mdct_sub48 = function(gfc, w0, w1) { - var wk = w0; - var wkPos = 286; - /* thinking cache performance, ch->gr loop is better than gr->ch loop */ - for (var ch = 0; ch < gfc.channels_out; ch++) { - for (var gr = 0; gr < gfc.mode_gr; gr++) { - var band; - var gi = (gfc.l3_side.tt[gr][ch]); - var mdct_enc = gi.xr; - var mdct_encPos = 0; - var samp = gfc.sb_sample[ch][1 - gr]; - var sampPos = 0; - - for (var k = 0; k < 18 / 2; k++) { - window_subband(wk, wkPos, samp[sampPos]); - window_subband(wk, wkPos + 32, samp[sampPos + 1]); - sampPos += 2; - wkPos += 64; - /* - * Compensate for inversion in the analysis filter - */ - for (band = 1; band < 32; band += 2) { - samp[sampPos - 1][band] *= -1; - } - } - - /* - * Perform imdct of 18 previous subband samples + 18 current - * subband samples - */ - for (band = 0; band < 32; band++, mdct_encPos += 18) { - var type = gi.block_type; - var band0 = gfc.sb_sample[ch][gr]; - var band1 = gfc.sb_sample[ch][1 - gr]; - if (gi.mixed_block_flag != 0 && band < 2) - type = 0; - if (gfc.amp_filter[band] < 1e-12) { - Arrays.fill(mdct_enc, mdct_encPos + 0, - mdct_encPos + 18, 0); - } else { - if (gfc.amp_filter[band] < 1.0) { - for (var k = 0; k < 18; k++) - band1[k][order[band]] *= gfc.amp_filter[band]; - } - if (type == Encoder.SHORT_TYPE) { - for (var k = -NS / 4; k < 0; k++) { - var w = win[Encoder.SHORT_TYPE][k + 3]; - mdct_enc[mdct_encPos + k * 3 + 9] = band0[9 + k][order[band]] - * w - band0[8 - k][order[band]]; - mdct_enc[mdct_encPos + k * 3 + 18] = band0[14 - k][order[band]] - * w + band0[15 + k][order[band]]; - mdct_enc[mdct_encPos + k * 3 + 10] = band0[15 + k][order[band]] - * w - band0[14 - k][order[band]]; - mdct_enc[mdct_encPos + k * 3 + 19] = band1[2 - k][order[band]] - * w + band1[3 + k][order[band]]; - mdct_enc[mdct_encPos + k * 3 + 11] = band1[3 + k][order[band]] - * w - band1[2 - k][order[band]]; - mdct_enc[mdct_encPos + k * 3 + 20] = band1[8 - k][order[band]] - * w + band1[9 + k][order[band]]; - } - mdct_short(mdct_enc, mdct_encPos); - } else { - var work = new_float(18); - for (var k = -NL / 4; k < 0; k++) { - var a, b; - a = win[type][k + 27] - * band1[k + 9][order[band]] - + win[type][k + 36] - * band1[8 - k][order[band]]; - b = win[type][k + 9] - * band0[k + 9][order[band]] - - win[type][k + 18] - * band0[8 - k][order[band]]; - work[k + 9] = a - b * tantab_l[3 + k + 9]; - work[k + 18] = a * tantab_l[3 + k + 9] + b; - } - - mdct_long(mdct_enc, mdct_encPos, work); - } - } - /* - * Perform aliasing reduction butterfly - */ - if (type != Encoder.SHORT_TYPE && band != 0) { - for (var k = 7; k >= 0; --k) { - var bu, bd; - bu = mdct_enc[mdct_encPos + k] * ca[20 + k] - + mdct_enc[mdct_encPos + -1 - k] - * cs[28 + k]; - bd = mdct_enc[mdct_encPos + k] * cs[28 + k] - - mdct_enc[mdct_encPos + -1 - k] - * ca[20 + k]; - - mdct_enc[mdct_encPos + -1 - k] = bu; - mdct_enc[mdct_encPos + k] = bd; - } - } - } - } - wk = w1; - wkPos = 286; - if (gfc.mode_gr == 1) { - for (var i = 0; i < 18; i++) { - System.arraycopy(gfc.sb_sample[ch][1][i], 0, - gfc.sb_sample[ch][0][i], 0, 32); - } - } - } - } -} - -//package mp3; - - -function III_psy_ratio() { - this.thm = new III_psy_xmin(); - this.en = new III_psy_xmin(); -} - - -/** - * ENCDELAY The encoder delay. - * - * Minimum allowed is MDCTDELAY (see below) - * - * The first 96 samples will be attenuated, so using a value less than 96 - * will result in corrupt data for the first 96-ENCDELAY samples. - * - * suggested: 576 set to 1160 to sync with FhG. - */ -Encoder.ENCDELAY = 576; -/** - * make sure there is at least one complete frame after the last frame - * containing real data - * - * Using a value of 288 would be sufficient for a a very sophisticated - * decoder that can decode granule-by-granule instead of frame by frame. But - * lets not assume this, and assume the decoder will not decode frame N - * unless it also has data for frame N+1 - */ -Encoder.POSTDELAY = 1152; - -/** - * delay of the MDCT used in mdct.c original ISO routines had a delay of - * 528! Takehiro's routines: - */ -Encoder.MDCTDELAY = 48; -Encoder.FFTOFFSET = (224 + Encoder.MDCTDELAY); - -/** - * Most decoders, including the one we use, have a delay of 528 samples. - */ -Encoder.DECDELAY = 528; - -/** - * number of subbands - */ -Encoder.SBLIMIT = 32; - -/** - * parition bands bands - */ -Encoder.CBANDS = 64; - -/** - * number of critical bands/scale factor bands where masking is computed - */ -Encoder.SBPSY_l = 21; -Encoder.SBPSY_s = 12; - -/** - * total number of scalefactor bands encoded - */ -Encoder.SBMAX_l = 22; -Encoder.SBMAX_s = 13; -Encoder.PSFB21 = 6; -Encoder.PSFB12 = 6; - -/** - * FFT sizes - */ -Encoder.BLKSIZE = 1024; -Encoder.HBLKSIZE = (Encoder.BLKSIZE / 2 + 1); -Encoder.BLKSIZE_s = 256; -Encoder.HBLKSIZE_s = (Encoder.BLKSIZE_s / 2 + 1); - -Encoder.NORM_TYPE = 0; -Encoder.START_TYPE = 1; -Encoder.SHORT_TYPE = 2; -Encoder.STOP_TYPE = 3; - -/** - *
- * Mode Extention: - * When we are in stereo mode, there are 4 possible methods to store these - * two channels. The stereo modes -m? are using a subset of them. - * - * -ms: MPG_MD_LR_LR - * -mj: MPG_MD_LR_LR and MPG_MD_MS_LR - * -mf: MPG_MD_MS_LR - * -mi: all - *- */ -Encoder.MPG_MD_LR_LR = 0; -Encoder.MPG_MD_LR_I = 1; -Encoder.MPG_MD_MS_LR = 2; -Encoder.MPG_MD_MS_I = 3; - -Encoder.fircoef = [-0.0207887 * 5, -0.0378413 * 5, - -0.0432472 * 5, -0.031183 * 5, 7.79609e-18 * 5, 0.0467745 * 5, - 0.10091 * 5, 0.151365 * 5, 0.187098 * 5]; - -function Encoder() { - - var FFTOFFSET = Encoder.FFTOFFSET; - var MPG_MD_MS_LR = Encoder.MPG_MD_MS_LR; - //BitStream bs; - //PsyModel psy; - //VBRTag vbr; - //QuantizePVT qupvt; - var bs = null; - this.psy = null; - var psy = null; - var vbr = null; - var qupvt = null; - - //public final void setModules(BitStream bs, PsyModel psy, QuantizePVT qupvt, - // VBRTag vbr) { - this.setModules = function (_bs, _psy, _qupvt, _vbr) { - bs = _bs; - this.psy = _psy; - psy = _psy; - vbr = _vbr; - qupvt = _qupvt; - }; - - var newMDCT = new NewMDCT(); - - /*********************************************************************** - * - * encoder and decoder delays - * - ***********************************************************************/ - - /** - *
- * layer III enc->dec delay: 1056 (1057?) (observed) - * layer II enc->dec delay: 480 (481?) (observed) - * - * polyphase 256-16 (dec or enc) = 240 - * mdct 256+32 (9*32) (dec or enc) = 288 - * total: 512+16 - * - * My guess is that delay of polyphase filterbank is actualy 240.5 - * (there are technical reasons for this, see postings in mp3encoder). - * So total Encode+Decode delay = ENCDELAY + 528 + 1 - *- */ - - - /** - * auto-adjust of ATH, useful for low volume Gabriel Bouvigne 3 feb 2001 - * - * modifies some values in gfp.internal_flags.ATH (gfc.ATH) - */ -//private void adjust_ATH(final LameInternalFlags gfc) { - function adjust_ATH(gfc) { - var gr2_max, max_pow; - - if (gfc.ATH.useAdjust == 0) { - gfc.ATH.adjust = 1.0; - /* no adjustment */ - return; - } - - /* jd - 2001 mar 12, 27, jun 30 */ - /* loudness based on equal loudness curve; */ - /* use granule with maximum combined loudness */ - max_pow = gfc.loudness_sq[0][0]; - gr2_max = gfc.loudness_sq[1][0]; - if (gfc.channels_out == 2) { - max_pow += gfc.loudness_sq[0][1]; - gr2_max += gfc.loudness_sq[1][1]; - } else { - max_pow += max_pow; - gr2_max += gr2_max; - } - if (gfc.mode_gr == 2) { - max_pow = Math.max(max_pow, gr2_max); - } - max_pow *= 0.5; - /* max_pow approaches 1.0 for full band noise */ - - /* jd - 2001 mar 31, jun 30 */ - /* user tuning of ATH adjustment region */ - max_pow *= gfc.ATH.aaSensitivityP; - - /* - * adjust ATH depending on range of maximum value - */ - - /* jd - 2001 feb27, mar12,20, jun30, jul22 */ - /* continuous curves based on approximation */ - /* to GB's original values. */ - /* For an increase in approximate loudness, */ - /* set ATH adjust to adjust_limit immediately */ - /* after a delay of one frame. */ - /* For a loudness decrease, reduce ATH adjust */ - /* towards adjust_limit gradually. */ - /* max_pow is a loudness squared or a power. */ - if (max_pow > 0.03125) { /* ((1 - 0.000625)/ 31.98) from curve below */ - if (gfc.ATH.adjust >= 1.0) { - gfc.ATH.adjust = 1.0; - } else { - /* preceding frame has lower ATH adjust; */ - /* ascend only to the preceding adjust_limit */ - /* in case there is leading low volume */ - if (gfc.ATH.adjust < gfc.ATH.adjustLimit) { - gfc.ATH.adjust = gfc.ATH.adjustLimit; - } - } - gfc.ATH.adjustLimit = 1.0; - } else { /* adjustment curve */ - /* about 32 dB maximum adjust (0.000625) */ - var adj_lim_new = 31.98 * max_pow + 0.000625; - if (gfc.ATH.adjust >= adj_lim_new) { /* descend gradually */ - gfc.ATH.adjust *= adj_lim_new * 0.075 + 0.925; - if (gfc.ATH.adjust < adj_lim_new) { /* stop descent */ - gfc.ATH.adjust = adj_lim_new; - } - } else { /* ascend */ - if (gfc.ATH.adjustLimit >= adj_lim_new) { - gfc.ATH.adjust = adj_lim_new; - } else { - /* preceding frame has lower ATH adjust; */ - /* ascend only to the preceding adjust_limit */ - if (gfc.ATH.adjust < gfc.ATH.adjustLimit) { - gfc.ATH.adjust = gfc.ATH.adjustLimit; - } - } - } - gfc.ATH.adjustLimit = adj_lim_new; - } - } - - /** - *
- * some simple statistics - * - * bitrate index 0: free bitrate . not allowed in VBR mode - * : bitrates, kbps depending on MPEG version - * bitrate index 15: forbidden - * - * mode_ext: - * 0: LR - * 1: LR-i - * 2: MS - * 3: MS-i - *- */ - function updateStats(gfc) { - var gr, ch; - - /* count bitrate indices */ - gfc.bitrate_stereoMode_Hist[gfc.bitrate_index][4]++; - gfc.bitrate_stereoMode_Hist[15][4]++; - - /* count 'em for every mode extension in case of 2 channel encoding */ - if (gfc.channels_out == 2) { - gfc.bitrate_stereoMode_Hist[gfc.bitrate_index][gfc.mode_ext]++; - gfc.bitrate_stereoMode_Hist[15][gfc.mode_ext]++; - } - for (gr = 0; gr < gfc.mode_gr; ++gr) { - for (ch = 0; ch < gfc.channels_out; ++ch) { - var bt = gfc.l3_side.tt[gr][ch].block_type | 0; - if (gfc.l3_side.tt[gr][ch].mixed_block_flag != 0) - bt = 4; - gfc.bitrate_blockType_Hist[gfc.bitrate_index][bt]++; - gfc.bitrate_blockType_Hist[gfc.bitrate_index][5]++; - gfc.bitrate_blockType_Hist[15][bt]++; - gfc.bitrate_blockType_Hist[15][5]++; - } - } - } - - function lame_encode_frame_init(gfp, inbuf) { - var gfc = gfp.internal_flags; - - var ch, gr; - - if (gfc.lame_encode_frame_init == 0) { - /* prime the MDCT/polyphase filterbank with a short block */ - var i, j; - var primebuff0 = new_float(286 + 1152 + 576); - var primebuff1 = new_float(286 + 1152 + 576); - gfc.lame_encode_frame_init = 1; - for (i = 0, j = 0; i < 286 + 576 * (1 + gfc.mode_gr); ++i) { - if (i < 576 * gfc.mode_gr) { - primebuff0[i] = 0; - if (gfc.channels_out == 2) - primebuff1[i] = 0; - } else { - primebuff0[i] = inbuf[0][j]; - if (gfc.channels_out == 2) - primebuff1[i] = inbuf[1][j]; - ++j; - } - } - /* polyphase filtering / mdct */ - for (gr = 0; gr < gfc.mode_gr; gr++) { - for (ch = 0; ch < gfc.channels_out; ch++) { - gfc.l3_side.tt[gr][ch].block_type = Encoder.SHORT_TYPE; - } - } - newMDCT.mdct_sub48(gfc, primebuff0, primebuff1); - - /* check FFT will not use a negative starting offset */ - /* check if we have enough data for FFT */ - /* check if we have enough data for polyphase filterbank */ - } - - } - - /** - *
- * encodeframe() Layer 3 - * - * encode a single frame - * - * - * lame_encode_frame() - * - * - * gr 0 gr 1 - * inbuf: |--------------|--------------|--------------| - * - * - * Polyphase (18 windows, each shifted 32) - * gr 0: - * window1 <----512---. - * window18 <----512---. - * - * gr 1: - * window1 <----512---. - * window18 <----512---. - * - * - * - * MDCT output: |--------------|--------------|--------------| - * - * FFT's <---------1024---------. - * <---------1024-------. - * - * - * - * inbuf = buffer of PCM data size=MP3 framesize - * encoder acts on inbuf[ch][0], but output is delayed by MDCTDELAY - * so the MDCT coefficints are from inbuf[ch][-MDCTDELAY] - * - * psy-model FFT has a 1 granule delay, so we feed it data for the - * next granule. - * FFT is centered over granule: 224+576+224 - * So FFT starts at: 576-224-MDCTDELAY - * - * MPEG2: FFT ends at: BLKSIZE+576-224-MDCTDELAY (1328) - * MPEG1: FFT ends at: BLKSIZE+2*576-224-MDCTDELAY (1904) - * - * MPEG2: polyphase first window: [0..511] - * 18th window: [544..1055] (1056) - * MPEG1: 36th window: [1120..1631] (1632) - * data needed: 512+framesize-32 - * - * A close look newmdct.c shows that the polyphase filterbank - * only uses data from [0..510] for each window. Perhaps because the window - * used by the filterbank is zero for the last point, so Takehiro's - * code doesn't bother to compute with it. - * - * FFT starts at 576-224-MDCTDELAY (304) = 576-FFTOFFSET - * - *- */ - - - this.lame_encode_mp3_frame = function (gfp, inbuf_l, inbuf_r, mp3buf, mp3bufPos, mp3buf_size) { - var mp3count; - var masking_LR = new_array_n([2, 2]); - /* - * LR masking & - * energy - */ - masking_LR[0][0] = new III_psy_ratio(); - masking_LR[0][1] = new III_psy_ratio(); - masking_LR[1][0] = new III_psy_ratio(); - masking_LR[1][1] = new III_psy_ratio(); - var masking_MS = new_array_n([2, 2]); - /* MS masking & energy */ - masking_MS[0][0] = new III_psy_ratio(); - masking_MS[0][1] = new III_psy_ratio(); - masking_MS[1][0] = new III_psy_ratio(); - masking_MS[1][1] = new III_psy_ratio(); - //III_psy_ratio masking[][]; - var masking; - /* pointer to selected maskings */ - var inbuf = [null, null]; - var gfc = gfp.internal_flags; - - var tot_ener = new_float_n([2, 4]); - var ms_ener_ratio = [.5, .5]; - var pe = [[0., 0.], [0., 0.]]; - var pe_MS = [[0., 0.], [0., 0.]]; - -//float[][] pe_use; - var pe_use; - - var ch, gr; - - inbuf[0] = inbuf_l; - inbuf[1] = inbuf_r; - - if (gfc.lame_encode_frame_init == 0) { - /* first run? */ - lame_encode_frame_init(gfp, inbuf); - - } - - /********************** padding *****************************/ - /** - *
- * padding method as described in - * "MPEG-Layer3 / Bitstream Syntax and Decoding" - * by Martin Sieler, Ralph Sperschneider - * - * note: there is no padding for the very first frame - * - * Robert Hegemann 2000-06-22 - *- */ - gfc.padding = 0; - if ((gfc.slot_lag -= gfc.frac_SpF) < 0) { - gfc.slot_lag += gfp.out_samplerate; - gfc.padding = 1; - } - - /**************************************** - * Stage 1: psychoacoustic model * - ****************************************/ - - if (gfc.psymodel != 0) { - /* - * psychoacoustic model psy model has a 1 granule (576) delay that - * we must compensate for (mt 6/99). - */ - var ret; - var bufp = [null, null]; - /* address of beginning of left & right granule */ - var bufpPos = 0; - /* address of beginning of left & right granule */ - var blocktype = new_int(2); - - for (gr = 0; gr < gfc.mode_gr; gr++) { - - for (ch = 0; ch < gfc.channels_out; ch++) { - bufp[ch] = inbuf[ch]; - bufpPos = 576 + gr * 576 - Encoder.FFTOFFSET; - } - if (gfp.VBR == VbrMode.vbr_mtrh || gfp.VBR == VbrMode.vbr_mt) { - ret = psy.L3psycho_anal_vbr(gfp, bufp, bufpPos, gr, - masking_LR, masking_MS, pe[gr], pe_MS[gr], - tot_ener[gr], blocktype); - } else { - ret = psy.L3psycho_anal_ns(gfp, bufp, bufpPos, gr, - masking_LR, masking_MS, pe[gr], pe_MS[gr], - tot_ener[gr], blocktype); - } - if (ret != 0) - return -4; - - if (gfp.mode == MPEGMode.JOINT_STEREO) { - ms_ener_ratio[gr] = tot_ener[gr][2] + tot_ener[gr][3]; - if (ms_ener_ratio[gr] > 0) - ms_ener_ratio[gr] = tot_ener[gr][3] / ms_ener_ratio[gr]; - } - - /* block type flags */ - for (ch = 0; ch < gfc.channels_out; ch++) { - var cod_info = gfc.l3_side.tt[gr][ch]; - cod_info.block_type = blocktype[ch]; - cod_info.mixed_block_flag = 0; - } - } - } else { - /* no psy model */ - for (gr = 0; gr < gfc.mode_gr; gr++) - for (ch = 0; ch < gfc.channels_out; ch++) { - gfc.l3_side.tt[gr][ch].block_type = Encoder.NORM_TYPE; - gfc.l3_side.tt[gr][ch].mixed_block_flag = 0; - pe_MS[gr][ch] = pe[gr][ch] = 700; - } - } - - /* auto-adjust of ATH, useful for low volume */ - adjust_ATH(gfc); - - /**************************************** - * Stage 2: MDCT * - ****************************************/ - - /* polyphase filtering / mdct */ - newMDCT.mdct_sub48(gfc, inbuf[0], inbuf[1]); - - /**************************************** - * Stage 3: MS/LR decision * - ****************************************/ - - /* Here will be selected MS or LR coding of the 2 stereo channels */ - gfc.mode_ext = Encoder.MPG_MD_LR_LR; - - if (gfp.force_ms) { - gfc.mode_ext = Encoder.MPG_MD_MS_LR; - } else if (gfp.mode == MPEGMode.JOINT_STEREO) { - /* - * ms_ratio = is scaled, for historical reasons, to look like a - * ratio of side_channel / total. 0 = signal is 100% mono .5 = L & R - * uncorrelated - */ - - /** - *
- * [0] and [1] are the results for the two granules in MPEG-1, - * in MPEG-2 it's only a faked averaging of the same value - * _prev is the value of the last granule of the previous frame - * _next is the value of the first granule of the next frame - *- */ - - var sum_pe_MS = 0.; - var sum_pe_LR = 0.; - for (gr = 0; gr < gfc.mode_gr; gr++) { - for (ch = 0; ch < gfc.channels_out; ch++) { - sum_pe_MS += pe_MS[gr][ch]; - sum_pe_LR += pe[gr][ch]; - } - } - - /* based on PE: M/S coding would not use much more bits than L/R */ - if (sum_pe_MS <= 1.00 * sum_pe_LR) { - - var gi0 = gfc.l3_side.tt[0]; - var gi1 = gfc.l3_side.tt[gfc.mode_gr - 1]; - - if (gi0[0].block_type == gi0[1].block_type - && gi1[0].block_type == gi1[1].block_type) { - - gfc.mode_ext = Encoder.MPG_MD_MS_LR; - } - } - } - - /* bit and noise allocation */ - if (gfc.mode_ext == MPG_MD_MS_LR) { - masking = masking_MS; - /* use MS masking */ - pe_use = pe_MS; - } else { - masking = masking_LR; - /* use LR masking */ - pe_use = pe; - } - - /* copy data for MP3 frame analyzer */ - if (gfp.analysis && gfc.pinfo != null) { - for (gr = 0; gr < gfc.mode_gr; gr++) { - for (ch = 0; ch < gfc.channels_out; ch++) { - gfc.pinfo.ms_ratio[gr] = gfc.ms_ratio[gr]; - gfc.pinfo.ms_ener_ratio[gr] = ms_ener_ratio[gr]; - gfc.pinfo.blocktype[gr][ch] = gfc.l3_side.tt[gr][ch].block_type; - gfc.pinfo.pe[gr][ch] = pe_use[gr][ch]; - System.arraycopy(gfc.l3_side.tt[gr][ch].xr, 0, - gfc.pinfo.xr[gr][ch], 0, 576); - /* - * in psymodel, LR and MS data was stored in pinfo. switch - * to MS data: - */ - if (gfc.mode_ext == MPG_MD_MS_LR) { - gfc.pinfo.ers[gr][ch] = gfc.pinfo.ers[gr][ch + 2]; - System.arraycopy(gfc.pinfo.energy[gr][ch + 2], 0, - gfc.pinfo.energy[gr][ch], 0, - gfc.pinfo.energy[gr][ch].length); - } - } - } - } - - /**************************************** - * Stage 4: quantization loop * - ****************************************/ - - if (gfp.VBR == VbrMode.vbr_off || gfp.VBR == VbrMode.vbr_abr) { - - var i; - var f; - - for (i = 0; i < 18; i++) - gfc.nsPsy.pefirbuf[i] = gfc.nsPsy.pefirbuf[i + 1]; - - f = 0.0; - for (gr = 0; gr < gfc.mode_gr; gr++) - for (ch = 0; ch < gfc.channels_out; ch++) - f += pe_use[gr][ch]; - gfc.nsPsy.pefirbuf[18] = f; - - f = gfc.nsPsy.pefirbuf[9]; - for (i = 0; i < 9; i++) - f += (gfc.nsPsy.pefirbuf[i] + gfc.nsPsy.pefirbuf[18 - i]) - * Encoder.fircoef[i]; - - f = (670 * 5 * gfc.mode_gr * gfc.channels_out) / f; - for (gr = 0; gr < gfc.mode_gr; gr++) { - for (ch = 0; ch < gfc.channels_out; ch++) { - pe_use[gr][ch] *= f; - } - } - } - gfc.iteration_loop.iteration_loop(gfp, pe_use, ms_ener_ratio, masking); - - /**************************************** - * Stage 5: bitstream formatting * - ****************************************/ - - /* write the frame to the bitstream */ - bs.format_bitstream(gfp); - - /* copy mp3 bit buffer into array */ - mp3count = bs.copy_buffer(gfc, mp3buf, mp3bufPos, mp3buf_size, 1); - - if (gfp.bWriteVbrTag) - vbr.addVbrFrame(gfp); - - if (gfp.analysis && gfc.pinfo != null) { - for (ch = 0; ch < gfc.channels_out; ch++) { - var j; - for (j = 0; j < FFTOFFSET; j++) - gfc.pinfo.pcmdata[ch][j] = gfc.pinfo.pcmdata[ch][j - + gfp.framesize]; - for (j = FFTOFFSET; j < 1600; j++) { - gfc.pinfo.pcmdata[ch][j] = inbuf[ch][j - FFTOFFSET]; - } - } - qupvt.set_frame_pinfo(gfp, masking); - } - - updateStats(gfc); - - return mp3count; - } -} - - -//package mp3; - -function VBRSeekInfo() { - /** - * What we have seen so far. - */ - this.sum = 0; - /** - * How many frames we have seen in this chunk. - */ - this.seen = 0; - /** - * How many frames we want to collect into one chunk. - */ - this.want = 0; - /** - * Actual position in our bag. - */ - this.pos = 0; - /** - * Size of our bag. - */ - this.size = 0; - /** - * Pointer to our bag. - */ - this.bag = null; - this.nVbrNumFrames = 0; - this.nBytesWritten = 0; - /* VBR tag data */ - this.TotalFrameSize = 0; -} - - - -function IIISideInfo() { - this.tt = [[null, null], [null, null]]; - this.main_data_begin = 0; - this.private_bits = 0; - this.resvDrain_pre = 0; - this.resvDrain_post = 0; - this.scfsi = [new_int(4), new_int(4)]; - - for (var gr = 0; gr < 2; gr++) { - for (var ch = 0; ch < 2; ch++) { - this.tt[gr][ch] = new GrInfo(); - } - } -} - - - -//package mp3; - -/** - * Variables used for --nspsytune - * - * @author Ken - * - */ -function NsPsy() { - this.last_en_subshort = new_float_n([4, 9]); - this.lastAttacks = new_int(4); - this.pefirbuf = new_float(19); - this.longfact = new_float(Encoder.SBMAX_l); - this.shortfact = new_float(Encoder.SBMAX_s); - - /** - * short block tuning - */ - this.attackthre = 0.; - this.attackthre_s = 0.; -} - - -function III_psy_xmin() { - this.l = new_float(Encoder.SBMAX_l); - this.s = new_float_n([Encoder.SBMAX_s, 3]); - - var self = this; - this.assign = function (iii_psy_xmin) { - System.arraycopy(iii_psy_xmin.l, 0, self.l, 0, Encoder.SBMAX_l); - for (var i = 0; i < Encoder.SBMAX_s; i++) { - for (var j = 0; j < 3; j++) { - self.s[i][j] = iii_psy_xmin.s[i][j]; - } - } - } -} - - - - -LameInternalFlags.MFSIZE = (3 * 1152 + Encoder.ENCDELAY - Encoder.MDCTDELAY); -LameInternalFlags.MAX_HEADER_BUF = 256; -LameInternalFlags.MAX_BITS_PER_CHANNEL = 4095; -LameInternalFlags.MAX_BITS_PER_GRANULE = 7680; -LameInternalFlags.BPC = 320; - -function LameInternalFlags() { - var MAX_HEADER_LEN = 40; - - - /******************************************************************** - * internal variables NOT set by calling program, and should not be * - * modified by the calling program * - ********************************************************************/ - - /** - * Some remarks to the Class_ID field: The Class ID is an Identifier for a - * pointer to this struct. It is very unlikely that a pointer to - * lame_global_flags has the same 32 bits in it's structure (large and other - * special properties, for instance prime). - * - * To test that the structure is right and initialized, use: if ( gfc . - * Class_ID == LAME_ID ) ... Other remark: If you set a flag to 0 for uninit - * data and 1 for init data, the right test should be "if (flag == 1)" and - * NOT "if (flag)". Unintended modification of this element will be - * otherwise misinterpreted as an init. - */ - this.Class_ID = 0; - - this.lame_encode_frame_init = 0; - this.iteration_init_init = 0; - this.fill_buffer_resample_init = 0; - - //public float mfbuf[][] = new float[2][MFSIZE]; - this.mfbuf = new_float_n([2, LameInternalFlags.MFSIZE]); - - /** - * granules per frame - */ - this.mode_gr = 0; - /** - * number of channels in the input data stream (PCM or decoded PCM) - */ - this.channels_in = 0; - /** - * number of channels in the output data stream (not used for decoding) - */ - this.channels_out = 0; - /** - * input_samp_rate/output_samp_rate - */ - //public double resample_ratio; - this.resample_ratio = 0.; - - this.mf_samples_to_encode = 0; - this.mf_size = 0; - /** - * min bitrate index - */ - this.VBR_min_bitrate = 0; - /** - * max bitrate index - */ - this.VBR_max_bitrate = 0; - this.bitrate_index = 0; - this.samplerate_index = 0; - this.mode_ext = 0; - - /* lowpass and highpass filter control */ - /** - * normalized frequency bounds of passband - */ - this.lowpass1 = 0.; - this.lowpass2 = 0.; - /** - * normalized frequency bounds of passband - */ - this.highpass1 = 0.; - this.highpass2 = 0.; - - /** - * 0 = none 1 = ISO AAC model 2 = allow scalefac_select=1 - */ - this.noise_shaping = 0; - - /** - * 0 = ISO model: amplify all distorted bands
- * 1 = amplify within 50% of max (on db scale)
- * 2 = amplify only most distorted band
- * 3 = method 1 and refine with method 2
- */ - this.noise_shaping_amp = 0; - /** - * 0 = no substep
- * 1 = use substep shaping at last step(VBR only)
- * (not implemented yet)
- * 2 = use substep inside loop
- * 3 = use substep inside loop and last step
- */ - this.substep_shaping = 0; - - /** - * 1 = gpsycho. 0 = none - */ - this.psymodel = 0; - /** - * 0 = stop at over=0, all scalefacs amplified or
- * a scalefac has reached max value
- * 1 = stop when all scalefacs amplified or a scalefac has reached max value
- * 2 = stop when all scalefacs amplified - */ - this.noise_shaping_stop = 0; - - /** - * 0 = no, 1 = yes - */ - this.subblock_gain = 0; - /** - * 0 = no. 1=outside loop 2=inside loop(slow) - */ - this.use_best_huffman = 0; - - /** - * 0 = stop early after 0 distortion found. 1 = full search - */ - this.full_outer_loop = 0; - - //public IIISideInfo l3_side = new IIISideInfo(); - this.l3_side = new IIISideInfo(); - this.ms_ratio = new_float(2); - - /* used for padding */ - /** - * padding for the current frame? - */ - this.padding = 0; - this.frac_SpF = 0; - this.slot_lag = 0; - - /** - * optional ID3 tags - */ - //public ID3TagSpec tag_spec; - this.tag_spec = null; - this.nMusicCRC = 0; - - /* variables used by Quantize */ - //public int OldValue[] = new int[2]; - this.OldValue = new_int(2); - //public int CurrentStep[] = new int[2]; - this.CurrentStep = new_int(2); - - this.masking_lower = 0.; - //public int bv_scf[] = new int[576]; - this.bv_scf = new_int(576); - //public int pseudohalf[] = new int[L3Side.SFBMAX]; - this.pseudohalf = new_int(L3Side.SFBMAX); - - /** - * will be set in lame_init_params - */ - this.sfb21_extra = false; - - /* BPC = maximum number of filter convolution windows to precompute */ - //public float[][] inbuf_old = new float[2][]; - this.inbuf_old = new Array(2); - //public float[][] blackfilt = new float[2 * BPC + 1][]; - this.blackfilt = new Array(2 * LameInternalFlags.BPC + 1); - //public double itime[] = new double[2]; - this.itime = new_double(2); - this.sideinfo_len = 0; - - /* variables for newmdct.c */ - //public float sb_sample[][][][] = new float[2][2][18][Encoder.SBLIMIT]; - this.sb_sample = new_float_n([2, 2, 18, Encoder.SBLIMIT]); - this.amp_filter = new_float(32); - - /* variables for BitStream */ - - /** - *
- * mpeg1: buffer=511 bytes smallest frame: 96-38(sideinfo)=58 - * max number of frames in reservoir: 8 - * mpeg2: buffer=255 bytes. smallest frame: 24-23bytes=1 - * with VBR, if you are encoding all silence, it is possible to - * have 8kbs/24khz frames with 1byte of data each, which means we need - * to buffer up to 255 headers! - *- */ - /** - * also, max_header_buf has to be a power of two - */ - /** - * max size of header is 38 - */ - - function Header() { - this.write_timing = 0; - this.ptr = 0; - //public byte buf[] = new byte[MAX_HEADER_LEN]; - this.buf = new_byte(MAX_HEADER_LEN); - } - - this.header = new Array(LameInternalFlags.MAX_HEADER_BUF); - - this.h_ptr = 0; - this.w_ptr = 0; - this.ancillary_flag = 0; - - /* variables for Reservoir */ - /** - * in bits - */ - this.ResvSize = 0; - /** - * in bits - */ - this.ResvMax = 0; - - //public ScaleFac scalefac_band = new ScaleFac(); - this.scalefac_band = new ScaleFac(); - - /* daa from PsyModel */ - /* The static variables "r", "phi_sav", "new", "old" and "oldest" have */ - /* to be remembered for the unpredictability measure. For "r" and */ - /* "phi_sav", the first index from the left is the channel select and */ - /* the second index is the "age" of the data. */ - this.minval_l = new_float(Encoder.CBANDS); - this.minval_s = new_float(Encoder.CBANDS); - this.nb_1 = new_float_n([4, Encoder.CBANDS]); - this.nb_2 = new_float_n([4, Encoder.CBANDS]); - this.nb_s1 = new_float_n([4, Encoder.CBANDS]); - this.nb_s2 = new_float_n([4, Encoder.CBANDS]); - this.s3_ss = null; - this.s3_ll = null; - this.decay = 0.; - - //public III_psy_xmin[] thm = new III_psy_xmin[4]; - //public III_psy_xmin[] en = new III_psy_xmin[4]; - this.thm = new Array(4); - this.en = new Array(4); - - /** - * fft and energy calculation - */ - this.tot_ener = new_float(4); - - /* loudness calculation (for adaptive threshold of hearing) */ - /** - * loudness^2 approx. per granule and channel - */ - this.loudness_sq = new_float_n([2, 2]); - /** - * account for granule delay of L3psycho_anal - */ - this.loudness_sq_save = new_float(2); - - /** - * Scale Factor Bands - */ - this.mld_l = new_float(Encoder.SBMAX_l); - this.mld_s = new_float(Encoder.SBMAX_s); - this.bm_l = new_int(Encoder.SBMAX_l); - this.bo_l = new_int(Encoder.SBMAX_l); - this.bm_s = new_int(Encoder.SBMAX_s); - this.bo_s = new_int(Encoder.SBMAX_s); - this.npart_l = 0; - this.npart_s = 0; - - this.s3ind = new_int_n([Encoder.CBANDS, 2]); - this.s3ind_s = new_int_n([Encoder.CBANDS, 2]); - - this.numlines_s = new_int(Encoder.CBANDS); - this.numlines_l = new_int(Encoder.CBANDS); - this.rnumlines_l = new_float(Encoder.CBANDS); - this.mld_cb_l = new_float(Encoder.CBANDS); - this.mld_cb_s = new_float(Encoder.CBANDS); - this.numlines_s_num1 = 0; - this.numlines_l_num1 = 0; - - /* ratios */ - this.pe = new_float(4); - this.ms_ratio_s_old = 0.; - this.ms_ratio_l_old = 0.; - this.ms_ener_ratio_old = 0.; - - /** - * block type - */ - this.blocktype_old = new_int(2); - - /** - * variables used for --nspsytune - */ - this.nsPsy = new NsPsy(); - - /** - * used for Xing VBR header - */ - this.VBR_seek_table = new VBRSeekInfo(); - - /** - * all ATH related stuff - */ - //public ATH ATH; - this.ATH = null; - - this.PSY = null; - - this.nogap_total = 0; - this.nogap_current = 0; - - /* ReplayGain */ - this.decode_on_the_fly = true; - this.findReplayGain = true; - this.findPeakSample = true; - this.PeakSample = 0.; - this.RadioGain = 0; - this.AudiophileGain = 0; - //public ReplayGain rgdata; - this.rgdata = null; - - /** - * gain change required for preventing clipping - */ - this.noclipGainChange = 0; - /** - * user-specified scale factor required for preventing clipping - */ - this.noclipScale = 0.; - - /* simple statistics */ - this.bitrate_stereoMode_Hist = new_int_n([16, 4 + 1]); - /** - * norm/start/short/stop/mixed(short)/sum - */ - this.bitrate_blockType_Hist = new_int_n([16, 4 + 1 + 1]); - - //public PlottingData pinfo; - //public MPGLib.mpstr_tag hip; - this.pinfo = null; - this.hip = null; - - this.in_buffer_nsamples = 0; - //public float[] in_buffer_0; - //public float[] in_buffer_1; - this.in_buffer_0 = null; - this.in_buffer_1 = null; - - //public IIterationLoop iteration_loop; - this.iteration_loop = null; - - for (var i = 0; i < this.en.length; i++) { - this.en[i] = new III_psy_xmin(); - } - for (var i = 0; i < this.thm.length; i++) { - this.thm[i] = new III_psy_xmin(); - } - for (var i = 0; i < this.header.length; i++) { - this.header[i] = new Header(); - } - -} - - - -function FFT() { - - var window = new_float(Encoder.BLKSIZE); - var window_s = new_float(Encoder.BLKSIZE_s / 2); - - var costab = [ - 9.238795325112867e-01, 3.826834323650898e-01, - 9.951847266721969e-01, 9.801714032956060e-02, - 9.996988186962042e-01, 2.454122852291229e-02, - 9.999811752826011e-01, 6.135884649154475e-03 - ]; - - function fht(fz, fzPos, n) { - var tri = 0; - var k4; - var fi; - var gi; - - n <<= 1; - /* to get BLKSIZE, because of 3DNow! ASM routine */ - var fn = fzPos + n; - k4 = 4; - do { - var s1, c1; - var i, k1, k2, k3, kx; - kx = k4 >> 1; - k1 = k4; - k2 = k4 << 1; - k3 = k2 + k1; - k4 = k2 << 1; - fi = fzPos; - gi = fi + kx; - do { - var f0, f1, f2, f3; - f1 = fz[fi + 0] - fz[fi + k1]; - f0 = fz[fi + 0] + fz[fi + k1]; - f3 = fz[fi + k2] - fz[fi + k3]; - f2 = fz[fi + k2] + fz[fi + k3]; - fz[fi + k2] = f0 - f2; - fz[fi + 0] = f0 + f2; - fz[fi + k3] = f1 - f3; - fz[fi + k1] = f1 + f3; - f1 = fz[gi + 0] - fz[gi + k1]; - f0 = fz[gi + 0] + fz[gi + k1]; - f3 = (Util.SQRT2 * fz[gi + k3]); - f2 = (Util.SQRT2 * fz[gi + k2]); - fz[gi + k2] = f0 - f2; - fz[gi + 0] = f0 + f2; - fz[gi + k3] = f1 - f3; - fz[gi + k1] = f1 + f3; - gi += k4; - fi += k4; - } while (fi < fn); - c1 = costab[tri + 0]; - s1 = costab[tri + 1]; - for (i = 1; i < kx; i++) { - var c2, s2; - c2 = 1 - (2 * s1) * s1; - s2 = (2 * s1) * c1; - fi = fzPos + i; - gi = fzPos + k1 - i; - do { - var a, b, g0, f0, f1, g1, f2, g2, f3, g3; - b = s2 * fz[fi + k1] - c2 * fz[gi + k1]; - a = c2 * fz[fi + k1] + s2 * fz[gi + k1]; - f1 = fz[fi + 0] - a; - f0 = fz[fi + 0] + a; - g1 = fz[gi + 0] - b; - g0 = fz[gi + 0] + b; - b = s2 * fz[fi + k3] - c2 * fz[gi + k3]; - a = c2 * fz[fi + k3] + s2 * fz[gi + k3]; - f3 = fz[fi + k2] - a; - f2 = fz[fi + k2] + a; - g3 = fz[gi + k2] - b; - g2 = fz[gi + k2] + b; - b = s1 * f2 - c1 * g3; - a = c1 * f2 + s1 * g3; - fz[fi + k2] = f0 - a; - fz[fi + 0] = f0 + a; - fz[gi + k3] = g1 - b; - fz[gi + k1] = g1 + b; - b = c1 * g2 - s1 * f3; - a = s1 * g2 + c1 * f3; - fz[gi + k2] = g0 - a; - fz[gi + 0] = g0 + a; - fz[fi + k3] = f1 - b; - fz[fi + k1] = f1 + b; - gi += k4; - fi += k4; - } while (fi < fn); - c2 = c1; - c1 = c2 * costab[tri + 0] - s1 * costab[tri + 1]; - s1 = c2 * costab[tri + 1] + s1 * costab[tri + 0]; - } - tri += 2; - } while (k4 < n); - } - - var rv_tbl = [0x00, 0x80, 0x40, - 0xc0, 0x20, 0xa0, 0x60, 0xe0, 0x10, - 0x90, 0x50, 0xd0, 0x30, 0xb0, 0x70, - 0xf0, 0x08, 0x88, 0x48, 0xc8, 0x28, - 0xa8, 0x68, 0xe8, 0x18, 0x98, 0x58, - 0xd8, 0x38, 0xb8, 0x78, 0xf8, 0x04, - 0x84, 0x44, 0xc4, 0x24, 0xa4, 0x64, - 0xe4, 0x14, 0x94, 0x54, 0xd4, 0x34, - 0xb4, 0x74, 0xf4, 0x0c, 0x8c, 0x4c, - 0xcc, 0x2c, 0xac, 0x6c, 0xec, 0x1c, - 0x9c, 0x5c, 0xdc, 0x3c, 0xbc, 0x7c, - 0xfc, 0x02, 0x82, 0x42, 0xc2, 0x22, - 0xa2, 0x62, 0xe2, 0x12, 0x92, 0x52, - 0xd2, 0x32, 0xb2, 0x72, 0xf2, 0x0a, - 0x8a, 0x4a, 0xca, 0x2a, 0xaa, 0x6a, - 0xea, 0x1a, 0x9a, 0x5a, 0xda, 0x3a, - 0xba, 0x7a, 0xfa, 0x06, 0x86, 0x46, - 0xc6, 0x26, 0xa6, 0x66, 0xe6, 0x16, - 0x96, 0x56, 0xd6, 0x36, 0xb6, 0x76, - 0xf6, 0x0e, 0x8e, 0x4e, 0xce, 0x2e, - 0xae, 0x6e, 0xee, 0x1e, 0x9e, 0x5e, - 0xde, 0x3e, 0xbe, 0x7e, 0xfe]; - - this.fft_short = function (gfc, x_real, chn, buffer, bufPos) { - for (var b = 0; b < 3; b++) { - var x = Encoder.BLKSIZE_s / 2; - var k = 0xffff & ((576 / 3) * (b + 1)); - var j = Encoder.BLKSIZE_s / 8 - 1; - do { - var f0, f1, f2, f3, w; - var i = rv_tbl[j << 2] & 0xff; - - f0 = window_s[i] * buffer[chn][bufPos + i + k]; - w = window_s[0x7f - i] * buffer[chn][bufPos + i + k + 0x80]; - f1 = f0 - w; - f0 = f0 + w; - f2 = window_s[i + 0x40] * buffer[chn][bufPos + i + k + 0x40]; - w = window_s[0x3f - i] * buffer[chn][bufPos + i + k + 0xc0]; - f3 = f2 - w; - f2 = f2 + w; - - x -= 4; - x_real[b][x + 0] = f0 + f2; - x_real[b][x + 2] = f0 - f2; - x_real[b][x + 1] = f1 + f3; - x_real[b][x + 3] = f1 - f3; - - f0 = window_s[i + 0x01] * buffer[chn][bufPos + i + k + 0x01]; - w = window_s[0x7e - i] * buffer[chn][bufPos + i + k + 0x81]; - f1 = f0 - w; - f0 = f0 + w; - f2 = window_s[i + 0x41] * buffer[chn][bufPos + i + k + 0x41]; - w = window_s[0x3e - i] * buffer[chn][bufPos + i + k + 0xc1]; - f3 = f2 - w; - f2 = f2 + w; - - x_real[b][x + Encoder.BLKSIZE_s / 2 + 0] = f0 + f2; - x_real[b][x + Encoder.BLKSIZE_s / 2 + 2] = f0 - f2; - x_real[b][x + Encoder.BLKSIZE_s / 2 + 1] = f1 + f3; - x_real[b][x + Encoder.BLKSIZE_s / 2 + 3] = f1 - f3; - } while (--j >= 0); - - fht(x_real[b], x, Encoder.BLKSIZE_s / 2); - /* BLKSIZE_s/2 because of 3DNow! ASM routine */ - /* BLKSIZE/2 because of 3DNow! ASM routine */ - } - } - - this.fft_long = function (gfc, y, chn, buffer, bufPos) { - var jj = Encoder.BLKSIZE / 8 - 1; - var x = Encoder.BLKSIZE / 2; - - do { - var f0, f1, f2, f3, w; - var i = rv_tbl[jj] & 0xff; - f0 = window[i] * buffer[chn][bufPos + i]; - w = window[i + 0x200] * buffer[chn][bufPos + i + 0x200]; - f1 = f0 - w; - f0 = f0 + w; - f2 = window[i + 0x100] * buffer[chn][bufPos + i + 0x100]; - w = window[i + 0x300] * buffer[chn][bufPos + i + 0x300]; - f3 = f2 - w; - f2 = f2 + w; - - x -= 4; - y[x + 0] = f0 + f2; - y[x + 2] = f0 - f2; - y[x + 1] = f1 + f3; - y[x + 3] = f1 - f3; - - f0 = window[i + 0x001] * buffer[chn][bufPos + i + 0x001]; - w = window[i + 0x201] * buffer[chn][bufPos + i + 0x201]; - f1 = f0 - w; - f0 = f0 + w; - f2 = window[i + 0x101] * buffer[chn][bufPos + i + 0x101]; - w = window[i + 0x301] * buffer[chn][bufPos + i + 0x301]; - f3 = f2 - w; - f2 = f2 + w; - - y[x + Encoder.BLKSIZE / 2 + 0] = f0 + f2; - y[x + Encoder.BLKSIZE / 2 + 2] = f0 - f2; - y[x + Encoder.BLKSIZE / 2 + 1] = f1 + f3; - y[x + Encoder.BLKSIZE / 2 + 3] = f1 - f3; - } while (--jj >= 0); - - fht(y, x, Encoder.BLKSIZE / 2); - /* BLKSIZE/2 because of 3DNow! ASM routine */ - } - - this.init_fft = function (gfc) { - /* The type of window used here will make no real difference, but */ - /* - * in the interest of merging nspsytune stuff - switch to blackman - * window - */ - for (var i = 0; i < Encoder.BLKSIZE; i++) - /* blackman window */ - window[i] = (0.42 - 0.5 * Math.cos(2 * Math.PI * (i + .5) - / Encoder.BLKSIZE) + 0.08 * Math.cos(4 * Math.PI * (i + .5) - / Encoder.BLKSIZE)); - - for (var i = 0; i < Encoder.BLKSIZE_s / 2; i++) - window_s[i] = (0.5 * (1.0 - Math.cos(2.0 * Math.PI - * (i + 0.5) / Encoder.BLKSIZE_s))); - - } - -} - -/* - * psymodel.c - * - * Copyright (c) 1999-2000 Mark Taylor - * Copyright (c) 2001-2002 Naoki Shibata - * Copyright (c) 2000-2003 Takehiro Tominaga - * Copyright (c) 2000-2008 Robert Hegemann - * Copyright (c) 2000-2005 Gabriel Bouvigne - * Copyright (c) 2000-2005 Alexander Leidinger - * - * This library is free software; you can redistribute it and/or - * modify it under the terms of the GNU Lesser General Public - * License as published by the Free Software Foundation; either - * version 2 of the License, or (at your option) any later version. - * - * This library is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU - * Library General Public License for more details. - * - * You should have received a copy of the GNU Lesser General Public - * License along with this library; if not, write to the - * Free Software Foundation, Inc., 59 Temple Place - Suite 330, - * Boston, MA 02111-1307, USA. - */ - -/* $Id: PsyModel.java,v 1.27 2011/05/24 20:48:06 kenchis Exp $ */ - - -/* - PSYCHO ACOUSTICS - - - This routine computes the psycho acoustics, delayed by one granule. - - Input: buffer of PCM data (1024 samples). - - This window should be centered over the 576 sample granule window. - The routine will compute the psycho acoustics for - this granule, but return the psycho acoustics computed - for the *previous* granule. This is because the block - type of the previous granule can only be determined - after we have computed the psycho acoustics for the following - granule. - - Output: maskings and energies for each scalefactor band. - block type, PE, and some correlation measures. - The PE is used by CBR modes to determine if extra bits - from the bit reservoir should be used. The correlation - measures are used to determine mid/side or regular stereo. - */ -/* - Notation: - - barks: a non-linear frequency scale. Mapping from frequency to - barks is given by freq2bark() - - scalefactor bands: The spectrum (frequencies) are broken into - SBMAX "scalefactor bands". Thes bands - are determined by the MPEG ISO spec. In - the noise shaping/quantization code, we allocate - bits among the partition bands to achieve the - best possible quality - - partition bands: The spectrum is also broken into about - 64 "partition bands". Each partition - band is about .34 barks wide. There are about 2-5 - partition bands for each scalefactor band. - - LAME computes all psycho acoustic information for each partition - band. Then at the end of the computations, this information - is mapped to scalefactor bands. The energy in each scalefactor - band is taken as the sum of the energy in all partition bands - which overlap the scalefactor band. The maskings can be computed - in the same way (and thus represent the average masking in that band) - or by taking the minmum value multiplied by the number of - partition bands used (which represents a minimum masking in that band). - */ -/* - The general outline is as follows: - - 1. compute the energy in each partition band - 2. compute the tonality in each partition band - 3. compute the strength of each partion band "masker" - 4. compute the masking (via the spreading function applied to each masker) - 5. Modifications for mid/side masking. - - Each partition band is considiered a "masker". The strength - of the i'th masker in band j is given by: - - s3(bark(i)-bark(j))*strength(i) - - The strength of the masker is a function of the energy and tonality. - The more tonal, the less masking. LAME uses a simple linear formula - (controlled by NMT and TMN) which says the strength is given by the - energy divided by a linear function of the tonality. - */ -/* - s3() is the "spreading function". It is given by a formula - determined via listening tests. - - The total masking in the j'th partition band is the sum over - all maskings i. It is thus given by the convolution of - the strength with s3(), the "spreading function." - - masking(j) = sum_over_i s3(i-j)*strength(i) = s3 o strength - - where "o" = convolution operator. s3 is given by a formula determined - via listening tests. It is normalized so that s3 o 1 = 1. - - Note: instead of a simple convolution, LAME also has the - option of using "additive masking" - - The most critical part is step 2, computing the tonality of each - partition band. LAME has two tonality estimators. The first - is based on the ISO spec, and measures how predictiable the - signal is over time. The more predictable, the more tonal. - The second measure is based on looking at the spectrum of - a single granule. The more peaky the spectrum, the more - tonal. By most indications, the latter approach is better. - - Finally, in step 5, the maskings for the mid and side - channel are possibly increased. Under certain circumstances, - noise in the mid & side channels is assumed to also - be masked by strong maskers in the L or R channels. - - - Other data computed by the psy-model: - - ms_ratio side-channel / mid-channel masking ratio (for previous granule) - ms_ratio_next side-channel / mid-channel masking ratio for this granule - - percep_entropy[2] L and R values (prev granule) of PE - A measure of how - much pre-echo is in the previous granule - percep_entropy_MS[2] mid and side channel values (prev granule) of percep_entropy - energy[4] L,R,M,S energy in each channel, prev granule - blocktype_d[2] block type to use for previous granule - */ -//package mp3; - -//import java.util.Arrays; - - -function PsyModel() { - - var fft = new FFT(); - - var LOG10 = 2.30258509299404568402; - - var rpelev = 2; - var rpelev2 = 16; - var rpelev_s = 2; - var rpelev2_s = 16; - - /* size of each partition band, in barks: */ - var DELBARK = .34; - - /* tuned for output level (sensitive to energy scale) */ - var VO_SCALE = (1. / (14752 * 14752) / (Encoder.BLKSIZE / 2)); - - var temporalmask_sustain_sec = 0.01; - - var NS_PREECHO_ATT0 = 0.8; - var NS_PREECHO_ATT1 = 0.6; - var NS_PREECHO_ATT2 = 0.3; - - var NS_MSFIX = 3.5; - - var NSATTACKTHRE = 4.4; - var NSATTACKTHRE_S = 25; - - var NSFIRLEN = 21; - - /* size of each partition band, in barks: */ - var LN_TO_LOG10 = 0.2302585093; - - function NON_LINEAR_SCALE_ENERGY(x) { - return x; - } - - /** - *
- * L3psycho_anal. Compute psycho acoustics. - * - * Data returned to the calling program must be delayed by one - * granule. - * - * This is done in two places. - * If we do not need to know the blocktype, the copying - * can be done here at the top of the program: we copy the data for - * the last granule (computed during the last call) before it is - * overwritten with the new data. It looks like this: - * - * 0. static psymodel_data - * 1. calling_program_data = psymodel_data - * 2. compute psymodel_data - * - * For data which needs to know the blocktype, the copying must be - * done at the end of this loop, and the old values must be saved: - * - * 0. static psymodel_data_old - * 1. compute psymodel_data - * 2. compute possible block type of this granule - * 3. compute final block type of previous granule based on #2. - * 4. calling_program_data = psymodel_data_old - * 5. psymodel_data_old = psymodel_data - * psycho_loudness_approx - * jd - 2001 mar 12 - * in: energy - BLKSIZE/2 elements of frequency magnitudes ^ 2 - * gfp - uses out_samplerate, ATHtype (also needed for ATHformula) - * returns: loudness^2 approximation, a positive value roughly tuned for a value - * of 1.0 for signals near clipping. - * notes: When calibrated, feeding this function binary white noise at sample - * values +32767 or -32768 should return values that approach 3. - * ATHformula is used to approximate an equal loudness curve. - * future: Data indicates that the shape of the equal loudness curve varies - * with intensity. This function might be improved by using an equal - * loudness curve shaped for typical playback levels (instead of the - * ATH, that is shaped for the threshold). A flexible realization might - * simply bend the existing ATH curve to achieve the desired shape. - * However, the potential gain may not be enough to justify an effort. - *- */ - function psycho_loudness_approx(energy, gfc) { - var loudness_power = 0.0; - /* apply weights to power in freq. bands */ - for (var i = 0; i < Encoder.BLKSIZE / 2; ++i) - loudness_power += energy[i] * gfc.ATH.eql_w[i]; - loudness_power *= VO_SCALE; - - return loudness_power; - } - - function compute_ffts(gfp, fftenergy, fftenergy_s, wsamp_l, wsamp_lPos, wsamp_s, wsamp_sPos, gr_out, chn, buffer, bufPos) { - var gfc = gfp.internal_flags; - if (chn < 2) { - fft.fft_long(gfc, wsamp_l[wsamp_lPos], chn, buffer, bufPos); - fft.fft_short(gfc, wsamp_s[wsamp_sPos], chn, buffer, bufPos); - } - /* FFT data for mid and side channel is derived from L & R */ - else if (chn == 2) { - for (var j = Encoder.BLKSIZE - 1; j >= 0; --j) { - var l = wsamp_l[wsamp_lPos + 0][j]; - var r = wsamp_l[wsamp_lPos + 1][j]; - wsamp_l[wsamp_lPos + 0][j] = (l + r) * Util.SQRT2 * 0.5; - wsamp_l[wsamp_lPos + 1][j] = (l - r) * Util.SQRT2 * 0.5; - } - for (var b = 2; b >= 0; --b) { - for (var j = Encoder.BLKSIZE_s - 1; j >= 0; --j) { - var l = wsamp_s[wsamp_sPos + 0][b][j]; - var r = wsamp_s[wsamp_sPos + 1][b][j]; - wsamp_s[wsamp_sPos + 0][b][j] = (l + r) * Util.SQRT2 * 0.5; - wsamp_s[wsamp_sPos + 1][b][j] = (l - r) * Util.SQRT2 * 0.5; - } - } - } - - /********************************************************************* - * compute energies - *********************************************************************/ - fftenergy[0] = NON_LINEAR_SCALE_ENERGY(wsamp_l[wsamp_lPos + 0][0]); - fftenergy[0] *= fftenergy[0]; - - for (var j = Encoder.BLKSIZE / 2 - 1; j >= 0; --j) { - var re = (wsamp_l[wsamp_lPos + 0])[Encoder.BLKSIZE / 2 - j]; - var im = (wsamp_l[wsamp_lPos + 0])[Encoder.BLKSIZE / 2 + j]; - fftenergy[Encoder.BLKSIZE / 2 - j] = NON_LINEAR_SCALE_ENERGY((re - * re + im * im) * 0.5); - } - for (var b = 2; b >= 0; --b) { - fftenergy_s[b][0] = (wsamp_s[wsamp_sPos + 0])[b][0]; - fftenergy_s[b][0] *= fftenergy_s[b][0]; - for (var j = Encoder.BLKSIZE_s / 2 - 1; j >= 0; --j) { - var re = (wsamp_s[wsamp_sPos + 0])[b][Encoder.BLKSIZE_s - / 2 - j]; - var im = (wsamp_s[wsamp_sPos + 0])[b][Encoder.BLKSIZE_s - / 2 + j]; - fftenergy_s[b][Encoder.BLKSIZE_s / 2 - j] = NON_LINEAR_SCALE_ENERGY((re - * re + im * im) * 0.5); - } - } - /* total energy */ - { - var totalenergy = 0.0; - for (var j = 11; j < Encoder.HBLKSIZE; j++) - totalenergy += fftenergy[j]; - - gfc.tot_ener[chn] = totalenergy; - } - - if (gfp.analysis) { - for (var j = 0; j < Encoder.HBLKSIZE; j++) { - gfc.pinfo.energy[gr_out][chn][j] = gfc.pinfo.energy_save[chn][j]; - gfc.pinfo.energy_save[chn][j] = fftenergy[j]; - } - gfc.pinfo.pe[gr_out][chn] = gfc.pe[chn]; - } - - /********************************************************************* - * compute loudness approximation (used for ATH auto-level adjustment) - *********************************************************************/ - if (gfp.athaa_loudapprox == 2 && chn < 2) { - // no loudness for mid/side ch - gfc.loudness_sq[gr_out][chn] = gfc.loudness_sq_save[chn]; - gfc.loudness_sq_save[chn] = psycho_loudness_approx(fftenergy, gfc); - } - } - - /* mask_add optimization */ - /* init the limit values used to avoid computing log in mask_add when it is not necessary */ - - /** - *
- * For example, with i = 10*log10(m2/m1)/10*16 (= log10(m2/m1)*16) - * - * abs(i)>8 is equivalent (as i is an integer) to - * abs(i)>=9 - * i>=9 || i<=-9 - * equivalent to (as i is the biggest integer smaller than log10(m2/m1)*16 - * or the smallest integer bigger than log10(m2/m1)*16 depending on the sign of log10(m2/m1)*16) - * log10(m2/m1)>=9/16 || log10(m2/m1)<=-9/16 - * exp10 is strictly increasing thus this is equivalent to - * m2/m1 >= 10^(9/16) || m2/m1<=10^(-9/16) which are comparisons to constants - *- */ - - /** - * as in if(i>8) - */ - var I1LIMIT = 8; - /** - * as in if(i>24) . changed 23 - */ - var I2LIMIT = 23; - /** - * as in if(m<15) - */ - var MLIMIT = 15; - - var ma_max_i1; - var ma_max_i2; - var ma_max_m; - - /** - * This is the masking table:
- * According to tonality, values are going from 0dB (TMN) to 9.3dB (NMT).
- * After additive masking computation, 8dB are added, so final values are - * going from 8dB to 17.3dB - * - * pow(10, -0.0..-0.6) - */ - var tab = [1.0, 0.79433, 0.63096, 0.63096, - 0.63096, 0.63096, 0.63096, 0.25119, 0.11749]; - - function init_mask_add_max_values() { - ma_max_i1 = Math.pow(10, (I1LIMIT + 1) / 16.0); - ma_max_i2 = Math.pow(10, (I2LIMIT + 1) / 16.0); - ma_max_m = Math.pow(10, (MLIMIT) / 10.0); - } - - var table1 = [3.3246 * 3.3246, - 3.23837 * 3.23837, 3.15437 * 3.15437, 3.00412 * 3.00412, - 2.86103 * 2.86103, 2.65407 * 2.65407, 2.46209 * 2.46209, - 2.284 * 2.284, 2.11879 * 2.11879, 1.96552 * 1.96552, - 1.82335 * 1.82335, 1.69146 * 1.69146, 1.56911 * 1.56911, - 1.46658 * 1.46658, 1.37074 * 1.37074, 1.31036 * 1.31036, - 1.25264 * 1.25264, 1.20648 * 1.20648, 1.16203 * 1.16203, - 1.12765 * 1.12765, 1.09428 * 1.09428, 1.0659 * 1.0659, - 1.03826 * 1.03826, 1.01895 * 1.01895, 1]; - - var table2 = [1.33352 * 1.33352, - 1.35879 * 1.35879, 1.38454 * 1.38454, 1.39497 * 1.39497, - 1.40548 * 1.40548, 1.3537 * 1.3537, 1.30382 * 1.30382, - 1.22321 * 1.22321, 1.14758 * 1.14758, 1]; - - var table3 = [2.35364 * 2.35364, - 2.29259 * 2.29259, 2.23313 * 2.23313, 2.12675 * 2.12675, - 2.02545 * 2.02545, 1.87894 * 1.87894, 1.74303 * 1.74303, - 1.61695 * 1.61695, 1.49999 * 1.49999, 1.39148 * 1.39148, - 1.29083 * 1.29083, 1.19746 * 1.19746, 1.11084 * 1.11084, - 1.03826 * 1.03826]; - - /** - * addition of simultaneous masking Naoki Shibata 2000/7 - */ - function mask_add(m1, m2, kk, b, gfc, shortblock) { - var ratio; - - if (m2 > m1) { - if (m2 < (m1 * ma_max_i2)) - ratio = m2 / m1; - else - return (m1 + m2); - } else { - if (m1 >= (m2 * ma_max_i2)) - return (m1 + m2); - ratio = m1 / m2; - } - - /* Should always be true, just checking */ - - m1 += m2; - //if (((long)(b + 3) & 0xffffffff) <= 3 + 3) { - if ((b + 3) <= 3 + 3) { - /* approximately, 1 bark = 3 partitions */ - /* 65% of the cases */ - /* originally 'if(i > 8)' */ - if (ratio >= ma_max_i1) { - /* 43% of the total */ - return m1; - } - - /* 22% of the total */ - var i = 0 | (Util.FAST_LOG10_X(ratio, 16.0)); - return m1 * table2[i]; - } - - /** - *
- * m<15 equ log10((m1+m2)/gfc.ATH.cb[k])<1.5 - * equ (m1+m2)/gfc.ATH.cb[k]<10^1.5 - * equ (m1+m2)<10^1.5 * gfc.ATH.cb[k] - *- */ - var i = 0 | Util.FAST_LOG10_X(ratio, 16.0); - if (shortblock != 0) { - m2 = gfc.ATH.cb_s[kk] * gfc.ATH.adjust; - } else { - m2 = gfc.ATH.cb_l[kk] * gfc.ATH.adjust; - } - if (m1 < ma_max_m * m2) { - /* 3% of the total */ - /* Originally if (m > 0) { */ - if (m1 > m2) { - var f, r; - - f = 1.0; - if (i <= 13) - f = table3[i]; - - r = Util.FAST_LOG10_X(m1 / m2, 10.0 / 15.0); - return m1 * ((table1[i] - f) * r + f); - } - - if (i > 13) - return m1; - - return m1 * table3[i]; - } - - /* 10% of total */ - return m1 * table1[i]; - } - - var table2_ = [1.33352 * 1.33352, - 1.35879 * 1.35879, 1.38454 * 1.38454, 1.39497 * 1.39497, - 1.40548 * 1.40548, 1.3537 * 1.3537, 1.30382 * 1.30382, - 1.22321 * 1.22321, 1.14758 * 1.14758, 1]; - - /** - * addition of simultaneous masking Naoki Shibata 2000/7 - */ - function vbrpsy_mask_add(m1, m2, b) { - var ratio; - - if (m1 < 0) { - m1 = 0; - } - if (m2 < 0) { - m2 = 0; - } - if (m1 <= 0) { - return m2; - } - if (m2 <= 0) { - return m1; - } - if (m2 > m1) { - ratio = m2 / m1; - } else { - ratio = m1 / m2; - } - if (-2 <= b && b <= 2) { - /* approximately, 1 bark = 3 partitions */ - /* originally 'if(i > 8)' */ - if (ratio >= ma_max_i1) { - return m1 + m2; - } else { - var i = 0 | (Util.FAST_LOG10_X(ratio, 16.0)); - return (m1 + m2) * table2_[i]; - } - } - if (ratio < ma_max_i2) { - return m1 + m2; - } - if (m1 < m2) { - m1 = m2; - } - return m1; - } - - /** - * compute interchannel masking effects - */ - function calc_interchannel_masking(gfp, ratio) { - var gfc = gfp.internal_flags; - if (gfc.channels_out > 1) { - for (var sb = 0; sb < Encoder.SBMAX_l; sb++) { - var l = gfc.thm[0].l[sb]; - var r = gfc.thm[1].l[sb]; - gfc.thm[0].l[sb] += r * ratio; - gfc.thm[1].l[sb] += l * ratio; - } - for (var sb = 0; sb < Encoder.SBMAX_s; sb++) { - for (var sblock = 0; sblock < 3; sblock++) { - var l = gfc.thm[0].s[sb][sblock]; - var r = gfc.thm[1].s[sb][sblock]; - gfc.thm[0].s[sb][sblock] += r * ratio; - gfc.thm[1].s[sb][sblock] += l * ratio; - } - } - } - } - - /** - * compute M/S thresholds from Johnston & Ferreira 1992 ICASSP paper - */ - function msfix1(gfc) { - for (var sb = 0; sb < Encoder.SBMAX_l; sb++) { - /* use this fix if L & R masking differs by 2db or less */ - /* if db = 10*log10(x2/x1) < 2 */ - /* if (x2 < 1.58*x1) { */ - if (gfc.thm[0].l[sb] > 1.58 * gfc.thm[1].l[sb] - || gfc.thm[1].l[sb] > 1.58 * gfc.thm[0].l[sb]) - continue; - var mld = gfc.mld_l[sb] * gfc.en[3].l[sb]; - var rmid = Math.max(gfc.thm[2].l[sb], - Math.min(gfc.thm[3].l[sb], mld)); - - mld = gfc.mld_l[sb] * gfc.en[2].l[sb]; - var rside = Math.max(gfc.thm[3].l[sb], - Math.min(gfc.thm[2].l[sb], mld)); - gfc.thm[2].l[sb] = rmid; - gfc.thm[3].l[sb] = rside; - } - - for (var sb = 0; sb < Encoder.SBMAX_s; sb++) { - for (var sblock = 0; sblock < 3; sblock++) { - if (gfc.thm[0].s[sb][sblock] > 1.58 * gfc.thm[1].s[sb][sblock] - || gfc.thm[1].s[sb][sblock] > 1.58 * gfc.thm[0].s[sb][sblock]) - continue; - var mld = gfc.mld_s[sb] * gfc.en[3].s[sb][sblock]; - var rmid = Math.max(gfc.thm[2].s[sb][sblock], - Math.min(gfc.thm[3].s[sb][sblock], mld)); - - mld = gfc.mld_s[sb] * gfc.en[2].s[sb][sblock]; - var rside = Math.max(gfc.thm[3].s[sb][sblock], - Math.min(gfc.thm[2].s[sb][sblock], mld)); - - gfc.thm[2].s[sb][sblock] = rmid; - gfc.thm[3].s[sb][sblock] = rside; - } - } - } - - /** - * Adjust M/S maskings if user set "msfix" - * - * Naoki Shibata 2000 - */ - function ns_msfix(gfc, msfix, athadjust) { - var msfix2 = msfix; - var athlower = Math.pow(10, athadjust); - - msfix *= 2.0; - msfix2 *= 2.0; - for (var sb = 0; sb < Encoder.SBMAX_l; sb++) { - var thmLR, thmM, thmS, ath; - ath = (gfc.ATH.cb_l[gfc.bm_l[sb]]) * athlower; - thmLR = Math.min(Math.max(gfc.thm[0].l[sb], ath), - Math.max(gfc.thm[1].l[sb], ath)); - thmM = Math.max(gfc.thm[2].l[sb], ath); - thmS = Math.max(gfc.thm[3].l[sb], ath); - if (thmLR * msfix < thmM + thmS) { - var f = thmLR * msfix2 / (thmM + thmS); - thmM *= f; - thmS *= f; - } - gfc.thm[2].l[sb] = Math.min(thmM, gfc.thm[2].l[sb]); - gfc.thm[3].l[sb] = Math.min(thmS, gfc.thm[3].l[sb]); - } - - athlower *= ( Encoder.BLKSIZE_s / Encoder.BLKSIZE); - for (var sb = 0; sb < Encoder.SBMAX_s; sb++) { - for (var sblock = 0; sblock < 3; sblock++) { - var thmLR, thmM, thmS, ath; - ath = (gfc.ATH.cb_s[gfc.bm_s[sb]]) * athlower; - thmLR = Math.min(Math.max(gfc.thm[0].s[sb][sblock], ath), - Math.max(gfc.thm[1].s[sb][sblock], ath)); - thmM = Math.max(gfc.thm[2].s[sb][sblock], ath); - thmS = Math.max(gfc.thm[3].s[sb][sblock], ath); - - if (thmLR * msfix < thmM + thmS) { - var f = thmLR * msfix / (thmM + thmS); - thmM *= f; - thmS *= f; - } - gfc.thm[2].s[sb][sblock] = Math.min(gfc.thm[2].s[sb][sblock], - thmM); - gfc.thm[3].s[sb][sblock] = Math.min(gfc.thm[3].s[sb][sblock], - thmS); - } - } - } - - /** - * short block threshold calculation (part 2) - * - * partition band bo_s[sfb] is at the transition from scalefactor band sfb - * to the next one sfb+1; enn and thmm have to be split between them - */ - function convert_partition2scalefac_s(gfc, eb, thr, chn, sblock) { - var sb, b; - var enn = 0.0; - var thmm = 0.0; - for (sb = b = 0; sb < Encoder.SBMAX_s; ++b, ++sb) { - var bo_s_sb = gfc.bo_s[sb]; - var npart_s = gfc.npart_s; - var b_lim = bo_s_sb < npart_s ? bo_s_sb : npart_s; - while (b < b_lim) { - // iff failed, it may indicate some index error elsewhere - enn += eb[b]; - thmm += thr[b]; - b++; - } - gfc.en[chn].s[sb][sblock] = enn; - gfc.thm[chn].s[sb][sblock] = thmm; - - if (b >= npart_s) { - ++sb; - break; - } - // iff failed, it may indicate some index error elsewhere - { - /* at transition sfb . sfb+1 */ - var w_curr = gfc.PSY.bo_s_weight[sb]; - var w_next = 1.0 - w_curr; - enn = w_curr * eb[b]; - thmm = w_curr * thr[b]; - gfc.en[chn].s[sb][sblock] += enn; - gfc.thm[chn].s[sb][sblock] += thmm; - enn = w_next * eb[b]; - thmm = w_next * thr[b]; - } - } - /* zero initialize the rest */ - for (; sb < Encoder.SBMAX_s; ++sb) { - gfc.en[chn].s[sb][sblock] = 0; - gfc.thm[chn].s[sb][sblock] = 0; - } - } - - /** - * longblock threshold calculation (part 2) - */ - function convert_partition2scalefac_l(gfc, eb, thr, chn) { - var sb, b; - var enn = 0.0; - var thmm = 0.0; - for (sb = b = 0; sb < Encoder.SBMAX_l; ++b, ++sb) { - var bo_l_sb = gfc.bo_l[sb]; - var npart_l = gfc.npart_l; - var b_lim = bo_l_sb < npart_l ? bo_l_sb : npart_l; - while (b < b_lim) { - // iff failed, it may indicate some index error elsewhere - enn += eb[b]; - thmm += thr[b]; - b++; - } - gfc.en[chn].l[sb] = enn; - gfc.thm[chn].l[sb] = thmm; - - if (b >= npart_l) { - ++sb; - break; - } - { - /* at transition sfb . sfb+1 */ - var w_curr = gfc.PSY.bo_l_weight[sb]; - var w_next = 1.0 - w_curr; - enn = w_curr * eb[b]; - thmm = w_curr * thr[b]; - gfc.en[chn].l[sb] += enn; - gfc.thm[chn].l[sb] += thmm; - enn = w_next * eb[b]; - thmm = w_next * thr[b]; - } - } - /* zero initialize the rest */ - for (; sb < Encoder.SBMAX_l; ++sb) { - gfc.en[chn].l[sb] = 0; - gfc.thm[chn].l[sb] = 0; - } - } - - function compute_masking_s(gfp, fftenergy_s, eb, thr, chn, sblock) { - var gfc = gfp.internal_flags; - var j, b; - - for (b = j = 0; b < gfc.npart_s; ++b) { - var ebb = 0, m = 0; - var n = gfc.numlines_s[b]; - for (var i = 0; i < n; ++i, ++j) { - var el = fftenergy_s[sblock][j]; - ebb += el; - if (m < el) - m = el; - } - eb[b] = ebb; - } - for (j = b = 0; b < gfc.npart_s; b++) { - var kk = gfc.s3ind_s[b][0]; - var ecb = gfc.s3_ss[j++] * eb[kk]; - ++kk; - while (kk <= gfc.s3ind_s[b][1]) { - ecb += gfc.s3_ss[j] * eb[kk]; - ++j; - ++kk; - } - - { /* limit calculated threshold by previous granule */ - var x = rpelev_s * gfc.nb_s1[chn][b]; - thr[b] = Math.min(ecb, x); - } - if (gfc.blocktype_old[chn & 1] == Encoder.SHORT_TYPE) { - /* limit calculated threshold by even older granule */ - var x = rpelev2_s * gfc.nb_s2[chn][b]; - var y = thr[b]; - thr[b] = Math.min(x, y); - } - - gfc.nb_s2[chn][b] = gfc.nb_s1[chn][b]; - gfc.nb_s1[chn][b] = ecb; - } - for (; b <= Encoder.CBANDS; ++b) { - eb[b] = 0; - thr[b] = 0; - } - } - - function block_type_set(gfp, uselongblock, blocktype_d, blocktype) { - var gfc = gfp.internal_flags; - - if (gfp.short_blocks == ShortBlock.short_block_coupled - /* force both channels to use the same block type */ - /* this is necessary if the frame is to be encoded in ms_stereo. */ - /* But even without ms_stereo, FhG does this */ - && !(uselongblock[0] != 0 && uselongblock[1] != 0)) - uselongblock[0] = uselongblock[1] = 0; - - /* - * update the blocktype of the previous granule, since it depends on - * what happend in this granule - */ - for (var chn = 0; chn < gfc.channels_out; chn++) { - blocktype[chn] = Encoder.NORM_TYPE; - /* disable short blocks */ - if (gfp.short_blocks == ShortBlock.short_block_dispensed) - uselongblock[chn] = 1; - if (gfp.short_blocks == ShortBlock.short_block_forced) - uselongblock[chn] = 0; - - if (uselongblock[chn] != 0) { - /* no attack : use long blocks */ - if (gfc.blocktype_old[chn] == Encoder.SHORT_TYPE) - blocktype[chn] = Encoder.STOP_TYPE; - } else { - /* attack : use short blocks */ - blocktype[chn] = Encoder.SHORT_TYPE; - if (gfc.blocktype_old[chn] == Encoder.NORM_TYPE) { - gfc.blocktype_old[chn] = Encoder.START_TYPE; - } - if (gfc.blocktype_old[chn] == Encoder.STOP_TYPE) - gfc.blocktype_old[chn] = Encoder.SHORT_TYPE; - } - - blocktype_d[chn] = gfc.blocktype_old[chn]; - // value returned to calling program - gfc.blocktype_old[chn] = blocktype[chn]; - // save for next call to l3psy_anal - } - } - - function NS_INTERP(x, y, r) { - /* was pow((x),(r))*pow((y),1-(r)) */ - if (r >= 1.0) { - /* 99.7% of the time */ - return x; - } - if (r <= 0.0) - return y; - if (y > 0.0) { - /* rest of the time */ - return (Math.pow(x / y, r) * y); - } - /* never happens */ - return 0.0; - } - - /** - * these values are tuned only for 44.1kHz... - */ - var regcoef_s = [11.8, 13.6, 17.2, 32, 46.5, - 51.3, 57.5, 67.1, 71.5, 84.6, 97.6, 130, - /* 255.8 */ - ]; - - function pecalc_s(mr, masking_lower) { - var pe_s = 1236.28 / 4; - for (var sb = 0; sb < Encoder.SBMAX_s - 1; sb++) { - for (var sblock = 0; sblock < 3; sblock++) { - var thm = mr.thm.s[sb][sblock]; - if (thm > 0.0) { - var x = thm * masking_lower; - var en = mr.en.s[sb][sblock]; - if (en > x) { - if (en > x * 1e10) { - pe_s += regcoef_s[sb] * (10.0 * LOG10); - } else { - pe_s += regcoef_s[sb] * Util.FAST_LOG10(en / x); - } - } - } - } - } - - return pe_s; - } - - /** - * these values are tuned only for 44.1kHz... - */ - var regcoef_l = [6.8, 5.8, 5.8, 6.4, 6.5, 9.9, - 12.1, 14.4, 15, 18.9, 21.6, 26.9, 34.2, 40.2, 46.8, 56.5, - 60.7, 73.9, 85.7, 93.4, 126.1, - /* 241.3 */ - ]; - - function pecalc_l(mr, masking_lower) { - var pe_l = 1124.23 / 4; - for (var sb = 0; sb < Encoder.SBMAX_l - 1; sb++) { - var thm = mr.thm.l[sb]; - if (thm > 0.0) { - var x = thm * masking_lower; - var en = mr.en.l[sb]; - if (en > x) { - if (en > x * 1e10) { - pe_l += regcoef_l[sb] * (10.0 * LOG10); - } else { - pe_l += regcoef_l[sb] * Util.FAST_LOG10(en / x); - } - } - } - } - return pe_l; - } - - function calc_energy(gfc, fftenergy, eb, max, avg) { - var b, j; - - for (b = j = 0; b < gfc.npart_l; ++b) { - var ebb = 0, m = 0; - var i; - for (i = 0; i < gfc.numlines_l[b]; ++i, ++j) { - var el = fftenergy[j]; - ebb += el; - if (m < el) - m = el; - } - eb[b] = ebb; - max[b] = m; - avg[b] = ebb * gfc.rnumlines_l[b]; - } - } - - function calc_mask_index_l(gfc, max, avg, mask_idx) { - var last_tab_entry = tab.length - 1; - var b = 0; - var a = avg[b] + avg[b + 1]; - if (a > 0.0) { - var m = max[b]; - if (m < max[b + 1]) - m = max[b + 1]; - a = 20.0 * (m * 2.0 - a) - / (a * (gfc.numlines_l[b] + gfc.numlines_l[b + 1] - 1)); - var k = 0 | a; - if (k > last_tab_entry) - k = last_tab_entry; - mask_idx[b] = k; - } else { - mask_idx[b] = 0; - } - - for (b = 1; b < gfc.npart_l - 1; b++) { - a = avg[b - 1] + avg[b] + avg[b + 1]; - if (a > 0.0) { - var m = max[b - 1]; - if (m < max[b]) - m = max[b]; - if (m < max[b + 1]) - m = max[b + 1]; - a = 20.0 - * (m * 3.0 - a) - / (a * (gfc.numlines_l[b - 1] + gfc.numlines_l[b] - + gfc.numlines_l[b + 1] - 1)); - var k = 0 | a; - if (k > last_tab_entry) - k = last_tab_entry; - mask_idx[b] = k; - } else { - mask_idx[b] = 0; - } - } - - a = avg[b - 1] + avg[b]; - if (a > 0.0) { - var m = max[b - 1]; - if (m < max[b]) - m = max[b]; - a = 20.0 * (m * 2.0 - a) - / (a * (gfc.numlines_l[b - 1] + gfc.numlines_l[b] - 1)); - var k = 0 | a; - if (k > last_tab_entry) - k = last_tab_entry; - mask_idx[b] = k; - } else { - mask_idx[b] = 0; - } - } - - var fircoef = [ - -8.65163e-18 * 2, -0.00851586 * 2, -6.74764e-18 * 2, 0.0209036 * 2, - -3.36639e-17 * 2, -0.0438162 * 2, -1.54175e-17 * 2, 0.0931738 * 2, - -5.52212e-17 * 2, -0.313819 * 2 - ]; - - this.L3psycho_anal_ns = function (gfp, buffer, bufPos, gr_out, masking_ratio, masking_MS_ratio, percep_entropy, percep_MS_entropy, energy, blocktype_d) { - /* - * to get a good cache performance, one has to think about the sequence, - * in which the variables are used. - */ - var gfc = gfp.internal_flags; - - /* fft and energy calculation */ - var wsamp_L = new_float_n([2, Encoder.BLKSIZE]); - var wsamp_S = new_float_n([2, 3, Encoder.BLKSIZE_s]); - - /* convolution */ - var eb_l = new_float(Encoder.CBANDS + 1); - var eb_s = new_float(Encoder.CBANDS + 1); - var thr = new_float(Encoder.CBANDS + 2); - - /* block type */ - var blocktype = new_int(2), uselongblock = new_int(2); - - /* usual variables like loop indices, etc.. */ - var numchn, chn; - var b, i, j, k; - var sb, sblock; - - /* variables used for --nspsytune */ - var ns_hpfsmpl = new_float_n([2, 576]); - var pcfact; - var mask_idx_l = new_int(Encoder.CBANDS + 2), mask_idx_s = new_int(Encoder.CBANDS + 2); - - Arrays.fill(mask_idx_s, 0); - - numchn = gfc.channels_out; - /* chn=2 and 3 = Mid and Side channels */ - if (gfp.mode == MPEGMode.JOINT_STEREO) - numchn = 4; - - if (gfp.VBR == VbrMode.vbr_off) - pcfact = gfc.ResvMax == 0 ? 0 : ( gfc.ResvSize) - / gfc.ResvMax * 0.5; - else if (gfp.VBR == VbrMode.vbr_rh || gfp.VBR == VbrMode.vbr_mtrh - || gfp.VBR == VbrMode.vbr_mt) { - pcfact = 0.6; - } else - pcfact = 1.0; - - /********************************************************************** - * Apply HPF of fs/4 to the input signal. This is used for attack - * detection / handling. - **********************************************************************/ - /* Don't copy the input buffer into a temporary buffer */ - /* unroll the loop 2 times */ - for (chn = 0; chn < gfc.channels_out; chn++) { - /* apply high pass filter of fs/4 */ - var firbuf = buffer[chn]; - var firbufPos = bufPos + 576 - 350 - NSFIRLEN + 192; - for (i = 0; i < 576; i++) { - var sum1, sum2; - sum1 = firbuf[firbufPos + i + 10]; - sum2 = 0.0; - for (j = 0; j < ((NSFIRLEN - 1) / 2) - 1; j += 2) { - sum1 += fircoef[j] - * (firbuf[firbufPos + i + j] + firbuf[firbufPos + i - + NSFIRLEN - j]); - sum2 += fircoef[j + 1] - * (firbuf[firbufPos + i + j + 1] + firbuf[firbufPos - + i + NSFIRLEN - j - 1]); - } - ns_hpfsmpl[chn][i] = sum1 + sum2; - } - masking_ratio[gr_out][chn].en.assign(gfc.en[chn]); - masking_ratio[gr_out][chn].thm.assign(gfc.thm[chn]); - if (numchn > 2) { - /* MS maskings */ - /* percep_MS_entropy [chn-2] = gfc . pe [chn]; */ - masking_MS_ratio[gr_out][chn].en.assign(gfc.en[chn + 2]); - masking_MS_ratio[gr_out][chn].thm.assign(gfc.thm[chn + 2]); - } - } - - for (chn = 0; chn < numchn; chn++) { - var wsamp_l; - var wsamp_s; - var en_subshort = new_float(12); - var en_short = [0, 0, 0, 0]; - var attack_intensity = new_float(12); - var ns_uselongblock = 1; - var attackThreshold; - var max = new_float(Encoder.CBANDS), avg = new_float(Encoder.CBANDS); - var ns_attacks = [0, 0, 0, 0]; - var fftenergy = new_float(Encoder.HBLKSIZE); - var fftenergy_s = new_float_n([3, Encoder.HBLKSIZE_s]); - - /* - * rh 20040301: the following loops do access one off the limits so - * I increase the array dimensions by one and initialize the - * accessed values to zero - */ - - /*************************************************************** - * determine the block type (window type) - ***************************************************************/ - /* calculate energies of each sub-shortblocks */ - for (i = 0; i < 3; i++) { - en_subshort[i] = gfc.nsPsy.last_en_subshort[chn][i + 6]; - attack_intensity[i] = en_subshort[i] - / gfc.nsPsy.last_en_subshort[chn][i + 4]; - en_short[0] += en_subshort[i]; - } - - if (chn == 2) { - for (i = 0; i < 576; i++) { - var l, r; - l = ns_hpfsmpl[0][i]; - r = ns_hpfsmpl[1][i]; - ns_hpfsmpl[0][i] = l + r; - ns_hpfsmpl[1][i] = l - r; - } - } - { - var pf = ns_hpfsmpl[chn & 1]; - var pfPos = 0; - for (i = 0; i < 9; i++) { - var pfe = pfPos + 576 / 9; - var p = 1.; - for (; pfPos < pfe; pfPos++) - if (p < Math.abs(pf[pfPos])) - p = Math.abs(pf[pfPos]); - - gfc.nsPsy.last_en_subshort[chn][i] = en_subshort[i + 3] = p; - en_short[1 + i / 3] += p; - if (p > en_subshort[i + 3 - 2]) { - p = p / en_subshort[i + 3 - 2]; - } else if (en_subshort[i + 3 - 2] > p * 10.0) { - p = en_subshort[i + 3 - 2] / (p * 10.0); - } else - p = 0.0; - attack_intensity[i + 3] = p; - } - } - - if (gfp.analysis) { - var x = attack_intensity[0]; - for (i = 1; i < 12; i++) - if (x < attack_intensity[i]) - x = attack_intensity[i]; - gfc.pinfo.ers[gr_out][chn] = gfc.pinfo.ers_save[chn]; - gfc.pinfo.ers_save[chn] = x; - } - - /* compare energies between sub-shortblocks */ - attackThreshold = (chn == 3) ? gfc.nsPsy.attackthre_s - : gfc.nsPsy.attackthre; - for (i = 0; i < 12; i++) - if (0 == ns_attacks[i / 3] - && attack_intensity[i] > attackThreshold) - ns_attacks[i / 3] = (i % 3) + 1; - - /* - * should have energy change between short blocks, in order to avoid - * periodic signals - */ - for (i = 1; i < 4; i++) { - var ratio; - if (en_short[i - 1] > en_short[i]) { - ratio = en_short[i - 1] / en_short[i]; - } else { - ratio = en_short[i] / en_short[i - 1]; - } - if (ratio < 1.7) { - ns_attacks[i] = 0; - if (i == 1) - ns_attacks[0] = 0; - } - } - - if (ns_attacks[0] != 0 && gfc.nsPsy.lastAttacks[chn] != 0) - ns_attacks[0] = 0; - - if (gfc.nsPsy.lastAttacks[chn] == 3 - || (ns_attacks[0] + ns_attacks[1] + ns_attacks[2] + ns_attacks[3]) != 0) { - ns_uselongblock = 0; - - if (ns_attacks[1] != 0 && ns_attacks[0] != 0) - ns_attacks[1] = 0; - if (ns_attacks[2] != 0 && ns_attacks[1] != 0) - ns_attacks[2] = 0; - if (ns_attacks[3] != 0 && ns_attacks[2] != 0) - ns_attacks[3] = 0; - } - - if (chn < 2) { - uselongblock[chn] = ns_uselongblock; - } else { - if (ns_uselongblock == 0) { - uselongblock[0] = uselongblock[1] = 0; - } - } - - /* - * there is a one granule delay. Copy maskings computed last call - * into masking_ratio to return to calling program. - */ - energy[chn] = gfc.tot_ener[chn]; - - /********************************************************************* - * compute FFTs - *********************************************************************/ - wsamp_s = wsamp_S; - wsamp_l = wsamp_L; - compute_ffts(gfp, fftenergy, fftenergy_s, wsamp_l, (chn & 1), - wsamp_s, (chn & 1), gr_out, chn, buffer, bufPos); - - /********************************************************************* - * Calculate the energy and the tonality of each partition. - *********************************************************************/ - calc_energy(gfc, fftenergy, eb_l, max, avg); - calc_mask_index_l(gfc, max, avg, mask_idx_l); - /* compute masking thresholds for short blocks */ - for (sblock = 0; sblock < 3; sblock++) { - var enn, thmm; - compute_masking_s(gfp, fftenergy_s, eb_s, thr, chn, sblock); - convert_partition2scalefac_s(gfc, eb_s, thr, chn, sblock); - /**** short block pre-echo control ****/ - for (sb = 0; sb < Encoder.SBMAX_s; sb++) { - thmm = gfc.thm[chn].s[sb][sblock]; - - thmm *= NS_PREECHO_ATT0; - if (ns_attacks[sblock] >= 2 || ns_attacks[sblock + 1] == 1) { - var idx = (sblock != 0) ? sblock - 1 : 2; - var p = NS_INTERP(gfc.thm[chn].s[sb][idx], thmm, - NS_PREECHO_ATT1 * pcfact); - thmm = Math.min(thmm, p); - } - - if (ns_attacks[sblock] == 1) { - var idx = (sblock != 0) ? sblock - 1 : 2; - var p = NS_INTERP(gfc.thm[chn].s[sb][idx], thmm, - NS_PREECHO_ATT2 * pcfact); - thmm = Math.min(thmm, p); - } else if ((sblock != 0 && ns_attacks[sblock - 1] == 3) - || (sblock == 0 && gfc.nsPsy.lastAttacks[chn] == 3)) { - var idx = (sblock != 2) ? sblock + 1 : 0; - var p = NS_INTERP(gfc.thm[chn].s[sb][idx], thmm, - NS_PREECHO_ATT2 * pcfact); - thmm = Math.min(thmm, p); - } - - /* pulse like signal detection for fatboy.wav and so on */ - enn = en_subshort[sblock * 3 + 3] - + en_subshort[sblock * 3 + 4] - + en_subshort[sblock * 3 + 5]; - if (en_subshort[sblock * 3 + 5] * 6 < enn) { - thmm *= 0.5; - if (en_subshort[sblock * 3 + 4] * 6 < enn) - thmm *= 0.5; - } - - gfc.thm[chn].s[sb][sblock] = thmm; - } - } - gfc.nsPsy.lastAttacks[chn] = ns_attacks[2]; - - /********************************************************************* - * convolve the partitioned energy and unpredictability with the - * spreading function, s3_l[b][k] - ********************************************************************/ - k = 0; - { - for (b = 0; b < gfc.npart_l; b++) { - /* - * convolve the partitioned energy with the spreading - * function - */ - var kk = gfc.s3ind[b][0]; - var eb2 = eb_l[kk] * tab[mask_idx_l[kk]]; - var ecb = gfc.s3_ll[k++] * eb2; - while (++kk <= gfc.s3ind[b][1]) { - eb2 = eb_l[kk] * tab[mask_idx_l[kk]]; - ecb = mask_add(ecb, gfc.s3_ll[k++] * eb2, kk, kk - b, - gfc, 0); - } - ecb *= 0.158489319246111; - /* pow(10,-0.8) */ - - /**** long block pre-echo control ****/ - /** - *
- * dont use long block pre-echo control if previous granule was - * a short block. This is to avoid the situation: - * frame0: quiet (very low masking) - * frame1: surge (triggers short blocks) - * frame2: regular frame. looks like pre-echo when compared to - * frame0, but all pre-echo was in frame1. - *- */ - /* - * chn=0,1 L and R channels - * - * chn=2,3 S and M channels. - */ - - if (gfc.blocktype_old[chn & 1] == Encoder.SHORT_TYPE) - thr[b] = ecb; - else - thr[b] = NS_INTERP( - Math.min(ecb, Math.min(rpelev - * gfc.nb_1[chn][b], rpelev2 - * gfc.nb_2[chn][b])), ecb, pcfact); - - gfc.nb_2[chn][b] = gfc.nb_1[chn][b]; - gfc.nb_1[chn][b] = ecb; - } - } - for (; b <= Encoder.CBANDS; ++b) { - eb_l[b] = 0; - thr[b] = 0; - } - /* compute masking thresholds for long blocks */ - convert_partition2scalefac_l(gfc, eb_l, thr, chn); - } - /* end loop over chn */ - - if (gfp.mode == MPEGMode.STEREO || gfp.mode == MPEGMode.JOINT_STEREO) { - if (gfp.interChRatio > 0.0) { - calc_interchannel_masking(gfp, gfp.interChRatio); - } - } - - if (gfp.mode == MPEGMode.JOINT_STEREO) { - var msfix; - msfix1(gfc); - msfix = gfp.msfix; - if (Math.abs(msfix) > 0.0) - ns_msfix(gfc, msfix, gfp.ATHlower * gfc.ATH.adjust); - } - - /*************************************************************** - * determine final block type - ***************************************************************/ - block_type_set(gfp, uselongblock, blocktype_d, blocktype); - - /********************************************************************* - * compute the value of PE to return ... no delay and advance - *********************************************************************/ - for (chn = 0; chn < numchn; chn++) { - var ppe; - var ppePos = 0; - var type; - var mr; - - if (chn > 1) { - ppe = percep_MS_entropy; - ppePos = -2; - type = Encoder.NORM_TYPE; - if (blocktype_d[0] == Encoder.SHORT_TYPE - || blocktype_d[1] == Encoder.SHORT_TYPE) - type = Encoder.SHORT_TYPE; - mr = masking_MS_ratio[gr_out][chn - 2]; - } else { - ppe = percep_entropy; - ppePos = 0; - type = blocktype_d[chn]; - mr = masking_ratio[gr_out][chn]; - } - - if (type == Encoder.SHORT_TYPE) - ppe[ppePos + chn] = pecalc_s(mr, gfc.masking_lower); - else - ppe[ppePos + chn] = pecalc_l(mr, gfc.masking_lower); - - if (gfp.analysis) - gfc.pinfo.pe[gr_out][chn] = ppe[ppePos + chn]; - - } - return 0; - } - - function vbrpsy_compute_fft_l(gfp, buffer, bufPos, chn, gr_out, fftenergy, wsamp_l, wsamp_lPos) { - var gfc = gfp.internal_flags; - if (chn < 2) { - fft.fft_long(gfc, wsamp_l[wsamp_lPos], chn, buffer, bufPos); - } else if (chn == 2) { - /* FFT data for mid and side channel is derived from L & R */ - for (var j = Encoder.BLKSIZE - 1; j >= 0; --j) { - var l = wsamp_l[wsamp_lPos + 0][j]; - var r = wsamp_l[wsamp_lPos + 1][j]; - wsamp_l[wsamp_lPos + 0][j] = (l + r) * Util.SQRT2 * 0.5; - wsamp_l[wsamp_lPos + 1][j] = (l - r) * Util.SQRT2 * 0.5; - } - } - - /********************************************************************* - * compute energies - *********************************************************************/ - fftenergy[0] = NON_LINEAR_SCALE_ENERGY(wsamp_l[wsamp_lPos + 0][0]); - fftenergy[0] *= fftenergy[0]; - - for (var j = Encoder.BLKSIZE / 2 - 1; j >= 0; --j) { - var re = wsamp_l[wsamp_lPos + 0][Encoder.BLKSIZE / 2 - j]; - var im = wsamp_l[wsamp_lPos + 0][Encoder.BLKSIZE / 2 + j]; - fftenergy[Encoder.BLKSIZE / 2 - j] = NON_LINEAR_SCALE_ENERGY((re - * re + im * im) * 0.5); - } - /* total energy */ - { - var totalenergy = 0.0; - for (var j = 11; j < Encoder.HBLKSIZE; j++) - totalenergy += fftenergy[j]; - - gfc.tot_ener[chn] = totalenergy; - } - - if (gfp.analysis) { - for (var j = 0; j < Encoder.HBLKSIZE; j++) { - gfc.pinfo.energy[gr_out][chn][j] = gfc.pinfo.energy_save[chn][j]; - gfc.pinfo.energy_save[chn][j] = fftenergy[j]; - } - gfc.pinfo.pe[gr_out][chn] = gfc.pe[chn]; - } - } - - function vbrpsy_compute_fft_s(gfp, buffer, bufPos, chn, sblock, fftenergy_s, wsamp_s, wsamp_sPos) { - var gfc = gfp.internal_flags; - - if (sblock == 0 && chn < 2) { - fft.fft_short(gfc, wsamp_s[wsamp_sPos], chn, buffer, bufPos); - } - if (chn == 2) { - /* FFT data for mid and side channel is derived from L & R */ - for (var j = Encoder.BLKSIZE_s - 1; j >= 0; --j) { - var l = wsamp_s[wsamp_sPos + 0][sblock][j]; - var r = wsamp_s[wsamp_sPos + 1][sblock][j]; - wsamp_s[wsamp_sPos + 0][sblock][j] = (l + r) * Util.SQRT2 * 0.5; - wsamp_s[wsamp_sPos + 1][sblock][j] = (l - r) * Util.SQRT2 * 0.5; - } - } - - /********************************************************************* - * compute energies - *********************************************************************/ - fftenergy_s[sblock][0] = wsamp_s[wsamp_sPos + 0][sblock][0]; - fftenergy_s[sblock][0] *= fftenergy_s[sblock][0]; - for (var j = Encoder.BLKSIZE_s / 2 - 1; j >= 0; --j) { - var re = wsamp_s[wsamp_sPos + 0][sblock][Encoder.BLKSIZE_s / 2 - j]; - var im = wsamp_s[wsamp_sPos + 0][sblock][Encoder.BLKSIZE_s / 2 + j]; - fftenergy_s[sblock][Encoder.BLKSIZE_s / 2 - j] = NON_LINEAR_SCALE_ENERGY((re - * re + im * im) * 0.5); - } - } - - /** - * compute loudness approximation (used for ATH auto-level adjustment) - */ - function vbrpsy_compute_loudness_approximation_l(gfp, gr_out, chn, fftenergy) { - var gfc = gfp.internal_flags; - if (gfp.athaa_loudapprox == 2 && chn < 2) { - // no loudness for mid/side ch - gfc.loudness_sq[gr_out][chn] = gfc.loudness_sq_save[chn]; - gfc.loudness_sq_save[chn] = psycho_loudness_approx(fftenergy, gfc); - } - } - - var fircoef_ = [-8.65163e-18 * 2, - -0.00851586 * 2, -6.74764e-18 * 2, 0.0209036 * 2, - -3.36639e-17 * 2, -0.0438162 * 2, -1.54175e-17 * 2, - 0.0931738 * 2, -5.52212e-17 * 2, -0.313819 * 2]; - - /** - * Apply HPF of fs/4 to the input signal. This is used for attack detection - * / handling. - */ - function vbrpsy_attack_detection(gfp, buffer, bufPos, gr_out, masking_ratio, masking_MS_ratio, energy, sub_short_factor, ns_attacks, uselongblock) { - var ns_hpfsmpl = new_float_n([2, 576]); - var gfc = gfp.internal_flags; - var n_chn_out = gfc.channels_out; - /* chn=2 and 3 = Mid and Side channels */ - var n_chn_psy = (gfp.mode == MPEGMode.JOINT_STEREO) ? 4 : n_chn_out; - /* Don't copy the input buffer into a temporary buffer */ - /* unroll the loop 2 times */ - for (var chn = 0; chn < n_chn_out; chn++) { - /* apply high pass filter of fs/4 */ - firbuf = buffer[chn]; - var firbufPos = bufPos + 576 - 350 - NSFIRLEN + 192; - for (var i = 0; i < 576; i++) { - var sum1, sum2; - sum1 = firbuf[firbufPos + i + 10]; - sum2 = 0.0; - for (var j = 0; j < ((NSFIRLEN - 1) / 2) - 1; j += 2) { - sum1 += fircoef_[j] - * (firbuf[firbufPos + i + j] + firbuf[firbufPos + i - + NSFIRLEN - j]); - sum2 += fircoef_[j + 1] - * (firbuf[firbufPos + i + j + 1] + firbuf[firbufPos - + i + NSFIRLEN - j - 1]); - } - ns_hpfsmpl[chn][i] = sum1 + sum2; - } - masking_ratio[gr_out][chn].en.assign(gfc.en[chn]); - masking_ratio[gr_out][chn].thm.assign(gfc.thm[chn]); - if (n_chn_psy > 2) { - /* MS maskings */ - /* percep_MS_entropy [chn-2] = gfc . pe [chn]; */ - masking_MS_ratio[gr_out][chn].en.assign(gfc.en[chn + 2]); - masking_MS_ratio[gr_out][chn].thm.assign(gfc.thm[chn + 2]); - } - } - for (var chn = 0; chn < n_chn_psy; chn++) { - var attack_intensity = new_float(12); - var en_subshort = new_float(12); - var en_short = [0, 0, 0, 0]; - var pf = ns_hpfsmpl[chn & 1]; - var pfPos = 0; - var attackThreshold = (chn == 3) ? gfc.nsPsy.attackthre_s - : gfc.nsPsy.attackthre; - var ns_uselongblock = 1; - - if (chn == 2) { - for (var i = 0, j = 576; j > 0; ++i, --j) { - var l = ns_hpfsmpl[0][i]; - var r = ns_hpfsmpl[1][i]; - ns_hpfsmpl[0][i] = l + r; - ns_hpfsmpl[1][i] = l - r; - } - } - /*************************************************************** - * determine the block type (window type) - ***************************************************************/ - /* calculate energies of each sub-shortblocks */ - for (var i = 0; i < 3; i++) { - en_subshort[i] = gfc.nsPsy.last_en_subshort[chn][i + 6]; - attack_intensity[i] = en_subshort[i] - / gfc.nsPsy.last_en_subshort[chn][i + 4]; - en_short[0] += en_subshort[i]; - } - - for (var i = 0; i < 9; i++) { - var pfe = pfPos + 576 / 9; - var p = 1.; - for (; pfPos < pfe; pfPos++) - if (p < Math.abs(pf[pfPos])) - p = Math.abs(pf[pfPos]); - - gfc.nsPsy.last_en_subshort[chn][i] = en_subshort[i + 3] = p; - en_short[1 + i / 3] += p; - if (p > en_subshort[i + 3 - 2]) { - p = p / en_subshort[i + 3 - 2]; - } else if (en_subshort[i + 3 - 2] > p * 10.0) { - p = en_subshort[i + 3 - 2] / (p * 10.0); - } else { - p = 0.0; - } - attack_intensity[i + 3] = p; - } - /* pulse like signal detection for fatboy.wav and so on */ - for (var i = 0; i < 3; ++i) { - var enn = en_subshort[i * 3 + 3] - + en_subshort[i * 3 + 4] + en_subshort[i * 3 + 5]; - var factor = 1.; - if (en_subshort[i * 3 + 5] * 6 < enn) { - factor *= 0.5; - if (en_subshort[i * 3 + 4] * 6 < enn) { - factor *= 0.5; - } - } - sub_short_factor[chn][i] = factor; - } - - if (gfp.analysis) { - var x = attack_intensity[0]; - for (var i = 1; i < 12; i++) { - if (x < attack_intensity[i]) { - x = attack_intensity[i]; - } - } - gfc.pinfo.ers[gr_out][chn] = gfc.pinfo.ers_save[chn]; - gfc.pinfo.ers_save[chn] = x; - } - - /* compare energies between sub-shortblocks */ - for (var i = 0; i < 12; i++) { - if (0 == ns_attacks[chn][i / 3] - && attack_intensity[i] > attackThreshold) { - ns_attacks[chn][i / 3] = (i % 3) + 1; - } - } - - /* - * should have energy change between short blocks, in order to avoid - * periodic signals - */ - /* Good samples to show the effect are Trumpet test songs */ - /* - * GB: tuned (1) to avoid too many short blocks for test sample - * TRUMPET - */ - /* - * RH: tuned (2) to let enough short blocks through for test sample - * FSOL and SNAPS - */ - for (var i = 1; i < 4; i++) { - var u = en_short[i - 1]; - var v = en_short[i]; - var m = Math.max(u, v); - if (m < 40000) { /* (2) */ - if (u < 1.7 * v && v < 1.7 * u) { /* (1) */ - if (i == 1 && ns_attacks[chn][0] <= ns_attacks[chn][i]) { - ns_attacks[chn][0] = 0; - } - ns_attacks[chn][i] = 0; - } - } - } - - if (ns_attacks[chn][0] <= gfc.nsPsy.lastAttacks[chn]) { - ns_attacks[chn][0] = 0; - } - - if (gfc.nsPsy.lastAttacks[chn] == 3 - || (ns_attacks[chn][0] + ns_attacks[chn][1] - + ns_attacks[chn][2] + ns_attacks[chn][3]) != 0) { - ns_uselongblock = 0; - - if (ns_attacks[chn][1] != 0 && ns_attacks[chn][0] != 0) { - ns_attacks[chn][1] = 0; - } - if (ns_attacks[chn][2] != 0 && ns_attacks[chn][1] != 0) { - ns_attacks[chn][2] = 0; - } - if (ns_attacks[chn][3] != 0 && ns_attacks[chn][2] != 0) { - ns_attacks[chn][3] = 0; - } - } - if (chn < 2) { - uselongblock[chn] = ns_uselongblock; - } else { - if (ns_uselongblock == 0) { - uselongblock[0] = uselongblock[1] = 0; - } - } - - /* - * there is a one granule delay. Copy maskings computed last call - * into masking_ratio to return to calling program. - */ - energy[chn] = gfc.tot_ener[chn]; - } - } - - function vbrpsy_skip_masking_s(gfc, chn, sblock) { - if (sblock == 0) { - for (var b = 0; b < gfc.npart_s; b++) { - gfc.nb_s2[chn][b] = gfc.nb_s1[chn][b]; - gfc.nb_s1[chn][b] = 0; - } - } - } - - function vbrpsy_skip_masking_l(gfc, chn) { - for (var b = 0; b < gfc.npart_l; b++) { - gfc.nb_2[chn][b] = gfc.nb_1[chn][b]; - gfc.nb_1[chn][b] = 0; - } - } - - function psyvbr_calc_mask_index_s(gfc, max, avg, mask_idx) { - var last_tab_entry = tab.length - 1; - var b = 0; - var a = avg[b] + avg[b + 1]; - if (a > 0.0) { - var m = max[b]; - if (m < max[b + 1]) - m = max[b + 1]; - a = 20.0 * (m * 2.0 - a) - / (a * (gfc.numlines_s[b] + gfc.numlines_s[b + 1] - 1)); - var k = 0 | a; - if (k > last_tab_entry) - k = last_tab_entry; - mask_idx[b] = k; - } else { - mask_idx[b] = 0; - } - - for (b = 1; b < gfc.npart_s - 1; b++) { - a = avg[b - 1] + avg[b] + avg[b + 1]; - if (a > 0.0) { - var m = max[b - 1]; - if (m < max[b]) - m = max[b]; - if (m < max[b + 1]) - m = max[b + 1]; - a = 20.0 - * (m * 3.0 - a) - / (a * (gfc.numlines_s[b - 1] + gfc.numlines_s[b] - + gfc.numlines_s[b + 1] - 1)); - var k = 0 | a; - if (k > last_tab_entry) - k = last_tab_entry; - mask_idx[b] = k; - } else { - mask_idx[b] = 0; - } - } - - a = avg[b - 1] + avg[b]; - if (a > 0.0) { - var m = max[b - 1]; - if (m < max[b]) - m = max[b]; - a = 20.0 * (m * 2.0 - a) - / (a * (gfc.numlines_s[b - 1] + gfc.numlines_s[b] - 1)); - var k = 0 | a; - if (k > last_tab_entry) - k = last_tab_entry; - mask_idx[b] = k; - } else { - mask_idx[b] = 0; - } - } - - function vbrpsy_compute_masking_s(gfp, fftenergy_s, eb, thr, chn, sblock) { - var gfc = gfp.internal_flags; - var max = new float[Encoder.CBANDS], avg = new_float(Encoder.CBANDS); - var i, j, b; - var mask_idx_s = new int[Encoder.CBANDS]; - - for (b = j = 0; b < gfc.npart_s; ++b) { - var ebb = 0, m = 0; - var n = gfc.numlines_s[b]; - for (i = 0; i < n; ++i, ++j) { - var el = fftenergy_s[sblock][j]; - ebb += el; - if (m < el) - m = el; - } - eb[b] = ebb; - max[b] = m; - avg[b] = ebb / n; - } - for (; b < Encoder.CBANDS; ++b) { - max[b] = 0; - avg[b] = 0; - } - psyvbr_calc_mask_index_s(gfc, max, avg, mask_idx_s); - for (j = b = 0; b < gfc.npart_s; b++) { - var kk = gfc.s3ind_s[b][0]; - var last = gfc.s3ind_s[b][1]; - var dd, dd_n; - var x, ecb, avg_mask; - dd = mask_idx_s[kk]; - dd_n = 1; - ecb = gfc.s3_ss[j] * eb[kk] * tab[mask_idx_s[kk]]; - ++j; - ++kk; - while (kk <= last) { - dd += mask_idx_s[kk]; - dd_n += 1; - x = gfc.s3_ss[j] * eb[kk] * tab[mask_idx_s[kk]]; - ecb = vbrpsy_mask_add(ecb, x, kk - b); - ++j; - ++kk; - } - dd = (1 + 2 * dd) / (2 * dd_n); - avg_mask = tab[dd] * 0.5; - ecb *= avg_mask; - thr[b] = ecb; - gfc.nb_s2[chn][b] = gfc.nb_s1[chn][b]; - gfc.nb_s1[chn][b] = ecb; - { - /* - * if THR exceeds EB, the quantization routines will take the - * difference from other bands. in case of strong tonal samples - * (tonaltest.wav) this leads to heavy distortions. that's why - * we limit THR here. - */ - x = max[b]; - x *= gfc.minval_s[b]; - x *= avg_mask; - if (thr[b] > x) { - thr[b] = x; - } - } - if (gfc.masking_lower > 1) { - thr[b] *= gfc.masking_lower; - } - if (thr[b] > eb[b]) { - thr[b] = eb[b]; - } - if (gfc.masking_lower < 1) { - thr[b] *= gfc.masking_lower; - } - - } - for (; b < Encoder.CBANDS; ++b) { - eb[b] = 0; - thr[b] = 0; - } - } - - function vbrpsy_compute_masking_l(gfc, fftenergy, eb_l, thr, chn) { - var max = new_float(Encoder.CBANDS), avg = new_float(Encoder.CBANDS); - var mask_idx_l = new_int(Encoder.CBANDS + 2); - var b; - - /********************************************************************* - * Calculate the energy and the tonality of each partition. - *********************************************************************/ - calc_energy(gfc, fftenergy, eb_l, max, avg); - calc_mask_index_l(gfc, max, avg, mask_idx_l); - - /********************************************************************* - * convolve the partitioned energy and unpredictability with the - * spreading function, s3_l[b][k] - ********************************************************************/ - var k = 0; - for (b = 0; b < gfc.npart_l; b++) { - var x, ecb, avg_mask, t; - /* convolve the partitioned energy with the spreading function */ - var kk = gfc.s3ind[b][0]; - var last = gfc.s3ind[b][1]; - var dd = 0, dd_n = 0; - dd = mask_idx_l[kk]; - dd_n += 1; - ecb = gfc.s3_ll[k] * eb_l[kk] * tab[mask_idx_l[kk]]; - ++k; - ++kk; - while (kk <= last) { - dd += mask_idx_l[kk]; - dd_n += 1; - x = gfc.s3_ll[k] * eb_l[kk] * tab[mask_idx_l[kk]]; - t = vbrpsy_mask_add(ecb, x, kk - b); - ecb = t; - ++k; - ++kk; - } - dd = (1 + 2 * dd) / (2 * dd_n); - avg_mask = tab[dd] * 0.5; - ecb *= avg_mask; - - /**** long block pre-echo control ****/ - /** - *
- * dont use long block pre-echo control if previous granule was - * a short block. This is to avoid the situation: - * frame0: quiet (very low masking) - * frame1: surge (triggers short blocks) - * frame2: regular frame. looks like pre-echo when compared to - * frame0, but all pre-echo was in frame1. - *- */ - /* - * chn=0,1 L and R channels chn=2,3 S and M channels. - */ - if (gfc.blocktype_old[chn & 0x01] == Encoder.SHORT_TYPE) { - var ecb_limit = rpelev * gfc.nb_1[chn][b]; - if (ecb_limit > 0) { - thr[b] = Math.min(ecb, ecb_limit); - } else { - /** - *
- * Robert 071209: - * Because we don't calculate long block psy when we know a granule - * should be of short blocks, we don't have any clue how the granule - * before would have looked like as a long block. So we have to guess - * a little bit for this END_TYPE block. - * Most of the time we get away with this sloppyness. (fingers crossed :) - * The speed increase is worth it. - *- */ - thr[b] = Math.min(ecb, eb_l[b] * NS_PREECHO_ATT2); - } - } else { - var ecb_limit_2 = rpelev2 * gfc.nb_2[chn][b]; - var ecb_limit_1 = rpelev * gfc.nb_1[chn][b]; - var ecb_limit; - if (ecb_limit_2 <= 0) { - ecb_limit_2 = ecb; - } - if (ecb_limit_1 <= 0) { - ecb_limit_1 = ecb; - } - if (gfc.blocktype_old[chn & 0x01] == Encoder.NORM_TYPE) { - ecb_limit = Math.min(ecb_limit_1, ecb_limit_2); - } else { - ecb_limit = ecb_limit_1; - } - thr[b] = Math.min(ecb, ecb_limit); - } - gfc.nb_2[chn][b] = gfc.nb_1[chn][b]; - gfc.nb_1[chn][b] = ecb; - { - /* - * if THR exceeds EB, the quantization routines will take the - * difference from other bands. in case of strong tonal samples - * (tonaltest.wav) this leads to heavy distortions. that's why - * we limit THR here. - */ - x = max[b]; - x *= gfc.minval_l[b]; - x *= avg_mask; - if (thr[b] > x) { - thr[b] = x; - } - } - if (gfc.masking_lower > 1) { - thr[b] *= gfc.masking_lower; - } - if (thr[b] > eb_l[b]) { - thr[b] = eb_l[b]; - } - if (gfc.masking_lower < 1) { - thr[b] *= gfc.masking_lower; - } - } - for (; b < Encoder.CBANDS; ++b) { - eb_l[b] = 0; - thr[b] = 0; - } - } - - function vbrpsy_compute_block_type(gfp, uselongblock) { - var gfc = gfp.internal_flags; - - if (gfp.short_blocks == ShortBlock.short_block_coupled - /* force both channels to use the same block type */ - /* this is necessary if the frame is to be encoded in ms_stereo. */ - /* But even without ms_stereo, FhG does this */ - && !(uselongblock[0] != 0 && uselongblock[1] != 0)) - uselongblock[0] = uselongblock[1] = 0; - - for (var chn = 0; chn < gfc.channels_out; chn++) { - /* disable short blocks */ - if (gfp.short_blocks == ShortBlock.short_block_dispensed) { - uselongblock[chn] = 1; - } - if (gfp.short_blocks == ShortBlock.short_block_forced) { - uselongblock[chn] = 0; - } - } - } - - function vbrpsy_apply_block_type(gfp, uselongblock, blocktype_d) { - var gfc = gfp.internal_flags; - - /* - * update the blocktype of the previous granule, since it depends on - * what happend in this granule - */ - for (var chn = 0; chn < gfc.channels_out; chn++) { - var blocktype = Encoder.NORM_TYPE; - /* disable short blocks */ - - if (uselongblock[chn] != 0) { - /* no attack : use long blocks */ - if (gfc.blocktype_old[chn] == Encoder.SHORT_TYPE) - blocktype = Encoder.STOP_TYPE; - } else { - /* attack : use short blocks */ - blocktype = Encoder.SHORT_TYPE; - if (gfc.blocktype_old[chn] == Encoder.NORM_TYPE) { - gfc.blocktype_old[chn] = Encoder.START_TYPE; - } - if (gfc.blocktype_old[chn] == Encoder.STOP_TYPE) - gfc.blocktype_old[chn] = Encoder.SHORT_TYPE; - } - - blocktype_d[chn] = gfc.blocktype_old[chn]; - // value returned to calling program - gfc.blocktype_old[chn] = blocktype; - // save for next call to l3psy_anal - } - } - - /** - * compute M/S thresholds from Johnston & Ferreira 1992 ICASSP paper - */ - function vbrpsy_compute_MS_thresholds(eb, thr, cb_mld, ath_cb, athadjust, msfix, n) { - var msfix2 = msfix * 2; - var athlower = msfix > 0 ? Math.pow(10, athadjust) : 1; - var rside, rmid; - for (var b = 0; b < n; ++b) { - var ebM = eb[2][b]; - var ebS = eb[3][b]; - var thmL = thr[0][b]; - var thmR = thr[1][b]; - var thmM = thr[2][b]; - var thmS = thr[3][b]; - - /* use this fix if L & R masking differs by 2db or less */ - if (thmL <= 1.58 * thmR && thmR <= 1.58 * thmL) { - var mld_m = cb_mld[b] * ebS; - var mld_s = cb_mld[b] * ebM; - rmid = Math.max(thmM, Math.min(thmS, mld_m)); - rside = Math.max(thmS, Math.min(thmM, mld_s)); - } else { - rmid = thmM; - rside = thmS; - } - if (msfix > 0) { - /***************************************************************/ - /* Adjust M/S maskings if user set "msfix" */ - /***************************************************************/ - /* Naoki Shibata 2000 */ - var thmLR, thmMS; - var ath = ath_cb[b] * athlower; - thmLR = Math.min(Math.max(thmL, ath), Math.max(thmR, ath)); - thmM = Math.max(rmid, ath); - thmS = Math.max(rside, ath); - thmMS = thmM + thmS; - if (thmMS > 0 && (thmLR * msfix2) < thmMS) { - var f = thmLR * msfix2 / thmMS; - thmM *= f; - thmS *= f; - } - rmid = Math.min(thmM, rmid); - rside = Math.min(thmS, rside); - } - if (rmid > ebM) { - rmid = ebM; - } - if (rside > ebS) { - rside = ebS; - } - thr[2][b] = rmid; - thr[3][b] = rside; - } - } - - this.L3psycho_anal_vbr = function (gfp, buffer, bufPos, gr_out, masking_ratio, masking_MS_ratio, percep_entropy, percep_MS_entropy, energy, blocktype_d) { - var gfc = gfp.internal_flags; - - /* fft and energy calculation */ - var wsamp_l; - var wsamp_s; - var fftenergy = new_float(Encoder.HBLKSIZE); - var fftenergy_s = new_float_n([3, Encoder.HBLKSIZE_s]); - var wsamp_L = new_float_n([2, Encoder.BLKSIZE]); - var wsamp_S = new_float_n([2, 3, Encoder.BLKSIZE_s]); - var eb = new_float_n([4, Encoder.CBANDS]), thr = new_float_n([4, Encoder.CBANDS]); - var sub_short_factor = new_float_n([4, 3]); - var pcfact = 0.6; - - /* block type */ - var ns_attacks = [[0, 0, 0, 0], [0, 0, 0, 0], [0, 0, 0, 0], - [0, 0, 0, 0]]; - var uselongblock = new_int(2); - - /* usual variables like loop indices, etc.. */ - - /* chn=2 and 3 = Mid and Side channels */ - var n_chn_psy = (gfp.mode == MPEGMode.JOINT_STEREO) ? 4 - : gfc.channels_out; - - vbrpsy_attack_detection(gfp, buffer, bufPos, gr_out, masking_ratio, - masking_MS_ratio, energy, sub_short_factor, ns_attacks, - uselongblock); - - vbrpsy_compute_block_type(gfp, uselongblock); - - /* LONG BLOCK CASE */ - { - for (var chn = 0; chn < n_chn_psy; chn++) { - var ch01 = chn & 0x01; - wsamp_l = wsamp_L; - vbrpsy_compute_fft_l(gfp, buffer, bufPos, chn, gr_out, - fftenergy, wsamp_l, ch01); - - vbrpsy_compute_loudness_approximation_l(gfp, gr_out, chn, - fftenergy); - - if (uselongblock[ch01] != 0) { - vbrpsy_compute_masking_l(gfc, fftenergy, eb[chn], thr[chn], - chn); - } else { - vbrpsy_skip_masking_l(gfc, chn); - } - } - if ((uselongblock[0] + uselongblock[1]) == 2) { - /* M/S channel */ - if (gfp.mode == MPEGMode.JOINT_STEREO) { - vbrpsy_compute_MS_thresholds(eb, thr, gfc.mld_cb_l, - gfc.ATH.cb_l, gfp.ATHlower * gfc.ATH.adjust, - gfp.msfix, gfc.npart_l); - } - } - /* TODO: apply adaptive ATH masking here ?? */ - for (var chn = 0; chn < n_chn_psy; chn++) { - var ch01 = chn & 0x01; - if (uselongblock[ch01] != 0) { - convert_partition2scalefac_l(gfc, eb[chn], thr[chn], chn); - } - } - } - - /* SHORT BLOCKS CASE */ - { - for (var sblock = 0; sblock < 3; sblock++) { - for (var chn = 0; chn < n_chn_psy; ++chn) { - var ch01 = chn & 0x01; - - if (uselongblock[ch01] != 0) { - vbrpsy_skip_masking_s(gfc, chn, sblock); - } else { - /* compute masking thresholds for short blocks */ - wsamp_s = wsamp_S; - vbrpsy_compute_fft_s(gfp, buffer, bufPos, chn, sblock, - fftenergy_s, wsamp_s, ch01); - vbrpsy_compute_masking_s(gfp, fftenergy_s, eb[chn], - thr[chn], chn, sblock); - } - } - if ((uselongblock[0] + uselongblock[1]) == 0) { - /* M/S channel */ - if (gfp.mode == MPEGMode.JOINT_STEREO) { - vbrpsy_compute_MS_thresholds(eb, thr, gfc.mld_cb_s, - gfc.ATH.cb_s, gfp.ATHlower * gfc.ATH.adjust, - gfp.msfix, gfc.npart_s); - } - /* L/R channel */ - } - /* TODO: apply adaptive ATH masking here ?? */ - for (var chn = 0; chn < n_chn_psy; ++chn) { - var ch01 = chn & 0x01; - if (0 == uselongblock[ch01]) { - convert_partition2scalefac_s(gfc, eb[chn], thr[chn], - chn, sblock); - } - } - } - - /**** short block pre-echo control ****/ - for (var chn = 0; chn < n_chn_psy; chn++) { - var ch01 = chn & 0x01; - - if (uselongblock[ch01] != 0) { - continue; - } - for (var sb = 0; sb < Encoder.SBMAX_s; sb++) { - var new_thmm = new_float(3); - for (var sblock = 0; sblock < 3; sblock++) { - var thmm = gfc.thm[chn].s[sb][sblock]; - thmm *= NS_PREECHO_ATT0; - - if (ns_attacks[chn][sblock] >= 2 - || ns_attacks[chn][sblock + 1] == 1) { - var idx = (sblock != 0) ? sblock - 1 : 2; - var p = NS_INTERP(gfc.thm[chn].s[sb][idx], thmm, - NS_PREECHO_ATT1 * pcfact); - thmm = Math.min(thmm, p); - } else if (ns_attacks[chn][sblock] == 1) { - var idx = (sblock != 0) ? sblock - 1 : 2; - var p = NS_INTERP(gfc.thm[chn].s[sb][idx], thmm, - NS_PREECHO_ATT2 * pcfact); - thmm = Math.min(thmm, p); - } else if ((sblock != 0 && ns_attacks[chn][sblock - 1] == 3) - || (sblock == 0 && gfc.nsPsy.lastAttacks[chn] == 3)) { - var idx = (sblock != 2) ? sblock + 1 : 0; - var p = NS_INTERP(gfc.thm[chn].s[sb][idx], thmm, - NS_PREECHO_ATT2 * pcfact); - thmm = Math.min(thmm, p); - } - - /* pulse like signal detection for fatboy.wav and so on */ - thmm *= sub_short_factor[chn][sblock]; - - new_thmm[sblock] = thmm; - } - for (var sblock = 0; sblock < 3; sblock++) { - gfc.thm[chn].s[sb][sblock] = new_thmm[sblock]; - } - } - } - } - for (var chn = 0; chn < n_chn_psy; chn++) { - gfc.nsPsy.lastAttacks[chn] = ns_attacks[chn][2]; - } - - /*************************************************************** - * determine final block type - ***************************************************************/ - vbrpsy_apply_block_type(gfp, uselongblock, blocktype_d); - - /********************************************************************* - * compute the value of PE to return ... no delay and advance - *********************************************************************/ - for (var chn = 0; chn < n_chn_psy; chn++) { - var ppe; - var ppePos; - var type; - var mr; - - if (chn > 1) { - ppe = percep_MS_entropy; - ppePos = -2; - type = Encoder.NORM_TYPE; - if (blocktype_d[0] == Encoder.SHORT_TYPE - || blocktype_d[1] == Encoder.SHORT_TYPE) - type = Encoder.SHORT_TYPE; - mr = masking_MS_ratio[gr_out][chn - 2]; - } else { - ppe = percep_entropy; - ppePos = 0; - type = blocktype_d[chn]; - mr = masking_ratio[gr_out][chn]; - } - - if (type == Encoder.SHORT_TYPE) { - ppe[ppePos + chn] = pecalc_s(mr, gfc.masking_lower); - } else { - ppe[ppePos + chn] = pecalc_l(mr, gfc.masking_lower); - } - - if (gfp.analysis) { - gfc.pinfo.pe[gr_out][chn] = ppe[ppePos + chn]; - } - } - return 0; - } - - function s3_func_x(bark, hf_slope) { - var tempx = bark, tempy; - - if (tempx >= 0) { - tempy = -tempx * 27; - } else { - tempy = tempx * hf_slope; - } - if (tempy <= -72.0) { - return 0; - } - return Math.exp(tempy * LN_TO_LOG10); - } - - function norm_s3_func_x(hf_slope) { - var lim_a = 0, lim_b = 0; - { - var x = 0, l, h; - for (x = 0; s3_func_x(x, hf_slope) > 1e-20; x -= 1) - ; - l = x; - h = 0; - while (Math.abs(h - l) > 1e-12) { - x = (h + l) / 2; - if (s3_func_x(x, hf_slope) > 0) { - h = x; - } else { - l = x; - } - } - lim_a = l; - } - { - var x = 0, l, h; - for (x = 0; s3_func_x(x, hf_slope) > 1e-20; x += 1) - ; - l = 0; - h = x; - while (Math.abs(h - l) > 1e-12) { - x = (h + l) / 2; - if (s3_func_x(x, hf_slope) > 0) { - l = x; - } else { - h = x; - } - } - lim_b = h; - } - { - var sum = 0; - var m = 1000; - var i; - for (i = 0; i <= m; ++i) { - var x = lim_a + i * (lim_b - lim_a) / m; - var y = s3_func_x(x, hf_slope); - sum += y; - } - { - var norm = (m + 1) / (sum * (lim_b - lim_a)); - /* printf( "norm = %lf\n",norm); */ - return norm; - } - } - } - - /** - * The spreading function. Values returned in units of energy - */ - function s3_func(bark) { - var tempx, x, tempy, temp; - tempx = bark; - if (tempx >= 0) - tempx *= 3; - else - tempx *= 1.5; - - if (tempx >= 0.5 && tempx <= 2.5) { - temp = tempx - 0.5; - x = 8.0 * (temp * temp - 2.0 * temp); - } else - x = 0.0; - tempx += 0.474; - tempy = 15.811389 + 7.5 * tempx - 17.5 - * Math.sqrt(1.0 + tempx * tempx); - - if (tempy <= -60.0) - return 0.0; - - tempx = Math.exp((x + tempy) * LN_TO_LOG10); - - /** - *
- * Normalization. The spreading function should be normalized so that: - * +inf - * / - * | s3 [ bark ] d(bark) = 1 - * / - * -inf - *- */ - tempx /= .6609193; - return tempx; - } - - /** - * see for example "Zwicker: Psychoakustik, 1982; ISBN 3-540-11401-7 - */ - function freq2bark(freq) { - /* input: freq in hz output: barks */ - if (freq < 0) - freq = 0; - freq = freq * 0.001; - return 13.0 * Math.atan(.76 * freq) + 3.5 - * Math.atan(freq * freq / (7.5 * 7.5)); - } - - function init_numline(numlines, bo, bm, bval, bval_width, mld, bo_w, sfreq, blksize, scalepos, deltafreq, sbmax) { - var b_frq = new_float(Encoder.CBANDS + 1); - var sample_freq_frac = sfreq / (sbmax > 15 ? 2 * 576 : 2 * 192); - var partition = new_int(Encoder.HBLKSIZE); - var i; - sfreq /= blksize; - var j = 0; - var ni = 0; - /* compute numlines, the number of spectral lines in each partition band */ - /* each partition band should be about DELBARK wide. */ - for (i = 0; i < Encoder.CBANDS; i++) { - var bark1; - var j2; - bark1 = freq2bark(sfreq * j); - - b_frq[i] = sfreq * j; - - for (j2 = j; freq2bark(sfreq * j2) - bark1 < DELBARK - && j2 <= blksize / 2; j2++) - ; - - numlines[i] = j2 - j; - ni = i + 1; - - while (j < j2) { - partition[j++] = i; - } - if (j > blksize / 2) { - j = blksize / 2; - ++i; - break; - } - } - b_frq[i] = sfreq * j; - - for (var sfb = 0; sfb < sbmax; sfb++) { - var i1, i2, start, end; - var arg; - start = scalepos[sfb]; - end = scalepos[sfb + 1]; - - i1 = 0 | Math.floor(.5 + deltafreq * (start - .5)); - if (i1 < 0) - i1 = 0; - i2 = 0 | Math.floor(.5 + deltafreq * (end - .5)); - - if (i2 > blksize / 2) - i2 = blksize / 2; - - bm[sfb] = (partition[i1] + partition[i2]) / 2; - bo[sfb] = partition[i2]; - var f_tmp = sample_freq_frac * end; - /* - * calculate how much of this band belongs to current scalefactor - * band - */ - bo_w[sfb] = (f_tmp - b_frq[bo[sfb]]) - / (b_frq[bo[sfb] + 1] - b_frq[bo[sfb]]); - if (bo_w[sfb] < 0) { - bo_w[sfb] = 0; - } else { - if (bo_w[sfb] > 1) { - bo_w[sfb] = 1; - } - } - /* setup stereo demasking thresholds */ - /* formula reverse enginerred from plot in paper */ - arg = freq2bark(sfreq * scalepos[sfb] * deltafreq); - arg = ( Math.min(arg, 15.5) / 15.5); - - mld[sfb] = Math.pow(10.0, - 1.25 * (1 - Math.cos(Math.PI * arg)) - 2.5); - } - - /* compute bark values of each critical band */ - j = 0; - for (var k = 0; k < ni; k++) { - var w = numlines[k]; - var bark1, bark2; - - bark1 = freq2bark(sfreq * (j)); - bark2 = freq2bark(sfreq * (j + w - 1)); - bval[k] = .5 * (bark1 + bark2); - - bark1 = freq2bark(sfreq * (j - .5)); - bark2 = freq2bark(sfreq * (j + w - .5)); - bval_width[k] = bark2 - bark1; - j += w; - } - - return ni; - } - - function init_s3_values(s3ind, npart, bval, bval_width, norm, use_old_s3) { - var s3 = new_float_n([Encoder.CBANDS, Encoder.CBANDS]); - /* - * The s3 array is not linear in the bark scale. - * - * bval[x] should be used to get the bark value. - */ - var j; - var numberOfNoneZero = 0; - - /** - *
- * s[i][j], the value of the spreading function, - * centered at band j (masker), for band i (maskee) - * - * i.e.: sum over j to spread into signal barkval=i - * NOTE: i and j are used opposite as in the ISO docs - *- */ - if (use_old_s3) { - for (var i = 0; i < npart; i++) { - for (j = 0; j < npart; j++) { - var v = s3_func(bval[i] - bval[j]) * bval_width[j]; - s3[i][j] = v * norm[i]; - } - } - } else { - for (j = 0; j < npart; j++) { - var hf_slope = 15 + Math.min(21 / bval[j], 12); - var s3_x_norm = norm_s3_func_x(hf_slope); - for (var i = 0; i < npart; i++) { - var v = s3_x_norm - * s3_func_x(bval[i] - bval[j], hf_slope) - * bval_width[j]; - s3[i][j] = v * norm[i]; - } - } - } - for (var i = 0; i < npart; i++) { - for (j = 0; j < npart; j++) { - if (s3[i][j] > 0.0) - break; - } - s3ind[i][0] = j; - - for (j = npart - 1; j > 0; j--) { - if (s3[i][j] > 0.0) - break; - } - s3ind[i][1] = j; - numberOfNoneZero += (s3ind[i][1] - s3ind[i][0] + 1); - } - - var p = new_float(numberOfNoneZero); - var k = 0; - for (var i = 0; i < npart; i++) - for (j = s3ind[i][0]; j <= s3ind[i][1]; j++) - p[k++] = s3[i][j]; - - return p; - } - - function stereo_demask(f) { - /* setup stereo demasking thresholds */ - /* formula reverse enginerred from plot in paper */ - var arg = freq2bark(f); - arg = (Math.min(arg, 15.5) / 15.5); - - return Math.pow(10.0, - 1.25 * (1 - Math.cos(Math.PI * arg)) - 2.5); - } - - /** - * NOTE: the bitrate reduction from the inter-channel masking effect is low - * compared to the chance of getting annyoing artefacts. L3psycho_anal_vbr - * does not use this feature. (Robert 071216) - */ - this.psymodel_init = function (gfp) { - var gfc = gfp.internal_flags; - var i; - var useOldS3 = true; - var bvl_a = 13, bvl_b = 24; - var snr_l_a = 0, snr_l_b = 0; - var snr_s_a = -8.25, snr_s_b = -4.5; - var bval = new_float(Encoder.CBANDS); - var bval_width = new_float(Encoder.CBANDS); - var norm = new_float(Encoder.CBANDS); - var sfreq = gfp.out_samplerate; - - switch (gfp.experimentalZ) { - default: - case 0: - useOldS3 = true; - break; - case 1: - useOldS3 = (gfp.VBR == VbrMode.vbr_mtrh || gfp.VBR == VbrMode.vbr_mt) ? false - : true; - break; - case 2: - useOldS3 = false; - break; - case 3: - bvl_a = 8; - snr_l_a = -1.75; - snr_l_b = -0.0125; - snr_s_a = -8.25; - snr_s_b = -2.25; - break; - } - gfc.ms_ener_ratio_old = .25; - gfc.blocktype_old[0] = gfc.blocktype_old[1] = Encoder.NORM_TYPE; - // the vbr header is long blocks - - for (i = 0; i < 4; ++i) { - for (var j = 0; j < Encoder.CBANDS; ++j) { - gfc.nb_1[i][j] = 1e20; - gfc.nb_2[i][j] = 1e20; - gfc.nb_s1[i][j] = gfc.nb_s2[i][j] = 1.0; - } - for (var sb = 0; sb < Encoder.SBMAX_l; sb++) { - gfc.en[i].l[sb] = 1e20; - gfc.thm[i].l[sb] = 1e20; - } - for (var j = 0; j < 3; ++j) { - for (var sb = 0; sb < Encoder.SBMAX_s; sb++) { - gfc.en[i].s[sb][j] = 1e20; - gfc.thm[i].s[sb][j] = 1e20; - } - gfc.nsPsy.lastAttacks[i] = 0; - } - for (var j = 0; j < 9; j++) - gfc.nsPsy.last_en_subshort[i][j] = 10.; - } - - /* init. for loudness approx. -jd 2001 mar 27 */ - gfc.loudness_sq_save[0] = gfc.loudness_sq_save[1] = 0.0; - - /************************************************************************* - * now compute the psychoacoustic model specific constants - ************************************************************************/ - /* compute numlines, bo, bm, bval, bval_width, mld */ - - gfc.npart_l = init_numline(gfc.numlines_l, gfc.bo_l, gfc.bm_l, bval, - bval_width, gfc.mld_l, gfc.PSY.bo_l_weight, sfreq, - Encoder.BLKSIZE, gfc.scalefac_band.l, Encoder.BLKSIZE - / (2.0 * 576), Encoder.SBMAX_l); - /* compute the spreading function */ - for (i = 0; i < gfc.npart_l; i++) { - var snr = snr_l_a; - if (bval[i] >= bvl_a) { - snr = snr_l_b * (bval[i] - bvl_a) / (bvl_b - bvl_a) + snr_l_a - * (bvl_b - bval[i]) / (bvl_b - bvl_a); - } - norm[i] = Math.pow(10.0, snr / 10.0); - if (gfc.numlines_l[i] > 0) { - gfc.rnumlines_l[i] = 1.0 / gfc.numlines_l[i]; - } else { - gfc.rnumlines_l[i] = 0; - } - } - gfc.s3_ll = init_s3_values(gfc.s3ind, gfc.npart_l, bval, bval_width, - norm, useOldS3); - - /* compute long block specific values, ATH and MINVAL */ - var j = 0; - for (i = 0; i < gfc.npart_l; i++) { - var x; - - /* ATH */ - x = Float.MAX_VALUE; - for (var k = 0; k < gfc.numlines_l[i]; k++, j++) { - var freq = sfreq * j / (1000.0 * Encoder.BLKSIZE); - var level; - /* - * ATH below 100 Hz constant, not further climbing - */ - level = this.ATHformula(freq * 1000, gfp) - 20; - // scale to FFT units; returned value is in dB - level = Math.pow(10., 0.1 * level); - // convert from dB . energy - level *= gfc.numlines_l[i]; - if (x > level) - x = level; - } - gfc.ATH.cb_l[i] = x; - - /* - * MINVAL. For low freq, the strength of the masking is limited by - * minval this is an ISO MPEG1 thing, dont know if it is really - * needed - */ - /* - * FIXME: it does work to reduce low-freq problems in S53-Wind-Sax - * and lead-voice samples, but introduces some 3 kbps bit bloat too. - * TODO: Further refinement of the shape of this hack. - */ - x = -20 + bval[i] * 20 / 10; - if (x > 6) { - x = 100; - } - if (x < -15) { - x = -15; - } - x -= 8.; - gfc.minval_l[i] = (Math.pow(10.0, x / 10.) * gfc.numlines_l[i]); - } - - /************************************************************************ - * do the same things for short blocks - ************************************************************************/ - gfc.npart_s = init_numline(gfc.numlines_s, gfc.bo_s, gfc.bm_s, bval, - bval_width, gfc.mld_s, gfc.PSY.bo_s_weight, sfreq, - Encoder.BLKSIZE_s, gfc.scalefac_band.s, Encoder.BLKSIZE_s - / (2.0 * 192), Encoder.SBMAX_s); - - /* SNR formula. short block is normalized by SNR. is it still right ? */ - j = 0; - for (i = 0; i < gfc.npart_s; i++) { - var x; - var snr = snr_s_a; - if (bval[i] >= bvl_a) { - snr = snr_s_b * (bval[i] - bvl_a) / (bvl_b - bvl_a) + snr_s_a - * (bvl_b - bval[i]) / (bvl_b - bvl_a); - } - norm[i] = Math.pow(10.0, snr / 10.0); - - /* ATH */ - x = Float.MAX_VALUE; - for (var k = 0; k < gfc.numlines_s[i]; k++, j++) { - var freq = sfreq * j / (1000.0 * Encoder.BLKSIZE_s); - var level; - /* freq = Min(.1,freq); */ - /* - * ATH below 100 Hz constant, not - * further climbing - */ - level = this.ATHformula(freq * 1000, gfp) - 20; - // scale to FFT units; returned value is in dB - level = Math.pow(10., 0.1 * level); - // convert from dB . energy - level *= gfc.numlines_s[i]; - if (x > level) - x = level; - } - gfc.ATH.cb_s[i] = x; - - /* - * MINVAL. For low freq, the strength of the masking is limited by - * minval this is an ISO MPEG1 thing, dont know if it is really - * needed - */ - x = (-7.0 + bval[i] * 7.0 / 12.0); - if (bval[i] > 12) { - x *= 1 + Math.log(1 + x) * 3.1; - } - if (bval[i] < 12) { - x *= 1 + Math.log(1 - x) * 2.3; - } - if (x < -15) { - x = -15; - } - x -= 8; - gfc.minval_s[i] = Math.pow(10.0, x / 10) - * gfc.numlines_s[i]; - } - - gfc.s3_ss = init_s3_values(gfc.s3ind_s, gfc.npart_s, bval, bval_width, - norm, useOldS3); - - init_mask_add_max_values(); - fft.init_fft(gfc); - - /* setup temporal masking */ - gfc.decay = Math.exp(-1.0 * LOG10 - / (temporalmask_sustain_sec * sfreq / 192.0)); - - { - var msfix; - msfix = NS_MSFIX; - if ((gfp.exp_nspsytune & 2) != 0) - msfix = 1.0; - if (Math.abs(gfp.msfix) > 0.0) - msfix = gfp.msfix; - gfp.msfix = msfix; - - /* - * spread only from npart_l bands. Normally, we use the spreading - * function to convolve from npart_l down to npart_l bands - */ - for (var b = 0; b < gfc.npart_l; b++) - if (gfc.s3ind[b][1] > gfc.npart_l - 1) - gfc.s3ind[b][1] = gfc.npart_l - 1; - } - - /* - * prepare for ATH auto adjustment: we want to decrease the ATH by 12 dB - * per second - */ - var frame_duration = (576. * gfc.mode_gr / sfreq); - gfc.ATH.decay = Math.pow(10., -12. / 10. * frame_duration); - gfc.ATH.adjust = 0.01; - /* minimum, for leading low loudness */ - gfc.ATH.adjustLimit = 1.0; - /* on lead, allow adjust up to maximum */ - - - if (gfp.ATHtype != -1) { - /* compute equal loudness weights (eql_w) */ - var freq; - var freq_inc = gfp.out_samplerate - / (Encoder.BLKSIZE); - var eql_balance = 0.0; - freq = 0.0; - for (i = 0; i < Encoder.BLKSIZE / 2; ++i) { - /* convert ATH dB to relative power (not dB) */ - /* to determine eql_w */ - freq += freq_inc; - gfc.ATH.eql_w[i] = 1. / Math.pow(10, this.ATHformula(freq, gfp) / 10); - eql_balance += gfc.ATH.eql_w[i]; - } - eql_balance = 1.0 / eql_balance; - for (i = Encoder.BLKSIZE / 2; --i >= 0;) { /* scale weights */ - gfc.ATH.eql_w[i] *= eql_balance; - } - } - { - for (var b = j = 0; b < gfc.npart_s; ++b) { - for (i = 0; i < gfc.numlines_s[b]; ++i) { - ++j; - } - } - for (var b = j = 0; b < gfc.npart_l; ++b) { - for (i = 0; i < gfc.numlines_l[b]; ++i) { - ++j; - } - } - } - j = 0; - for (i = 0; i < gfc.npart_l; i++) { - var freq = sfreq * (j + gfc.numlines_l[i] / 2) / (1.0 * Encoder.BLKSIZE); - gfc.mld_cb_l[i] = stereo_demask(freq); - j += gfc.numlines_l[i]; - } - for (; i < Encoder.CBANDS; ++i) { - gfc.mld_cb_l[i] = 1; - } - j = 0; - for (i = 0; i < gfc.npart_s; i++) { - var freq = sfreq * (j + gfc.numlines_s[i] / 2) / (1.0 * Encoder.BLKSIZE_s); - gfc.mld_cb_s[i] = stereo_demask(freq); - j += gfc.numlines_s[i]; - } - for (; i < Encoder.CBANDS; ++i) { - gfc.mld_cb_s[i] = 1; - } - return 0; - } - - /** - * Those ATH formulas are returning their minimum value for input = -1 - */ - function ATHformula_GB(f, value) { - /** - *
- * from Painter & Spanias - * modified by Gabriel Bouvigne to better fit the reality - * ath = 3.640 * pow(f,-0.8) - * - 6.800 * exp(-0.6*pow(f-3.4,2.0)) - * + 6.000 * exp(-0.15*pow(f-8.7,2.0)) - * + 0.6* 0.001 * pow(f,4.0); - * - * - * In the past LAME was using the Painter &Spanias formula. - * But we had some recurrent problems with HF content. - * We measured real ATH values, and found the older formula - * to be inaccurate in the higher part. So we made this new - * formula and this solved most of HF problematic test cases. - * The tradeoff is that in VBR mode it increases a lot the - * bitrate. - *- */ - - /* - * This curve can be adjusted according to the VBR scale: it adjusts - * from something close to Painter & Spanias on V9 up to Bouvigne's - * formula for V0. This way the VBR bitrate is more balanced according - * to the -V value. - */ - - // the following Hack allows to ask for the lowest value - if (f < -.3) - f = 3410; - - // convert to khz - f /= 1000; - f = Math.max(0.1, f); - var ath = 3.640 * Math.pow(f, -0.8) - 6.800 - * Math.exp(-0.6 * Math.pow(f - 3.4, 2.0)) + 6.000 - * Math.exp(-0.15 * Math.pow(f - 8.7, 2.0)) - + (0.6 + 0.04 * value) * 0.001 * Math.pow(f, 4.0); - return ath; - } - - this.ATHformula = function (f, gfp) { - var ath; - switch (gfp.ATHtype) { - case 0: - ath = ATHformula_GB(f, 9); - break; - case 1: - // over sensitive, should probably be removed - ath = ATHformula_GB(f, -1); - break; - case 2: - ath = ATHformula_GB(f, 0); - break; - case 3: - // modification of GB formula by Roel - ath = ATHformula_GB(f, 1) + 6; - break; - case 4: - ath = ATHformula_GB(f, gfp.ATHcurve); - break; - default: - ath = ATHformula_GB(f, 0); - break; - } - return ath; - } - -} - - - -function Lame() { - var self = this; - var LAME_MAXALBUMART = (128 * 1024); - - Lame.V9 = 410; - Lame.V8 = 420; - Lame.V7 = 430; - Lame.V6 = 440; - Lame.V5 = 450; - Lame.V4 = 460; - Lame.V3 = 470; - Lame.V2 = 480; - Lame.V1 = 490; - Lame.V0 = 500; - - /* still there for compatibility */ - - Lame.R3MIX = 1000; - Lame.STANDARD = 1001; - Lame.EXTREME = 1002; - Lame.INSANE = 1003; - Lame.STANDARD_FAST = 1004; - Lame.EXTREME_FAST = 1005; - Lame.MEDIUM = 1006; - Lame.MEDIUM_FAST = 1007; - - /** - * maximum size of mp3buffer needed if you encode at most 1152 samples for - * each call to lame_encode_buffer. see lame_encode_buffer() below - * (LAME_MAXMP3BUFFER is now obsolete) - */ - var LAME_MAXMP3BUFFER = (16384 + LAME_MAXALBUMART); - Lame.LAME_MAXMP3BUFFER = LAME_MAXMP3BUFFER; - - var ga; - var bs; - var p; - var qupvt; - var qu; - var psy = new PsyModel(); - var vbr; - var ver; - var id3; - var mpglib; - this.enc = new Encoder(); - - this.setModules = function (_ga, _bs, _p, _qupvt, _qu, _vbr, _ver, _id3, _mpglib) { - ga = _ga; - bs = _bs; - p = _p; - qupvt = _qupvt; - qu = _qu; - vbr = _vbr; - ver = _ver; - id3 = _id3; - mpglib = _mpglib; - this.enc.setModules(bs, psy, qupvt, vbr); - } - - /** - * PSY Model related stuff - */ - function PSY() { - /** - * The dbQ stuff. - */ - this.mask_adjust = 0.; - /** - * The dbQ stuff. - */ - this.mask_adjust_short = 0.; - /* at transition from one scalefactor band to next */ - /** - * Band weight long scalefactor bands. - */ - this.bo_l_weight = new_float(Encoder.SBMAX_l); - /** - * Band weight short scalefactor bands. - */ - this.bo_s_weight = new_float(Encoder.SBMAX_s); - } - - function LowPassHighPass() { - this.lowerlimit = 0.; - } - - function BandPass(bitrate, lPass) { - this.lowpass = lPass; - } - - var LAME_ID = 0xFFF88E3B; - - function lame_init_old(gfp) { - var gfc; - - gfp.class_id = LAME_ID; - - gfc = gfp.internal_flags = new LameInternalFlags(); - - /* Global flags. set defaults here for non-zero values */ - /* see lame.h for description */ - /* - * set integer values to -1 to mean that LAME will compute the best - * value, UNLESS the calling program as set it (and the value is no - * longer -1) - */ - - gfp.mode = MPEGMode.NOT_SET; - gfp.original = 1; - gfp.in_samplerate = 44100; - gfp.num_channels = 2; - gfp.num_samples = -1; - - gfp.bWriteVbrTag = true; - gfp.quality = -1; - gfp.short_blocks = null; - gfc.subblock_gain = -1; - - gfp.lowpassfreq = 0; - gfp.highpassfreq = 0; - gfp.lowpasswidth = -1; - gfp.highpasswidth = -1; - - gfp.VBR = VbrMode.vbr_off; - gfp.VBR_q = 4; - gfp.ATHcurve = -1; - gfp.VBR_mean_bitrate_kbps = 128; - gfp.VBR_min_bitrate_kbps = 0; - gfp.VBR_max_bitrate_kbps = 0; - gfp.VBR_hard_min = 0; - gfc.VBR_min_bitrate = 1; - /* not 0 ????? */ - gfc.VBR_max_bitrate = 13; - /* not 14 ????? */ - - gfp.quant_comp = -1; - gfp.quant_comp_short = -1; - - gfp.msfix = -1; - - gfc.resample_ratio = 1; - - gfc.OldValue[0] = 180; - gfc.OldValue[1] = 180; - gfc.CurrentStep[0] = 4; - gfc.CurrentStep[1] = 4; - gfc.masking_lower = 1; - gfc.nsPsy.attackthre = -1; - gfc.nsPsy.attackthre_s = -1; - - gfp.scale = -1; - - gfp.athaa_type = -1; - gfp.ATHtype = -1; - /* default = -1 = set in lame_init_params */ - gfp.athaa_loudapprox = -1; - /* 1 = flat loudness approx. (total energy) */ - /* 2 = equal loudness curve */ - gfp.athaa_sensitivity = 0.0; - /* no offset */ - gfp.useTemporal = null; - gfp.interChRatio = -1; - - /* - * The reason for int mf_samples_to_encode = ENCDELAY + POSTDELAY; - * ENCDELAY = internal encoder delay. And then we have to add - * POSTDELAY=288 because of the 50% MDCT overlap. A 576 MDCT granule - * decodes to 1152 samples. To synthesize the 576 samples centered under - * this granule we need the previous granule for the first 288 samples - * (no problem), and the next granule for the next 288 samples (not - * possible if this is last granule). So we need to pad with 288 samples - * to make sure we can encode the 576 samples we are interested in. - */ - gfc.mf_samples_to_encode = Encoder.ENCDELAY + Encoder.POSTDELAY; - gfp.encoder_padding = 0; - gfc.mf_size = Encoder.ENCDELAY - Encoder.MDCTDELAY; - /* - * we pad input with this many 0's - */ - - gfp.findReplayGain = false; - gfp.decode_on_the_fly = false; - - gfc.decode_on_the_fly = false; - gfc.findReplayGain = false; - gfc.findPeakSample = false; - - gfc.RadioGain = 0; - gfc.AudiophileGain = 0; - gfc.noclipGainChange = 0; - gfc.noclipScale = -1.0; - - gfp.preset = 0; - - gfp.write_id3tag_automatic = true; - return 0; - } - - this.lame_init = function () { - var gfp = new LameGlobalFlags(); - - var ret = lame_init_old(gfp); - if (ret != 0) { - return null; - } - - gfp.lame_allocated_gfp = 1; - return gfp; - } - - function filter_coef(x) { - if (x > 1.0) - return 0.0; - if (x <= 0.0) - return 1.0; - - return Math.cos(Math.PI / 2 * x); - } - - this.nearestBitrateFullIndex = function (bitrate) { - /* borrowed from DM abr presets */ - - var full_bitrate_table = [8, 16, 24, 32, 40, 48, 56, 64, 80, - 96, 112, 128, 160, 192, 224, 256, 320]; - - var lower_range = 0, lower_range_kbps = 0, upper_range = 0, upper_range_kbps = 0; - - /* We assume specified bitrate will be 320kbps */ - upper_range_kbps = full_bitrate_table[16]; - upper_range = 16; - lower_range_kbps = full_bitrate_table[16]; - lower_range = 16; - - /* - * Determine which significant bitrates the value specified falls - * between, if loop ends without breaking then we were correct above - * that the value was 320 - */ - for (var b = 0; b < 16; b++) { - if ((Math.max(bitrate, full_bitrate_table[b + 1])) != bitrate) { - upper_range_kbps = full_bitrate_table[b + 1]; - upper_range = b + 1; - lower_range_kbps = full_bitrate_table[b]; - lower_range = (b); - break; - /* We found upper range */ - } - } - - /* Determine which range the value specified is closer to */ - if ((upper_range_kbps - bitrate) > (bitrate - lower_range_kbps)) { - return lower_range; - } - return upper_range; - } - - function optimum_samplefreq(lowpassfreq, input_samplefreq) { - /* - * Rules: - * - * - if possible, sfb21 should NOT be used - */ - var suggested_samplefreq = 44100; - - if (input_samplefreq >= 48000) - suggested_samplefreq = 48000; - else if (input_samplefreq >= 44100) - suggested_samplefreq = 44100; - else if (input_samplefreq >= 32000) - suggested_samplefreq = 32000; - else if (input_samplefreq >= 24000) - suggested_samplefreq = 24000; - else if (input_samplefreq >= 22050) - suggested_samplefreq = 22050; - else if (input_samplefreq >= 16000) - suggested_samplefreq = 16000; - else if (input_samplefreq >= 12000) - suggested_samplefreq = 12000; - else if (input_samplefreq >= 11025) - suggested_samplefreq = 11025; - else if (input_samplefreq >= 8000) - suggested_samplefreq = 8000; - - if (lowpassfreq == -1) - return suggested_samplefreq; - - if (lowpassfreq <= 15960) - suggested_samplefreq = 44100; - if (lowpassfreq <= 15250) - suggested_samplefreq = 32000; - if (lowpassfreq <= 11220) - suggested_samplefreq = 24000; - if (lowpassfreq <= 9970) - suggested_samplefreq = 22050; - if (lowpassfreq <= 7230) - suggested_samplefreq = 16000; - if (lowpassfreq <= 5420) - suggested_samplefreq = 12000; - if (lowpassfreq <= 4510) - suggested_samplefreq = 11025; - if (lowpassfreq <= 3970) - suggested_samplefreq = 8000; - - if (input_samplefreq < suggested_samplefreq) { - /* - * choose a valid MPEG sample frequency above the input sample - * frequency to avoid SFB21/12 bitrate bloat rh 061115 - */ - if (input_samplefreq > 44100) { - return 48000; - } - if (input_samplefreq > 32000) { - return 44100; - } - if (input_samplefreq > 24000) { - return 32000; - } - if (input_samplefreq > 22050) { - return 24000; - } - if (input_samplefreq > 16000) { - return 22050; - } - if (input_samplefreq > 12000) { - return 16000; - } - if (input_samplefreq > 11025) { - return 12000; - } - if (input_samplefreq > 8000) { - return 11025; - } - return 8000; - } - return suggested_samplefreq; - } - - /** - * convert samp freq in Hz to index - */ - function SmpFrqIndex(sample_freq, gpf) { - switch (sample_freq) { - case 44100: - gpf.version = 1; - return 0; - case 48000: - gpf.version = 1; - return 1; - case 32000: - gpf.version = 1; - return 2; - case 22050: - gpf.version = 0; - return 0; - case 24000: - gpf.version = 0; - return 1; - case 16000: - gpf.version = 0; - return 2; - case 11025: - gpf.version = 0; - return 0; - case 12000: - gpf.version = 0; - return 1; - case 8000: - gpf.version = 0; - return 2; - default: - gpf.version = 0; - return -1; - } - } - - /** - * @param bRate - * legal rates from 8 to 320 - */ - function FindNearestBitrate(bRate, version, samplerate) { - /* MPEG-1 or MPEG-2 LSF */ - if (samplerate < 16000) - version = 2; - - var bitrate = Tables.bitrate_table[version][1]; - - for (var i = 2; i <= 14; i++) { - if (Tables.bitrate_table[version][i] > 0) { - if (Math.abs(Tables.bitrate_table[version][i] - bRate) < Math - .abs(bitrate - bRate)) - bitrate = Tables.bitrate_table[version][i]; - } - } - return bitrate; - } - - /** - * @param bRate - * legal rates from 32 to 448 kbps - * @param version - * MPEG-1 or MPEG-2/2.5 LSF - */ - function BitrateIndex(bRate, version, samplerate) { - /* convert bitrate in kbps to index */ - if (samplerate < 16000) - version = 2; - for (var i = 0; i <= 14; i++) { - if (Tables.bitrate_table[version][i] > 0) { - if (Tables.bitrate_table[version][i] == bRate) { - return i; - } - } - } - return -1; - } - - function optimum_bandwidth(lh, bitrate) { - /** - *
- * Input: - * bitrate total bitrate in kbps - * - * Output: - * lowerlimit: best lowpass frequency limit for input filter in Hz - * upperlimit: best highpass frequency limit for input filter in Hz - *- */ - var freq_map = [new BandPass(8, 2000), - new BandPass(16, 3700), new BandPass(24, 3900), - new BandPass(32, 5500), new BandPass(40, 7000), - new BandPass(48, 7500), new BandPass(56, 10000), - new BandPass(64, 11000), new BandPass(80, 13500), - new BandPass(96, 15100), new BandPass(112, 15600), - new BandPass(128, 17000), new BandPass(160, 17500), - new BandPass(192, 18600), new BandPass(224, 19400), - new BandPass(256, 19700), new BandPass(320, 20500)]; - - var table_index = self.nearestBitrateFullIndex(bitrate); - lh.lowerlimit = freq_map[table_index].lowpass; - } - - function lame_init_params_ppflt(gfp) { - var gfc = gfp.internal_flags; - /***************************************************************/ - /* compute info needed for polyphase filter (filter type==0, default) */ - /***************************************************************/ - - var lowpass_band = 32; - var highpass_band = -1; - - if (gfc.lowpass1 > 0) { - var minband = 999; - for (var band = 0; band <= 31; band++) { - var freq = (band / 31.0); - /* this band and above will be zeroed: */ - if (freq >= gfc.lowpass2) { - lowpass_band = Math.min(lowpass_band, band); - } - if (gfc.lowpass1 < freq && freq < gfc.lowpass2) { - minband = Math.min(minband, band); - } - } - - /* - * compute the *actual* transition band implemented by the polyphase - * filter - */ - if (minband == 999) { - gfc.lowpass1 = (lowpass_band - .75) / 31.0; - } else { - gfc.lowpass1 = (minband - .75) / 31.0; - } - gfc.lowpass2 = lowpass_band / 31.0; - } - - /* - * make sure highpass filter is within 90% of what the effective - * highpass frequency will be - */ - if (gfc.highpass2 > 0) { - if (gfc.highpass2 < .9 * (.75 / 31.0)) { - gfc.highpass1 = 0; - gfc.highpass2 = 0; - System.err.println("Warning: highpass filter disabled. " - + "highpass frequency too small\n"); - } - } - - if (gfc.highpass2 > 0) { - var maxband = -1; - for (var band = 0; band <= 31; band++) { - var freq = band / 31.0; - /* this band and below will be zereod */ - if (freq <= gfc.highpass1) { - highpass_band = Math.max(highpass_band, band); - } - if (gfc.highpass1 < freq && freq < gfc.highpass2) { - maxband = Math.max(maxband, band); - } - } - /* - * compute the *actual* transition band implemented by the polyphase - * filter - */ - gfc.highpass1 = highpass_band / 31.0; - if (maxband == -1) { - gfc.highpass2 = (highpass_band + .75) / 31.0; - } else { - gfc.highpass2 = (maxband + .75) / 31.0; - } - } - - for (var band = 0; band < 32; band++) { - var fc1, fc2; - var freq = band / 31.0; - if (gfc.highpass2 > gfc.highpass1) { - fc1 = filter_coef((gfc.highpass2 - freq) - / (gfc.highpass2 - gfc.highpass1 + 1e-20)); - } else { - fc1 = 1.0; - } - if (gfc.lowpass2 > gfc.lowpass1) { - fc2 = filter_coef((freq - gfc.lowpass1) - / (gfc.lowpass2 - gfc.lowpass1 + 1e-20)); - } else { - fc2 = 1.0; - } - gfc.amp_filter[band] = (fc1 * fc2); - } - } - - function lame_init_qval(gfp) { - var gfc = gfp.internal_flags; - - switch (gfp.quality) { - default: - case 9: /* no psymodel, no noise shaping */ - gfc.psymodel = 0; - gfc.noise_shaping = 0; - gfc.noise_shaping_amp = 0; - gfc.noise_shaping_stop = 0; - gfc.use_best_huffman = 0; - gfc.full_outer_loop = 0; - break; - - case 8: - gfp.quality = 7; - //$FALL-THROUGH$ - case 7: - /* - * use psymodel (for short block and m/s switching), but no noise - * shapping - */ - gfc.psymodel = 1; - gfc.noise_shaping = 0; - gfc.noise_shaping_amp = 0; - gfc.noise_shaping_stop = 0; - gfc.use_best_huffman = 0; - gfc.full_outer_loop = 0; - break; - - case 6: - gfc.psymodel = 1; - if (gfc.noise_shaping == 0) - gfc.noise_shaping = 1; - gfc.noise_shaping_amp = 0; - gfc.noise_shaping_stop = 0; - if (gfc.subblock_gain == -1) - gfc.subblock_gain = 1; - gfc.use_best_huffman = 0; - gfc.full_outer_loop = 0; - break; - - case 5: - gfc.psymodel = 1; - if (gfc.noise_shaping == 0) - gfc.noise_shaping = 1; - gfc.noise_shaping_amp = 0; - gfc.noise_shaping_stop = 0; - if (gfc.subblock_gain == -1) - gfc.subblock_gain = 1; - gfc.use_best_huffman = 0; - gfc.full_outer_loop = 0; - break; - - case 4: - gfc.psymodel = 1; - if (gfc.noise_shaping == 0) - gfc.noise_shaping = 1; - gfc.noise_shaping_amp = 0; - gfc.noise_shaping_stop = 0; - if (gfc.subblock_gain == -1) - gfc.subblock_gain = 1; - gfc.use_best_huffman = 1; - gfc.full_outer_loop = 0; - break; - - case 3: - gfc.psymodel = 1; - if (gfc.noise_shaping == 0) - gfc.noise_shaping = 1; - gfc.noise_shaping_amp = 1; - gfc.noise_shaping_stop = 1; - if (gfc.subblock_gain == -1) - gfc.subblock_gain = 1; - gfc.use_best_huffman = 1; - gfc.full_outer_loop = 0; - break; - - case 2: - gfc.psymodel = 1; - if (gfc.noise_shaping == 0) - gfc.noise_shaping = 1; - if (gfc.substep_shaping == 0) - gfc.substep_shaping = 2; - gfc.noise_shaping_amp = 1; - gfc.noise_shaping_stop = 1; - if (gfc.subblock_gain == -1) - gfc.subblock_gain = 1; - gfc.use_best_huffman = 1; - /* inner loop */ - gfc.full_outer_loop = 0; - break; - - case 1: - gfc.psymodel = 1; - if (gfc.noise_shaping == 0) - gfc.noise_shaping = 1; - if (gfc.substep_shaping == 0) - gfc.substep_shaping = 2; - gfc.noise_shaping_amp = 2; - gfc.noise_shaping_stop = 1; - if (gfc.subblock_gain == -1) - gfc.subblock_gain = 1; - gfc.use_best_huffman = 1; - gfc.full_outer_loop = 0; - break; - - case 0: - gfc.psymodel = 1; - if (gfc.noise_shaping == 0) - gfc.noise_shaping = 1; - if (gfc.substep_shaping == 0) - gfc.substep_shaping = 2; - gfc.noise_shaping_amp = 2; - gfc.noise_shaping_stop = 1; - if (gfc.subblock_gain == -1) - gfc.subblock_gain = 1; - gfc.use_best_huffman = 1; - /* - * type 2 disabled because of it slowness, in favor of full outer - * loop search - */ - gfc.full_outer_loop = 0; - /* - * full outer loop search disabled because of audible distortions it - * may generate rh 060629 - */ - break; - } - - } - - function lame_init_bitstream(gfp) { - var gfc = gfp.internal_flags; - gfp.frameNum = 0; - - if (gfp.write_id3tag_automatic) { - id3.id3tag_write_v2(gfp); - } - /* initialize histogram data optionally used by frontend */ - - gfc.bitrate_stereoMode_Hist = new_int_n([16, 4 + 1]); - gfc.bitrate_blockType_Hist = new_int_n([16, 4 + 1 + 1]); - - gfc.PeakSample = 0.0; - - /* Write initial VBR Header to bitstream and init VBR data */ - if (gfp.bWriteVbrTag) - vbr.InitVbrTag(gfp); - } - - /******************************************************************** - * initialize internal params based on data in gf (globalflags struct filled - * in by calling program) - * - * OUTLINE: - * - * We first have some complex code to determine bitrate, output samplerate - * and mode. It is complicated by the fact that we allow the user to set - * some or all of these parameters, and need to determine best possible - * values for the rest of them: - * - * 1. set some CPU related flags 2. check if we are mono.mono, stereo.mono - * or stereo.stereo 3. compute bitrate and output samplerate: user may have - * set compression ratio user may have set a bitrate user may have set a - * output samplerate 4. set some options which depend on output samplerate - * 5. compute the actual compression ratio 6. set mode based on compression - * ratio - * - * The remaining code is much simpler - it just sets options based on the - * mode & compression ratio: - * - * set allow_diff_short based on mode select lowpass filter based on - * compression ratio & mode set the bitrate index, and min/max bitrates for - * VBR modes disable VBR tag if it is not appropriate initialize the - * bitstream initialize scalefac_band data set sideinfo_len (based on - * channels, CRC, out_samplerate) write an id3v2 tag into the bitstream - * write VBR tag into the bitstream set mpeg1/2 flag estimate the number of - * frames (based on a lot of data) - * - * now we set more flags: nspsytune: see code VBR modes see code CBR/ABR see - * code - * - * Finally, we set the algorithm flags based on the gfp.quality value - * lame_init_qval(gfp); - * - ********************************************************************/ - this.lame_init_params = function (gfp) { - var gfc = gfp.internal_flags; - - gfc.Class_ID = 0; - if (gfc.ATH == null) - gfc.ATH = new ATH(); - if (gfc.PSY == null) - gfc.PSY = new PSY(); - if (gfc.rgdata == null) - gfc.rgdata = new ReplayGain(); - - gfc.channels_in = gfp.num_channels; - if (gfc.channels_in == 1) - gfp.mode = MPEGMode.MONO; - gfc.channels_out = (gfp.mode == MPEGMode.MONO) ? 1 : 2; - gfc.mode_ext = Encoder.MPG_MD_MS_LR; - if (gfp.mode == MPEGMode.MONO) - gfp.force_ms = false; - /* - * don't allow forced mid/side stereo for mono output - */ - - if (gfp.VBR == VbrMode.vbr_off && gfp.VBR_mean_bitrate_kbps != 128 - && gfp.brate == 0) - gfp.brate = gfp.VBR_mean_bitrate_kbps; - - if (gfp.VBR == VbrMode.vbr_off || gfp.VBR == VbrMode.vbr_mtrh - || gfp.VBR == VbrMode.vbr_mt) { - /* these modes can handle free format condition */ - } else { - gfp.free_format = false; - /* mode can't be mixed with free format */ - } - - if (gfp.VBR == VbrMode.vbr_off && gfp.brate == 0) { - /* no bitrate or compression ratio specified, use 11.025 */ - if (BitStream.EQ(gfp.compression_ratio, 0)) - gfp.compression_ratio = 11.025; - /* - * rate to compress a CD down to exactly 128000 bps - */ - } - - /* find bitrate if user specify a compression ratio */ - if (gfp.VBR == VbrMode.vbr_off && gfp.compression_ratio > 0) { - - if (gfp.out_samplerate == 0) - gfp.out_samplerate = map2MP3Frequency((int)(0.97 * gfp.in_samplerate)); - /* - * round up with a margin of 3 % - */ - - /* - * choose a bitrate for the output samplerate which achieves - * specified compression ratio - */ - gfp.brate = 0 | (gfp.out_samplerate * 16 * gfc.channels_out / (1.e3 * gfp.compression_ratio)); - - /* we need the version for the bitrate table look up */ - gfc.samplerate_index = SmpFrqIndex(gfp.out_samplerate, gfp); - - if (!gfp.free_format) /* - * for non Free Format find the nearest allowed - * bitrate - */ - gfp.brate = FindNearestBitrate(gfp.brate, gfp.version, - gfp.out_samplerate); - } - - if (gfp.out_samplerate != 0) { - if (gfp.out_samplerate < 16000) { - gfp.VBR_mean_bitrate_kbps = Math.max(gfp.VBR_mean_bitrate_kbps, - 8); - gfp.VBR_mean_bitrate_kbps = Math.min(gfp.VBR_mean_bitrate_kbps, - 64); - } else if (gfp.out_samplerate < 32000) { - gfp.VBR_mean_bitrate_kbps = Math.max(gfp.VBR_mean_bitrate_kbps, - 8); - gfp.VBR_mean_bitrate_kbps = Math.min(gfp.VBR_mean_bitrate_kbps, - 160); - } else { - gfp.VBR_mean_bitrate_kbps = Math.max(gfp.VBR_mean_bitrate_kbps, - 32); - gfp.VBR_mean_bitrate_kbps = Math.min(gfp.VBR_mean_bitrate_kbps, - 320); - } - } - - /****************************************************************/ - /* if a filter has not been enabled, see if we should add one: */ - /****************************************************************/ - if (gfp.lowpassfreq == 0) { - var lowpass = 16000.; - - switch (gfp.VBR) { - case VbrMode.vbr_off: - { - var lh = new LowPassHighPass(); - optimum_bandwidth(lh, gfp.brate); - lowpass = lh.lowerlimit; - break; - } - case VbrMode.vbr_abr: - { - var lh = new LowPassHighPass(); - optimum_bandwidth(lh, gfp.VBR_mean_bitrate_kbps); - lowpass = lh.lowerlimit; - break; - } - case VbrMode.vbr_rh: - { - var x = [19500, 19000, 18600, 18000, 17500, 16000, - 15600, 14900, 12500, 10000, 3950]; - if (0 <= gfp.VBR_q && gfp.VBR_q <= 9) { - var a = x[gfp.VBR_q], b = x[gfp.VBR_q + 1], m = gfp.VBR_q_frac; - lowpass = linear_int(a, b, m); - } else { - lowpass = 19500; - } - break; - } - default: - { - var x = [19500, 19000, 18500, 18000, 17500, 16500, - 15500, 14500, 12500, 9500, 3950]; - if (0 <= gfp.VBR_q && gfp.VBR_q <= 9) { - var a = x[gfp.VBR_q], b = x[gfp.VBR_q + 1], m = gfp.VBR_q_frac; - lowpass = linear_int(a, b, m); - } else { - lowpass = 19500; - } - } - } - if (gfp.mode == MPEGMode.MONO - && (gfp.VBR == VbrMode.vbr_off || gfp.VBR == VbrMode.vbr_abr)) - lowpass *= 1.5; - - gfp.lowpassfreq = lowpass | 0; - } - - if (gfp.out_samplerate == 0) { - if (2 * gfp.lowpassfreq > gfp.in_samplerate) { - gfp.lowpassfreq = gfp.in_samplerate / 2; - } - gfp.out_samplerate = optimum_samplefreq(gfp.lowpassfreq | 0, - gfp.in_samplerate); - } - - gfp.lowpassfreq = Math.min(20500, gfp.lowpassfreq); - gfp.lowpassfreq = Math.min(gfp.out_samplerate / 2, gfp.lowpassfreq); - - if (gfp.VBR == VbrMode.vbr_off) { - gfp.compression_ratio = gfp.out_samplerate * 16 * gfc.channels_out - / (1.e3 * gfp.brate); - } - if (gfp.VBR == VbrMode.vbr_abr) { - gfp.compression_ratio = gfp.out_samplerate * 16 * gfc.channels_out - / (1.e3 * gfp.VBR_mean_bitrate_kbps); - } - - /* - * do not compute ReplayGain values and do not find the peak sample if - * we can't store them - */ - if (!gfp.bWriteVbrTag) { - gfp.findReplayGain = false; - gfp.decode_on_the_fly = false; - gfc.findPeakSample = false; - } - gfc.findReplayGain = gfp.findReplayGain; - gfc.decode_on_the_fly = gfp.decode_on_the_fly; - - if (gfc.decode_on_the_fly) - gfc.findPeakSample = true; - - if (gfc.findReplayGain) { - if (ga.InitGainAnalysis(gfc.rgdata, gfp.out_samplerate) == GainAnalysis.INIT_GAIN_ANALYSIS_ERROR) { - gfp.internal_flags = null; - return -6; - } - } - - if (gfc.decode_on_the_fly && !gfp.decode_only) { - if (gfc.hip != null) { - mpglib.hip_decode_exit(gfc.hip); - } - gfc.hip = mpglib.hip_decode_init(); - } - - gfc.mode_gr = gfp.out_samplerate <= 24000 ? 1 : 2; - /* - * Number of granules per frame - */ - gfp.framesize = 576 * gfc.mode_gr; - gfp.encoder_delay = Encoder.ENCDELAY; - - gfc.resample_ratio = gfp.in_samplerate / gfp.out_samplerate; - - /** - *
- * sample freq bitrate compression ratio - * [kHz] [kbps/channel] for 16 bit input - * 44.1 56 12.6 - * 44.1 64 11.025 - * 44.1 80 8.82 - * 22.05 24 14.7 - * 22.05 32 11.025 - * 22.05 40 8.82 - * 16 16 16.0 - * 16 24 10.667 - *- */ - /** - *
- * For VBR, take a guess at the compression_ratio. - * For example: - * - * VBR_q compression like - * - 4.4 320 kbps/44 kHz - * 0...1 5.5 256 kbps/44 kHz - * 2 7.3 192 kbps/44 kHz - * 4 8.8 160 kbps/44 kHz - * 6 11 128 kbps/44 kHz - * 9 14.7 96 kbps - * - * for lower bitrates, downsample with --resample - *- */ - switch (gfp.VBR) { - case VbrMode.vbr_mt: - case VbrMode.vbr_rh: - case VbrMode.vbr_mtrh: - { - /* numbers are a bit strange, but they determine the lowpass value */ - var cmp = [5.7, 6.5, 7.3, 8.2, 10, 11.9, 13, 14, - 15, 16.5]; - gfp.compression_ratio = cmp[gfp.VBR_q]; - } - break; - case VbrMode.vbr_abr: - gfp.compression_ratio = gfp.out_samplerate * 16 * gfc.channels_out - / (1.e3 * gfp.VBR_mean_bitrate_kbps); - break; - default: - gfp.compression_ratio = gfp.out_samplerate * 16 * gfc.channels_out - / (1.e3 * gfp.brate); - break; - } - - /* - * mode = -1 (not set by user) or mode = MONO (because of only 1 input - * channel). If mode has not been set, then select J-STEREO - */ - if (gfp.mode == MPEGMode.NOT_SET) { - gfp.mode = MPEGMode.JOINT_STEREO; - } - - /* apply user driven high pass filter */ - if (gfp.highpassfreq > 0) { - gfc.highpass1 = 2. * gfp.highpassfreq; - - if (gfp.highpasswidth >= 0) - gfc.highpass2 = 2. * (gfp.highpassfreq + gfp.highpasswidth); - else - /* 0% above on default */ - gfc.highpass2 = (1 + 0.00) * 2. * gfp.highpassfreq; - - gfc.highpass1 /= gfp.out_samplerate; - gfc.highpass2 /= gfp.out_samplerate; - } else { - gfc.highpass1 = 0; - gfc.highpass2 = 0; - } - /* apply user driven low pass filter */ - if (gfp.lowpassfreq > 0) { - gfc.lowpass2 = 2. * gfp.lowpassfreq; - if (gfp.lowpasswidth >= 0) { - gfc.lowpass1 = 2. * (gfp.lowpassfreq - gfp.lowpasswidth); - if (gfc.lowpass1 < 0) /* has to be >= 0 */ - gfc.lowpass1 = 0; - } else { /* 0% below on default */ - gfc.lowpass1 = (1 - 0.00) * 2. * gfp.lowpassfreq; - } - gfc.lowpass1 /= gfp.out_samplerate; - gfc.lowpass2 /= gfp.out_samplerate; - } else { - gfc.lowpass1 = 0; - gfc.lowpass2 = 0; - } - - /**********************************************************************/ - /* compute info needed for polyphase filter (filter type==0, default) */ - /**********************************************************************/ - lame_init_params_ppflt(gfp); - /******************************************************* - * samplerate and bitrate index - *******************************************************/ - gfc.samplerate_index = SmpFrqIndex(gfp.out_samplerate, gfp); - if (gfc.samplerate_index < 0) { - gfp.internal_flags = null; - return -1; - } - - if (gfp.VBR == VbrMode.vbr_off) { - if (gfp.free_format) { - gfc.bitrate_index = 0; - } else { - gfp.brate = FindNearestBitrate(gfp.brate, gfp.version, - gfp.out_samplerate); - gfc.bitrate_index = BitrateIndex(gfp.brate, gfp.version, - gfp.out_samplerate); - if (gfc.bitrate_index <= 0) { - gfp.internal_flags = null; - return -1; - } - } - } else { - gfc.bitrate_index = 1; - } - - /* for CBR, we will write an "info" tag. */ - - if (gfp.analysis) - gfp.bWriteVbrTag = false; - - /* some file options not allowed if output is: not specified or stdout */ - if (gfc.pinfo != null) - gfp.bWriteVbrTag = false; - /* disable Xing VBR tag */ - - bs.init_bit_stream_w(gfc); - - var j = gfc.samplerate_index + (3 * gfp.version) + 6 - * (gfp.out_samplerate < 16000 ? 1 : 0); - for (var i = 0; i < Encoder.SBMAX_l + 1; i++) - gfc.scalefac_band.l[i] = qupvt.sfBandIndex[j].l[i]; - - for (var i = 0; i < Encoder.PSFB21 + 1; i++) { - var size = (gfc.scalefac_band.l[22] - gfc.scalefac_band.l[21]) - / Encoder.PSFB21; - var start = gfc.scalefac_band.l[21] + i * size; - gfc.scalefac_band.psfb21[i] = start; - } - gfc.scalefac_band.psfb21[Encoder.PSFB21] = 576; - - for (var i = 0; i < Encoder.SBMAX_s + 1; i++) - gfc.scalefac_band.s[i] = qupvt.sfBandIndex[j].s[i]; - - for (var i = 0; i < Encoder.PSFB12 + 1; i++) { - var size = (gfc.scalefac_band.s[13] - gfc.scalefac_band.s[12]) - / Encoder.PSFB12; - var start = gfc.scalefac_band.s[12] + i * size; - gfc.scalefac_band.psfb12[i] = start; - } - gfc.scalefac_band.psfb12[Encoder.PSFB12] = 192; - /* determine the mean bitrate for main data */ - if (gfp.version == 1) /* MPEG 1 */ - gfc.sideinfo_len = (gfc.channels_out == 1) ? 4 + 17 : 4 + 32; - else - /* MPEG 2 */ - gfc.sideinfo_len = (gfc.channels_out == 1) ? 4 + 9 : 4 + 17; - - if (gfp.error_protection) - gfc.sideinfo_len += 2; - - lame_init_bitstream(gfp); - - gfc.Class_ID = LAME_ID; - - { - var k; - - for (k = 0; k < 19; k++) - gfc.nsPsy.pefirbuf[k] = 700 * gfc.mode_gr * gfc.channels_out; - - if (gfp.ATHtype == -1) - gfp.ATHtype = 4; - } - - switch (gfp.VBR) { - - case VbrMode.vbr_mt: - gfp.VBR = VbrMode.vbr_mtrh; - //$FALL-THROUGH$ - case VbrMode.vbr_mtrh: - { - if (gfp.useTemporal == null) { - gfp.useTemporal = false; - /* off by default for this VBR mode */ - } - - p.apply_preset(gfp, 500 - (gfp.VBR_q * 10), 0); - /** - *
- * The newer VBR code supports only a limited - * subset of quality levels: - * 9-5=5 are the same, uses x^3/4 quantization - * 4-0=0 are the same 5 plus best huffman divide code - *- */ - if (gfp.quality < 0) - gfp.quality = LAME_DEFAULT_QUALITY; - if (gfp.quality < 5) - gfp.quality = 0; - if (gfp.quality > 5) - gfp.quality = 5; - - gfc.PSY.mask_adjust = gfp.maskingadjust; - gfc.PSY.mask_adjust_short = gfp.maskingadjust_short; - - /* - * sfb21 extra only with MPEG-1 at higher sampling rates - */ - if (gfp.experimentalY) - gfc.sfb21_extra = false; - else - gfc.sfb21_extra = (gfp.out_samplerate > 44000); - - gfc.iteration_loop = new VBRNewIterationLoop(qu); - break; - - } - case VbrMode.vbr_rh: - { - - p.apply_preset(gfp, 500 - (gfp.VBR_q * 10), 0); - - gfc.PSY.mask_adjust = gfp.maskingadjust; - gfc.PSY.mask_adjust_short = gfp.maskingadjust_short; - - /* - * sfb21 extra only with MPEG-1 at higher sampling rates - */ - if (gfp.experimentalY) - gfc.sfb21_extra = false; - else - gfc.sfb21_extra = (gfp.out_samplerate > 44000); - - /* - * VBR needs at least the output of GPSYCHO, so we have to garantee - * that by setting a minimum quality level, actually level 6 does - * it. down to level 6 - */ - if (gfp.quality > 6) - gfp.quality = 6; - - if (gfp.quality < 0) - gfp.quality = LAME_DEFAULT_QUALITY; - - gfc.iteration_loop = new VBROldIterationLoop(qu); - break; - } - - default: /* cbr/abr */ - { - var vbrmode; - - /* - * no sfb21 extra with CBR code - */ - gfc.sfb21_extra = false; - - if (gfp.quality < 0) - gfp.quality = LAME_DEFAULT_QUALITY; - - vbrmode = gfp.VBR; - if (vbrmode == VbrMode.vbr_off) - gfp.VBR_mean_bitrate_kbps = gfp.brate; - /* second, set parameters depending on bitrate */ - p.apply_preset(gfp, gfp.VBR_mean_bitrate_kbps, 0); - gfp.VBR = vbrmode; - - gfc.PSY.mask_adjust = gfp.maskingadjust; - gfc.PSY.mask_adjust_short = gfp.maskingadjust_short; - - if (vbrmode == VbrMode.vbr_off) { - gfc.iteration_loop = new CBRNewIterationLoop(qu); - } else { - gfc.iteration_loop = new ABRIterationLoop(qu); - } - break; - } - } - /* initialize default values common for all modes */ - - if (gfp.VBR != VbrMode.vbr_off) { /* choose a min/max bitrate for VBR */ - /* if the user didn't specify VBR_max_bitrate: */ - gfc.VBR_min_bitrate = 1; - /* - * default: allow 8 kbps (MPEG-2) or 32 kbps (MPEG-1) - */ - gfc.VBR_max_bitrate = 14; - /* - * default: allow 160 kbps (MPEG-2) or 320 kbps (MPEG-1) - */ - if (gfp.out_samplerate < 16000) - gfc.VBR_max_bitrate = 8; - /* default: allow 64 kbps (MPEG-2.5) */ - if (gfp.VBR_min_bitrate_kbps != 0) { - gfp.VBR_min_bitrate_kbps = FindNearestBitrate( - gfp.VBR_min_bitrate_kbps, gfp.version, - gfp.out_samplerate); - gfc.VBR_min_bitrate = BitrateIndex(gfp.VBR_min_bitrate_kbps, - gfp.version, gfp.out_samplerate); - if (gfc.VBR_min_bitrate < 0) - return -1; - } - if (gfp.VBR_max_bitrate_kbps != 0) { - gfp.VBR_max_bitrate_kbps = FindNearestBitrate( - gfp.VBR_max_bitrate_kbps, gfp.version, - gfp.out_samplerate); - gfc.VBR_max_bitrate = BitrateIndex(gfp.VBR_max_bitrate_kbps, - gfp.version, gfp.out_samplerate); - if (gfc.VBR_max_bitrate < 0) - return -1; - } - gfp.VBR_min_bitrate_kbps = Tables.bitrate_table[gfp.version][gfc.VBR_min_bitrate]; - gfp.VBR_max_bitrate_kbps = Tables.bitrate_table[gfp.version][gfc.VBR_max_bitrate]; - gfp.VBR_mean_bitrate_kbps = Math.min( - Tables.bitrate_table[gfp.version][gfc.VBR_max_bitrate], - gfp.VBR_mean_bitrate_kbps); - gfp.VBR_mean_bitrate_kbps = Math.max( - Tables.bitrate_table[gfp.version][gfc.VBR_min_bitrate], - gfp.VBR_mean_bitrate_kbps); - } - - /* just another daily changing developer switch */ - if (gfp.tune) { - gfc.PSY.mask_adjust += gfp.tune_value_a; - gfc.PSY.mask_adjust_short += gfp.tune_value_a; - } - - /* initialize internal qval settings */ - lame_init_qval(gfp); - /* - * automatic ATH adjustment on - */ - if (gfp.athaa_type < 0) - gfc.ATH.useAdjust = 3; - else - gfc.ATH.useAdjust = gfp.athaa_type; - - /* initialize internal adaptive ATH settings -jd */ - gfc.ATH.aaSensitivityP = Math.pow(10.0, gfp.athaa_sensitivity - / -10.0); - - if (gfp.short_blocks == null) { - gfp.short_blocks = ShortBlock.short_block_allowed; - } - - /* - * Note Jan/2003: Many hardware decoders cannot handle short blocks in - * regular stereo mode unless they are coupled (same type in both - * channels) it is a rare event (1 frame per min. or so) that LAME would - * use uncoupled short blocks, so lets turn them off until we decide how - * to handle this. No other encoders allow uncoupled short blocks, even - * though it is in the standard. - */ - /* - * rh 20040217: coupling makes no sense for mono and dual-mono streams - */ - if (gfp.short_blocks == ShortBlock.short_block_allowed - && (gfp.mode == MPEGMode.JOINT_STEREO || gfp.mode == MPEGMode.STEREO)) { - gfp.short_blocks = ShortBlock.short_block_coupled; - } - - if (gfp.quant_comp < 0) - gfp.quant_comp = 1; - if (gfp.quant_comp_short < 0) - gfp.quant_comp_short = 0; - - if (gfp.msfix < 0) - gfp.msfix = 0; - - /* select psychoacoustic model */ - gfp.exp_nspsytune = gfp.exp_nspsytune | 1; - - if (gfp.internal_flags.nsPsy.attackthre < 0) - gfp.internal_flags.nsPsy.attackthre = PsyModel.NSATTACKTHRE; - if (gfp.internal_flags.nsPsy.attackthre_s < 0) - gfp.internal_flags.nsPsy.attackthre_s = PsyModel.NSATTACKTHRE_S; - - - if (gfp.scale < 0) - gfp.scale = 1; - - if (gfp.ATHtype < 0) - gfp.ATHtype = 4; - - if (gfp.ATHcurve < 0) - gfp.ATHcurve = 4; - - if (gfp.athaa_loudapprox < 0) - gfp.athaa_loudapprox = 2; - - if (gfp.interChRatio < 0) - gfp.interChRatio = 0; - - if (gfp.useTemporal == null) - gfp.useTemporal = true; - /* on by default */ - - /* - * padding method as described in - * "MPEG-Layer3 / Bitstream Syntax and Decoding" by Martin Sieler, Ralph - * Sperschneider - * - * note: there is no padding for the very first frame - * - * Robert Hegemann 2000-06-22 - */ - gfc.slot_lag = gfc.frac_SpF = 0; - if (gfp.VBR == VbrMode.vbr_off) - gfc.slot_lag = gfc.frac_SpF = (((gfp.version + 1) * 72000 * gfp.brate) % gfp.out_samplerate) | 0; - - qupvt.iteration_init(gfp); - psy.psymodel_init(gfp); - return 0; - } - - function update_inbuffer_size(gfc, nsamples) { - if (gfc.in_buffer_0 == null || gfc.in_buffer_nsamples < nsamples) { - gfc.in_buffer_0 = new_float(nsamples); - gfc.in_buffer_1 = new_float(nsamples); - gfc.in_buffer_nsamples = nsamples; - } - } - - this.lame_encode_flush = function (gfp, mp3buffer, mp3bufferPos, mp3buffer_size) { - var gfc = gfp.internal_flags; - var buffer = new_short_n([2, 1152]); - var imp3 = 0, mp3count, mp3buffer_size_remaining; - - /* - * we always add POSTDELAY=288 padding to make sure granule with real - * data can be complety decoded (because of 50% overlap with next - * granule - */ - var end_padding; - var frames_left; - var samples_to_encode = gfc.mf_samples_to_encode - Encoder.POSTDELAY; - var mf_needed = calcNeeded(gfp); - - /* Was flush already called? */ - if (gfc.mf_samples_to_encode < 1) { - return 0; - } - mp3count = 0; - - if (gfp.in_samplerate != gfp.out_samplerate) { - /* - * delay due to resampling; needs to be fixed, if resampling code - * gets changed - */ - samples_to_encode += 16. * gfp.out_samplerate / gfp.in_samplerate; - } - end_padding = gfp.framesize - (samples_to_encode % gfp.framesize); - if (end_padding < 576) - end_padding += gfp.framesize; - gfp.encoder_padding = end_padding; - - frames_left = (samples_to_encode + end_padding) / gfp.framesize; - - /* - * send in a frame of 0 padding until all internal sample buffers are - * flushed - */ - while (frames_left > 0 && imp3 >= 0) { - var bunch = mf_needed - gfc.mf_size; - var frame_num = gfp.frameNum; - - bunch *= gfp.in_samplerate; - bunch /= gfp.out_samplerate; - if (bunch > 1152) - bunch = 1152; - if (bunch < 1) - bunch = 1; - - mp3buffer_size_remaining = mp3buffer_size - mp3count; - - /* if user specifed buffer size = 0, dont check size */ - if (mp3buffer_size == 0) - mp3buffer_size_remaining = 0; - - imp3 = this.lame_encode_buffer(gfp, buffer[0], buffer[1], bunch, - mp3buffer, mp3bufferPos, mp3buffer_size_remaining); - - mp3bufferPos += imp3; - mp3count += imp3; - frames_left -= (frame_num != gfp.frameNum) ? 1 : 0; - } - /* - * Set gfc.mf_samples_to_encode to 0, so we may detect and break loops - * calling it more than once in a row. - */ - gfc.mf_samples_to_encode = 0; - - if (imp3 < 0) { - /* some type of fatal error */ - return imp3; - } - - mp3buffer_size_remaining = mp3buffer_size - mp3count; - /* if user specifed buffer size = 0, dont check size */ - if (mp3buffer_size == 0) - mp3buffer_size_remaining = 0; - - /* mp3 related stuff. bit buffer might still contain some mp3 data */ - bs.flush_bitstream(gfp); - imp3 = bs.copy_buffer(gfc, mp3buffer, mp3bufferPos, - mp3buffer_size_remaining, 1); - if (imp3 < 0) { - /* some type of fatal error */ - return imp3; - } - mp3bufferPos += imp3; - mp3count += imp3; - mp3buffer_size_remaining = mp3buffer_size - mp3count; - /* if user specifed buffer size = 0, dont check size */ - if (mp3buffer_size == 0) - mp3buffer_size_remaining = 0; - - if (gfp.write_id3tag_automatic) { - /* write a id3 tag to the bitstream */ - id3.id3tag_write_v1(gfp); - - imp3 = bs.copy_buffer(gfc, mp3buffer, mp3bufferPos, - mp3buffer_size_remaining, 0); - - if (imp3 < 0) { - return imp3; - } - mp3count += imp3; - } - return mp3count; - }; - - this.lame_encode_buffer = function (gfp, buffer_l, buffer_r, nsamples, mp3buf, mp3bufPos, mp3buf_size) { - var gfc = gfp.internal_flags; - var in_buffer = [null, null]; - - if (gfc.Class_ID != LAME_ID) - return -3; - - if (nsamples == 0) - return 0; - - update_inbuffer_size(gfc, nsamples); - - in_buffer[0] = gfc.in_buffer_0; - in_buffer[1] = gfc.in_buffer_1; - - /* make a copy of input buffer, changing type to sample_t */ - for (var i = 0; i < nsamples; i++) { - in_buffer[0][i] = buffer_l[i]; - if (gfc.channels_in > 1) - in_buffer[1][i] = buffer_r[i]; - } - - return lame_encode_buffer_sample(gfp, in_buffer[0], in_buffer[1], - nsamples, mp3buf, mp3bufPos, mp3buf_size); - } - - function calcNeeded(gfp) { - var mf_needed = Encoder.BLKSIZE + gfp.framesize - Encoder.FFTOFFSET; - /* - * amount needed for FFT - */ - mf_needed = Math.max(mf_needed, 512 + gfp.framesize - 32); - - return mf_needed; - } - - function lame_encode_buffer_sample(gfp, buffer_l, buffer_r, nsamples, mp3buf, mp3bufPos, mp3buf_size) { - var gfc = gfp.internal_flags; - var mp3size = 0, ret, i, ch, mf_needed; - var mp3out; - var mfbuf = [null, null]; - var in_buffer = [null, null]; - - if (gfc.Class_ID != LAME_ID) - return -3; - - if (nsamples == 0) - return 0; - - /* copy out any tags that may have been written into bitstream */ - mp3out = bs.copy_buffer(gfc, mp3buf, mp3bufPos, mp3buf_size, 0); - if (mp3out < 0) - return mp3out; - /* not enough buffer space */ - mp3bufPos += mp3out; - mp3size += mp3out; - - in_buffer[0] = buffer_l; - in_buffer[1] = buffer_r; - - /* Apply user defined re-scaling */ - - /* user selected scaling of the samples */ - if (BitStream.NEQ(gfp.scale, 0) && BitStream.NEQ(gfp.scale, 1.0)) { - for (i = 0; i < nsamples; ++i) { - in_buffer[0][i] *= gfp.scale; - if (gfc.channels_out == 2) - in_buffer[1][i] *= gfp.scale; - } - } - - /* user selected scaling of the channel 0 (left) samples */ - if (BitStream.NEQ(gfp.scale_left, 0) - && BitStream.NEQ(gfp.scale_left, 1.0)) { - for (i = 0; i < nsamples; ++i) { - in_buffer[0][i] *= gfp.scale_left; - } - } - - /* user selected scaling of the channel 1 (right) samples */ - if (BitStream.NEQ(gfp.scale_right, 0) - && BitStream.NEQ(gfp.scale_right, 1.0)) { - for (i = 0; i < nsamples; ++i) { - in_buffer[1][i] *= gfp.scale_right; - } - } - - /* Downsample to Mono if 2 channels in and 1 channel out */ - if (gfp.num_channels == 2 && gfc.channels_out == 1) { - for (i = 0; i < nsamples; ++i) { - in_buffer[0][i] = 0.5 * ( in_buffer[0][i] + in_buffer[1][i]); - in_buffer[1][i] = 0.0; - } - } - - mf_needed = calcNeeded(gfp); - - mfbuf[0] = gfc.mfbuf[0]; - mfbuf[1] = gfc.mfbuf[1]; - - var in_bufferPos = 0; - while (nsamples > 0) { - var in_buffer_ptr = [null, null]; - var n_in = 0; - /* number of input samples processed with fill_buffer */ - var n_out = 0; - /* number of samples output with fill_buffer */ - /* n_in <> n_out if we are resampling */ - - in_buffer_ptr[0] = in_buffer[0]; - in_buffer_ptr[1] = in_buffer[1]; - /* copy in new samples into mfbuf, with resampling */ - var inOut = new InOut(); - fill_buffer(gfp, mfbuf, in_buffer_ptr, in_bufferPos, nsamples, - inOut); - n_in = inOut.n_in; - n_out = inOut.n_out; - - /* compute ReplayGain of resampled input if requested */ - if (gfc.findReplayGain && !gfc.decode_on_the_fly) - if (ga.AnalyzeSamples(gfc.rgdata, mfbuf[0], gfc.mf_size, - mfbuf[1], gfc.mf_size, n_out, gfc.channels_out) == GainAnalysis.GAIN_ANALYSIS_ERROR) - return -6; - - /* update in_buffer counters */ - nsamples -= n_in; - in_bufferPos += n_in; - if (gfc.channels_out == 2) - ;// in_bufferPos += n_in; - - /* update mfbuf[] counters */ - gfc.mf_size += n_out; - - /* - * lame_encode_flush may have set gfc.mf_sample_to_encode to 0 so we - * have to reinitialize it here when that happened. - */ - if (gfc.mf_samples_to_encode < 1) { - gfc.mf_samples_to_encode = Encoder.ENCDELAY + Encoder.POSTDELAY; - } - gfc.mf_samples_to_encode += n_out; - - if (gfc.mf_size >= mf_needed) { - /* encode the frame. */ - /* mp3buf = pointer to current location in buffer */ - /* mp3buf_size = size of original mp3 output buffer */ - /* = 0 if we should not worry about the */ - /* buffer size because calling program is */ - /* to lazy to compute it */ - /* mp3size = size of data written to buffer so far */ - /* mp3buf_size-mp3size = amount of space avalable */ - - var buf_size = mp3buf_size - mp3size; - if (mp3buf_size == 0) - buf_size = 0; - - ret = lame_encode_frame(gfp, mfbuf[0], mfbuf[1], mp3buf, - mp3bufPos, buf_size); - - if (ret < 0) - return ret; - mp3bufPos += ret; - mp3size += ret; - - /* shift out old samples */ - gfc.mf_size -= gfp.framesize; - gfc.mf_samples_to_encode -= gfp.framesize; - for (ch = 0; ch < gfc.channels_out; ch++) - for (i = 0; i < gfc.mf_size; i++) - mfbuf[ch][i] = mfbuf[ch][i + gfp.framesize]; - } - } - - return mp3size; - } - - function lame_encode_frame(gfp, inbuf_l, inbuf_r, mp3buf, mp3bufPos, mp3buf_size) { - var ret = self.enc.lame_encode_mp3_frame(gfp, inbuf_l, inbuf_r, mp3buf, - mp3bufPos, mp3buf_size); - gfp.frameNum++; - return ret; - } - - function InOut() { - this.n_in = 0; - this.n_out = 0; - } - - - function NumUsed() { - this.num_used = 0; - } - - /** - * Greatest common divisor. - *
- * Joint work of Euclid and M. Hendry
- */
- function gcd(i, j) {
- return j != 0 ? gcd(j, i % j) : i;
- }
-
- /**
- * Resampling via FIR filter, blackman window.
- */
- function blackman(x, fcn, l) {
- /*
- * This algorithm from: SIGNAL PROCESSING ALGORITHMS IN FORTRAN AND C
- * S.D. Stearns and R.A. David, Prentice-Hall, 1992
- */
- var wcn = (Math.PI * fcn);
-
- x /= l;
- if (x < 0)
- x = 0;
- if (x > 1)
- x = 1;
- var x2 = x - .5;
-
- var bkwn = 0.42 - 0.5 * Math.cos(2 * x * Math.PI) + 0.08 * Math.cos(4 * x * Math.PI);
- if (Math.abs(x2) < 1e-9)
- return (wcn / Math.PI);
- else
- return (bkwn * Math.sin(l * wcn * x2) / (Math.PI * l * x2));
- }
-
- function fill_buffer_resample(gfp, outbuf, outbufPos, desired_len, inbuf, in_bufferPos, len, num_used, ch) {
- var gfc = gfp.internal_flags;
- var i, j = 0, k;
- /* number of convolution functions to pre-compute */
- var bpc = gfp.out_samplerate
- / gcd(gfp.out_samplerate, gfp.in_samplerate);
- if (bpc > LameInternalFlags.BPC)
- bpc = LameInternalFlags.BPC;
-
- var intratio = (Math.abs(gfc.resample_ratio
- - Math.floor(.5 + gfc.resample_ratio)) < .0001) ? 1 : 0;
- var fcn = 1.00 / gfc.resample_ratio;
- if (fcn > 1.00)
- fcn = 1.00;
- var filter_l = 31;
- if (0 == filter_l % 2)
- --filter_l;
- /* must be odd */
- filter_l += intratio;
- /* unless resample_ratio=int, it must be even */
-
- var BLACKSIZE = filter_l + 1;
- /* size of data needed for FIR */
-
- if (gfc.fill_buffer_resample_init == 0) {
- gfc.inbuf_old[0] = new_float(BLACKSIZE);
- gfc.inbuf_old[1] = new_float(BLACKSIZE);
- for (i = 0; i <= 2 * bpc; ++i)
- gfc.blackfilt[i] = new_float(BLACKSIZE);
-
- gfc.itime[0] = 0;
- gfc.itime[1] = 0;
-
- /* precompute blackman filter coefficients */
- for (j = 0; j <= 2 * bpc; j++) {
- var sum = 0.;
- var offset = (j - bpc) / (2. * bpc);
- for (i = 0; i <= filter_l; i++)
- sum += gfc.blackfilt[j][i] = blackman(i - offset, fcn,
- filter_l);
- for (i = 0; i <= filter_l; i++)
- gfc.blackfilt[j][i] /= sum;
- }
- gfc.fill_buffer_resample_init = 1;
- }
-
- var inbuf_old = gfc.inbuf_old[ch];
-
- /* time of j'th element in inbuf = itime + j/ifreq; */
- /* time of k'th element in outbuf = j/ofreq */
- for (k = 0; k < desired_len; k++) {
- var time0;
- var joff;
-
- time0 = k * gfc.resample_ratio;
- /* time of k'th output sample */
- j = 0 | Math.floor(time0 - gfc.itime[ch]);
-
- /* check if we need more input data */
- if ((filter_l + j - filter_l / 2) >= len)
- break;
-
- /* blackman filter. by default, window centered at j+.5(filter_l%2) */
- /* but we want a window centered at time0. */
- var offset = (time0 - gfc.itime[ch] - (j + .5 * (filter_l % 2)));
-
- /* find the closest precomputed window for this offset: */
- joff = 0 | Math.floor((offset * 2 * bpc) + bpc + .5);
- var xvalue = 0.;
- for (i = 0; i <= filter_l; ++i) {
- /* force integer index */
- var j2 = 0 | (i + j - filter_l / 2);
- var y;
- y = (j2 < 0) ? inbuf_old[BLACKSIZE + j2] : inbuf[in_bufferPos
- + j2];
- xvalue += y * gfc.blackfilt[joff][i];
- }
- outbuf[outbufPos + k] = xvalue;
- }
-
- /* k = number of samples added to outbuf */
- /* last k sample used data from [j-filter_l/2,j+filter_l-filter_l/2] */
-
- /* how many samples of input data were used: */
- num_used.num_used = Math.min(len, filter_l + j - filter_l / 2);
-
- /*
- * adjust our input time counter. Incriment by the number of samples
- * used, then normalize so that next output sample is at time 0, next
- * input buffer is at time itime[ch]
- */
- gfc.itime[ch] += num_used.num_used - k * gfc.resample_ratio;
-
- /* save the last BLACKSIZE samples into the inbuf_old buffer */
- if (num_used.num_used >= BLACKSIZE) {
- for (i = 0; i < BLACKSIZE; i++)
- inbuf_old[i] = inbuf[in_bufferPos + num_used.num_used + i
- - BLACKSIZE];
- } else {
- /* shift in num_used.num_used samples into inbuf_old */
- var n_shift = BLACKSIZE - num_used.num_used;
- /*
- * number of samples to
- * shift
- */
-
- /*
- * shift n_shift samples by num_used.num_used, to make room for the
- * num_used new samples
- */
- for (i = 0; i < n_shift; ++i)
- inbuf_old[i] = inbuf_old[i + num_used.num_used];
-
- /* shift in the num_used.num_used samples */
- for (j = 0; i < BLACKSIZE; ++i, ++j)
- inbuf_old[i] = inbuf[in_bufferPos + j];
-
- }
- return k;
- /* return the number samples created at the new samplerate */
- }
-
- function fill_buffer(gfp, mfbuf, in_buffer, in_bufferPos, nsamples, io) {
- var gfc = gfp.internal_flags;
-
- /* copy in new samples into mfbuf, with resampling if necessary */
- if ((gfc.resample_ratio < .9999) || (gfc.resample_ratio > 1.0001)) {
- for (var ch = 0; ch < gfc.channels_out; ch++) {
- var numUsed = new NumUsed();
- io.n_out = fill_buffer_resample(gfp, mfbuf[ch], gfc.mf_size,
- gfp.framesize, in_buffer[ch], in_bufferPos, nsamples,
- numUsed, ch);
- io.n_in = numUsed.num_used;
- }
- } else {
- io.n_out = Math.min(gfp.framesize, nsamples);
- io.n_in = io.n_out;
- for (var i = 0; i < io.n_out; ++i) {
- mfbuf[0][gfc.mf_size + i] = in_buffer[0][in_bufferPos + i];
- if (gfc.channels_out == 2)
- mfbuf[1][gfc.mf_size + i] = in_buffer[1][in_bufferPos + i];
- }
- }
- }
-
-}
-
-
-
-function GetAudio() {
- var parse;
- var mpg;
-
- this.setModules = function (parse2, mpg2) {
- parse = parse2;
- mpg = mpg2;
- }
-}
-
-
-function Parse() {
- var ver;
- var id3;
- var pre;
-
- this.setModules = function (ver2, id32, pre2) {
- ver = ver2;
- id3 = id32;
- pre = pre2;
- }
-}
-
-function MPGLib() {
-}
-
-function ID3Tag() {
- var bits;
- var ver;
-
- this.setModules = function (_bits, _ver) {
- bits = _bits;
- ver = _ver;
- }
-}
-
-function Mp3Encoder(channels, samplerate, kbps) {
- if (arguments.length != 3) {
- console.error('WARN: Mp3Encoder(channels, samplerate, kbps) not specified');
- channels = 1;
- samplerate = 44100;
- kbps = 128;
- }
- var lame = new Lame();
- var gaud = new GetAudio();
- var ga = new GainAnalysis();
- var bs = new BitStream();
- var p = new Presets();
- var qupvt = new QuantizePVT();
- var qu = new Quantize();
- var vbr = new VBRTag();
- var ver = new Version();
- var id3 = new ID3Tag();
- var rv = new Reservoir();
- var tak = new Takehiro();
- var parse = new Parse();
- var mpg = new MPGLib();
-
- lame.setModules(ga, bs, p, qupvt, qu, vbr, ver, id3, mpg);
- bs.setModules(ga, mpg, ver, vbr);
- id3.setModules(bs, ver);
- p.setModules(lame);
- qu.setModules(bs, rv, qupvt, tak);
- qupvt.setModules(tak, rv, lame.enc.psy);
- rv.setModules(bs);
- tak.setModules(qupvt);
- vbr.setModules(lame, bs, ver);
- gaud.setModules(parse, mpg);
- parse.setModules(ver, id3, p);
-
- var gfp = lame.lame_init();
-
- gfp.num_channels = channels;
- gfp.in_samplerate = samplerate;
- gfp.brate = kbps;
- gfp.mode = MPEGMode.STEREO;
- gfp.quality = 3;
- gfp.bWriteVbrTag = false;
- gfp.disable_reservoir = true;
- gfp.write_id3tag_automatic = false;
-
- var retcode = lame.lame_init_params(gfp);
- var maxSamples = 1152;
- var mp3buf_size = 0 | (1.25 * maxSamples + 7200);
- var mp3buf = new_byte(mp3buf_size);
-
- this.encodeBuffer = function (left, right) {
- if (channels == 1) {
- right = left;
- }
- if (left.length > maxSamples) {
- maxSamples = left.length;
- mp3buf_size = 0 | (1.25 * maxSamples + 7200);
- mp3buf = new_byte(mp3buf_size);
- }
-
- var _sz = lame.lame_encode_buffer(gfp, left, right, left.length, mp3buf, 0, mp3buf_size);
- return new Int8Array(mp3buf.subarray(0, _sz));
- };
-
- this.flush = function () {
- var _sz = lame.lame_encode_flush(gfp, mp3buf, 0, mp3buf_size);
- return new Int8Array(mp3buf.subarray(0, _sz));
- };
-}
-
-function WavHeader() {
- this.dataOffset = 0;
- this.dataLen = 0;
- this.channels = 0;
- this.sampleRate = 0;
-}
-
-function fourccToInt(fourcc) {
- return fourcc.charCodeAt(0) << 24 | fourcc.charCodeAt(1) << 16 | fourcc.charCodeAt(2) << 8 | fourcc.charCodeAt(3);
-}
-
-WavHeader.RIFF = fourccToInt("RIFF");
-WavHeader.WAVE = fourccToInt("WAVE");
-WavHeader.fmt_ = fourccToInt("fmt ");
-WavHeader.data = fourccToInt("data");
-
-WavHeader.readHeader = function (dataView) {
- var w = new WavHeader();
-
- var header = dataView.getUint32(0, false);
- if (WavHeader.RIFF != header) {
- return;
- }
- var fileLen = dataView.getUint32(4, true);
- if (WavHeader.WAVE != dataView.getUint32(8, false)) {
- return;
- }
- if (WavHeader.fmt_ != dataView.getUint32(12, false)) {
- return;
- }
- var fmtLen = dataView.getUint32(16, true);
- var pos = 16 + 4;
- switch (fmtLen) {
- case 16:
- case 18:
- w.channels = dataView.getUint16(pos + 2, true);
- w.sampleRate = dataView.getUint32(pos + 4, true);
- break;
- default:
- throw 'extended fmt chunk not implemented';
- }
- pos += fmtLen;
- var data = WavHeader.data;
- var len = 0;
- while (data != header) {
- header = dataView.getUint32(pos, false);
- len = dataView.getUint32(pos + 4, true);
- if (data == header) {
- break;
- }
- pos += (len + 8);
- }
- w.dataLen = len;
- w.dataOffset = pos + 8;
- return w;
-};
-
-L3Side.SFBMAX = (Encoder.SBMAX_s * 3);
-//testFullLength();
-lamejs.Mp3Encoder = Mp3Encoder;
-lamejs.WavHeader = WavHeader;
-}
-//fs=require('fs');
-lamejs();
-
-export default lamejs;
\ No newline at end of file
diff --git a/packages/usdk/packages/upstreet-agent/packages/codecs/packages/lamejs/lame.min.js b/packages/usdk/packages/upstreet-agent/packages/codecs/packages/lamejs/lame.min.js
deleted file mode 100644
index 76e0cf6c6..000000000
--- a/packages/usdk/packages/upstreet-agent/packages/codecs/packages/lamejs/lame.min.js
+++ /dev/null
@@ -1,308 +0,0 @@
-function lamejs(){function X(c){return new Int32Array(c)}function K(c){return new Float32Array(c)}function ca(c){if(1==c.length)return K(c[0]);var k=c[0];c=c.slice(1);for(var n=[],u=0;u