/*******************************************************************************/
/* 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 "Panner.H"

#include <math.h>

/* 2D Panner widget. Supports various multichannel configurations. */


/* multichannel layouts, in degrees */
int Panner::_configs[][12] =
{
    /* none, error condition? */
    { NONE },
    /* mono, panner disabled */
    { NONE },
    /* stereo */
    { L, R },
    /* stereo + mono */
    { L, R, C },
    /* quad */
    { FL, FR, RL, RR },
    /* 5.1 */
    { FL, FR, RL, RR, C },
    /* no such config */
    { NONE },
    /* 7.1 */
    { FL, FR, RL, RR, C, L, R },
};


/* speaker symbol */
#define BP fl_begin_polygon()
#define EP fl_end_polygon()
#define BCP fl_begin_complex_polygon()
#define ECP fl_end_complex_polygon()
#define BL fl_begin_line()
#define EL fl_end_line()
#define BC fl_begin_loop()
#define EC fl_end_loop()
#define vv(x,y) fl_vertex(x,y)

static void draw_speaker ( Fl_Color col )
{
    fl_color(col);

    BP; vv(0.2,0.4); vv(0.6,0.4); vv(0.6,-0.4); vv(0.2,-0.4); EP;
    BP; vv(-0.6,0.8); vv(0.2,0.0); vv(-0.6,-0.8); EP;

    fl_color( fl_darker( col ) );

    BC; vv(0.2,0.4); vv(0.6,0.4); vv(0.6,-0.4); vv(0.2,-0.4); EC;
    BC; vv(-0.6,0.8); vv(0.2,0.0); vv(-0.6,-0.8); EC;
}


Panner::Point *
Panner::event_point ( void )
{

    int X, Y, W, H;

    bbox( X, Y, W, H );

    W -= pw();
    H -= ph();

    for ( int i = _ins; i--; )
    {
        Point *p = &_points[ i ];

        float px, py;

        p->axes( &px, &py );

        if ( Fl::event_inside( X + ((px * (W / 2)) + (W / 2)),
                               Y + ((py * (H / 2)) + (H / 2)), pw(), ph() ) )
            return p;

    }

    return NULL;
}

/* translate angle /a/ into x/y coords and place the result in /X/ and /Y/ */
/* Panner::Point */
/* Panner::angle_to_axes ( float a ) */
/* { */
/*     Point p; */

/*     a -= 90; */
/*     a = 360 - a; */

/*     double A; */

/*     A = a * ( M_PI / 180 ); */

/*     // const float r = tw / 2; */

/*     const double  r = 1.0f; */

/*     p.x = r * cos( A ); */
/*     p.y = -r * sin( A ); */

/*     return p; */
/* } */

void
Panner::draw ( void )
{
//    draw_box();
            draw_box( FL_FLAT_BOX, x(), y(), w(), h(), FL_BLACK );
    draw_label();

    int tw, th, tx, ty;

    bbox( tx, ty, tw, th );

    fl_push_clip( tx, ty, tw, th );

    fl_color( FL_WHITE );

    const int b = 10;

    tx += b;
    ty += b;
    tw -= b * 2;
    th -= b * 2;

    fl_arc( tx, ty, tw, th, 0, 360 );


    if ( _configs[ _outs ][0] >= 0 )
    {
        for ( int i = _outs; i--; )
        {
            int a = _configs[ _outs ][ i ];

            // FIXME: this is a hack... Why does fl_arc seem to put 0 degrees at 3 o'clock and inverted?
            a -= 90;
            a = 360 - a;

/* /\*             fl_color( FL_WHITE  ); *\/ */
/*             fl_line_style( FL_SOLID, 10 ); */
/*             fl_arc( tx, ty, tw, th, a - 20, a + 20 ); */
/*             fl_line_style( FL_SOLID, 0 ); */

/*             Point p = angle_to_axes( a ); */
/* //            printf( "%d: %f, %f\n", i, p.x, p.y ); */

            {
                float A;
                int X, Y;

                A = a * ( M_PI / 180 );

                float r = tw / 2;

                X = r * cos( A );
                Y = -r * sin( A );

                fl_push_matrix();

                fl_translate( (tx + (tw / 2)) + X, (ty + (th / 2)) + Y );

                fl_scale( 5, 5 );

                fl_rotate( a );

                draw_speaker( FL_WHITE );

                fl_rotate( -a );

                fl_pop_matrix();

            }
        }
    }

    tw -= pw();
    th -= ph();

    for ( int i = _ins; i--; )
    {
        Point *p = &_points[ i ];

        Fl_Color c = (Fl_Color)(10 + i);

        float px, py;

        p->axes( &px, &py );

        const int bx = tx + ((tw / 2) * px + (tw / 2));
        const int by = ty + ((th / 2) * py + (th / 2));

        fl_color( c );
        fl_pie( bx, by, pw(), ph(), 0, 360 );

        fl_color( c = fl_darker( c ) );
        fl_arc( bx - 5, by - 5, pw() + 10, ph() + 10, 0, 360 );
        fl_color( c = fl_darker( c ) );
        fl_arc( bx - 10, by - 10, pw() + 20, ph() + 20, 0, 360 );
        fl_color( c = fl_darker( c ) );
        fl_arc( bx - 30, by - 30, pw() + 60, ph() + 60, 0, 360 );

        char pat[4];
        snprintf( pat, 4, "%d", i + 1 );

        fl_color( FL_BLACK );
        fl_font( FL_HELVETICA, ph() + 2 );
        fl_draw( pat, bx + 1, by + 1, pw() - 1, ph() - 1, FL_ALIGN_CENTER );
    }

    fl_pop_clip();
}


int
Panner::handle ( int m )
{
    static Point *drag;

    switch ( m )
    {

        case FL_PUSH:
            if ( ( drag = event_point() ) )
            {
                printf( "bing\n" );
                return 1;
            }
            else
                return 0;
        case FL_RELEASE:
            drag = NULL;
            return 1;
        case FL_DRAG:
        {
            float X = Fl::event_x() - x();
            float Y = Fl::event_y() - y();

            drag->angle( (float)(X / (w() / 2)) - 1.0f, (float)(Y / (h() / 2)) - 1.0f );

/*             drag->x = (float)(X / (w() / 2)) - 1.0f; */
/*             drag->y = (float)(Y / (h() / 2)) - 1.0f; */

/*             printf( "%f\n", drag->distance( angle_to_axes( _configs[ _outs ][ 0 ] ) ) ); */

            redraw();

            return 1;
        }

    }

    return 0;
}