/*************************************************************************** * __________ __ ___. * Open \______ \ ____ ____ | | _\_ |__ _______ ___ * Source | _// _ \_/ ___\| |/ /| __ \ / _ \ \/ / * Jukebox | | ( <_> ) \___| < | \_\ ( <_> > < < * Firmware |____|_ /\____/ \___ >__|_ \|___ /\____/__/\_ \ * \/ \/ \/ \/ \/ * * Copyright (C) 2006-2007 Adam Gashlin (hcs) * Copyright (C) 2004-2007 Shay Green (blargg) * Copyright (C) 2002 Brad Martin * * This program is free software; you can redistribute it and/or * modify it under the terms of the GNU General Public License * as published by the Free Software Foundation; either version 2 * of the License, or (at your option) any later version. * * This software is distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY * KIND, either express or implied. * ****************************************************************************/ static inline int apply_gen_envx( struct voice_t* voice, int output ) { return (output * voice->envx) >> 11; } static inline int apply_gen_volume( struct voice_t* voice, int output, int* amp_0, int* amp_1 ) { *amp_0 = voice->volume [0] * output; *amp_1 = voice->volume [1] * output; return output; } static inline int apply_gen_amp( struct voice_t* voice, int output, int* amp_0, int* amp_1) { output = apply_gen_envx( voice, output ); output = apply_gen_volume( voice, output, amp_0, amp_1 ); return output; } #if !SPC_NOINTERP #ifndef SPC_GAUSSIAN_FAST_INTERP static inline int gaussian_fast_interp( int16_t const* samples, int32_t position, int16_t const* fwd, int16_t const* rev ) { samples += position >> 12; return (fwd [0] * samples [0] + fwd [1] * samples [1] + rev [1] * samples [2] + rev [0] * samples [3]) >> 11; } #endif /* SPC_GAUSSIAN_FAST_INTERP */ #ifndef SPC_GAUSSIAN_FAST_AMP #define gaussian_fast_amp apply_amp #endif /* SPC_GAUSSIAN_FAST_AMP */ #ifndef SPC_GAUSSIAN_SLOW_INTERP static inline int gaussian_slow_interp( int16_t const* samples, int32_t position, int16_t const* fwd, int16_t const* rev ) { int output; samples += position >> 12; output = (fwd [0] * samples [0]) & ~0xFFF; output = (output + fwd [1] * samples [1]) & ~0xFFF; output = (output + rev [1] * samples [2]) >> 12; output = (int16_t) (output * 2); output += ((rev [0] * samples [3]) >> 12) * 2; return CLAMP16( output ); } #endif /* SPC_GAUSSIAN_SLOW_INTERP */ #ifndef SPC_GAUSSIAN_SLOW_AMP static inline int gaussian_slow_amp( struct voice_t* voice, int output, int *amp_0, int *amp_1 ) { output = apply_gen_envx( voice, output ) & ~1; output = apply_gen_volume( voice, output, amp_0, amp_1 ); return output; } #endif /* SPC_GAUSSIAN_SLOW_AMP */ #define interp gaussian_slow_interp #define apply_amp gaussian_slow_amp #else /* SPC_NOINTERP */ #ifndef SPC_LINEAR_INTERP static inline int linear_interp( int16_t const* samples, int32_t position ) { int32_t fraction = position & 0xfff; int16_t const* pos = (samples + (position >> 12)) + 1; return pos[0] + ((fraction * (pos[1] - pos[0])) >> 12); } #endif /* SPC_LINEAR_INTERP */ #define interp( samp, pos, fwd, rev ) \ linear_interp( (samp), (pos) ) #ifndef SPC_LINEAR_AMP #define linear_amp apply_gen_amp #endif /* SPC_LINEAR_AMP */ #define apply_amp linear_amp #endif /* SPC_NOINTERP */ #if !SPC_NOECHO #ifndef SPC_DSP_ECHO_APPLY /* Init FIR filter */ static inline void echo_init( struct Spc_Dsp* this ) { this->fir.pos = 0; ci->memset( this->fir.buf, 0, sizeof this->fir.buf ); } /* Apply FIR filter */ static inline void echo_apply(struct Spc_Dsp* this, uint8_t* const echo_ptr, int* out_0, int* out_1) { int fb_0 = GET_LE16SA( echo_ptr ); int fb_1 = GET_LE16SA( echo_ptr + 2 ); /* Keep last 8 samples */ int (* const fir_ptr) [2] = this->fir.buf + this->fir.pos; this->fir.pos = (this->fir.pos + 1) & (FIR_BUF_HALF - 1); fir_ptr [ 0] [0] = fb_0; fir_ptr [ 0] [1] = fb_1; /* duplicate at +8 eliminates wrap checking below */ fir_ptr [FIR_BUF_HALF] [0] = fb_0; fir_ptr [FIR_BUF_HALF] [1] = fb_1; fb_0 *= this->fir.coeff [0]; fb_1 *= this->fir.coeff [0]; #define DO_PT( i ) \ fb_0 += fir_ptr [i] [0] * this->fir.coeff [i]; \ fb_1 += fir_ptr [i] [1] * this->fir.coeff [i]; DO_PT( 1 ) DO_PT( 2 ) DO_PT( 3 ) DO_PT( 4 ) DO_PT( 5 ) DO_PT( 6 ) DO_PT( 7 ) #undef DO_PT *out_0 = fb_0; *out_1 = fb_1; } #endif /* SPC_DSP_ECHO_APPLY */ #ifndef SPC_DSP_ECHO_FEEDBACK /* Feedback into echo buffer */ static inline void echo_feedback( struct Spc_Dsp* this, uint8_t *echo_ptr, int echo_0, int echo_1, int fb_0, int fb_1 ) { int e0 = (echo_0 >> 7) + ((fb_0 * this->r.g.echo_feedback) >> 14); int e1 = (echo_1 >> 7) + ((fb_1 * this->r.g.echo_feedback) >> 14); e0 = CLAMP16( e0 ); SET_LE16A( echo_ptr , e0 ); e1 = CLAMP16( e1 ); SET_LE16A( echo_ptr + 2, e1 ); } #endif /* SPC_DSP_ECHO_FEEDBACK */ #ifndef SPC_DSP_GENERATE_OUTPUT /* Generate final output */ static inline void echo_output( struct Spc_Dsp* this, int global_muting, int global_vol_0, int global_vol_1, int chans_0, int chans_1, int fb_0, int fb_1, int* out_0, int* out_1 ) { *out_0 = (chans_0 * global_vol_0 + fb_0 * this->r.g.echo_volume_0) >> global_muting; *out_1 = (chans_1 * global_vol_1 + fb_1 * this->r.g.echo_volume_1) >> global_muting; } #endif /* SPC_DSP_GENERATE_OUTPUT */ #define mix_output echo_output #else /* SPC_NOECHO */ #ifndef SPC_DSP_GENERATE_OUTPUT /* Generate final output */ static inline void noecho_output( struct Spc_Dsp* this, int global_muting, int global_vol_0, int global_vol_1, int chans_0, int chans_1, int* out_0, int* out_1 ) { *out_0 = (chans_0 * global_vol_0) >> global_muting; *out_1 = (chans_1 * global_vol_1) >> global_muting; (void)this; } #endif /* SPC_DSP_GENERATE_OUTPUT */ #define mix_output(this, gm, gv0, gv1, ch0, ch1, fb_0, fb_1, o0, o1) \ noecho_output( (this), (gm), (gv0), (gv1), (ch0), (ch1), (o0), (o1) ) #endif /* !SPC_NOECHO */