/*
 * \brief  Backdrop
 * \author Norman Feske
 * \date   2009-08-28
 */

/*
 * Copyright (C) 2009-2017 Genode Labs GmbH
 *
 * This file is part of the Genode OS framework, which is distributed
 * under the terms of the GNU Affero General Public License version 3.
 */

/* Genode includes */
#include <base/component.h>
#include <base/heap.h>
#include <base/attached_rom_dataspace.h>
#include <gui_session/connection.h>
#include <util/misc_math.h>
#include <nitpicker_gfx/box_painter.h>
#include <nitpicker_gfx/texture_painter.h>
#include <base/attached_dataspace.h>
#include <util/reconstructible.h>
#include <os/texture_rgb888.h>

/* gems includes */
#include <gems/png_image.h>
#include <gems/file.h>
#include <gems/xml_anchor.h>
#include <gems/texture_utils.h>

/* libc includes */
#include <libc/component.h>

using namespace Genode;

namespace Backdrop { struct Main; }


struct Backdrop::Main
{
	Genode::Env &_env;

	Genode::Heap _heap { _env.ram(), _env.rm() };

	Genode::Attached_rom_dataspace _config { _env, "config" };

	Gui::Connection _gui { _env, "backdrop" };

	Gui::Rect _gui_win { };

	struct Buffer
	{
		Gui::Connection &gui;

		Framebuffer::Mode const mode;

		/**
		 * Return dataspace capability for virtual framebuffer
		 */
		Dataspace_capability _ds_cap(Gui::Connection &gui)
		{
			/* setup virtual framebuffer mode */
			gui.buffer(mode);

			return gui.framebuffer.dataspace();
		}

		Attached_dataspace fb_ds;

		Attached_ram_dataspace surface_ds;

		/**
		 * Constructor
		 */
		Buffer(Genode::Env &env, Gui::Connection &gui, Framebuffer::Mode mode)
		:	gui(gui), mode(mode),
			fb_ds(env.rm(), _ds_cap(gui)),
			surface_ds(env.ram(), env.rm(), mode.num_bytes())
		{ }

		/**
		 * Return size of virtual framebuffer
		 */
		Surface_base::Area size() const { return mode.area; }

		/**
		 * Return back buffer as painting surface
		 */
		template <typename PT, typename FN>
		void apply_to_surface(FN const &fn)
		{
			Surface<PT> surface(surface_ds.local_addr<PT>(), size());
			fn(surface);
		}

		void flush_surface()
		{
			/* blit back to front buffer */
			unsigned const num_bytes = unsigned(mode.num_bytes());
			blit(surface_ds.local_addr<void>(), num_bytes,
			     fb_ds.local_addr<void>(), num_bytes,
			     num_bytes, 1);
		}
	};

	Constructible<Buffer> _buffer { };

	Gui::View_id const _view_id { 1 };

	void _update_view()
	{
		/* display view behind all others */
		using Command = Gui::Session::Command;

		_gui.enqueue<Command::Background>(_view_id);
		Gui::Rect rect(_gui_win.at, _buffer->size());
		_gui.enqueue<Command::Geometry>(_view_id, rect);
		_gui.enqueue<Command::Back>(_view_id);
		_gui.execute();
	}

	/**
	 * Function called on config change or mode change
	 */
	void _handle_config();

	void _handle_config_signal() {
		Libc::with_libc([&] () { _handle_config(); }); }

	Signal_handler<Main> _config_handler = {
		_env.ep(), *this, &Main::_handle_config_signal };

	template <typename PT>
	void _paint_texture(Surface<PT> &, Texture<PT> const &, Surface_base::Point, bool);

	void _apply_image(Xml_node);
	void _apply_fill(Xml_node);

	Main(Genode::Env &env) : _env(env)
	{
		_gui.view(_view_id, { });

		_gui.info_sigh(_config_handler);
		_config.sigh(_config_handler);

		_handle_config();
	}
};


/**
 * Calculate designated image size with proportional scaling applied
 */
static Surface_base::Area calc_scaled_size(Xml_node operation,
                                           Surface_base::Area image_size,
                                           Surface_base::Area mode_size)
{
	char const *attr = "scale";
	if (!operation.has_attribute(attr))
		return image_size;

	auto const value = operation.attribute_value("scale", String<16>());

	/* prevent division by zero, below */
	if (image_size.count() == 0)
		return image_size;

	/*
	 * Determine scale ratio (in 16.16 fixpoint format)
	 */
	unsigned const ratio = (value == "fit")
	                     ? min((mode_size.w << 16) / image_size.w,
	                           (mode_size.h << 16) / image_size.h)
	                     : (value == "zoom")
	                     ? max((mode_size.w << 16) / image_size.w,
	                           (mode_size.h << 16) / image_size.h)
	                     : 1 << 16;

	/*
	 * We add 0.5 (1 << 15) to round instead of truncating the fractional
	 * part when converting the fixpoint numbers to integers.
	 */
	return Surface_base::Area((image_size.w*ratio + (1 << 15)) >> 16,
	                          (image_size.h*ratio + (1 << 15)) >> 16);
}


