#pragma once

// Pattern.h: interface for the CPattern class.
//
//////////////////////////////////////////////////////////////////////

#if !defined(AFX_PATTERN_H__8E417023_35C0_11D6_B9EA_0040F674BE6A__INCLUDED_)
#define AFX_PATTERN_H__8E417023_35C0_11D6_B9EA_0040F674BE6A__INCLUDED_

#include <memory>
#include "STColSelPic.h"
#include "SDef.h"
#include "toonz4.6/pixel.h"

class CPattern {
  int m_lX, m_lY;
  std::unique_ptr<UC_PIXEL[]> m_pat;
  char m_fn[1024];

  void null();
  bool readPattern(RASTER *imgContour);
  bool isOK() {
    if (m_lX > 0 && m_lY > 0 && m_pat) return true;
    return false;
  }
  void getMapPixel(const int xx, const int yy, const double invScale,
                   const double si, const double co, UC_PIXEL *&pucp);
  void getMapPixel(const int xx, const int yy, const double invScale,
                   UC_PIXEL *&pucp);
  bool readTTT(const char *fn);
  void getBBox(SRECT &bb);
  void eraseBuffer(const int lX, const int lY, UC_PIXEL *buffer);

public:
  CPattern() : m_lX(0), m_lY(0) { m_fn[0] = '\0'; };
  CPattern(RASTER *imgContour);
  virtual ~CPattern();
  void rotate(const double angle);
  void optimalizeSize();

  template <class P>
  void test(CSTColSelPic<P> &pic, I_PIXEL &eCol, int ox, int oy) {
    for (int y = 0; y < m_lY; y++)
      for (int x = 0; x < m_lX; x++)
        if ((x + ox) < pic.m_lX && (y + oy) < pic.m_lY) {
          P *p         = pic.m_pic + (y + oy) * pic.m_lX + x + ox;
          UC_PIXEL *pP = m_pat.get() + y * m_lX + x;

          if (pP->m > (UCHAR)0) {
            double q = ((double)(pP->m) / 255.0) * ((double)eCol.m / 255.0);
            double r = (1.0 - q) * (double)p->r + q * (double)eCol.r;
            double g = (1.0 - q) * (double)p->g + q * (double)eCol.g;
            double b = (1.0 - q) * (double)p->b + q * (double)eCol.b;

            r = D_CUT_0_255(r);
            g = D_CUT_0_255(g);
            b = D_CUT_0_255(b);

            p->r = UC_ROUND(r);
            p->g = UC_ROUND(g);
            p->b = UC_ROUND(b);
            p->m = pP->m;
          }
        }
  }

