/*******************************************************************************/
/* 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 "Track.H"
#include "Timeline.H"

#include "Region.H"

#include <FL/fl_draw.H>


static bool
sort_func ( Track_Widget *lhs, Track_Widget *rhs )
{
    return *lhs < *rhs;
}


void
Track::sort ( void )
{
    _regions.sort( sort_func );
}

void
Track::draw ( void )
{
    Fl_Group::draw();

    timeline.draw_measure_lines( x(), y(), w(), h(), color() );

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

    for ( list <Track_Widget *>::iterator r = _regions.begin();  r != _regions.end(); r++ )
        (*r)->draw_box( x(), y(), w(), h() );

    /* TODO: detect overlap and draw with transparency/crossfade */
    for ( list <Track_Widget *>::iterator r = _regions.begin();  r != _regions.end(); r++ )
        (*r)->draw( x(), y(), w(), h() );

    fl_pop_clip();
}

void
Track::remove_region ( Track_Widget *r )
{
    _regions.remove( r );
}


Track_Widget *
Track::event_region ( void )
{
// FIXME: doesn't handle overlap!
    int ets = timeline.xoffset + timeline.x_to_ts( Fl::event_x() );
    for ( list <Track_Widget *>::iterator r = _regions.begin();  r != _regions.end(); r++ )
        if ( ets > (*r)->offset() && ets < (*r)->offset() + (*r)->length() )
            return (*r);

    return NULL;
}

void
Track::add ( Track_Widget *r )
{
    if ( r->track() )
    {
        r->track()->remove_region( r );
        r->track()->redraw();
    }

    _regions.push_back( r );

    r->track( this );

    // Fl_Group::add( r );
//            add( r );

//    r->position( r->x(), y() );
//    r->redraw();
}

/* snap /r/ to nearest edge */
void
Track::snap ( Track_Widget *r )
{
    const int snap_pixels = 10;

    int rx1 = r->x();
    int rx2 = r->x() + r->w();

    for ( list <Track_Widget*>::iterator i = _regions.begin(); i != _regions.end(); i++ )
    {
        const Track_Widget *w = (*i);

        if ( w == r )
            continue;

        int wx1 = w->x();
        int wx2 = w->x() + w->w();

        if ( abs( rx1 - wx2 ) < snap_pixels )
        {
            r->offset( w->offset() + w->length() + 1 );

            printf( "snap: %lu | %lu\n", w->offset() + w->length(), r->offset() );

            goto done;
        }

        if ( abs( rx2 - wx1 ) < snap_pixels )
        {
            r->offset( ( w->offset() - r->length() ) - 1 );

            printf( "snap: %lu | %lu\n", r->offset() + r->length(), w->offset() );

            goto done;
        }
    }

//    r->offset( timeline.x_to_ts( r->x() ) );

done:

    return;
//    r->resize();
//            r->position( rx1, y() );
}

int
Track::handle ( int m )
{
    static Track_Widget *current_region;

    switch ( m )
    {
        case FL_DND_DRAG:
        case FL_DND_ENTER:
        case FL_ENTER:
            return 1;
        case FL_DND_LEAVE:
        case FL_DND_RELEASE:
            return 1;
        case FL_PASTE:
        {
            const char *text = Fl::event_text();

            char *file;

            if ( ! sscanf( text, "file://%a[^\r\n]\n", &file ) )
            {
                printf( "invalid drop \"%s\"\n", text );
                return 0;
            }

            printf( "pasted file \"%s\"\n", file );

            Clip *c = Clip::from_file( file );

            if ( ! c )
            {
                free( file );
                return 0;
            }


            Region *r = new Region( c );

            r->offset( timeline.x_to_ts( Fl::event_x() ) );
//            r->position( Fl::event_x(), r->y() );

            this->add( r );

            redraw();
            return 1;
        }
        case FL_MOVE:
            /* these aren't used, so don't bother doing lookups for them */
            return 1;
        default:
        {
            Track_Widget *r = event_region();
            if ( current_region )
                r = current_region;

            if ( r )
            {
                int retval = r->handle( m );

                if ( retval && m == FL_PUSH )
                    current_region = r;

                if ( retval && m == FL_RELEASE )
                    current_region = NULL;

                return retval;
            }
            else
                return Fl_Group::handle( m );
        }
    }
}