mirror of
https://github.com/Relintai/pandemonium_engine.git
synced 2024-12-28 22:57:15 +01:00
120 lines
3.0 KiB
C
120 lines
3.0 KiB
C
/********************************************************************
|
|
* *
|
|
* 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 https://xiph.org/ *
|
|
* *
|
|
********************************************************************
|
|
|
|
function: single-block PCM analysis mode dispatch
|
|
|
|
********************************************************************/
|
|
|
|
#include <stdio.h>
|
|
#include <string.h>
|
|
#include <math.h>
|
|
#include <ogg/ogg.h>
|
|
#include "vorbis/codec.h"
|
|
#include "codec_internal.h"
|
|
#include "registry.h"
|
|
#include "scales.h"
|
|
#include "os.h"
|
|
#include "misc.h"
|
|
|
|
/* decides between modes, dispatches to the appropriate mapping. */
|
|
int vorbis_analysis(vorbis_block *vb, ogg_packet *op){
|
|
int ret,i;
|
|
vorbis_block_internal *vbi=vb->internal;
|
|
|
|
vb->glue_bits=0;
|
|
vb->time_bits=0;
|
|
vb->floor_bits=0;
|
|
vb->res_bits=0;
|
|
|
|
/* first things first. Make sure encode is ready */
|
|
for(i=0;i<PACKETBLOBS;i++)
|
|
oggpack_reset(vbi->packetblob[i]);
|
|
|
|
/* we only have one mapping type (0), and we let the mapping code
|
|
itself figure out what soft mode to use. This allows easier
|
|
bitrate management */
|
|
|
|
if((ret=_mapping_P[0]->forward(vb)))
|
|
return(ret);
|
|
|
|
if(op){
|
|
if(vorbis_bitrate_managed(vb))
|
|
/* The app is using a bitmanaged mode... but not using the
|
|
bitrate management interface. */
|
|
return(OV_EINVAL);
|
|
|
|
op->packet=oggpack_get_buffer(&vb->opb);
|
|
op->bytes=oggpack_bytes(&vb->opb);
|
|
op->b_o_s=0;
|
|
op->e_o_s=vb->eofflag;
|
|
op->granulepos=vb->granulepos;
|
|
op->packetno=vb->sequence; /* for sake of completeness */
|
|
}
|
|
return(0);
|
|
}
|
|
|
|
#ifdef ANALYSIS
|
|
int analysis_noisy=1;
|
|
|
|
/* there was no great place to put this.... */
|
|
void _analysis_output_always(char *base,int i,float *v,int n,int bark,int dB,ogg_int64_t off){
|
|
int j;
|
|
FILE *of;
|
|
char buffer[80];
|
|
|
|
sprintf(buffer,"%s_%d.m",base,i);
|
|
of=fopen(buffer,"w");
|
|
|
|
if(!of)perror("failed to open data dump file");
|
|
|
|
for(j=0;j<n;j++){
|
|
if(bark){
|
|
float b=toBARK((4000.f*j/n)+.25);
|
|
fprintf(of,"%f ",b);
|
|
}else
|
|
if(off!=0)
|
|
fprintf(of,"%f ",(double)(j+off)/8000.);
|
|
else
|
|
fprintf(of,"%f ",(double)j);
|
|
|
|
if(dB){
|
|
float val;
|
|
if(v[j]==0.)
|
|
val=-140.;
|
|
else
|
|
val=todB(v+j);
|
|
fprintf(of,"%f\n",val);
|
|
}else{
|
|
fprintf(of,"%f\n",v[j]);
|
|
}
|
|
}
|
|
fclose(of);
|
|
}
|
|
|
|
void _analysis_output(char *base,int i,float *v,int n,int bark,int dB,
|
|
ogg_int64_t off){
|
|
if(analysis_noisy)_analysis_output_always(base,i,v,n,bark,dB,off);
|
|
}
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|