#include "stdfx.h"
#include "tfxparam.h"
#include "tparamset.h"

#include "toonz/tdistort.h"

//****************************************************************************
//    Local namespace stuff
//****************************************************************************

namespace {

class KaleidoDistorter final : public TDistorter {
  double m_angle;
  TAffine m_aff;
  TPointD m_shift;

public:
  KaleidoDistorter(double angle, const TAffine &aff, const TPointD shift)
      : m_angle(angle), m_aff(aff), m_shift(shift) {}

  TPointD map(const TPointD &p) const override { return TPointD(); }
  int maxInvCount() const override { return 1; }

  int invMap(const TPointD &p, TPointD *results) const override;
};

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

int KaleidoDistorter::invMap(const TPointD &p, TPointD *results) const {
  TPointD q(m_aff * p);

  // Build p's angular position
  double qAngle = atan2(q.y, q.x);
  if (qAngle < 0.0) qAngle += 2.0 * M_PI;

  assert(qAngle >= 0.0);

  int section  = tfloor(qAngle / m_angle);
  bool reflect = (bool)(section % 2);

  double normQ = norm(q);
  if (reflect) {
    double newAngle = qAngle - (section + 1) * m_angle;

    results[0].x = normQ * cos(newAngle) + m_shift.x;
    results[0].y = -normQ * sin(newAngle) + m_shift.y;
  } else {
    double newAngle = qAngle - section * m_angle;

    results[0].x = normQ * cos(newAngle) + m_shift.x;
    results[0].y = normQ * sin(newAngle) + m_shift.y;
  }

  return 1;
}

}  // namespace

//****************************************************************************
//    Kaleido Fx
//****************************************************************************

class KaleidoFx final : public TStandardRasterFx {
  FX_PLUGIN_DECLARATION(KaleidoFx)

  TRasterFxPort m_input;
  TPointParamP m_center;
  TDoubleParamP m_angle;
  TIntParamP m_count;

public:
  KaleidoFx() : m_center(TPointD()), m_angle(0.0), m_count(3) {
    m_center->getX()->setMeasureName("fxLength");
    m_center->getY()->setMeasureName("fxLength");
    m_angle->setMeasureName("angle");

    bindParam(this, "center", m_center);
    bindParam(this, "angle", m_angle);
    bindParam(this, "count", m_count);

    addInputPort("Source", m_input);

    m_count->setValueRange(1, 100);
  }

  ~KaleidoFx(){};

  bool doGetBBox(double frame, TRectD &bBox,
                 const TRenderSettings &info) override;

  void doDryCompute(TRectD &rect, double frame,
                    const TRenderSettings &ri) override;
  void doCompute(TTile &tile, double frame, const TRenderSettings &ri) override;
  int getMemoryRequirement(const TRectD &rect, double frame,
                           const TRenderSettings &info) override;

  bool canHandle(const TRenderSettings &info, double frame) override {
    return isAlmostIsotropic(info.m_affine);
  }

private:
  void buildSectionRect(TRectD &inRect, double angle);
  void rotate(TRectD &rect);

  TAffine buildInputReference(double frame, TRectD &inRect,
                              TRenderSettings &inInfo, const TRectD &outRect,
                              const TRenderSettings &outInfo);
};

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

void KaleidoFx::buildSectionRect(TRectD &inRect, double angle) {
  inRect.y0 = std::max(inRect.y0, 0.0);
  if (angle <= M_PI_2) {
    inRect.x0 = std::max(inRect.x0, 0.0);
    inRect.y1 = std::min(inRect.y1, inRect.x1 * tan(angle));
  }
}

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

void KaleidoFx::rotate(TRectD &rect) {
  TPointD pMax(std::max(-rect.x0, rect.x1), std::max(-rect.y0, rect.y1));
  double normPMax = norm(pMax);

  rect = TRectD(-normPMax, -normPMax, normPMax, normPMax);
}

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

TAffine KaleidoFx::buildInputReference(double frame, TRectD &inRect,
                                       TRenderSettings &inInfo,
                                       const TRectD &outRect,
                                       const TRenderSettings &outInfo) {
  double scale = fabs(sqrt(outInfo.m_affine.det()));
  double angle = M_PI / m_count->getValue();

  inInfo.m_affine = TRotation(-m_angle->getValue(frame) - angle) *
                    TScale(scale).place(m_center->getValue(frame), TPointD());

  TAffine outRefToInRef(inInfo.m_affine * outInfo.m_affine.inv());

  // Build the input bounding box
  TRectD inBBox;
  m_input->getBBox(frame, inBBox, inInfo);

  // Rotate the output rect in the input reference. This is required since the
  // rotational
  // deformation may rotate points outside the rect, inside it.
  TRectD outRect_inputRef(outRefToInRef * outRect);
  rotate(outRect_inputRef);

  // Intersect with the useful kaleido region
  inRect = inBBox * outRect_inputRef;
  buildSectionRect(inRect, angle);

  return outRefToInRef;
}

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

