#include <Magick++.h>
#include <napi.h>

#include <list>

using namespace std;
using namespace Magick;

Napi::Value Retro(const Napi::CallbackInfo &info) {
  Napi::Env env = info.Env();

  try {
    Napi::Object obj = info[0].As<Napi::Object>();
    string line1 = obj.Get("line1").As<Napi::String>().Utf8Value();
    string line2 = obj.Get("line2").As<Napi::String>().Utf8Value();
    string line3 = obj.Get("line3").As<Napi::String>().Utf8Value();
    string basePath = obj.Get("basePath").As<Napi::String>().Utf8Value();

    Blob blob;

    Image image;
    Image line1_text;
    Image line2_text;
    Image line3_text;

    image.read(basePath + "assets/images/retro.png");

    line2_text.backgroundColor("none");
    line2_text.fontPointsize(128);
    line2_text.textGravity(Magick::CenterGravity);
    line2_text.font("Comic Sans MS");
    line2_text.read("pango:<span foreground='white'>" +
                    (line2 == "" ? line1 : line2) + "</span>");
    line2_text.extent(Geometry("1260x859+0+0"), Magick::CenterGravity);
    Image line2_text_fill = line2_text;
    line2_text_fill.channel(Magick::AlphaChannel);
    line2_text_fill.morphology(Magick::EdgeOutMorphology, "Octagon:10");
    line2_text_fill.backgroundColor("gray");
    line2_text_fill.alphaChannel(Magick::ShapeAlphaChannel);
    line2_text.composite(line2_text_fill, Magick::CenterGravity,
                         Magick::DstOverCompositeOp);
    image.composite(line2_text, Geometry("+0-100"), Magick::OverCompositeOp);

    if (line2 != "") {
      line1_text.backgroundColor("none");
      line1_text.fontPointsize(64);
      line1_text.textGravity(Magick::CenterGravity);
      line1_text.font("Comic Sans MS");
      line1_text.read("pango:<span foreground='white'>" + line1 + "</span>");
      line1_text.extent(Geometry("1260x859+0+0"), Magick::CenterGravity);
      Image line1_text_fill = line1_text;
      line1_text_fill.channel(Magick::AlphaChannel);
      line1_text_fill.morphology(Magick::EdgeOutMorphology, "Octagon:10");
      line1_text_fill.backgroundColor("gray");
      line1_text_fill.alphaChannel(Magick::ShapeAlphaChannel);
      line1_text.composite(line1_text_fill, Magick::CenterGravity,
                           Magick::DstOverCompositeOp);
      image.composite(line1_text, Geometry("+0-250"), Magick::OverCompositeOp);
    }

    if (line3 != "") {
      line3_text.backgroundColor("none");
      line3_text.fontPointsize(64);
      line3_text.textGravity(Magick::CenterGravity);
      line3_text.font("Comic Sans MS");
      line3_text.read("pango:<span foreground='white'>" + line3 + "</span>");
      line3_text.extent(Geometry("1260x859+0+0"), Magick::CenterGravity);
      Image line3_text_fill = line3_text;
      line3_text_fill.channel(Magick::AlphaChannel);
      line3_text_fill.morphology(Magick::EdgeOutMorphology, "Octagon:10");
      line3_text_fill.backgroundColor("gray");
      line3_text_fill.alphaChannel(Magick::ShapeAlphaChannel);
      line3_text.composite(line3_text_fill, Magick::CenterGravity,
                           Magick::DstOverCompositeOp);
      image.composite(line3_text, Geometry("+0+50"), Magick::OverCompositeOp);
    }

    image.magick("PNG");
    image.write(&blob);

    Napi::Object result = Napi::Object::New(env);
    result.Set("data", Napi::Buffer<char>::Copy(env, (char *)blob.data(),
                                                blob.length()));
    result.Set("type", "png");
    return result;
  } catch (std::exception const &err) {
    throw Napi::Error::New(env, err.what());
  } catch (...) {
    throw Napi::Error::New(env, "Unknown error");
  }
}