gosu 0.8.0.pre3 → 0.8.0.pre4

data/dependencies/libvorbis/lib/lookup.c

@@ -1,94 +0,0 @@
-/********************************************************************
- *                                                                  *
- * THIS FILE IS PART OF THE OggVorbis SOFTWARE CODEC SOURCE CODE.   *
- * USE, DISTRIBUTION AND REPRODUCTION OF THIS LIBRARY SOURCE IS     *
- * GOVERNED BY A BSD-STYLE SOURCE LICENSE INCLUDED WITH THIS SOURCE *
- * IN 'COPYING'. PLEASE READ THESE TERMS BEFORE DISTRIBUTING.       *
- *                                                                  *
- * THE OggVorbis SOURCE CODE IS (C) COPYRIGHT 1994-2009             *
- * by the Xiph.Org Foundation http://www.xiph.org/                  *
- *                                                                  *
- ********************************************************************
-
-  function: lookup based functions
-  last mod: $Id: lookup.c 16227 2009-07-08 06:58:46Z xiphmont $
-
- ********************************************************************/
-
-#include <math.h>
-#include "lookup.h"
-#include "lookup_data.h"
-#include "os.h"
-#include "misc.h"
-
-#ifdef FLOAT_LOOKUP
-
-/* interpolated lookup based cos function, domain 0 to PI only */
-float vorbis_coslook(float a){
-  double d=a*(.31830989*(float)COS_LOOKUP_SZ);
-  int i=vorbis_ftoi(d-.5);
-
-  return COS_LOOKUP[i]+ (d-i)*(COS_LOOKUP[i+1]-COS_LOOKUP[i]);
-}
-
-/* interpolated 1./sqrt(p) where .5 <= p < 1. */
-float vorbis_invsqlook(float a){
-  double d=a*(2.f*(float)INVSQ_LOOKUP_SZ)-(float)INVSQ_LOOKUP_SZ;
-  int i=vorbis_ftoi(d-.5f);
-  return INVSQ_LOOKUP[i]+ (d-i)*(INVSQ_LOOKUP[i+1]-INVSQ_LOOKUP[i]);
-}
-
-/* interpolated 1./sqrt(p) where .5 <= p < 1. */
-float vorbis_invsq2explook(int a){
-  return INVSQ2EXP_LOOKUP[a-INVSQ2EXP_LOOKUP_MIN];
-}
-
-#include <stdio.h>
-/* interpolated lookup based fromdB function, domain -140dB to 0dB only */
-float vorbis_fromdBlook(float a){
-  int i=vorbis_ftoi(a*((float)(-(1<<FROMdB2_SHIFT)))-.5f);
-  return (i<0)?1.f:
-    ((i>=(FROMdB_LOOKUP_SZ<<FROMdB_SHIFT))?0.f:
-     FROMdB_LOOKUP[i>>FROMdB_SHIFT]*FROMdB2_LOOKUP[i&FROMdB2_MASK]);
-}
-
-#endif
-
-#ifdef INT_LOOKUP
-/* interpolated 1./sqrt(p) where .5 <= a < 1. (.100000... to .111111...) in
-   16.16 format
-
-   returns in m.8 format */
-long vorbis_invsqlook_i(long a,long e){
-  long i=(a&0x7fff)>>(INVSQ_LOOKUP_I_SHIFT-1);
-  long d=(a&INVSQ_LOOKUP_I_MASK)<<(16-INVSQ_LOOKUP_I_SHIFT); /*  0.16 */
-  long val=INVSQ_LOOKUP_I[i]-                                /*  1.16 */
-    (((INVSQ_LOOKUP_I[i]-INVSQ_LOOKUP_I[i+1])*               /*  0.16 */
-      d)>>16);                                               /* result 1.16 */
-
-  e+=32;
-  if(e&1)val=(val*5792)>>13; /* multiply val by 1/sqrt(2) */
-  e=(e>>1)-8;
-
-  return(val>>e);
-}
-
-/* interpolated lookup based fromdB function, domain -140dB to 0dB only */
-/* a is in n.12 format */
-float vorbis_fromdBlook_i(long a){
-  int i=(-a)>>(12-FROMdB2_SHIFT);
-  return (i<0)?1.f:
-    ((i>=(FROMdB_LOOKUP_SZ<<FROMdB_SHIFT))?0.f:
-     FROMdB_LOOKUP[i>>FROMdB_SHIFT]*FROMdB2_LOOKUP[i&FROMdB2_MASK]);
-}
-
-/* interpolated lookup based cos function, domain 0 to PI only */
-/* a is in 0.16 format, where 0==0, 2^^16-1==PI, return 0.14 */
-long vorbis_coslook_i(long a){
-  int i=a>>COS_LOOKUP_I_SHIFT;
-  int d=a&COS_LOOKUP_I_MASK;
-  return COS_LOOKUP_I[i]- ((d*(COS_LOOKUP_I[i]-COS_LOOKUP_I[i+1]))>>
-                           COS_LOOKUP_I_SHIFT);
-}
-
-#endif

