#include "texception.h"

#include "tfxparam.h"

#include "trop.h"

#include "stdfx.h"

#include "trasterfx.h"

#include "tparamset.h"

#include "tparamuiconcept.h"

//-------------------------------------------------------------------

class BaseRaylitFx : public TStandardRasterFx {

protected:

  TRasterFxPort m_input;

  TPointParamP m_p;

  TDoubleParamP m_z;

  TDoubleParamP m_intensity;

  TDoubleParamP m_decay;

  TDoubleParamP m_smoothness;

  TBoolParamP m_includeInput;

public:

  BaseRaylitFx()

      : m_p(TPointD(0, 0))

      , m_z(300.0)

      , m_intensity(60)

      , m_decay(1.0)

      , m_smoothness(100)

      , m_includeInput(false) {

    m_p->getX()->setMeasureName("fxLength");

    m_p->getY()->setMeasureName("fxLength");

    bindParam(this, "p", m_p);

    bindParam(this, "z", m_z);

    bindParam(this, "intensity", m_intensity);

    bindParam(this, "decay", m_decay);

    bindParam(this, "smoothness", m_smoothness);

    bindParam(this, "includeInput", m_includeInput);

    addInputPort("Source", m_input);

  }

  ~BaseRaylitFx() {}

  bool doGetBBox(double frame, TRectD &bBox,

                 const TRenderSettings &info) override;

  bool canHandle(const TRenderSettings &info, double frame) override {

    return false;

  }

  int getMemoryRequirement(const TRectD &rect, double frame,

                           const TRenderSettings &info) override;

  void doDryCompute(TRectD &rect, double frame,

                    const TRenderSettings &info) override;

  void getParamUIs(TParamUIConcept *&concepts, int &length) override {

    concepts = new TParamUIConcept[length = 1];

    concepts[0].m_type  = TParamUIConcept::POINT;

    concepts[0].m_label = "Center";

    concepts[0].m_params.push_back(m_p);

  }

};

//-------------------------------------------------------------------

bool BaseRaylitFx::doGetBBox(double frame, TRectD &bBox,

                             const TRenderSettings &info) {

  if (m_input.isConnected()) {

    bool ret      = m_input->doGetBBox(frame, bBox, info);

    if (ret) bBox = TConsts::infiniteRectD;

    return ret;

  } else {

    bBox = TRectD();

    return false;

  }

};

//-------------------------------------------------------------------

void BaseRaylitFx::doDryCompute(TRectD &rect, double frame,

                                const TRenderSettings &ri) {

  if (!m_input.isConnected()) return;

  TRectD bboxIn;

  m_input->getBBox(frame, bboxIn, ri);

  if (bboxIn == TConsts::infiniteRectD) bboxIn = rect;

  TDimension sizeIn(std::max(tceil(bboxIn.getLx()), 1),

                    std::max(tceil(bboxIn.getLy()), 1));

  bboxIn = TRectD(bboxIn.getP00(), TDimensionD(sizeIn.lx, sizeIn.ly));

  m_input->dryCompute(bboxIn, frame, ri);

}

//---------------------------------------------------------------------------

int BaseRaylitFx::getMemoryRequirement(const TRectD &rect, double frame,

                                       const TRenderSettings &info) {

  TRectD bboxIn;

  m_input->getBBox(frame, bboxIn, info);

  if (bboxIn == TConsts::infiniteRectD) return -1;

  if (bboxIn.isEmpty()) return 0;

  return TRasterFx::memorySize(bboxIn, info.m_bpp);

}

//========================================================================================

class RaylitFx final : public BaseRaylitFx {

  FX_PLUGIN_DECLARATION(RaylitFx)

protected:

  TPixelParamP m_color;

  TBoolParamP m_invert;

public:

  RaylitFx() : m_color(TPixel(255, 80, 0)), m_invert(false) {

    bindParam(this, "color", m_color);

    bindParam(this, "invert", m_invert);

  }

  void doCompute(TTile &tile, double frame, const TRenderSettings &) override;

};

FX_PLUGIN_IDENTIFIER(RaylitFx, "raylitFx")

//-------------------------------------------------------------------

