/*******************************************************************************/
/* Copyright (C) 2009 Jonathan Moore Liles                                     */
/*                                                                             */
/* 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 program is distributed in the hope that it will be useful, but WITHOUT */
/* ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or       */
/* FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License for   */
/* more details.                                                               */
/*                                                                             */
/* You should have received a copy of the GNU General Public License along     */
/* with This program; see the file COPYING.  If not,write to the Free Software */
/* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  */
/*******************************************************************************/

#include "const.h"

#include <math.h>
#include <dsp.h>

#include "Mono_Pan_Module.H"



Mono_Pan_Module::Mono_Pan_Module ( )
    : Module ( 50, 24, name() )
{
    Port p( this, Port::INPUT, Port::CONTROL, "Pan" );
    p.hints.ranged = true;
    p.hints.minimum = -1.0f;
    p.hints.maximum = 1.0f;
    p.hints.default_value = 0.0f;

    p.connect_to( new float );
    p.control_value( p.hints.default_value );

    add_port( p );

    add_port( Port( this, Port::INPUT, Port::AUDIO ) );
    add_port( Port( this, Port::OUTPUT, Port::AUDIO ) );
    add_port( Port( this, Port::OUTPUT, Port::AUDIO ) );

    end();

    log_create();
 
    smoothing.sample_rate( sample_rate() );
}

Mono_Pan_Module::~Mono_Pan_Module ( )
{
    delete (float*)control_input[0].buffer();
    log_destroy();
}



void
Mono_Pan_Module::handle_sample_rate_change ( nframes_t n )
{
    smoothing.sample_rate( n );
}

bool
Mono_Pan_Module::configure_inputs ( int n )
{
    THREAD_ASSERT( UI );

    int on = audio_input.size();

    if ( n > on )
    {
	add_port( Port( this, Port::INPUT, Port::AUDIO ) );
    }
    else if ( n < on )
    {
	audio_input.back().disconnect();
	audio_input.pop_back();	
    }
    
    return true;
}



/**********/
/* Engine */
/**********/

void
Mono_Pan_Module::process ( nframes_t nframes )
{
    if ( unlikely( bypass() ) )
    {
	if ( audio_input.size() == 1 )
	{
	    buffer_copy( (sample_t*)audio_output[1].buffer(), (sample_t*)audio_input[0].buffer(), nframes );
	}
    }
    else
    {
        const float gt = (control_input[0].control_value() + 1.0f) * 0.5f;

        sample_t gainbuf[nframes];            
        bool use_gainbuf = smoothing.apply( gainbuf, nframes, gt );

	if ( audio_input.size() == 2 )
	{
	    /* convert stereo to mono */
	    buffer_mix( (sample_t*)audio_input[0].buffer(),
			(sample_t*)audio_input[1].buffer(),
			nframes );
	}
	
        if ( unlikely( use_gainbuf ) )
        {            
            /* right channel */                
            buffer_copy_and_apply_gain_buffer( (sample_t*)audio_output[1].buffer(),
                                               (sample_t*)audio_input[0].buffer(),
                                               gainbuf,
                                               nframes );
                
            /*  left channel  */
            for ( nframes_t i = 0; i < nframes; i++ )
                gainbuf[i] = 1.0f - gainbuf[i];
                
            buffer_apply_gain_buffer( (sample_t*)audio_output[0].buffer(), gainbuf, nframes );
        }
        else
        {
            /* right channel */
            buffer_copy_and_apply_gain( (sample_t*)audio_output[1].buffer(),
                                        (sample_t*)audio_input[0].buffer(),
                                        nframes,
                                        gt );
                
            /*  left channel  */
            buffer_apply_gain( (sample_t*)audio_output[0].buffer(), nframes, 1.0f - gt);
        }
    }
}