All Downloads are FREE. Search and download functionalities are using the official Maven repository.

com.jcraft.jorbis.Lookup Maven / Gradle / Ivy

Go to download

Etyl's default sound module

There is a newer version: 1.2.0
Show newest version
/* -*-mode:java; c-basic-offset:2; indent-tabs-mode:nil -*- */
/* JOrbis
 * Copyright (C) 2000 ymnk, JCraft,Inc.
 *  
 * Written by: 2000 ymnk
 *   
 * Many thanks to 
 *   Monty  and 
 *   The XIPHOPHORUS Company http://www.xiph.org/ .
 * JOrbis has been based on their awesome works, Vorbis codec.
 *   
 * This program is free software; you can redistribute it and/or
 * modify it under the terms of the GNU Library General Public License
 * as published by the Free Software Foundation; either version 2 of
 * the License, or (at your option) any later version.
   
 * This program 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 program; if not, write to the Free Software
 * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 */

package com.jcraft.jorbis;

class Lookup{
  static final int COS_LOOKUP_SZ=128;
  static final float[] COS_LOOKUP= {+1.0000000000000f, +0.9996988186962f,
      +0.9987954562052f, +0.9972904566787f, +0.9951847266722f,
      +0.9924795345987f, +0.9891765099648f, +0.9852776423889f,
      +0.9807852804032f, +0.9757021300385f, +0.9700312531945f,
      +0.9637760657954f, +0.9569403357322f, +0.9495281805930f,
      +0.9415440651830f, +0.9329927988347f, +0.9238795325113f,
      +0.9142097557035f, +0.9039892931234f, +0.8932243011955f,
      +0.8819212643484f, +0.8700869911087f, +0.8577286100003f,
      +0.8448535652497f, +0.8314696123025f, +0.8175848131516f,
      +0.8032075314806f, +0.7883464276266f, +0.7730104533627f,
      +0.7572088465065f, +0.7409511253550f, +0.7242470829515f,
      +0.7071067811865f, +0.6895405447371f, +0.6715589548470f,
      +0.6531728429538f, +0.6343932841636f, +0.6152315905806f,
      +0.5956993044924f, +0.5758081914178f, +0.5555702330196f,
      +0.5349976198871f, +0.5141027441932f, +0.4928981922298f,
      +0.4713967368260f, +0.4496113296546f, +0.4275550934303f,
      +0.4052413140050f, +0.3826834323651f, +0.3598950365350f,
      +0.3368898533922f, +0.3136817403989f, +0.2902846772545f,
      +0.2667127574749f, +0.2429801799033f, +0.2191012401569f,
      +0.1950903220161f, +0.1709618887603f, +0.1467304744554f,
      +0.1224106751992f, +0.0980171403296f, +0.0735645635997f,
      +0.0490676743274f, +0.0245412285229f, +0.0000000000000f,
      -0.0245412285229f, -0.0490676743274f, -0.0735645635997f,
      -0.0980171403296f, -0.1224106751992f, -0.1467304744554f,
      -0.1709618887603f, -0.1950903220161f, -0.2191012401569f,
      -0.2429801799033f, -0.2667127574749f, -0.2902846772545f,
      -0.3136817403989f, -0.3368898533922f, -0.3598950365350f,
      -0.3826834323651f, -0.4052413140050f, -0.4275550934303f,
      -0.4496113296546f, -0.4713967368260f, -0.4928981922298f,
      -0.5141027441932f, -0.5349976198871f, -0.5555702330196f,
      -0.5758081914178f, -0.5956993044924f, -0.6152315905806f,
      -0.6343932841636f, -0.6531728429538f, -0.6715589548470f,
      -0.6895405447371f, -0.7071067811865f, -0.7242470829515f,
      -0.7409511253550f, -0.7572088465065f, -0.7730104533627f,
      -0.7883464276266f, -0.8032075314806f, -0.8175848131516f,
      -0.8314696123025f, -0.8448535652497f, -0.8577286100003f,
      -0.8700869911087f, -0.8819212643484f, -0.8932243011955f,
      -0.9039892931234f, -0.9142097557035f, -0.9238795325113f,
      -0.9329927988347f, -0.9415440651830f, -0.9495281805930f,
      -0.9569403357322f, -0.9637760657954f, -0.9700312531945f,
      -0.9757021300385f, -0.9807852804032f, -0.9852776423889f,
      -0.9891765099648f, -0.9924795345987f, -0.9951847266722f,
      -0.9972904566787f, -0.9987954562052f, -0.9996988186962f,
      -1.0000000000000f,};

  /* interpolated lookup based cos function, domain 0 to PI only */
  static float coslook(float a){
    double d=a*(.31830989*(float)COS_LOOKUP_SZ);
    int i=(int)d;
    return COS_LOOKUP[i]+((float)(d-i))*(COS_LOOKUP[i+1]-COS_LOOKUP[i]);
  }