data/dependencies/libvorbis/lib/lookup.h

@@ -1,32 +0,0 @@
-/********************************************************************
- *                                                                  *
- * THIS FILE IS PART OF THE OggVorbis SOFTWARE CODEC SOURCE CODE.   *
- * USE, DISTRIBUTION AND REPRODUCTION OF THIS LIBRARY SOURCE IS     *
- * GOVERNED BY A BSD-STYLE SOURCE LICENSE INCLUDED WITH THIS SOURCE *
- * IN 'COPYING'. PLEASE READ THESE TERMS BEFORE DISTRIBUTING.       *
- *                                                                  *
- * THE OggVorbis SOURCE CODE IS (C) COPYRIGHT 1994-2009             *
- * by the Xiph.Org Foundation http://www.xiph.org/                  *
- *                                                                  *
- ********************************************************************
-
-  function: lookup based functions
-  last mod: $Id: lookup.h 16227 2009-07-08 06:58:46Z xiphmont $
-
- ********************************************************************/
-
-#ifndef _V_LOOKUP_H_
-
-#ifdef FLOAT_LOOKUP
-extern float vorbis_coslook(float a);
-extern float vorbis_invsqlook(float a);
-extern float vorbis_invsq2explook(int a);
-extern float vorbis_fromdBlook(float a);
-#endif
-#ifdef INT_LOOKUP
-extern long vorbis_invsqlook_i(long a,long e);
-extern long vorbis_coslook_i(long a);
-extern float vorbis_fromdBlook_i(long a);
-#endif
-
-#endif

data/dependencies/libvorbis/lib/lookup_data.h

