/*
    Copyright (C) 2002-2009 Paul Davis 

    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.

*/

#include <iostream>
#include "ardour/bundle.h"
#include "ardour/types.h"
#include "port_matrix_column_labels.h"
#include "port_matrix.h"
#include "port_matrix_body.h"

PortMatrixColumnLabels::PortMatrixColumnLabels (PortMatrix* m, PortMatrixBody* b)
	: PortMatrixLabels (m, b)
{

}

void
PortMatrixColumnLabels::compute_dimensions ()
{
	GdkPixmap* pm = gdk_pixmap_new (NULL, 1, 1, 24);
	gdk_drawable_set_colormap (pm, gdk_colormap_get_system());
	cairo_t* cr = gdk_cairo_create (pm);

	/* width of the longest bundle name */
	_longest_bundle_name = 0;
	/* width of the longest channel name */
	_longest_channel_name = 0;
	/* height of highest bit of text (apart from group names) */
	_highest_text = 0;
	/* width of the whole thing */
	_width = 0;

	ARDOUR::BundleList const c = _matrix->columns()->bundles();
	for (ARDOUR::BundleList::const_iterator i = c.begin (); i != c.end(); ++i) {

		cairo_text_extents_t ext;
		cairo_text_extents (cr, (*i)->name().c_str(), &ext);
		if (ext.width > _longest_bundle_name) {
			_longest_bundle_name = ext.width;
		}
		if (ext.height > _highest_text) {
			_highest_text = ext.height;
		}

		for (uint32_t j = 0; j < (*i)->nchannels (); ++j) {
			
			cairo_text_extents (
				cr,
				(*i)->channel_name (j).c_str(),
				&ext
				);
			
			if (ext.width > _longest_channel_name) {
				_longest_channel_name = ext.width;
			}
			if (ext.height > _highest_text) {
				_highest_text = ext.height;
			}
		}

		_width += (*i)->nchannels() * column_width();
	}

	_highest_group_name = 0;
	for (PortGroupList::List::const_iterator i = _matrix->columns()->begin(); i != _matrix->columns()->end(); ++i) {
		if ((*i)->visible()) {
			cairo_text_extents_t ext;
			cairo_text_extents (cr, (*i)->name.c_str(), &ext);
			if (ext.height > _highest_group_name) {
				_highest_group_name = ext.height;
			}
		}
	}

	cairo_destroy (cr);
	gdk_pixmap_unref (pm);

	/* height of the whole thing */

	double const parallelogram_height = 
		(_longest_bundle_name + _longest_channel_name + 4 * name_pad()) * sin (angle())
		+ _highest_text * cos (angle());

	_height = parallelogram_height + _highest_group_name + 2 * name_pad();

	_width += parallelogram_height / tan (angle ());
}

double
PortMatrixColumnLabels::basic_text_x_pos (int c) const
{
	return column_width() / 2 +
		_highest_text / (2 * sin (angle ()));
}