  static final int INVSQ_LOOKUP_SZ=32;
  static final float[] INVSQ_LOOKUP= {1.414213562373f, 1.392621247646f,
      1.371988681140f, 1.352246807566f, 1.333333333333f, 1.315191898443f,
      1.297771369046f, 1.281025230441f, 1.264911064067f, 1.249390095109f,
      1.234426799697f, 1.219988562661f, 1.206045378311f, 1.192569588000f,
      1.179535649239f, 1.166919931983f, 1.154700538379f, 1.142857142857f,
      1.131370849898f, 1.120224067222f, 1.109400392450f, 1.098884511590f,
      1.088662107904f, 1.078719779941f, 1.069044967650f, 1.059625885652f,
      1.050451462878f, 1.041511287847f, 1.032795558989f, 1.024295039463f,
      1.016001016002f, 1.007905261358f, 1.000000000000f,};

  /* interpolated 1./sqrt(p) where .5 <= p < 1. */
  static float invsqlook(float a){
    double d=a*(2.f*(float)INVSQ_LOOKUP_SZ)-(float)INVSQ_LOOKUP_SZ;
    int i=(int)d;
    return INVSQ_LOOKUP[i]+((float)(d-i))*(INVSQ_LOOKUP[i+1]-INVSQ_LOOKUP[i]);
  }

  static final int INVSQ2EXP_LOOKUP_MIN=-32;
  static final int INVSQ2EXP_LOOKUP_MAX=32;
  static final float[] INVSQ2EXP_LOOKUP= {65536.f, 46340.95001f, 32768.f,
      23170.47501f, 16384.f, 11585.2375f, 8192.f, 5792.618751f, 4096.f,
      2896.309376f, 2048.f, 1448.154688f, 1024.f, 724.0773439f, 512.f,
      362.038672f, 256.f, 181.019336f, 128.f, 90.50966799f, 64.f, 45.254834f,
      32.f, 22.627417f, 16.f, 11.3137085f, 8.f, 5.656854249f, 4.f,
      2.828427125f, 2.f, 1.414213562f, 1.f, 0.7071067812f, 0.5f, 0.3535533906f,
      0.25f, 0.1767766953f, 0.125f, 0.08838834765f, 0.0625f, 0.04419417382f,
      0.03125f, 0.02209708691f, 0.015625f, 0.01104854346f, 0.0078125f,
      0.005524271728f, 0.00390625f, 0.002762135864f, 0.001953125f,
      0.001381067932f, 0.0009765625f, 0.000690533966f, 0.00048828125f,
      0.000345266983f, 0.000244140625f, 0.0001726334915f, 0.0001220703125f,
      8.631674575e-05f, 6.103515625e-05f, 4.315837288e-05f, 3.051757812e-05f,
      2.157918644e-05f, 1.525878906e-05f,};

  /* interpolated 1./sqrt(p) where .5 <= p < 1. */
  static float invsq2explook(int a){
    return INVSQ2EXP_LOOKUP[a-INVSQ2EXP_LOOKUP_MIN];
  }

  static final int FROMdB_LOOKUP_SZ=35;
  static final int FROMdB2_LOOKUP_SZ=32;
  static final int FROMdB_SHIFT=5;
  static final int FROMdB2_SHIFT=3;
  static final int FROMdB2_MASK=31;
  static final float[] FROMdB_LOOKUP= {1.f, 0.6309573445f, 0.3981071706f,
      0.2511886432f, 0.1584893192f, 0.1f, 0.06309573445f, 0.03981071706f,
      0.02511886432f, 0.01584893192f, 0.01f, 0.006309573445f, 0.003981071706f,
      0.002511886432f, 0.001584893192f, 0.001f, 0.0006309573445f,
      0.0003981071706f, 0.0002511886432f, 0.0001584893192f, 0.0001f,
      6.309573445e-05f, 3.981071706e-05f, 2.511886432e-05f, 1.584893192e-05f,
      1e-05f, 6.309573445e-06f, 3.981071706e-06f, 2.511886432e-06f,
      1.584893192e-06f, 1e-06f, 6.309573445e-07f, 3.981071706e-07f,
      2.511886432e-07f, 1.584893192e-07f,};
  static final float[] FROMdB2_LOOKUP= {0.9928302478f, 0.9786445908f,
      0.9646616199f, 0.9508784391f, 0.9372921937f, 0.92390007f, 0.9106992942f,
      0.8976871324f, 0.8848608897f, 0.8722179097f, 0.8597555737f,
      0.8474713009f, 0.835362547f, 0.8234268041f, 0.8116616003f, 0.8000644989f,
      0.7886330981f, 0.7773650302f, 0.7662579617f, 0.755309592f, 0.7445176537f,
      0.7338799116f, 0.7233941627f, 0.7130582353f, 0.7028699885f,
      0.6928273125f, 0.6829281272f, 0.6731703824f, 0.6635520573f,
      0.6540711597f, 0.6447257262f, 0.6355138211f,};

  /* interpolated lookup based fromdB function, domain -140dB to 0dB only */
  static float fromdBlook(float a){
    int i=(int)(a*((float)(-(1<=(FROMdB_LOOKUP_SZ<>>FROMdB_SHIFT]*FROMdB2_LOOKUP[i&FROMdB2_MASK]);
  }

}




© 2015 - 2024 Weber Informatics LLC | Privacy Policy