@@ -1,192 +0,0 @@
-/********************************************************************
- *                                                                  *
- * THIS FILE IS PART OF THE OggVorbis SOFTWARE CODEC SOURCE CODE.   *
- * USE, DISTRIBUTION AND REPRODUCTION OF THIS LIBRARY SOURCE IS     *
- * GOVERNED BY A BSD-STYLE SOURCE LICENSE INCLUDED WITH THIS SOURCE *
- * IN 'COPYING'. PLEASE READ THESE TERMS BEFORE DISTRIBUTING.       *
- *                                                                  *
- * THE OggVorbis SOURCE CODE IS (C) COPYRIGHT 1994-2007             *
- * by the Xiph.Org Foundation http://www.xiph.org/                  *
- *                                                                  *
- ********************************************************************
-
-  function: lookup data; generated by lookups.pl; edit there
-  last mod: $Id: lookup_data.h 16037 2009-05-26 21:10:58Z xiphmont $
-
- ********************************************************************/
-
-#ifndef _V_LOOKUP_DATA_H_
-
-#ifdef FLOAT_LOOKUP
-#define COS_LOOKUP_SZ 128
-static const float COS_LOOKUP[COS_LOOKUP_SZ+1]={
-        +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,
-};
-
-#define INVSQ_LOOKUP_SZ 32
-static const float INVSQ_LOOKUP[INVSQ_LOOKUP_SZ+1]={
-        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,
-};
-
-#define INVSQ2EXP_LOOKUP_MIN (-32)
-#define INVSQ2EXP_LOOKUP_MAX 32
-static const float INVSQ2EXP_LOOKUP[INVSQ2EXP_LOOKUP_MAX-\
-                              INVSQ2EXP_LOOKUP_MIN+1]={
-                 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,
-};
-
-#endif
-
-#define FROMdB_LOOKUP_SZ 35
-#define FROMdB2_LOOKUP_SZ 32
-#define FROMdB_SHIFT 5
-#define FROMdB2_SHIFT 3
-#define FROMdB2_MASK 31
-
-#ifdef FLOAT_LOOKUP
-static const float FROMdB_LOOKUP[FROMdB_LOOKUP_SZ]={
-                     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 const float FROMdB2_LOOKUP[FROMdB2_LOOKUP_SZ]={
-           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,
-};
-#endif
-
-#ifdef INT_LOOKUP
-
-#define INVSQ_LOOKUP_I_SHIFT 10
-#define INVSQ_LOOKUP_I_MASK 1023
-static const long INVSQ_LOOKUP_I[64+1]={
-           92682l,   91966l,   91267l,   90583l,
-           89915l,   89261l,   88621l,   87995l,
-           87381l,   86781l,   86192l,   85616l,
-           85051l,   84497l,   83953l,   83420l,
-           82897l,   82384l,   81880l,   81385l,
-           80899l,   80422l,   79953l,   79492l,
-           79039l,   78594l,   78156l,   77726l,
-           77302l,   76885l,   76475l,   76072l,
-           75674l,   75283l,   74898l,   74519l,
-           74146l,   73778l,   73415l,   73058l,
-           72706l,   72359l,   72016l,   71679l,
-           71347l,   71019l,   70695l,   70376l,
-           70061l,   69750l,   69444l,   69141l,
-           68842l,   68548l,   68256l,   67969l,
-           67685l,   67405l,   67128l,   66855l,
-           66585l,   66318l,   66054l,   65794l,
-           65536l,
-};
-
-#define COS_LOOKUP_I_SHIFT 9
-#define COS_LOOKUP_I_MASK 511
-#define COS_LOOKUP_I_SZ 128
-static const long COS_LOOKUP_I[COS_LOOKUP_I_SZ+1]={
-           16384l,   16379l,   16364l,   16340l,
-           16305l,   16261l,   16207l,   16143l,
-           16069l,   15986l,   15893l,   15791l,
-           15679l,   15557l,   15426l,   15286l,
-           15137l,   14978l,   14811l,   14635l,
-           14449l,   14256l,   14053l,   13842l,
-           13623l,   13395l,   13160l,   12916l,
-           12665l,   12406l,   12140l,   11866l,
-           11585l,   11297l,   11003l,   10702l,
-           10394l,   10080l,    9760l,    9434l,
-            9102l,    8765l,    8423l,    8076l,
-            7723l,    7366l,    7005l,    6639l,
-            6270l,    5897l,    5520l,    5139l,
-            4756l,    4370l,    3981l,    3590l,
-            3196l,    2801l,    2404l,    2006l,
-            1606l,    1205l,     804l,     402l,
-               0l,    -401l,    -803l,   -1204l,
-           -1605l,   -2005l,   -2403l,   -2800l,
-           -3195l,   -3589l,   -3980l,   -4369l,
-           -4755l,   -5138l,   -5519l,   -5896l,
-           -6269l,   -6638l,   -7004l,   -7365l,
-           -7722l,   -8075l,   -8422l,   -8764l,
-           -9101l,   -9433l,   -9759l,  -10079l,
-          -10393l,  -10701l,  -11002l,  -11296l,
-          -11584l,  -11865l,  -12139l,  -12405l,
-          -12664l,  -12915l,  -13159l,  -13394l,
-          -13622l,  -13841l,  -14052l,  -14255l,
-          -14448l,  -14634l,  -14810l,  -14977l,
-          -15136l,  -15285l,  -15425l,  -15556l,
-          -15678l,  -15790l,  -15892l,  -15985l,
-          -16068l,  -16142l,  -16206l,  -16260l,
-          -16304l,  -16339l,  -16363l,  -16378l,
-          -16383l,
-};
-
-#endif
-
-#endif

data/dependencies/libvorbis/lib/lpc.c

@@ -1,160 +0,0 @@
-/********************************************************************
- *                                                                  *
- * THIS FILE IS PART OF THE OggVorbis SOFTWARE CODEC SOURCE CODE.   *
- * USE, DISTRIBUTION AND REPRODUCTION OF THIS LIBRARY SOURCE IS     *
- * GOVERNED BY A BSD-STYLE SOURCE LICENSE INCLUDED WITH THIS SOURCE *
- * IN 'COPYING'. PLEASE READ THESE TERMS BEFORE DISTRIBUTING.       *
- *                                                                  *
- * THE OggVorbis SOURCE CODE IS (C) COPYRIGHT 1994-2009             *
- * by the Xiph.Org Foundation http://www.xiph.org/                  *
- *                                                                  *
- ********************************************************************
-
-  function: LPC low level routines
-  last mod: $Id: lpc.c 16227 2009-07-08 06:58:46Z xiphmont $
-
- ********************************************************************/
-
-/* Some of these routines (autocorrelator, LPC coefficient estimator)
-   are derived from code written by Jutta Degener and Carsten Bormann;
-   thus we include their copyright below.  The entirety of this file
-   is freely redistributable on the condition that both of these
-   copyright notices are preserved without modification.  */
-
-/* Preserved Copyright: *********************************************/
-
-/* Copyright 1992, 1993, 1994 by Jutta Degener and Carsten Bormann,
-Technische Universita"t Berlin
-
-Any use of this software is permitted provided that this notice is not
-removed and that neither the authors nor the Technische Universita"t
-Berlin are deemed to have made any representations as to the
-suitability of this software for any purpose nor are held responsible
-for any defects of this software. THERE IS ABSOLUTELY NO WARRANTY FOR
-THIS SOFTWARE.
-
-As a matter of courtesy, the authors request to be informed about uses
-this software has found, about bugs in this software, and about any
-improvements that may be of general interest.
-
-Berlin, 28.11.1994
-Jutta Degener
-Carsten Bormann
-
-*********************************************************************/
-
-#include <stdlib.h>
-#include <string.h>
-#include <math.h>
-#include "os.h"
-#include "smallft.h"
-#include "lpc.h"
-#include "scales.h"
-#include "misc.h"
-
-/* Autocorrelation LPC coeff generation algorithm invented by
-   N. Levinson in 1947, modified by J. Durbin in 1959. */
-
-/* Input : n elements of time doamin data
-   Output: m lpc coefficients, excitation energy */
-
-float vorbis_lpc_from_data(float *data,float *lpci,int n,int m){
-  double *aut=alloca(sizeof(*aut)*(m+1));
-  double *lpc=alloca(sizeof(*lpc)*(m));
-  double error;
-  double epsilon;
-  int i,j;
-
-  /* autocorrelation, p+1 lag coefficients */
-  j=m+1;
-  while(j--){
-    double d=0; /* double needed for accumulator depth */
-    for(i=j;i<n;i++)d+=(double)data[i]*data[i-j];
-    aut[j]=d;
-  }
-
-  /* Generate lpc coefficients from autocorr values */
-
-  /* set our noise floor to about -100dB */
-  error=aut[0] * (1. + 1e-10);
-  epsilon=1e-9*aut[0]+1e-10;
-
-  for(i=0;i<m;i++){
-    double r= -aut[i+1];
-
-    if(error<epsilon){
-      memset(lpc+i,0,(m-i)*sizeof(*lpc));
-      goto done;
-    }
-
-    /* Sum up this iteration's reflection coefficient; note that in
-       Vorbis we don't save it.  If anyone wants to recycle this code
-       and needs reflection coefficients, save the results of 'r' from
-       each iteration. */
-
-    for(j=0;j<i;j++)r-=lpc[j]*aut[i-j];
-    r/=error;
-
-    /* Update LPC coefficients and total error */
-
-    lpc[i]=r;
-    for(j=0;j<i/2;j++){
-      double tmp=lpc[j];
-
-      lpc[j]+=r*lpc[i-1-j];
-      lpc[i-1-j]+=r*tmp;
-    }
-    if(i&1)lpc[j]+=lpc[j]*r;
-
-    error*=1.-r*r;
-
-  }
-
- done:
-
-  /* slightly damp the filter */
-  {
-    double g = .99;
-    double damp = g;
-    for(j=0;j<m;j++){
-      lpc[j]*=damp;
-      damp*=g;
-    }
-  }
-
-  for(j=0;j<m;j++)lpci[j]=(float)lpc[j];
-
-  /* we need the error value to know how big an impulse to hit the
-     filter with later */
-
-  return error;
-}
-
-void vorbis_lpc_predict(float *coeff,float *prime,int m,
-                     float *data,long n){
-
-  /* in: coeff[0...m-1] LPC coefficients
-         prime[0...m-1] initial values (allocated size of n+m-1)
-    out: data[0...n-1] data samples */
-
-  long i,j,o,p;
-  float y;
-  float *work=alloca(sizeof(*work)*(m+n));
-
-  if(!prime)
-    for(i=0;i<m;i++)
-      work[i]=0.f;
-  else
-    for(i=0;i<m;i++)
-      work[i]=prime[i];
-
-  for(i=0;i<n;i++){
-    y=0;
-    o=i;
-    p=m;
-    for(j=0;j<m;j++)
-      y-=work[o++]*coeff[--p];
-
-    data[i]=work[o]=y;
-  }
-}