cannam@86: /********************************************************************
cannam@86:  *                                                                  *
cannam@86:  * THIS FILE IS PART OF THE OggVorbis SOFTWARE CODEC SOURCE CODE.   *
cannam@86:  * USE, DISTRIBUTION AND REPRODUCTION OF THIS LIBRARY SOURCE IS     *
cannam@86:  * GOVERNED BY A BSD-STYLE SOURCE LICENSE INCLUDED WITH THIS SOURCE *
cannam@86:  * IN 'COPYING'. PLEASE READ THESE TERMS BEFORE DISTRIBUTING.       *
cannam@86:  *                                                                  *
cannam@86:  * THE OggVorbis SOURCE CODE IS (C) COPYRIGHT 1994-2007             *
cannam@86:  * by the Xiph.Org Foundation http://www.xiph.org/                  *
cannam@86:  *                                                                  *
cannam@86:  ********************************************************************
cannam@86: 
cannam@86:  function: bark scale utility
cannam@86:  last mod: $Id: barkmel.c 16037 2009-05-26 21:10:58Z xiphmont $
cannam@86: 
cannam@86:  ********************************************************************/
cannam@86: 
cannam@86: #include <stdio.h>
cannam@86: #include "scales.h"
cannam@86: int main(){
cannam@86:   int i;
cannam@86:   double rate;
cannam@86:   for(i=64;i<32000;i*=2){
cannam@86:     rate=48000.f;
cannam@86:     fprintf(stderr,"rate=%gHz, block=%d, f(1)=%.2gHz bark(1)=%.2g (of %.2g)\n",
cannam@86:             rate,i,rate/2 / (i/2),toBARK(rate/2 /(i/2)),toBARK(rate/2));
cannam@86: 
cannam@86:     rate=44100.f;
cannam@86:     fprintf(stderr,"rate=%gHz, block=%d, f(1)=%.2gHz bark(1)=%.2g (of %.2g)\n",
cannam@86:             rate,i,rate/2 / (i/2),toBARK(rate/2 /(i/2)),toBARK(rate/2));
cannam@86: 
cannam@86:     rate=32000.f;
cannam@86:     fprintf(stderr,"rate=%gHz, block=%d, f(1)=%.2gHz bark(1)=%.2g (of %.2g)\n",
cannam@86:             rate,i,rate/2 / (i/2),toBARK(rate/2 /(i/2)),toBARK(rate/2));
cannam@86: 
cannam@86:     rate=22050.f;
cannam@86:     fprintf(stderr,"rate=%gHz, block=%d, f(1)=%.2gHz bark(1)=%.2g (of %.2g)\n",
cannam@86:             rate,i,rate/2 / (i/2),toBARK(rate/2 /(i/2)),toBARK(rate/2));
cannam@86: 
cannam@86:     rate=16000.f;
cannam@86:     fprintf(stderr,"rate=%gHz, block=%d, f(1)=%.2gHz bark(1)=%.2g (of %.2g)\n",
cannam@86:             rate,i,rate/2 / (i/2),toBARK(rate/2 /(i/2)),toBARK(rate/2));
cannam@86: 
cannam@86:     rate=11025.f;
cannam@86:     fprintf(stderr,"rate=%gHz, block=%d, f(1)=%.2gHz bark(1)=%.2g (of %.2g)\n",
cannam@86:             rate,i,rate/2 / (i/2),toBARK(rate/2 /(i/2)),toBARK(rate/2));
cannam@86: 
cannam@86:     rate=8000.f;
cannam@86:     fprintf(stderr,"rate=%gHz, block=%d, f(1)=%.2gHz bark(1)=%.2g (of %.2g)\n\n",
cannam@86:             rate,i,rate/2 / (i/2),toBARK(rate/2 /(i/2)),toBARK(rate/2));
cannam@86: 
cannam@86: 
cannam@86:   }
cannam@86:   {
cannam@86:     float i;
cannam@86:     int j;
cannam@86:     for(i=0.,j=0;i<28;i+=1,j++){
cannam@86:       fprintf(stderr,"(%d) bark=%f %gHz (%d of 128)\n",
cannam@86:               j,i,fromBARK(i),(int)(fromBARK(i)/22050.*128.));
cannam@86:     }
cannam@86:   }
cannam@86:   return(0);
cannam@86: }
cannam@86: