#include <sstream> /* std::ostringstream */</sstream>

#include "tfxparam.h"

#include "stdfx.h"

#include "ino_common.h"

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

class ino_median_filter final : public TStandardRasterFx {

  FX_PLUGIN_DECLARATION(ino_median_filter)

  TRasterFxPort m_input;

  TRasterFxPort m_refer;

  TDoubleParamP m_radius;

  TIntEnumParamP m_channel;

  TIntEnumParamP m_ref_mode;

public:

  ino_median_filter()

      : m_radius(1.7)

      , m_channel(new TIntEnumParam(0, "Red"))

      , m_ref_mode(new TIntEnumParam(0, "Red")) {

    addInputPort("Source", this->m_input);

    addInputPort("Reference", this->m_refer);

    bindParam(this, "radius", this->m_radius);

    bindParam(this, "channel", this->m_channel);

    bindParam(this, "reference", this->m_ref_mode);

    this->m_radius->setValueRange(0, 1000.0);

    this->m_channel->addItem(1, "Green");

    this->m_channel->addItem(2, "Blue");

    this->m_channel->addItem(3, "Alpha");

    this->m_channel->addItem(4, "All");

    this->m_ref_mode->addItem(1, "Green");

    this->m_ref_mode->addItem(2, "Blue");

    this->m_ref_mode->addItem(3, "Alpha");

    this->m_ref_mode->addItem(4, "Luminance");

    this->m_ref_mode->addItem(-1, "Nothing");

  }

  bool doGetBBox(double frame, TRectD &bBox,

                 const TRenderSettings &info) override {

    if (this->m_input.isConnected()) {

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

      const double margin = ceil(this->m_radius->getValue(frame));

      if (0.0 < margin) {

        bBox = bBox.enlarge(margin);

      }

      return ret;

    } else {

      bBox = TRectD();

      return false;

    }

  }

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

    return true;

  }

  int getMemoryRequirement(const TRectD &rect, double frame,

                           const TRenderSettings &info) override {

    const double radius = this->m_radius->getValue(frame);

    return TRasterFx::memorySize(rect.enlarge(ceil(radius) + 0.5), info.m_bpp);

  }

  void doCompute(TTile &tile, double frame,

                 const TRenderSettings &rend_sets) override;

};

FX_PLUGIN_IDENTIFIER(ino_median_filter, "inoMedianFilterFx")

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

#include "igs_median_filter.h"

namespace {

void fx_(const TRasterP in_ras  // with margin

         ,

         const int margin, TRasterP out_ras  // no margin

         ,

         const TRasterP refer_ras, const int refer_mode

         ,

         const double radius, const int channel) {

  TRasterGR8P out_gr8(in_ras->getLy(),

                      in_ras->getLx() * ino::channels() *

                          ((TRaster64P)in_ras ? sizeof(unsigned short)

                                              : sizeof(unsigned char)));

  out_gr8->lock();

  igs::median_filter::convert(

      in_ras->getRawData()  // BGRA

      ,

      out_gr8->getRawData()

          ,

      in_ras->getLy(), in_ras->getLx(), ino::channels(), ino::bits(in_ras)

                                                             ,

      (((refer_ras != nullptr) && (0 <= refer_mode)) ? refer_ras->getRawData()

                                                     : nullptr)  // BGRA

      ,

      (((refer_ras != nullptr) && (0 <= refer_mode)) ? ino::bits(refer_ras)

                                                     : 0),

      refer_mode

      ,

      channel, radius, 0 /* 0=Spread:外は淵のピクセル値が続いているとする */

      );

  ino::arr_to_ras(out_gr8->getRawData(), ino::channels(), out_ras, margin);

  out_gr8->unlock();

}

}

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

