/*
 *   HDSPMixer
 *    
 *   Copyright (C) 2003 Thomas Charbonnel (thomas@undata.org)
 *    
 *   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; if not, write to the Free Software
 *   Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 */

#pragma implementation
#include "HDSPMixerMeter.h"

HDSPMixerMeter::HDSPMixerMeter(int x, int y, bool not_output, HDSPMixerPeak *p):Fl_Widget(x, y, 8, METER_HEIGHT)
{
    basew = (HDSPMixerWindow *)window();
    count = 0;
    fine_draw = 0;
    peaktext = p;
    new_peak_height = peak_height = 0;
    new_rms_height = rms_height = 0;
    fast_peak_level = 1000.0;
    slow_peak_level = 1000.0;
    max_level = 1000.0;
    /* this is no more as simple :
       H9652 cards do have both peak and rms data for outputs
    */
    peak_rms = not_output;
}

void HDSPMixerMeter::draw()
{
    if (!fine_draw) {
	fl_push_clip(x(), y()+(METER_HEIGHT-new_rms_height), w(), new_rms_height);
	fl_draw_pixmap(level_xpm, x(), y());
	fl_pop_clip();
    } else {
	if (new_rms_height > rms_height) {
	    fl_push_clip(x(), y()+(METER_HEIGHT-new_rms_height), w(), new_rms_height-rms_height);
	    fl_draw_pixmap(level_xpm, x(), y());
	    fl_pop_clip();
	} else if (new_rms_height < rms_height) {
	    fl_push_clip(x(), y()+(METER_HEIGHT-rms_height), w(), rms_height-new_rms_height);
	    if (peak_rms) {
		fl_draw_pixmap(iomixer_xpm, x()-20, y()-59);
	    } else {
		fl_draw_pixmap(output_xpm, x()-20, y()-27);
	    }
	    fl_pop_clip();    
	}
    }
    rms_height = new_rms_height;
    
    if ((new_peak_height != peak_height || !fine_draw) && (peak_rms || basew->cards[basew->current_card]->type == H9652)) {
	if ((rms_height <= (peak_height - PEAK_HEIGHT)) || rms_height == 0) { 
	    fl_push_clip(x(), y()+(METER_HEIGHT - peak_height), w(), PEAK_HEIGHT+1);
	    if (peak_rms) {
		fl_draw_pixmap(iomixer_xpm, x()-20, y()-59);
	    } else {
		fl_draw_pixmap(output_xpm, x()-20, y()-27);
	    }
	    fl_pop_clip();
	} else if (rms_height >= peak_height) {
	    fl_push_clip(x(), y()+(METER_HEIGHT - peak_height), w(), PEAK_HEIGHT+1);
	    fl_draw_pixmap(level_xpm, x(), y());
	    fl_pop_clip();
	} else {
	    fl_push_clip(x(), y()+(METER_HEIGHT - peak_height), w(), peak_height - rms_height);
	    if (peak_rms) {
		fl_draw_pixmap(iomixer_xpm, x()-20, y()-59);
	    } else {
		fl_draw_pixmap(output_xpm, x()-20, y()-27);
	    }
	    fl_pop_clip();
	    fl_push_clip(x(), y()+(METER_HEIGHT - peak_height)+(peak_height - rms_height), w(), PEAK_HEIGHT - (peak_height - rms_height));
	    fl_draw_pixmap(level_xpm, x(), y());
	    fl_pop_clip();	    
	}
	
	if (new_peak_height > 0) {
	    fl_push_clip(x(), y()+(METER_HEIGHT-new_peak_height), w(), ((new_peak_height > METER_HEIGHT) ? METER_HEIGHT : new_peak_height));
	    fl_draw_pixmap(peak_xpm, x(), y()+(METER_HEIGHT-new_peak_height));
	    fl_pop_clip();	    
	}	
	peak_height = new_peak_height;
    }
    fine_draw = 0;
}

int HDSPMixerMeter::logToHeight(double db)
{
    double x;
    int h;
    double max_db;
    
    max_db = basew->setup->level_val ? 60.0 : 40.0;
    
    if (db < max_db) {
	x = (db /max_db) * double(METER_HEIGHT);
	h = METER_HEIGHT - (int)x;
    } else {
	h = 0;
    }
    if (h < 0) h = 0;
    return h;
}

void HDSPMixerMeter::update(int peak, int overs, int64 rms)
{
    double fp, fr, db;
    int over = 0;
    
    if (!visible()) return;
    

    count++;
    
    if (overs >= basew->setup->over_val) {
	over = 1;
    }
    
    peak >>= 8;
    peak &= 0x7FFFFF;

    if (peak != 0) {
	fp = (double)peak / (double)(0x7FFFFF);
	db = -20 * log10(fp);
    } else {
	db = 1000.0;
    }

    switch (basew->setup->rate_val) {
	case 0:
	    fast_peak_level += 0.030 * 8.3;
	    break;
	case 1:
	    fast_peak_level += 0.030 * 15;
	    break;
	case 2:
	    fast_peak_level += 0.030 * 23.7;
	    break;
    }
	
    if (fast_peak_level > 138.47) fast_peak_level = 1000.0;
    
    if (db > fast_peak_level)
	db = fast_peak_level;
    else 
	fast_peak_level = db;

    new_peak_height = logToHeight(db);
    
    fr = (double)rms;
    fr /= ((double)(1125899638407184.0)*(double)(8191.0));
    fr = sqrt(fr);
    
    if (!peak_rms && (basew->cards[basew->current_card]->type != H9652)) {
	new_rms_height = new_peak_height;
    } else {
	fr = -20 * log10(fr);
	if (basew->setup->rmsplus3_val) {
	    fr -= 3.010299957;
	    if (fr < 0.0) fr = 0.0;
	}
	if (basew->setup->numbers_val == 0) db = fr;
	new_rms_height = logToHeight(fr);
    }


    if (new_rms_height != rms_height || (new_peak_height != peak_height && (peak_rms || basew->cards[basew->current_card]->type == H9652))) {
	/* FIXME: may not be SMP safe */
	redraw();
    }    
    
    if (db < max_level) max_level = db;

    if (count > 15 || over) {
	count = 0;
	if (max_level != slow_peak_level) {
	    peaktext->update(max_level, over);
	    slow_peak_level = max_level;
	}
	max_level = 1000.0;
    }
}