dbf-halloween2015

view libs/vorbis/lookup.c @ 4:4316c0c879e9

find changesets by author, revision, files, or words in the commit message
fixed RUN script for macosx
author John Tsiombikas <nuclear@member.fsf.org>
date Sun, 01 Nov 2015 06:18:18 +0200
parents
children
line source
1 /********************************************************************
2 * *
3 * THIS FILE IS PART OF THE OggVorbis SOFTWARE CODEC SOURCE CODE. *
4 * USE, DISTRIBUTION AND REPRODUCTION OF THIS LIBRARY SOURCE IS *
5 * GOVERNED BY A BSD-STYLE SOURCE LICENSE INCLUDED WITH THIS SOURCE *
6 * IN 'COPYING'. PLEASE READ THESE TERMS BEFORE DISTRIBUTING. *
7 * *
8 * THE OggVorbis SOURCE CODE IS (C) COPYRIGHT 1994-2009 *
9 * by the Xiph.Org Foundation http://www.xiph.org/ *
10 * *
11 ********************************************************************
12
13 function: lookup based functions
14 last mod: $Id: lookup.c 16227 2009-07-08 06:58:46Z xiphmont $
15
16 ********************************************************************/
17
18 #include <math.h>
19 #include "lookup.h"
20 #include "lookup_data.h"
21 #include "os.h"
22 #include "misc.h"
23
24 #ifdef FLOAT_LOOKUP
25
26 /* interpolated lookup based cos function, domain 0 to PI only */
27 float vorbis_coslook(float a){
28 double d=a*(.31830989*(float)COS_LOOKUP_SZ);
29 int i=vorbis_ftoi(d-.5);
30
31 return COS_LOOKUP[i]+ (d-i)*(COS_LOOKUP[i+1]-COS_LOOKUP[i]);
32 }
33
34 /* interpolated 1./sqrt(p) where .5 <= p < 1. */
35 float vorbis_invsqlook(float a){
36 double d=a*(2.f*(float)INVSQ_LOOKUP_SZ)-(float)INVSQ_LOOKUP_SZ;
37 int i=vorbis_ftoi(d-.5f);
38 return INVSQ_LOOKUP[i]+ (d-i)*(INVSQ_LOOKUP[i+1]-INVSQ_LOOKUP[i]);
39 }
40
41 /* interpolated 1./sqrt(p) where .5 <= p < 1. */
42 float vorbis_invsq2explook(int a){
43 return INVSQ2EXP_LOOKUP[a-INVSQ2EXP_LOOKUP_MIN];
44 }
45
46 #include <stdio.h>
47 /* interpolated lookup based fromdB function, domain -140dB to 0dB only */
48 float vorbis_fromdBlook(float a){
49 int i=vorbis_ftoi(a*((float)(-(1<<FROMdB2_SHIFT)))-.5f);
50 return (i<0)?1.f:
51 ((i>=(FROMdB_LOOKUP_SZ<<FROMdB_SHIFT))?0.f:
52 FROMdB_LOOKUP[i>>FROMdB_SHIFT]*FROMdB2_LOOKUP[i&FROMdB2_MASK]);
53 }
54
55 #endif
56
57 #ifdef INT_LOOKUP
58 /* interpolated 1./sqrt(p) where .5 <= a < 1. (.100000... to .111111...) in
59 16.16 format
60
61 returns in m.8 format */
62 long vorbis_invsqlook_i(long a,long e){
63 long i=(a&0x7fff)>>(INVSQ_LOOKUP_I_SHIFT-1);
64 long d=(a&INVSQ_LOOKUP_I_MASK)<<(16-INVSQ_LOOKUP_I_SHIFT); /* 0.16 */
65 long val=INVSQ_LOOKUP_I[i]- /* 1.16 */
66 (((INVSQ_LOOKUP_I[i]-INVSQ_LOOKUP_I[i+1])* /* 0.16 */
67 d)>>16); /* result 1.16 */
68
69 e+=32;
70 if(e&1)val=(val*5792)>>13; /* multiply val by 1/sqrt(2) */
71 e=(e>>1)-8;
72
73 return(val>>e);
74 }
75
76 /* interpolated lookup based fromdB function, domain -140dB to 0dB only */
77 /* a is in n.12 format */
78 float vorbis_fromdBlook_i(long a){
79 int i=(-a)>>(12-FROMdB2_SHIFT);
80 return (i<0)?1.f:
81 ((i>=(FROMdB_LOOKUP_SZ<<FROMdB_SHIFT))?0.f:
82 FROMdB_LOOKUP[i>>FROMdB_SHIFT]*FROMdB2_LOOKUP[i&FROMdB2_MASK]);
83 }
84
85 /* interpolated lookup based cos function, domain 0 to PI only */
86 /* a is in 0.16 format, where 0==0, 2^^16-1==PI, return 0.14 */
87 long vorbis_coslook_i(long a){
88 int i=a>>COS_LOOKUP_I_SHIFT;
89 int d=a&COS_LOOKUP_I_MASK;
90 return COS_LOOKUP_I[i]- ((d*(COS_LOOKUP_I[i]-COS_LOOKUP_I[i+1]))>>
91 COS_LOOKUP_I_SHIFT);
92 }
93
94 #endif