/**
 * \file GPainter.C
 * This file is part of LyX, the document processor.
 * Licence details can be found in the file COPYING.
 *
 * \author Huang Ying
 * \author John Spray
 *
 * Full author contact details are available in file CREDITS.
 */

#include <config.h>

// Too hard to make concept checks work with this file
#ifdef _GLIBCXX_CONCEPT_CHECKS
#undef _GLIBCXX_CONCEPT_CHECKS
#endif
#ifdef _GLIBCPP_CONCEPT_CHECKS
#undef _GLIBCPP_CONCEPT_CHECKS
#endif

#include "GPainter.h"
#include "debug.h"
#include "GWorkArea.h"
#include "LyXGdkImage.h"
#include "lyxrc.h"
#include "encoding.h"
#include "language.h"
#include "LColor.h"
#include "xftFontLoader.h"
#include "frontends/font_metrics.h"

#include "support/lstrings.h"

#include <gtkmm.h>
#include <gdk/gdkx.h>

#include <X11/Xft/Xft.h>

#include <boost/scoped_array.hpp>

#include <cmath>

using std::string;

namespace lyx {
namespace frontend {

GPainter::GPainter(GWorkArea & xwa)
	: Painter(), owner_(xwa), currentcolor_(LColor::magenta)
{
}


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


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


inline void GPainter::setForeground(LColor_color clr)
{
	if (clr != currentcolor_) {
		gc_->set_foreground(*(colorhandler_->getGdkColor(clr)));
		currentcolor_ = clr;
	}
}


void GPainter::start()
{
	pixmap_ = owner_.getPixmap();
	colorhandler_ = &(owner_.getColorHandler());
	gc_ = owner_.getGC();
	gc_->set_foreground(*(colorhandler_->getGdkColor(currentcolor_)));
}


inline void GPainter::setLineParam(line_style ls, line_width lw)
{
	int width = 0;
	switch (lw) {
	case Painter::line_thin:
		width = 0;
		break;
	case Painter::line_thick:
		width = 2;
		break;
	}

	Gdk::LineStyle style = Gdk::LINE_SOLID;
	switch (ls) {
	case Painter::line_solid:
		style = Gdk::LINE_SOLID;
		break;
	case Painter::line_onoffdash:
		style = Gdk::LINE_ON_OFF_DASH;
		break;
	}
	gc_->set_line_attributes(width, style,
				Gdk::CAP_NOT_LAST, Gdk::JOIN_MITER);
}


void GPainter::point(int x, int y, LColor_color c)
{
	setForeground(c);
	pixmap_->draw_point(gc_, x, y);
}


void GPainter::line(int x1, int y1,
	int x2, int y2,
	LColor_color col,
	line_style ls,
	line_width lw)
{
	setForeground(col);
	setLineParam(ls, lw);
	pixmap_->draw_line(gc_, x1, y1, x2, y2);
}


void GPainter::lines(int const * xp, int const * yp, int np,
	LColor_color col,
	line_style ls,
	line_width lw)
{
	setForeground(col);
	setLineParam(ls, lw);
	std::vector<Gdk::Point> points(np);

	for (int i = 0; i < np; ++i) {
		points[i].set_x(xp[i]);
		points[i].set_y(yp[i]);
	}
	pixmap_->draw_lines(gc_, points);
}


void GPainter::rectangle(int x, int y, int w, int h,
	LColor_color col,
	line_style ls,
	line_width lw)
{
	setForeground(col);
	setLineParam(ls, lw);
	pixmap_->draw_rectangle(gc_, false, x, y, w, h);
}


void GPainter::fillRectangle(int x, int y, int w, int h,
	LColor_color col)
{
	setForeground(col);
	pixmap_->draw_rectangle(gc_, true, x, y, w, h);
}


void GPainter::arc(int x, int y, unsigned int w, unsigned int h,
	int a1, int a2, LColor_color col)
{
	setForeground(col);
	pixmap_->draw_arc(gc_,
				     false, x, y, w, h, a1, a2);
}


void GPainter::image(int x, int y, int w, int h,
	graphics::Image const & i)
{
	graphics::LyXGdkImage const & image =
		static_cast<graphics::LyXGdkImage const &>(i);
	Glib::RefPtr<Gdk::Pixbuf> const & pixbuf = image.pixbuf();
	Glib::RefPtr<Gdk::Pixmap> pixmap = pixmap_;

	Glib::RefPtr<Gdk::GC> gc = gc_;
	pixmap->draw_pixbuf (gc, pixbuf, 0, 0, x, y, w, h,
			     Gdk::RGB_DITHER_NONE, 0, 0);
}

namespace {

inline XftFont * getXftFont(LyXFont const & f)
{
	return fontLoader.load(f.family(), f.series(),
		f.realShape(), f.size());
}

} // anon namespace


void GPainter::text(int x, int y,
		    char_type const * s, size_t ls,
		    LyXFont const & f)
{
	XftFont * font = getXftFont(f);
	XftColor * xftClr = owner_.getColorHandler().
		getXftColor(f.realColor());
	XftDraw * draw = owner_.getXftDraw();
	if (f.realShape() != LyXFont::SMALLCAPS_SHAPE) {
		XftDrawString32(draw,
				xftClr,
				font,
				x, y,
				reinterpret_cast<FcChar32 const *>(s),
				ls);
	} else {
		LyXFont smallfont(f);
		smallfont.decSize().decSize().setShape(LyXFont::UP_SHAPE);
		XftFont * fontS = getXftFont(smallfont);
		int tmpx = x;
		for (unsigned int i = 0; i < ls; ++i) {
			// Ok, this looks quite ugly...
			char_type c = gdk_keyval_to_unicode(gdk_keyval_to_upper(gdk_unicode_to_keyval(s[i])));
			if (c != s[i]) {
				XftDrawString32(draw,
						xftClr,
						fontS,
						tmpx, y,
						reinterpret_cast<FcChar32 *>(&c),
						1);
				tmpx += font_metrics::width(c, smallfont);
			} else {
				XftDrawString32(draw,
						xftClr,
						font,
						tmpx, y,
						reinterpret_cast<FcChar32 *>(&c),
						1);
				tmpx += font_metrics::width(c, f);
			}
		}
	}
	if (f.underbar() == LyXFont::ON)
		underline(f, x, y, font_metrics::width(s, ls, f));
}


void GPainter::text(int x, int y, docstring const & s, LyXFont const & f)
{
	text (x, y, reinterpret_cast<char_type const *>(s.data()), s.size(), f);
}


void GPainter::text(int x, int y, char_type c, LyXFont const & f)
{
	text (x, y, &c, 1, f);
}


} // namespace frontend
} // namespace lyx