void
PortMatrixColumnLabels::render (cairo_t* cr)
{
	/* BACKGROUND */

	set_source_rgb (cr, background_colour());
	cairo_rectangle (cr, 0, 0, _width, _height);
	cairo_fill (cr);

	/* PORT GROUP NAME */
	
	double x = 0;
	double y = 0;
	
	if (_matrix->arrangement() == PortMatrix::TOP_TO_RIGHT) {
		x = slanted_height() / tan (angle());
		y = _highest_group_name + name_pad();
	} else {
		x = 0;
		y = _height - name_pad();
	}

	int g = 0;
	for (PortGroupList::List::const_iterator i = _matrix->columns()->begin(); i != _matrix->columns()->end(); ++i) {

		if (!(*i)->visible() || ((*i)->bundles().empty() && (*i)->ports.empty()) ) {
			continue;
		}

		/* compute width of this group */
		uint32_t w = 0;
		for (ARDOUR::BundleList::const_iterator j = (*i)->bundles().begin(); j != (*i)->bundles().end(); ++j) {
			w += (*j)->nchannels() * column_width();
		}
		w += (*i)->ports.size() * column_width();

		/* rectangle */
		set_source_rgb (cr, get_a_group_colour (g));
		double const rh = _highest_group_name + 2 * name_pad();
		if (_matrix->arrangement() == PortMatrix::TOP_TO_RIGHT) {
			cairo_rectangle (cr, x, 0, w, rh);
		} else {
			cairo_rectangle (cr, x, _height - rh, w, rh);
		}
		cairo_fill (cr);
		
		std::pair<std::string, double> const display = display_port_name (cr, (*i)->name, w);

		/* plot it */
		set_source_rgb (cr, text_colour());
		cairo_move_to (cr, x + (w - display.second) / 2, y);
		cairo_show_text (cr, display.first.c_str());

		x += w;
		++g;
	}

        /* BUNDLE PARALLELOGRAM-TYPE-THING AND NAME */

	x = 0;
	ARDOUR::BundleList const c = _matrix->columns()->bundles();
	for (ARDOUR::BundleList::const_iterator i = c.begin (); i != c.end(); ++i) {

		Gdk::Color colour = get_a_bundle_colour (i - c.begin ());
		set_source_rgb (cr, colour);

		double const w = (*i)->nchannels() * column_width();

		double x_ = x;
		
		if (_matrix->arrangement() == PortMatrix::TOP_TO_RIGHT) {
			y = _height;
		} else {
			y = slanted_height();
		}

		double y_ = y;
 		cairo_move_to (cr, x_, y_);
 		x_ += w;
 		cairo_line_to (cr, x_, y_);
 		x_ += slanted_height() / tan (angle ());
 		y_ -= slanted_height();
 		cairo_line_to (cr, x_, y_);
 		x_ -= w;
 		cairo_line_to (cr, x_, y_);
 		cairo_line_to (cr, x, y);
		cairo_fill_preserve (cr);
		set_source_rgb (cr, background_colour());
		cairo_set_line_width (cr, label_border_width());
		cairo_stroke (cr);

		set_source_rgb (cr, text_colour());

		if (_matrix->arrangement() == PortMatrix::TOP_TO_RIGHT) {
			
			double const rl = 3 * name_pad() + _longest_channel_name;
			cairo_move_to (
				cr,
				x + basic_text_x_pos (0) + rl * cos (angle()),
				_height - rl * sin (angle())
				);
			
		} else {

			cairo_move_to (
				cr,
				x + basic_text_x_pos (0),
				slanted_height() - name_pad() * sin (angle())
				);
		}
			
		cairo_save (cr);
		cairo_rotate (cr, -angle());
		cairo_show_text (cr, (*i)->name().c_str());
		cairo_restore (cr);
		
		x += (*i)->nchannels () * column_width();
	}
	

	/* PORT NAMES */

	x = 0;
	for (ARDOUR::BundleList::const_iterator i = c.begin (); i != c.end(); ++i) {
		
		for (uint32_t j = 0; j < (*i)->nchannels(); ++j) {

			render_channel_name (cr, get_a_bundle_colour (i - c.begin()), x, 0, ARDOUR::BundleChannel (*i, j));
			x += column_width();
		}
	}
}

double
PortMatrixColumnLabels::component_to_parent_x (double x) const
{
	return x - _body->xoffset() + _parent_rectangle.get_x();
}

double
PortMatrixColumnLabels::parent_to_component_x (double x) const
{
	return x + _body->xoffset() - _parent_rectangle.get_x();
}

double
PortMatrixColumnLabels::component_to_parent_y (double y) const
{
	return y + _parent_rectangle.get_y();
}

double
PortMatrixColumnLabels::parent_to_component_y (double y) const
{
	return y - _parent_rectangle.get_y();
}

void
PortMatrixColumnLabels::mouseover_changed (PortMatrixNode const &)
{
	clear_channel_highlights ();
	if (_body->mouseover().column.bundle) {
		add_channel_highlight (_body->mouseover().column);
	}
}

std::vector<std::pair<double, double> >
PortMatrixColumnLabels::port_name_shape (double xoff, double yoff) const
{
	std::vector<std::pair<double, double> > shape;
	
	double const lc = _longest_channel_name + name_pad();
	double const w = column_width();
	
	if (_matrix->arrangement() == PortMatrix::LEFT_TO_BOTTOM) {

		double x_ = xoff + slanted_height() / tan (angle()) + w;
		double y_ = yoff;
		shape.push_back (std::make_pair (x_, y_));
		x_ -= w;
		shape.push_back (std::make_pair (x_, y_));
		x_ -= lc * cos (angle());
		y_ += lc * sin (angle());
		shape.push_back (std::make_pair (x_, y_));
		x_ += w * pow (sin (angle()), 2);
		y_ += w * sin (angle()) * cos (angle());
		shape.push_back (std::make_pair (x_, y_));
		
	} else {
		
		double x_ = xoff;
		double y_ = yoff + _height;
		shape.push_back (std::make_pair (x_, y_));
		x_ += w;
		shape.push_back (std::make_pair (x_, y_));
		x_ += lc * cos (angle());
		y_ -= lc * sin (angle());
		shape.push_back (std::make_pair (x_, y_));
		x_ -= column_width() * pow (sin (angle()), 2);
		y_ -= column_width() * sin (angle()) * cos (angle());
		shape.push_back (std::make_pair (x_, y_));
	}

	return shape;
}