void RaylitFx::doCompute(TTile &tileOut, double frame,

                         const TRenderSettings &ri) {

  if (!m_input.isConnected()) return;

  double scale = sqrt(fabs(ri.m_affine.det()));

  int shrink   = (ri.m_shrinkX + ri.m_shrinkY) / 2;

  TPointD p(ri.m_affine * m_p->getValue(frame));

  TRectD rectIn(tileOut.m_pos, TDimensionD(tileOut.getRaster()->getLx(),

                                           tileOut.getRaster()->getLy()));

  TRectD bboxIn;

  m_input->getBBox(frame, bboxIn, ri);

  if (bboxIn == TConsts::infiniteRectD) bboxIn = rectIn;

  if (!bboxIn.isEmpty()) {

    TPoint posIn, posOut;

    TTile tileIn;

    TDimension sizeIn(std::max(tceil(bboxIn.getLx()), 1),

                      std::max(tceil(bboxIn.getLy()), 1));

    m_input->allocateAndCompute(tileIn, bboxIn.getP00(), sizeIn,

                                tileOut.getRaster(), frame, ri);

    TRop::RaylitParams params;

    params.m_scale = scale;

    params.m_lightOriginSrc.x = params.m_lightOriginDst.x = p.x;

    params.m_lightOriginSrc.y = params.m_lightOriginDst.y = p.y;

    params.m_lightOriginSrc.z = params.m_lightOriginDst.z =

        (int)m_z->getValue(frame);

    params.m_color        = m_color->getValue(frame);

    params.m_intensity    = m_intensity->getValue(frame);

    params.m_decay        = m_decay->getValue(frame);

    params.m_smoothness   = m_smoothness->getValue(frame);

    params.m_invert       = m_invert->getValue();

    params.m_includeInput = m_includeInput->getValue();

    params.m_lightOriginSrc.x -= (int)tileIn.m_pos.x;

    params.m_lightOriginSrc.y -= (int)tileIn.m_pos.y;

    params.m_lightOriginDst.x -= (int)tileOut.m_pos.x;

    params.m_lightOriginDst.y -= (int)tileOut.m_pos.y;

    TRop::raylit(tileOut.getRaster(), tileIn.getRaster(), params);

  }

}

//========================================================================================

class ColorRaylitFx final : public BaseRaylitFx {

  FX_PLUGIN_DECLARATION(ColorRaylitFx)

public:

  ColorRaylitFx() : BaseRaylitFx() {}

  void doCompute(TTile &tile, double frame, const TRenderSettings &) override;

};

//-------------------------------------------------------------------

void ColorRaylitFx::doCompute(TTile &tileOut, double frame,

                              const TRenderSettings &ri) {

  if (!m_input.isConnected()) return;

  double scale = sqrt(fabs(ri.m_affine.det()));

  int shrink   = (ri.m_shrinkX + ri.m_shrinkY) / 2;

  TPointD p(ri.m_affine * m_p->getValue(frame));

  TRectD rectIn(tileOut.m_pos, TDimensionD(tileOut.getRaster()->getLx(),

                                           tileOut.getRaster()->getLy()));

  TRectD bboxIn;

  m_input->getBBox(frame, bboxIn, ri);

  if (bboxIn == TConsts::infiniteRectD) bboxIn = rectIn;

  if (!bboxIn.isEmpty()) {

    TPoint posIn, posOut;

    TTile tileIn;

    TDimension sizeIn(std::max(tceil(bboxIn.getLx()), 1),

                      std::max(tceil(bboxIn.getLy()), 1));

    m_input->allocateAndCompute(tileIn, bboxIn.getP00(), sizeIn,

                                tileOut.getRaster(), frame, ri);

    TRop::RaylitParams params;

    params.m_scale = scale;

    params.m_lightOriginSrc.x = params.m_lightOriginDst.x = p.x;

    params.m_lightOriginSrc.y = params.m_lightOriginDst.y = p.y;

    params.m_lightOriginSrc.z = params.m_lightOriginDst.z =

        (int)m_z->getValue(frame);

    params.m_intensity    = m_intensity->getValue(frame);

    params.m_decay        = m_decay->getValue(frame);

    params.m_smoothness   = m_smoothness->getValue(frame);

    params.m_includeInput = m_includeInput->getValue();

    params.m_lightOriginSrc.x -= (int)tileIn.m_pos.x;

    params.m_lightOriginSrc.y -= (int)tileIn.m_pos.y;

    params.m_lightOriginDst.x -= (int)tileOut.m_pos.x;

    params.m_lightOriginDst.y -= (int)tileOut.m_pos.y;

    TRop::glassRaylit(tileOut.getRaster(), tileIn.getRaster(), params);

  }

}

FX_PLUGIN_IDENTIFIER(ColorRaylitFx, "colorRaylitFx")