#include "stdfx.h"
#include "ttzpimagefx.h"
 
#include "toonz/tcolumnfx.h"
#include "toonz/txshcolumn.h"
#include "toonz/txshcell.h"
#include "toonz/txshsimplelevel.h"
#include "toonz/txshpalettelevel.h"
 
//===================================================================
 
class ExternalPaletteFx final : public TStandardRasterFx {
  FX_PLUGIN_DECLARATION(ExternalPaletteFx)
 
  TRasterFxPort m_input;
  TRasterFxPort m_expalette;
 
public:
  ExternalPaletteFx()
 
  {
    addInputPort("Source", m_input);
    addInputPort("Palette", m_expalette);
  }
 
  ~ExternalPaletteFx(){};
 
  bool doGetBBox(double frame, TRectD &bBox,
                 const TRenderSettings &info) override {
    if (m_input.isConnected()) {
      bool ret = m_input->doGetBBox(frame, bBox, info);
      return ret;
    } else {
      bBox = TRectD();
      return false;
    }
  }
 
  std::string getAlias(double frame,
                       const TRenderSettings &info) const override;
 
  void doDryCompute(TRectD &rect, double frame,
                    const TRenderSettings &info) override;
  void doCompute(TTile &tile, double frame, const TRenderSettings &ri) override;
 
  bool allowUserCacheOnPort(int port) override { return false; }
 
  bool canHandle(const TRenderSettings &info, double frame) override {
    return true;
  }
};
 
//-------------------------------------------------------------------
 
namespace {
TPalette *getPalette(TXshColumn *column, int frame) {
  TXshCellColumn *cellColumn = dynamic_cast<TXshCellColumn *>(column);
  if (!cellColumn) return 0;
 
  TXshCell cell = cellColumn->getCell(frame);
  if (cell.isEmpty()) return 0;
 
  TXshPaletteLevel *pl = cell.m_level->getPaletteLevel();
  if (pl) return pl->getPalette();
 
  TXshSimpleLevel *sl = cell.m_level->getSimpleLevel();
  if (sl) return sl->getPalette();
 
  return 0;
}
 
TPalette *getPalette(TFx *fx, double frame) {
  if (!fx) return 0;
  int branches;
  branches = fx->getInputPortCount();
 
  if (branches == 1) return getPalette(fx->getInputPort(0)->getFx(), frame);
 
  if (branches > 1) return 0;
 
  if (TColumnFx *columnFx = dynamic_cast<TColumnFx *>(fx))
    return getPalette(columnFx->getXshColumn(), (int)frame);
 
  return 0;
}
}
 
//-------------------------------------------------------------------
 
std::string ExternalPaletteFx::getAlias(double frame,
                                        const TRenderSettings &info) const {
  std::string alias(TRasterFx::getAlias(frame, info));
 
  if (m_expalette.isConnected()) {
    TFx *fx = m_expalette.getFx();
    TPaletteP plt(getPalette(fx, frame));
    if (plt && plt->isAnimated()) alias += std::to_string(frame);
  }
 
  return alias;
}
 
//-------------------------------------------------------------------
 
void ExternalPaletteFx::doDryCompute(TRectD &rect, double frame,
                                     const TRenderSettings &ri) {
  if (!m_input.isConnected()) return;
 
  if (m_expalette.isConnected()) {
    TFx *fx              = m_expalette.getFx();
    std::string pltAlias = m_expalette->getAlias(frame, ri);
 
    TPaletteP palette(getPalette(fx, frame));
    if (palette && palette->isAnimated()) pltAlias += std::to_string(frame);
 
    TRenderSettings ri2(ri);
    ExternalPaletteFxRenderData *data =
        new ExternalPaletteFxRenderData(palette, pltAlias);
    ri2.m_data.push_back(data);
    ri2.m_userCachable = false;
 
    m_input->dryCompute(rect, frame, ri2);
  } else
    m_input->dryCompute(rect, frame, ri);
}
 
//-------------------------------------------------------------------
 
void ExternalPaletteFx::doCompute(TTile &tile, double frame,
                                  const TRenderSettings &ri) {
  if (!m_input.isConnected()) return;
 
  if (m_expalette.isConnected()) {
    TFx *fx              = m_expalette.getFx();
    std::string pltAlias = m_expalette->getAlias(frame, ri);
 
    TPaletteP palette(getPalette(fx, frame));
    if (palette && palette->isAnimated()) pltAlias += std::to_string(frame);
 
    TRenderSettings ri2(ri);
    ExternalPaletteFxRenderData *data =
        new ExternalPaletteFxRenderData(palette, pltAlias);
    ri2.m_data.push_back(data);
    m_input->compute(tile, frame, ri2);
  } else
    m_input->compute(tile, frame, ri);
}
 
FX_PLUGIN_IDENTIFIER(ExternalPaletteFx, "externalPaletteFx");