/**
 * \file QLPainter.C
 * Copyright 1998-2002 the LyX Team
 * Read the file COPYING
 *
 * \author John Levon <moz@compsoc.man.ac.uk>
 */

#include <config.h>

#ifdef __GNUG__
#pragma implementation
#endif

#include <iostream>
#include <boost/scoped_array.hpp>
 
#include "font_metrics.h"
#include "support/lstrings.h" 
#include "lyxrc.h"
#include "debug.h"
#include "LyXView.h"
 
#include "QWorkArea.h"
#include "qfont_loader.h"
#include "QLPainter.h"
#include "QLImage.h"
 
#include <qpainter.h>
#include <qbrush.h> 
#include <qcolor.h>

using std::endl;

QLPainter::QLPainter(QWorkArea & qwa)
	: Painter(), owner_(qwa), paint_check_(0)
{
	qp_.reset(new QPainter());
}


void QLPainter::start()
{
	if (++paint_check_ == 1)
		qp_->begin(owner_.getPixmap());
}

 
void QLPainter::end()
{
	if (paint_check_ == 0) {
		lyxerr << "ended painting whilst not painting ??" << endl;
	} else if (--paint_check_ == 0) {
		qp_->end();
	}
}

 
int QLPainter::paperWidth() const
{
	return owner_.workWidth();
}


int QLPainter::paperHeight() const
{
	return owner_.workHeight();
}

 
QPainter & QLPainter::setPen(LColor::color c, 
	Painter::line_style ls, Painter::line_width lw)
{
	QPen pen = qp_->pen();
 
	pen.setColor(lcolor.getX11Name(c).c_str());
 
	switch (ls) {
		case line_solid: pen.setStyle(QPen::SolidLine); break;
		case line_onoffdash: pen.setStyle(QPen::DashLine); break;
	}
 
	switch (lw) {
		case line_thin: pen.setWidth(0); break;
		case line_thick: pen.setWidth(3); break;
	}
 
	qp_->setPen(pen);
	return *qp_;
}
 
 
Painter & QLPainter::point(int x, int y, LColor::color c)
{
	setPen(c).drawPoint(x, y);
	return *this;
}


Painter & QLPainter::line(int x1, int y1, 
	int x2, int y2,
	LColor::color col,
	line_style ls,
	line_width lw)
{
	setPen(col, ls, lw).drawLine(x1, y1, x2, y2);
	return *this;
}


Painter & QLPainter::lines(int const * xp, int const * yp, 
	int np,
	LColor::color col,
	line_style ls,
	line_width lw)
{
	// FIXME ?

	// Must use new as np is not known at compile time.
	boost::scoped_array<QCOORD> points(new QCOORD[np * 2]);

	int j = 0;
 
	for (int i = 0; i < np; ++i) {
		points[j++] = xp[i];
		points[j++] = yp[i];
	}

	setPen(col, ls, lw).drawPolyline(QPointArray(np, points.get()));

	return *this;
}


Painter & QLPainter::rectangle(int x, int y, 
	int w, int h,
	LColor::color col,
	line_style ls,
	line_width lw)
{
	setPen(col, ls, lw).drawRect(x, y, w, h);
	return *this;
}


Painter & QLPainter::fillRectangle(int x, int y, 
	int w, int h,
	LColor::color col)
{
	qp_->fillRect(x, y, w, h, QColor(lcolor.getX11Name(col).c_str()));
	return *this;
}


Painter & QLPainter::fillPolygon(int const * xp, int const * yp, 
	int np, LColor::color col)
{
	// FIXME ?
 
	// Must use new as np is not known at compile time.
	boost::scoped_array<QCOORD> points(new QCOORD[np * 2]);

	int j = 0;
 
	for (int i = 0; i < np; ++i) {
		points[j++] = xp[i];
		points[j++] = yp[i];
	}

	setPen(col).drawPolygon(QPointArray(np, points.get()));

	return *this;
}

 
Painter & QLPainter::arc(int x, int y,
	unsigned int w, unsigned int h,
	int a1, int a2, LColor::color col)
{
	// FIXME
	setPen(col).drawArc(x, y, w, h, a1, a2);
        return *this;
}

 
Painter & QLPainter::image(int x, int y, 
	int w, int h,
	grfx::Image const & i)
{
	qp_->drawPixmap(x, y, static_cast<grfx::QLImage const &>(i).qpixmap(), 0, 0, w, h);
	return *this;
}


Painter & QLPainter::text(int x, int y, 
	string const & s, LyXFont const & f)
{
	return text(x, y, s.data(), s.length(), f);
}


Painter & QLPainter::text(int x, int y, 
	char c, LyXFont const & f)
{
	char s[2] = { c, '\0' };
	return text(x, y, s, 1, f);
}


void QLPainter::smallCapsText(int x, int y,
	char const * s, size_t ls,
	LyXFont const & f)
{
	LyXFont smallfont(f);
	smallfont.decSize().decSize().setShape(LyXFont::UP_SHAPE);

	QFont const & qfont = fontloader.get(f);
	QFont const & qsmallfont = fontloader.get(smallfont);
	QFontMetrics const & qfontm = QFontMetrics(qfont);
	QFontMetrics const & qsmallfontm = QFontMetrics(qsmallfont);
 
	int tmpx = x;
	for (size_t i = 0; i < ls; ++i) {
		char const c = uppercase(s[i]);
		if (c != s[i]) {
			qp_->setFont(qsmallfont);
			qp_->drawText(tmpx, y, &c, 1);
			tmpx += qsmallfontm.width(&c, 1);
		} else {
			qp_->setFont(qfont);
			qp_->drawText(tmpx, y, &c, 1);
			tmpx += qfontm.width(&c, 1);
		}
	}
}

 
Painter & QLPainter::text(int x, int y, 
	char const * s, size_t ls,
	LyXFont const & f)
{
	setPen(f.color());

	if (f.realShape() != LyXFont::SMALLCAPS_SHAPE) {
		qp_->setFont(fontloader.get(f));
		qp_->drawText(x, y, s, ls);
	} else {
		smallCapsText(x, y, s, ls, f);
	}

	if (f.underbar() == LyXFont::ON) {
		underline(f, x, y, font_metrics::width(s, ls, f));
	}
	
	return *this;
}