/*******************************************************************************/
/* Copyright (C) 2008 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 <FL/fl_ask.H>
#include <list>
using namespace std;

#include "Control_Sequence.H"
#include "Track.H"
#include "Engine/Port.H"

#include "Engine/Engine.H" // for lock()
#include "Transport.H" // for transport->frame

bool Control_Sequence::draw_with_gradient = true;
bool Control_Sequence::draw_with_polygon = true;
bool Control_Sequence::draw_with_grid = true;

Control_Sequence::Control_Sequence ( Track *track ) : Sequence( 0 )
{
    init();

    _track = track;

   _output = new Port( Port::Output, track->name(), track->ncontrols(), "cv" );

    if ( track )
        track->add( this );

    log_create();
}


Control_Sequence::~Control_Sequence ( )
{
    log_destroy();

    engine->lock();

    track()->remove( this );

    engine->unlock();

    _output->shutdown();

    delete _output;

    _output = NULL;

    log_destroy();
}

void
Control_Sequence::init ( void )
{
    _track = NULL;
    _highlighted = false;
    _output = NULL;

    color( fl_darker( FL_YELLOW ) );
}

void
Control_Sequence::get ( Log_Entry &e ) const
{
    e.add( ":track", _track );
    e.add( ":name", name() );
}

void
Control_Sequence::set ( Log_Entry &e )
{
    for ( int i = 0; i < e.size(); ++i )
    {
        const char *s, *v;

        e.get( i, &s, &v );

        if ( ! strcmp( ":track", s ) )
        {
            int i;
            sscanf( v, "%X", &i );
            Track *t = (Track*)Loggable::find( i );

            assert( t );

            _output = new Port( Port::Output, t->name(), t->ncontrols(), "cv" );

            t->add( this );
        }
        else if ( ! strcmp( ":name", s ) )
            name( v );

    }
}

void
Control_Sequence::draw_curve ( bool flip, bool filled )
{

    const int bx = x();
    const int by = y() + Fl::box_dy( box() );
    const int bw = w();
    const int bh = h() - Fl::box_dh( box() );

    list <Sequence_Widget *>::const_iterator e = _widgets.end();
    e--;

    if ( _widgets.size() )
        for ( list <Sequence_Widget *>::const_iterator r = _widgets.begin(); ; r++ )
        {
            const int ry = (*r)->y();

            if ( r == _widgets.begin() )
            {
                if ( flip )
                {
                    if ( filled )
                        fl_vertex( bx, by );
                    fl_vertex( bx, ry );
                }
                else
                {
                    if ( filled )
                        fl_vertex( bx, bh + by );
                    fl_vertex( bx, ry );
                }
            }

            fl_vertex( (*r)->line_x(), ry );

            if ( r == e )
            {
                if ( flip )
                {
                    fl_vertex( bx + bw, ry );
                    if ( filled )
                        fl_vertex( bx + bw, by );
                }
                else
                {
                    fl_vertex( bx + bw, ry );
                    if ( filled )
                        fl_vertex( bx + bw, bh + by );
                }
                break;
            }

        }
}

void
Control_Sequence::draw ( void )
{

    if ( ! fl_not_clipped( x(), y(), w(), h() ) )
        return;

    fl_push_clip( x(), y(), w(), h() );

    /* draw the box with the ends cut off. */
    draw_box( box(), x() - Fl::box_dx( box() ), y(), w() + Fl::box_dw( box() ) + 1, h(), color() );

    const int bx = x();
    const int by = y() + Fl::box_dy( box() );
    const int bw = w();
    const int bh = h() - Fl::box_dh( box() );

    int X, Y, W, H;

    fl_clip_box( bx, by, bw, bh, X, Y, W, H );

    bool active = active_r();

    const Fl_Color color = active ? this->color() : fl_inactive( this->color() );
    const Fl_Color selection_color = active ? this->selection_color() : fl_inactive( this->selection_color() );

    if ( draw_with_gradient )
    {
/*         const Fl_Color c2 = fl_color_average( selection_color, FL_WHITE, 0.90f ); */
/*         const Fl_Color c1 = fl_color_average( color, c2, 0.60f ); */

        const Fl_Color c1 = fl_color_average( selection_color, FL_WHITE, 0.90f );
        const Fl_Color c2 = fl_color_average( color, c1, 0.60f );

        for ( int gy = 0; gy < bh; gy++ )
        {
            fl_color( fl_color_average( c1, c2, gy / (float)bh) );
            fl_line( X, by + gy, X + W, by + gy );
        }
    }

    if ( draw_with_grid )
    {
        fl_color( fl_darker( color ) );

        const int inc = bh / 10;
        if ( inc )
            for ( int gy = 0; gy < bh; gy += inc )
                fl_line( X, by + gy, X + W, by + gy );

    }


    if ( draw_with_polygon )
    {
        fl_color( draw_with_gradient ? color : fl_color_average( color, selection_color, 0.45f ) );

        fl_begin_complex_polygon();
        draw_curve( draw_with_gradient, true );
        fl_end_complex_polygon();

        fl_color( selection_color );
        fl_line_style( FL_SOLID, 2 );

        fl_begin_line();
        draw_curve( draw_with_gradient, false );
        fl_end_line();
    }
    else
    {
//        fl_color( fl_color_average( selection_color, color, 0.70f ) );
        fl_color( selection_color );
        fl_line_style( FL_SOLID, 2 );

        fl_begin_line();
        draw_curve( draw_with_gradient, false );
        fl_end_line();
    }

    fl_line_style( FL_SOLID, 0 );

    timeline->draw_measure_lines( x(), y(), w(), h(), color );

    if ( _highlighted )
        for ( list <Sequence_Widget *>::const_iterator r = _widgets.begin();  r != _widgets.end(); r++ )
            (*r)->draw_box();
    else
        for ( list <Sequence_Widget *>::const_iterator r = _widgets.begin();  r != _widgets.end(); r++ )
            if ( (*r)->selected() )
                (*r)->draw_box();

    fl_pop_clip();
}