  // Maps the pattern. Long and optimalized version.
  template <class P>
  void mapIt(CSTColSelPic<P> &pic, const CSTColSelPic<P> &oriPic, const int xx,
             const int yy, const double scale, const double rot,
             const bool isUseOriColor, const bool isIncludeAlpha) {
    if (scale < 0.01) return;
    if (xx < 0 || yy < 0 || xx >= pic.m_lX || yy >= pic.m_lY) return;

    double sDiag = scale * sqrt(double(m_lX * m_lX + m_lY * m_lY));
    int iSDiag   = (int)sDiag + 1;
    int iSDiag2  = iSDiag / 2 + 1;
    if (iSDiag <= 0) return;

    double invScale  = 1.0 / scale;
    double co        = cos(-DEG2RAD(rot));
    double si        = sin(-DEG2RAD(rot));
    bool isUC        = pic.getType() == ST_RGBM ? true : false;
    double maxPixVal = isUC ? 255.0 : 65535.0;
    double ddiv      = 1.0 / (maxPixVal * 255.0);
    int yBeg         = std::max(yy - iSDiag2, 0);
    int yEnd         = std::min(yy + iSDiag2, pic.m_lY - 1);
    int xBeg         = std::max(xx - iSDiag2, 0);
    int xEnd         = std::min(xx + iSDiag2, pic.m_lX - 1);
    double lxm105    = (double)(m_lX - 1) * 0.5;
    double lym105    = (double)(m_lY - 1) * 0.5;

    I_PIXEL eCol;
    memset(&eCol, 0, sizeof(I_PIXEL));
    if (isUseOriColor) {
      P *pOriPic = oriPic.m_pic + yy * oriPic.m_lX + xx;
      eCol.r     = (int)pOriPic->r;
      eCol.g     = (int)pOriPic->g;
      eCol.b     = (int)pOriPic->b;
      if (isIncludeAlpha)
        eCol.m = (int)pOriPic->m;
      else {
        if ((int)pOriPic->m != 255)
          eCol.m = 0;
        else
          eCol.m = 255;
      }
    }
    int oriMatte = (int)((oriPic.m_pic + yy * oriPic.m_lX + xx)->m);
    for (int y = yBeg; y <= yEnd; y++)
      for (int x = xBeg; x <= xEnd; x++)
        if (x >= 0 && x < pic.m_lX && y >= 0 && y < pic.m_lY) {
          // ----- Calculates the pattern pixel coordinates -----
          UC_PIXEL *pucp = 0;
          //					getMapPixel(x-xx,y-yy,invScale,si,co,pucp);
          double dxx  = (double)(x - xx) * invScale;
          double dyy  = (double)(y - yy) * invScale;
          double d2xx = (dxx * co - dyy * si) + lxm105;
          double d2yy = (dxx * si + dyy * co) + lym105;
          int x1      = I_ROUND(d2xx);
          int y1      = I_ROUND(d2yy);
          if (x1 >= 0 && x1 < m_lX && y1 >= 0 && y1 < m_lY) {
            pucp = m_pat.get() + y1 * m_lX + x1;
            pucp = (pucp->m) == (UCHAR)0 ? 0 : pucp;
          }
          // ----------------------------------------------------
          if (pucp) {
            int xy  = y * pic.m_lX + x;
            P *pPic = pic.m_pic + xy;
            if (!isUseOriColor) {
              eCol.r = (int)pucp->r;
              eCol.g = (int)pucp->g;
              eCol.b = (int)pucp->b;
              if (isIncludeAlpha)
                eCol.m = oriMatte;
              else {
                if (oriMatte != 255)
                  eCol.m = 0;
                else
                  eCol.m = 255;
              }

              if (!isUC) {
                eCol.r = PIX_USHORT_FROM_BYTE((UCHAR)eCol.r);
                eCol.g = PIX_USHORT_FROM_BYTE((UCHAR)eCol.g);
                eCol.b = PIX_USHORT_FROM_BYTE((UCHAR)eCol.b);
              }
            }
            double q  = ((double)pucp->m) * ((double)eCol.m) * ddiv;
            double qq = 1.0 - q;
            double r  = qq * (double)pPic->r + q * (double)eCol.r;
            double g  = qq * (double)pPic->g + q * (double)eCol.g;
            double b  = qq * (double)pPic->b + q * (double)eCol.b;
            double m  = qq * (double)pPic->m + q * (double)eCol.m;
            r         = D_CUT(r, 0.0, maxPixVal);
            g         = D_CUT(g, 0.0, maxPixVal);
            b         = D_CUT(b, 0.0, maxPixVal);
            m         = D_CUT(m, 0.0, maxPixVal);
            if (isUC) {
              pPic->r = UC_ROUND(r);
              pPic->g = UC_ROUND(g);
              pPic->b = UC_ROUND(b);
              pPic->m = UC_ROUND(m);
            } else {
              pPic->r = (UCHAR)US_ROUND(r);
              pPic->g = (UCHAR)US_ROUND(g);
              pPic->b = (UCHAR)US_ROUND(b);
              pPic->m = (UCHAR)US_ROUND(m);
            }
          }
        }
  }
};

#endif  // !defined(AFX_PATTERN_H__8E417023_35C0_11D6_B9EA_0040F674BE6A__INCLUDED_)