/*******************************************************************************/
/* 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.  */
/*******************************************************************************/

/* a Digital Peak Meter, either horizontal or vertical.  Color is a
   gradient from min_color() to max_color(). box() is used to draw the
   individual 'lights'. division() controls how many 'lights' there
   are. value() is volume in dBFS */

#include "DPM.H"

/* we cache the gradient for (probably excessive) speed */
float DPM::_dim;
Fl_Color DPM::_gradient[128] = { (Fl_Color)0 };
Fl_Color DPM::_dim_gradient[128];

#include <FL/Fl.H>
#include <FL/fl_draw.H>
#include <FL/Fl_Group.H>

#include <math.h>
#include <stdio.h>

DPM::DPM ( int X, int Y, int W, int H, const char *L ) :
    Meter( X, Y, W, H, L )
{
    tooltip( peak_string );

    _last_drawn_hi_segment = 0;

    pixels_per_segment( 5 );

    type( FL_VERTICAL );

//    resize( X, Y, W, H );

    dim( 0.95f );

    box( FL_FLAT_BOX );

    color(FL_BLACK);
    
    /* color( fl_color_average( FL_BLACK,  FL_BACKGROUND_COLOR, 0.25f ) ); */

    /* initialize gradients */
    if ( DPM::_gradient[ 0 ] == 0 )
    {
	int breaks[] = {0,80,90,110,127};

	Fl_Color cols[] = { 
            fl_darker( FL_CYAN ),
            FL_CYAN,
	    fl_lighter( FL_CYAN ),
            fl_color_average( FL_YELLOW, FL_RED, 0.50f ),
            FL_RED
        };

	for ( int i = 0; i < 4; ++i )
	{
	    cols[i] = fl_color_average( cols[i], FL_BACKGROUND_COLOR, 0.60f );
	}

        DPM::blend( 5,
		    breaks,
		    cols,
		    color() );

    }

    resize( X,Y,W,H);
}

/* which marks to draw beside meter */
const int marks [] = { -70, -50, -40, -30, -20, -10, -3, 0, 4 };

void
DPM::public_draw_label ( int X, int Y, int W, int H )
{
    fl_push_clip(X,Y,W,H);
    fl_rectf( X,Y,W,H, FL_BACKGROUND_COLOR);
	
    fl_font( FL_TIMES, 8 );
    fl_color( active_r() ? FL_FOREGROUND_COLOR : fl_inactive( FL_FOREGROUND_COLOR ) );
    /* draw marks */
    char pat[5];
    if ( type() == FL_HORIZONTAL )
    {
	for ( int i = sizeof( marks ) / sizeof( marks[0] ); i-- ; )
	{
	    sprintf( pat, "%d", marks[ i ] );

	    int v = w() *  deflection( (float)marks[ i ] );

	    fl_draw( pat, X + v, (Y + H + 8), W, 8, (Fl_Align) (FL_ALIGN_RIGHT | FL_ALIGN_TOP) );
	}

    }
    else
    {
	for ( int i = sizeof( marks ) / sizeof( marks[0] ); i-- ; )
	{
	    sprintf( pat, "%d", marks[ i ] );

	    int v = h() *  deflection( (float)marks[ i ] );

	    fl_draw( pat, X, (Y + H - 4) - v, W, 8, (Fl_Align) (FL_ALIGN_RIGHT | FL_ALIGN_TOP) );
	}
    }

    fl_pop_clip();
}

void
DPM::resize ( int X, int Y, int W, int H )
{
    int old_segments = _segments;
  
    Fl_Widget::resize( X, Y, W, H );
    
    int tx,ty,tw,th;
    bbox(tx,ty,tw,th);

    if ( type() == FL_HORIZONTAL )
        _segments = floor( tw / (double)_pixels_per_segment );
    else
        _segments = floor( th / (double)_pixels_per_segment );
    
    if ( old_segments != _segments )
        _last_drawn_hi_segment = 0;
}

void DPM::bbox ( int &X, int &Y, int &W, int &H )
{
    /* X = x() + 2; */
    /* Y = y() + 2; */
    /* W = w() - 4; */
    /* H = h() - 4; */
    X = x();
    Y = y();
    W = w();
    H = h();
}


void
DPM::draw ( void )
{
    snprintf( peak_string, sizeof( peak_string ), "%.1f", peak() );
    tooltip( peak_string );

    int X,Y,W,H;
    bbox(X,Y,W,H);
    
    int v = pos( value() );
    int pv = pos( peak() );
    
    int clipv = pos( 0 );

    int bh = H / _segments;
    /*  int bh = _pixels_per_segment; */
    /* int bw = _pixels_per_segment; */
    int bw = W / _segments;
    
    if ( 0 == fl_not_clipped(X,Y,W,H ) )
	return;

    if ( damage() & FL_DAMAGE_ALL )
    {
        /* draw_label(); */

        draw_box( box(), X, Y, W, H, color() );
    }
    

    const int active = active_r();

    int hi, lo;
 
    /* only draw as many segments as necessary */
    if ( damage() == FL_DAMAGE_USER1 )
    {
	if ( v == _last_drawn_hi_segment )
	{
	    return;
	}
	else if ( v > _last_drawn_hi_segment )
        {
            hi = v;
            lo = _last_drawn_hi_segment;
        }
        else if ( v < _last_drawn_hi_segment )
        {
            hi = _last_drawn_hi_segment;
            lo = v;
        }
    }
    else
    {
        lo = 0;
        hi = _segments;
    }

    _last_drawn_hi_segment = v;

    fl_push_clip( X, Y, W, H );

    for ( int p = lo; p <= hi + 1; ++p )
    {
	Fl_Color c;
	
	if ( p <= v || p == pv )
	{
	    if ( p == clipv )
		c = fl_color_average( FL_YELLOW, div_color( p ), 0.40 );
	    else
		c = div_color( p );
	}
	else
	    c = fl_darker( FL_BACKGROUND_COLOR );//FL_DARK1; // fl_color_average( FL_BACKGROUND_COLOR, FL_BLACK, 0.50f );// FL_BACKGROUND_COLOR; //dim_div_color( p );
	
	if ( ! active )
	    c = fl_inactive( c );
	
	int yy = 0;
	int xx = 0;
	
	if ( type() == FL_HORIZONTAL )
	{
	    xx = X + p * bw;
	    fl_rectf( xx + 1, Y, bw - 1, H, c );
	}
	else
	{
	    yy = Y + H - ((p+1) * bh);
	    fl_rectf( X, yy + 1, W, bh - 1, c );
	}
    }

    fl_pop_clip();
}

void
DPM::update ( void )
{
    /* do falloff */
    float f = value() - 0.33f;
    if ( f < -80.0f )
	f = -80.0f;
    
    value(f);
}