template <typename PT>
void Backdrop::Main::_paint_texture(Surface<PT> &surface, Texture<PT> const &texture,
                                    Surface_base::Point pos, bool tiled)
{
	/* prevent division by zero */
	if (texture.size().count() == 0)
		return;

	if (tiled) {

		/* shortcuts */
		int const w = texture.size().w, surface_w = surface.size().w;
		int const h = texture.size().h, surface_h = surface.size().h;

		/* draw tiles across the whole surface */
		for (int y = (pos.y % h) - h; y < surface_h + h; y += h)
			for (int x = (pos.x % w) - w; x < surface_w + w; x += w)
				Texture_painter::paint(surface, texture, Color(),
				                       Texture_painter::Point(x, y),
				                       Texture_painter::SOLID,
				                       true);

	} else {

		Texture_painter::paint(surface, texture, Color(), pos,
		                       Texture_painter::SOLID, true);
	}
}


void Backdrop::Main::_apply_image(Xml_node operation)
{
	using Point = Surface_base::Point;
	using Area  = Surface_base::Area;

	if (!operation.has_attribute("png")) {
		Genode::warning("missing 'png' attribute in <image> node");
		return;
	}

	using File_name = String<256>;
	File_name const png_file_name = operation.attribute_value("png", File_name());

	File file(png_file_name.string(), _heap);

	Anchor anchor(operation);

	Png_image png_image(_env.ram(), _env.rm(), _heap, file.data<void>());

	Area const scaled_size = calc_scaled_size(operation, png_image.size(),
	                                          _buffer->mode.area);
	/*
	 * Determine parameters of graphics operation
	 */
	int const h_gap = (int)_buffer->mode.area.w - scaled_size.w,
	          v_gap = (int)_buffer->mode.area.h - scaled_size.h;

	int const anchored_xpos = anchor.horizontal == Anchor::LOW    ? 0
	                        : anchor.horizontal == Anchor::CENTER ? h_gap/2
	                        : anchor.horizontal == Anchor::HIGH   ? h_gap
	                        : 0;

	int const anchored_ypos = anchor.vertical == Anchor::LOW    ? 0
	                        : anchor.vertical == Anchor::CENTER ? v_gap/2
	                        : anchor.vertical == Anchor::HIGH   ? v_gap
	                        : 0;

	Point const offset = Point::from_xml(operation);

	Point const pos = Point(anchored_xpos, anchored_ypos) + offset;

	bool const tiled = operation.attribute_value("tiled", false);

	unsigned alpha = operation.attribute_value("alpha", 256U);

	/* obtain texture containing the pixels of the PNG image */
	Texture<Pixel_rgb888> *png_texture = png_image.texture<Pixel_rgb888>();

	/* create texture with the scaled image */
	Chunky_texture<Pixel_rgb888> scaled_texture(_env.ram(), _env.rm(), scaled_size);
	scale(*png_texture, scaled_texture, _heap);

	png_image.release_texture(png_texture);

	/*
	 * Code specific for the screen mode's pixel format
	 */

	/* create texture with down-sampled scaled image */
	using PT = Pixel_rgb888;
	Chunky_texture<PT> texture(_env.ram(), _env.rm(), scaled_size);
	convert_pixel_format(scaled_texture, texture, alpha, _heap);

	/* paint texture onto surface */
	_buffer->apply_to_surface<PT>([&] (Surface<PT> &surface) {
		_paint_texture(surface, texture, pos, tiled);
	});
}


void Backdrop::Main::_apply_fill(Xml_node operation)
{
	/*
	 * Code specific for the screen mode's pixel format
	 */

	/* create texture with down-sampled scaled image */
	using PT = Pixel_rgb888;

	Color const color = operation.attribute_value("color", Color::black());

	_buffer->apply_to_surface<PT>([&] (Surface<PT> &surface) {
		Box_painter::paint(surface, Surface_base::Rect(Surface_base::Point(0, 0),
		                                               _buffer->size()), color);
	});
}


void Backdrop::Main::_handle_config()
{
	_config.update();

	_gui_win = _gui.window().convert<Gui::Rect>(
		[&] (Gui::Rect rect) { return rect; },
		[&] (Gui::Undefined) { return Gui::Rect { { }, { 640, 480 } }; });

	_gui_win.area = { _config.xml().attribute_value("width",  _gui_win.w()),
	                  _config.xml().attribute_value("height", _gui_win.h()) };

	Framebuffer::Mode const mode { .area = _gui_win.area, .alpha = false };

	_buffer.construct(_env, _gui, mode);

	/* clear surface */
	_apply_fill(Xml_node("<fill color=\"#000000\"/>"));

	/* apply graphics primitives defined in the config */
	_config.xml().for_each_sub_node([&] (Xml_node operation) {
		try {
			if (operation.has_type("image"))
				_apply_image(operation);

			if (operation.has_type("fill"))
				_apply_fill(operation);
		}
		catch (...) {
			/*
			 * Ignore failure of individual operation, i.e., non-existing
			 * files or malformed PNG data.
			 */
		}
	});

	Libc::with_libc([&] () {
		_buffer->flush_surface();
		_update_view();
	});
}


/*
 * Silence debug messages
 */
extern "C" void _sigprocmask() { }


void Libc::Component::construct(Libc::Env &env) {
	with_libc([&env] () { static Backdrop::Main application(env); }); }

