rspgain Files

 /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
  *                                                                                *
  *      Licensa de Cópia (C) <202*>  <Corporação do Trabalho Binário>             *
  *                                                                                *
  *   Este programa é software livre: você pode redistribuir isto e/ou modificar   *
  *   isto sobre os termos do GNU Licensa Geral Pública como publicado pela        *
  *   Fundação de Software Livre, tanto a versão 3 da Licensa, ou                  *
  *   (dependendo da sua opção) qualquer versão posterior.                         *
  *                                                                                *
  *   Este programa é distribuído na esperança que isto vai ser útil,              *
  *   mas SEM QUALQUER GARANTIA; sem até mesmo a implicada garantia de             *
  *   COMERCIALIZAÇÃO ou CABIMENTO PARA UM FIM PARTICULAR.  Veja a                 *
  *   Licensa Geral Pública para mais detalhes.                                    *
  *                                                                                *
  *   Você deve ter recebido uma cópia da LICENSA GERAL PUBLICA                    *
  *       e a GNU Licensa Pública Menor junto com este programa                    *
  *       Se não, veja <http://www.gnu.org/licenses/>.                             *
  *                                                                                *
  *   Suporte: https://arsoftware.net.br/binarywork ____________________           *
  *   Mirrors: https://locacaodiaria.com.br/corporacaodotrabalhobinario/           *
  *             http://nomade.sourceforge.net/binarywork/ ______________            *
  *                                                                                *
  *       e-mails direto dos felizes programadores:                                *
  *       MathMan: arsoftware25@gmail.com  ricardo@arsoftware.net.br               *
  *        Amanda: arsoftware10@gmail.com  amanda@arsoftware.net.br                *
  *                                                                                *
  *       contato imediato(para uma resposta muita rápida) WhatsApp                *
  *       (+55)41 9627 1708 - isto está sempre ligado                              *
  *                                                                                *
  * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
 
/* 

See the .c files to see how the ReplayGain work and the code bellow is 
BENormalize thats from my point of view gives a better result

*/
double be_normalization_method
(
        morcego___i___instance__a__bucaneiro_engineering *mv_______,
        int clear_flag,
        char *buf,
        int len
)
{
	int i;
	switch(clear_flag)
	{
	case BE_PROCESS___:
	{
		short *sample = (void*)buf;
		for(i=0; i<len/2; i++)
		{
			short val = sample[i];
			val = abs(val);
			mv_______->analisys_c___analisys_value=BucaneiroMax(mv_______->analisys_c___analisys_value,val);
		}
	}
	break;
	case BE_CLEAR____:
	{
		mv_______->analisys_c___analisys_value=0.0;
	}
	break;
	case BE_RETRIEVE_NORMALIZATION_VALUE:
	{
		double ret;
		double input=mv_______->analisys_c___analisys_value;
		if(input<1.0)
		{
			input=32768;
		}
		input = 32768. / input;
		return input;
	}
	break;
		return 1.00126;
	}
}