int
Control_Sequence::handle ( int m )
{
    switch ( m )
    {
        case FL_ENTER:
            _highlighted = true;
            fl_cursor( cursor() );
            redraw();
            return 1;
        case FL_LEAVE:
            _highlighted = false;
            redraw();
            return 1;
        default:
            break;
    }

    int r = Sequence::handle( m );

    if ( r )
        return r;

    switch ( m )
    {
        case FL_PUSH:
        {
            Logger log( this );

            if ( Fl::event_button1() )
            {
                Control_Point *r = new Control_Point( this, timeline->xoffset + timeline->x_to_ts( Fl::event_x() - x() ), (float)(Fl::event_y() - y()) / h() );

                add( r );
            }
            else if ( Fl::event_button3() && ! ( Fl::event_state() & ( FL_ALT | FL_SHIFT | FL_CTRL ) ) )
            {

                Fl_Menu_Item menu[] =
                    {
                        { "Rename" },
                        { "Remove" },
                        { 0 }
                    };

                const Fl_Menu_Item *r = menu->popup( Fl::event_x(), Fl::event_y(), "Control Sequence" );

                if ( r )
                {
                    if ( r == &menu[ 0 ] )
                    {
                        const char *s = fl_input( "Input new name for control sequence:", name() );

                        if ( s )
                            name( s );

                        redraw();
                    }
                    else if ( r == &menu[ 1 ] )
                    {
                        Fl::delete_widget( this );
                    }

                }

                return 1;
            }

            return 1;
        }
        default:
            return 0;
    }
}


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


static inline float
linear_interpolate ( float y1, float y2, float mu )
{
//    return y1 + mu * ( y2 - y1 );
    return y1 * ( 1.0f - mu ) + y2 * mu;
}

static inline float
sigmoid_interpolate ( float y1, float y2, float mu )
{
    return linear_interpolate( y1, y2, ( 1 - cos( mu * M_PI ) ) / 2 );
}

/* THREAD: ?? */
/** fill buf with /nframes/ of interpolated control curve values
 * starting at /frame/  */
nframes_t
Control_Sequence::play ( sample_t *buf, nframes_t frame, nframes_t nframes )
{
    Control_Point *p2, *p1 = (Control_Point*)&_widgets.front();

    nframes_t n = nframes;

    for ( list <Sequence_Widget *>::const_iterator i = _widgets.begin();
          i != _widgets.end(); ++i, p1 = p2 )
    {
        p2 = (Control_Point*)(*i);

        if ( p2->when() < frame )
            continue;

        /* do incremental linear interpolation */

        const nframes_t len = p2->when() - p1->when();

        /* scale to -1.0 to 1.0 */
        const float y1 = 1.0f - ( 2.0f * p1->control() );
        const float y2 = 1.0f - ( 2.0f * p2->control() );

        const nframes_t start = frame - p1->when();
        const float incr = ( y2 - y1 ) / (float)len;

        float v = y1 + start * incr;

        for ( nframes_t i = start; i < len && n--; ++i, v += incr )
            *(buf++) = v;

    }

    return nframes - n;
}


/* THREAD: RT */
nframes_t
Control_Sequence::process ( nframes_t nframes )
{
    if ( _output->connected() )                                 /* don't waste CPU on disconnected ports */
    {
        void *buf = _output->buffer( nframes );

        return play( (sample_t*)buf, transport->frame, nframes );
    }
    else
        return nframes;
}