void ino_median_filter::doCompute(TTile &tile, double frame,

                                  const TRenderSettings &rend_sets) {

  /* ------ 接続していなければ処理しない -------------------- */

  if (!this->m_input.isConnected()) {

    tile.getRaster()->clear(); /* 塗りつぶしクリア */

    return;

  }

  /* ------ サポートしていないPixelタイプはエラーを投げる --- */

  if (!((TRaster32P)tile.getRaster()) && !((TRaster64P)tile.getRaster())) {

    throw TRopException("unsupported input pixel type");

  }

  /* ------ Pixel単位で動作パラメータを得る ----------------- */

  /* 動作パラメータを得る */

  const double radius  = this->m_radius->getValue(frame);

  const int channel    = this->m_channel->getValue();

  const int refer_mode = this->m_ref_mode->getValue();

  /* ------ 参照マージン含めた画像生成 ---------------------- */

  /* Rendering画像のBBox値 --> Pixel単位のdouble値 */

  /*	typedef TRectT<double> TRectD;</double>

          inline TRectT<double>::TRectT(</double>

                  const TPointT<double> &bottomLeft</double>

                  , const TDimensionT<double> &d</double>

          )	: x0(bottomLeft.x)

                  , y0(bottomLeft.y)

                  , x1(bottomLeft.x+d.lx)

                  , y1(bottomLeft.y+d.ly)

          {}

  */

  TRectD enlarge_rect =

      TRectD(tile.m_pos /* TPointD */

             ,

             TDimensionD(/* int --> doubleにしてセット */

                         tile.getRaster()->getLx(), tile.getRaster()->getLy()));

  /* BBoxの拡大 Pixel単位 */

  const int enlarge_pixel = (int)(ceil(radius) + 0.5);

  enlarge_rect            = enlarge_rect.enlarge(enlarge_pixel);

  /*	void TRasterFx::allocateAndCompute(

                  TTile &tile,

                  const TPointD &pos, const TDimension &size,

                  const TRasterP &templateRas, double frame,

                  const TRenderSettings &info

          ) {

                  if (templateRas) {

          tile.getRaster() = templateRas->create(size.lx, size.ly);

                  } else {

          tile.getRaster() = TRaster32P(size.lx, size.ly);

                  }

          tile.m_pos = pos;

                  compute(tile, frame, info);

          }

  */

  TTile enlarge_tile;

  this->m_input->allocateAndCompute(

      enlarge_tile, enlarge_rect.getP00(),

      TDimensionI(/* Pixel単位のdouble -> intにしてセット */

                  (int)(enlarge_rect.getLx() + 0.5),

                  (int)(enlarge_rect.getLy() + 0.5)),

      tile.getRaster(), frame, rend_sets);

  /*------ 参照画像生成 --------------------------------------*/

  TTile refer_tile;

  bool refer_sw = false;

  if (this->m_refer.isConnected()) {

    refer_sw = true;

    this->m_refer->allocateAndCompute(

        refer_tile, enlarge_tile.m_pos,

        TDimensionI(/* Pixel単位 */

                    enlarge_tile.getRaster()->getLx(),

                    enlarge_tile.getRaster()->getLy()),

        enlarge_tile.getRaster(), frame, rend_sets);

  }

  /* ------ 保存すべき画像メモリを塗りつぶしクリア ---------- */

  tile.getRaster()->clear(); /* 塗りつぶしクリア */

  /* ------ (app_begin)log記憶 ------------------------------ */

  const bool log_sw = ino::log_enable_sw();

  if (log_sw) {

    std::ostringstream os;

    os << "params"

       << "  radius " << radius << "  channel " << channel << "  refer_mode "

       << refer_mode << "   tile w " << tile.getRaster()->getLx() << "  h "

       << tile.getRaster()->getLy() << "  pixbits "

       << ino::pixel_bits(tile.getRaster()) << "   frame " << frame

       << "   rand_sets affine_det " << rend_sets.m_affine.det()

       << "  shrink x " << rend_sets.m_shrinkX << "  y " << rend_sets.m_shrinkY;

    if (refer_sw) {

      os << "  refer_tile.m_pos " << refer_tile.m_pos << "  refer_tile_getLx "

         << refer_tile.getRaster()->getLx() << "  y "

         << refer_tile.getRaster()->getLy();

    }

  }

  /* ------ fx処理 ------------------------------------------ */

  try {

    tile.getRaster()->lock();

    enlarge_tile.getRaster()->lock();

    if (refer_tile.getRaster() != nullptr) {

      refer_tile.getRaster()->lock();

    }

    fx_(enlarge_tile.getRaster()  // in with margin

        ,

        enlarge_pixel  // margin

        ,

        tile.getRaster()  // out with no margin

        ,

        refer_tile.getRaster(), refer_mode

        ,

        radius, channel);

    if (refer_tile.getRaster() != nullptr) {

      refer_tile.getRaster()->unlock();

    }

    enlarge_tile.getRaster()->unlock();

    tile.getRaster()->unlock();

  }

  /* ------ error処理 --------------------------------------- */

  catch (std::bad_alloc &e) {

    if (refer_tile.getRaster() != nullptr) {

      refer_tile.getRaster()->unlock();

    }

    enlarge_tile.getRaster()->unlock();

    tile.getRaster()->unlock();

    if (log_sw) {

      std::string str("std::bad_alloc <");

      str += e.what();

      str += '>';

    }

    throw;

  } catch (std::exception &e) {

    if (refer_tile.getRaster() != nullptr) {

      refer_tile.getRaster()->unlock();

    }

    enlarge_tile.getRaster()->unlock();

    tile.getRaster()->unlock();

    if (log_sw) {

      std::string str("exception <");

      str += e.what();

      str += '>';

    }

    throw;

  } catch (...) {

    if (refer_tile.getRaster() != nullptr) {

      refer_tile.getRaster()->unlock();

    }

    enlarge_tile.getRaster()->unlock();

    tile.getRaster()->unlock();

    if (log_sw) {

      std::string str("other exception");

    }

    throw;

  }

}