Book a Demo!
CoCalc Logo Icon
StoreFeaturesDocsShareSupportNewsAboutPoliciesSign UpSign In
godotengine
GitHub Repository: godotengine/godot
 Path: blob/master/thirdparty/libvorbis/barkmel.c
9896 views
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-2007             *

9
 * by the Xiph.Org Foundation https://xiph.org/                     *

10
 *                                                                  *

11
 ********************************************************************

12


13
 function: bark scale utility

14


15
 ********************************************************************/

16


17
#include <stdio.h>

18
#include "scales.h"

19
int main(){

20
  int i;

21
  double rate;

22
  for(i=64;i<32000;i*=2){

23
    rate=48000.f;

24
    fprintf(stderr,"rate=%gHz, block=%d, f(1)=%.2gHz bark(1)=%.2g (of %.2g)\n",

25
            rate,i,rate/2 / (i/2),toBARK(rate/2 /(i/2)),toBARK(rate/2));

26


27
    rate=44100.f;

28
    fprintf(stderr,"rate=%gHz, block=%d, f(1)=%.2gHz bark(1)=%.2g (of %.2g)\n",

29
            rate,i,rate/2 / (i/2),toBARK(rate/2 /(i/2)),toBARK(rate/2));

30


31
    rate=32000.f;

32
    fprintf(stderr,"rate=%gHz, block=%d, f(1)=%.2gHz bark(1)=%.2g (of %.2g)\n",

33
            rate,i,rate/2 / (i/2),toBARK(rate/2 /(i/2)),toBARK(rate/2));

34


35
    rate=22050.f;

36
    fprintf(stderr,"rate=%gHz, block=%d, f(1)=%.2gHz bark(1)=%.2g (of %.2g)\n",

37
            rate,i,rate/2 / (i/2),toBARK(rate/2 /(i/2)),toBARK(rate/2));

38


39
    rate=16000.f;

40
    fprintf(stderr,"rate=%gHz, block=%d, f(1)=%.2gHz bark(1)=%.2g (of %.2g)\n",

41
            rate,i,rate/2 / (i/2),toBARK(rate/2 /(i/2)),toBARK(rate/2));

42


43
    rate=11025.f;

44
    fprintf(stderr,"rate=%gHz, block=%d, f(1)=%.2gHz bark(1)=%.2g (of %.2g)\n",

45
            rate,i,rate/2 / (i/2),toBARK(rate/2 /(i/2)),toBARK(rate/2));

46


47
    rate=8000.f;

48
    fprintf(stderr,"rate=%gHz, block=%d, f(1)=%.2gHz bark(1)=%.2g (of %.2g)\n\n",

49
            rate,i,rate/2 / (i/2),toBARK(rate/2 /(i/2)),toBARK(rate/2));

50


51


52
  }

53
  {

54
    float i;

55
    int j;

56
    for(i=0.,j=0;i<28;i+=1,j++){

57
      fprintf(stderr,"(%d) bark=%f %gHz (%d of 128)\n",

58
              j,i,fromBARK(i),(int)(fromBARK(i)/22050.*128.));

59
    }

60
  }

61
  return(0);

62
}

63


64


65