bool KaleidoFx::doGetBBox(double frame, TRectD &bBox,
                          const TRenderSettings &info) {
  // Remember: info.m_affine MUST NOT BE CONSIDERED in doGetBBox's
  // implementation

  // Retrieve the input bbox without applied affines.

  if (!m_input.getFx()) return false;

  double angle = M_PI / m_count->getValue();

  TRenderSettings inInfo(info);
  inInfo.m_affine = TRotation(-m_angle->getValue(frame) - angle) *
                    TTranslation(-m_center->getValue(frame));

  if (!m_input->getBBox(frame, bBox, inInfo)) return false;

  TRectD infiniteRect(TConsts::infiniteRectD);

  TRectD kaleidoRect((m_count->getValue() > 1) ? 0.0 : infiniteRect.x0, 0.0,
                     infiniteRect.x1, infiniteRect.y1);

  bBox *= kaleidoRect;
  if (bBox.x0 == infiniteRect.x0 || bBox.x1 == infiniteRect.x1 ||
      bBox.y1 == infiniteRect.y1) {
    bBox = infiniteRect;
    return true;
  }

  buildSectionRect(bBox, angle);

  // Now, we must rotate the bBox in order to obtain the kaleidoscoped box
  rotate(bBox);

  // Finally, bring it back to standard reference
  bBox = inInfo.m_affine.inv() * bBox;

  return true;
}

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

void KaleidoFx::doDryCompute(TRectD &rect, double frame,
                             const TRenderSettings &info) {
  if (!m_input.isConnected()) return;

  if (fabs(info.m_affine.det()) < TConsts::epsilon) return;

  // Build the input reference
  TRectD inRect;
  TRenderSettings inInfo(info);

  TAffine outRefToInRef(buildInputReference(frame, inRect, inInfo, rect, info));

  if (inRect.getLx() <= 0.0 || inRect.getLy() <= 0.0) return;

  inRect = inRect.enlarge(1.0);  // tdistort() seems to need it

  // Allocate a corresponding input tile and calculate it
  m_input->dryCompute(inRect, frame, inInfo);
}

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

void KaleidoFx::doCompute(TTile &tile, double frame,
                          const TRenderSettings &info) {
  if (!m_input.isConnected()) return;

  if (fabs(info.m_affine.det()) < TConsts::epsilon) return;

  // Build the output rect
  TDimension tileSize(tile.getRaster()->getSize());
  TRectD tileRect(tile.m_pos, TDimensionD(tileSize.lx, tileSize.ly));

  // Build the input reference
  TRectD inRect;
  TRenderSettings inInfo(info);

  TAffine outRefToInRef(
      buildInputReference(frame, inRect, inInfo, tileRect, info));

  if (inRect.getLx() <= 0.0 || inRect.getLy() <= 0.0) return;

  inRect = inRect.enlarge(1.0);  // tdistort() seems to need it

  // Allocate a corresponding input tile and calculate it
  TTile inTile;
  TDimension inDim(tceil(inRect.getLx()), tceil(inRect.getLy()));

  m_input->allocateAndCompute(inTile, inRect.getP00(), inDim, tile.getRaster(),
                              frame, inInfo);

  // Now, perform kaleido
  double angle = M_PI / m_count->getValue();
  KaleidoDistorter distorter(angle, outRefToInRef, -inRect.getP00());

  TRasterP inRas(inTile.getRaster());
  TRasterP tileRas(tile.getRaster());

  distort(tileRas, inRas, distorter, convert(tile.m_pos));
}

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

int KaleidoFx::getMemoryRequirement(const TRectD &rect, double frame,
                                    const TRenderSettings &info) {
  if (!m_input.isConnected()) return 0;

  if (fabs(info.m_affine.det()) < TConsts::epsilon) return 0;

  // Build the input reference
  TRectD inRect;
  TRenderSettings inInfo(info);

  TAffine outRefToInRef(buildInputReference(frame, inRect, inInfo, rect, info));

  if (inRect.getLx() <= 0.0 || inRect.getLy() <= 0.0) return 0;

  inRect = inRect.enlarge(1.0);  // tdistort() seems to need it

  return TRasterFx::memorySize(inRect, info.m_bpp);
}

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

FX_PLUGIN_IDENTIFIER(KaleidoFx, "kaleidoFx");