#include <daguerre/framebuffer.hpp>
#include <daguerre/ppm.hpp>

daguerre::hilbert_color trans_color;

void convert_pointer(
  daguerre::hilbert_color &dest, const daguerre::hilbert_color &src) {
  if (src != trans_color)
    dest = src;
}

int main(int, char **) {

  trans_color = euler::syscall::encode_color(0xff, 0x00, 0xff);

  daguerre::image<daguerre::hilbert_color> framebuffer =
    daguerre::get_hilbert_framebuffer();

  int fw = framebuffer.width;
  int fh = framebuffer.height;

  daguerre::image<daguerre::hilbert_color> double_buffer(fw, fh);

  std::optional<daguerre::image<daguerre::hilbert_color>>
    background_original = daguerre::try_load_ppm("/assets/background.ppm");

  daguerre::image<daguerre::hilbert_color> background;

  if (background_original.has_value())
    background = background_original->stretch(fw, fh);
  else {
    background = daguerre::image<daguerre::hilbert_color>(fw, fh);
    background.fill(euler::syscall::encode_color(0, 0, 0));
  }

  std::optional<daguerre::image<daguerre::hilbert_color>>
    pointer_original = daguerre::try_load_ppm("/assets/pointer.ppm");

  if (!pointer_original.has_value())
    //TODO
    while (1)
      ;

  daguerre::image<daguerre::hilbert_color>
    pointer = std::move(*pointer_original);

  int mouse_x = fw / 2;
  int mouse_y = fh / 2;

  while (true) {

    double_buffer.copy_from(background, 0, 0);
    double_buffer.convert_from(pointer, mouse_x, mouse_y, 0, 0,
      std::min(pointer. width, double_buffer. width - mouse_x),
      std::min(pointer.height, double_buffer.height - mouse_y),
      &convert_pointer);

    framebuffer.copy_from(double_buffer, 0, 0);

    auto result = euler::syscall::get_input_packet();
    if (std::holds_alternative<euler::syscall::mouse_packet>(result)) {
      const auto &packet = std::get<euler::syscall::mouse_packet>(result);
      mouse_x += packet.x_changed;
      mouse_y += packet.y_changed;
      if (mouse_x < 0)
        mouse_x = 0;
      else if (mouse_x >= fw)
        mouse_x = fw - 1;
      if (mouse_y < 0)
        mouse_y = 0;
      else if (mouse_y >= fh)
        mouse_y = fh - 1;
    }

  }

  return 0;

}