void
PortMatrixColumnLabels::render_channel_name (cairo_t* cr, Gdk::Color colour, double xoff, double yoff, ARDOUR::BundleChannel const &bc)
{
	std::vector<std::pair<double, double> > const shape = port_name_shape (xoff, yoff);

	cairo_move_to (cr, shape[0].first, shape[0].second);
	for (uint32_t i = 1; i < 4; ++i) {
		cairo_line_to (cr, shape[i].first, shape[i].second);
	}
	cairo_line_to (cr, shape[0].first, shape[0].second);
	
	set_source_rgb (cr, colour);
	cairo_fill_preserve (cr);
	set_source_rgb (cr, background_colour());
	cairo_set_line_width (cr, label_border_width());
	cairo_stroke (cr);
	
	set_source_rgb (cr, text_colour());
	
	if (_matrix->arrangement() == PortMatrix::TOP_TO_RIGHT) {

		cairo_move_to (
			cr,
			xoff + basic_text_x_pos(bc.channel),
			yoff + _height - name_pad() * sin (angle())
			);
		
	} else { 

		double const rl = 3 * name_pad() + _longest_bundle_name;
		cairo_move_to (
			cr,
			xoff + basic_text_x_pos(bc.channel) + rl * cos (angle ()),
			yoff + slanted_height() - rl * sin (angle())
			);
	}
	
	cairo_save (cr);
	cairo_rotate (cr, -angle());
	
	cairo_show_text (
		cr,
		bc.bundle->channel_name(bc.channel).c_str()
		);
	
	cairo_restore (cr);
}

double
PortMatrixColumnLabels::channel_x (ARDOUR::BundleChannel const &bc) const
{
	uint32_t n = 0;

	ARDOUR::BundleList::const_iterator i = _matrix->columns()->bundles().begin();
	while (i != _matrix->columns()->bundles().end() && *i != bc.bundle) {
		n += (*i)->nchannels ();
		++i;
	}

	n += bc.channel;
	return n * column_width();
}

double
PortMatrixColumnLabels::channel_y (ARDOUR::BundleChannel const &bc) const
{
	return 0;
}

void
PortMatrixColumnLabels::queue_draw_for (ARDOUR::BundleChannel const & bc)
{
	if (bc.bundle) {
		
		double const x = channel_x (bc);
		double const lc = _longest_channel_name + name_pad();
		double const h = lc * sin (angle ()) + column_width() * sin (angle()) * cos (angle());
		if (_matrix->arrangement() == PortMatrix::TOP_TO_RIGHT) {

			_body->queue_draw_area (
				component_to_parent_x (x),
				component_to_parent_y (_height - h),
				column_width() + lc * cos (angle()),
				h
				);
			
		} else if (_matrix->arrangement() == PortMatrix::LEFT_TO_BOTTOM) {
			
			double const x_ = x + slanted_height() / tan (angle()) - lc * cos (angle());
			
			_body->queue_draw_area (
				component_to_parent_x (x_),
				component_to_parent_y (0),
				column_width() + lc * cos (angle()),
				h
				);
			
		}
			
				
	}
}

void
PortMatrixColumnLabels::button_press (double x, double y, int b, uint32_t t)
{
	uint32_t N = _matrix->columns()->total_visible_ports ();
	uint32_t i = 0;
	for (; i < N; ++i) {
		
		std::vector<std::pair<double, double> > const shape = port_name_shape (i * column_width(), 0);

		uint32_t j = 0;
		for (; j < 4; ++j) {
			uint32_t k = (j + 1) % 4;

			double const P = (y - shape[j].second) * (shape[k].first - shape[j].first) -
				(x - shape[j].first) * (shape[k].second - shape[j].second);

			if (P > 0) {
				break;
			}
		}

		if (j == 4) {
			break;
		}
	}

	if (i == N) {
		return;
	}
	
	switch (b) {
	case 1:
		_body->highlight_associated_channels (_matrix->column_index(), i);
		break;
	case 3:
		maybe_popup_context_menu (i, t);
		break;
	}
}


void
PortMatrixColumnLabels::maybe_popup_context_menu (int i, uint32_t t)
{
	if (!_matrix->can_rename_channels (_matrix->column_index()) &&
	    !_matrix->can_remove_channels (_matrix->column_index())) {
		return;
	}

	_matrix->popup_channel_context_menu (_matrix->column_index(), i, t);
}