#include "toonz/toonzimageutils.h"
#include "tstroke.h"
#include "tpalette.h"
#include "tofflinegl.h"
#include "tvectorrenderdata.h"
#include "tvectorgl.h"
#include "trop.h"
#include "toonz/ttileset.h"
#include "toonz/tcenterlinevectorizer.h"
#include "tregion.h"
#include "trasterimage.h"
#include "ttoonzimage.h"
#include "ttzpimagefx.h"
#include "tlevel_io.h"
#include "tsystem.h"
#include "tstream.h"
#include "tsimplecolorstyles.h"
//-------------------------------------------------------------------

namespace {

const int BackgroundStyle = 0;

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

TRect rasterizeStroke(TOfflineGL *&gl, const TRect &rasBounds, TStroke *stroke,
                      TPalette *palette, const TRectD &clip, bool doAntialias) {
  TRectD bbox = clip * stroke->getBBox();
  TRect rect  = convert(bbox).enlarge(1) * rasBounds;

  if (rect.getLx() <= 0 || rect.getLy() <= 0) return TRect();

  gl = new TOfflineGL(rect.getSize());
  gl->makeCurrent();
  gl->clear(TPixel32::White);

  TPaletteP plt      = palette->clone();
  int styleId        = stroke->getStyle();
  TColorStyleP style = plt->getStyle(styleId);
  assert(style);
  style->setMainColor(TPixel32::Black);

  TTranslation affine(-convert(rect.getP00()));
  TVectorRenderData rd(affine, gl->getBounds(), plt.getPointer(), 0, false,
                       doAntialias);
  tglDraw(rd, stroke);

  glFinish();

  return rect;
}

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

TRect rasterizeStroke(TOfflineGL *&gl, TRect rasBounds, TStroke *stroke,
                      TRectD clip, bool filled = false) {
  TDimension d = rasBounds.getSize();

  TPointD offset(d.lx * 0.5, d.ly * 0.5);
  TTranslation offsetMatrix(offset);

  TRectD strokeBBox = stroke->getBBox().enlarge(2);
  if (!clip.isEmpty())
    strokeBBox = offsetMatrix * (strokeBBox * clip);
  else
    strokeBBox = offsetMatrix * strokeBBox;

  TRect rect = ToonzImageUtils::convertWorldToRaster(strokeBBox, 0) * rasBounds;
  if (!rect.isEmpty()) {
    gl = new TOfflineGL(rect.getSize());
    gl->makeCurrent();
    glClearColor(1, 1, 1, 1);
    glClear(GL_COLOR_BUFFER_BIT);

    TPalette *palette = new TPalette();
    TTranslation affine(-strokeBBox.getP00() + offset);
    TVectorRenderData rd(affine, gl->getBounds(), palette, 0, false, true);

    int oldStyle = stroke->getStyle();
    stroke->setStyle(1);

    if (filled) {
      TVectorImage vi;
      vi.addStroke(new TStroke(*stroke));
      vi.findRegions();
      vi.selectFill(vi.getBBox().enlarge(2), 0, 1, false, true, false);
      tglDraw(rd, &vi);
    } else
      tglDraw(rd, stroke);

    delete palette;
    stroke->setStyle(oldStyle);
    glFinish();
  }
  return rect;
}

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

TRect rasterizeRegion(TOfflineGL *&gl, TRect rasBounds, TRegion *region,
                      TRectD clip) {
  TRectD regionBBox               = region->getBBox();
  if (!clip.isEmpty()) regionBBox = regionBBox * clip;

  TRect rect = convert(regionBBox) * rasBounds;
  if (!rect.isEmpty()) {
    gl = new TOfflineGL(rect.getSize());
    gl->makeCurrent();
    gl->clear(TPixel32::White);
    glPushAttrib(GL_ALL_ATTRIB_BITS);
    glEnable(GL_ALPHA_TEST);
    glAlphaFunc(GL_GREATER, 0);

    TPalette *palette = new TPalette();
    TTranslation affine(-convert(rect.getP00()));
    TVectorRenderData rd(affine, gl->getBounds(), palette, 0, true, true);

    int oldStyle = region->getStyle();
    region->setStyle(1);
    tglDraw(rd, region);

    glDisable(GL_ALPHA_TEST);
    glPopAttrib();

    region->setStyle(oldStyle);
    glFinish();
    delete palette;
  }
  return rect;
}

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

void fastAddPaintRegion(const TToonzImageP &ti, TRegion *region, int newPaintId,
                        int maxStyleId, TRectD clip = TRectD()) {
  TRasterCM32P ras = ti->getRaster();
  TOfflineGL *gl;
  TRect rect = rasterizeRegion(gl, ras->getBounds(), region, clip);
  if (rect.isEmpty()) return;

  TRaster32P glRas = gl->getRaster();
  assert(TPixelCM32::getMaxTone() == 255);
  ras->lock();
  glRas->lock();

  for (int y = rect.y0; y <= rect.y1; y++) {
    TPixel32 *inPix    = glRas->pixels(y - rect.y0);
    TPixelCM32 *outPix = ras->pixels(y) + rect.x0;
    TPixel32 *inEndPix = inPix + rect.x1 - rect.x0 + 1;
    for (; inPix < inEndPix; ++outPix, ++inPix)
      if (inPix->r < 128) {
        outPix->setPaint(newPaintId);
        outPix->setTone(255);
      }
  }

  ras->unlock();
  glRas->unlock();

  delete gl;

  TRegion *subregion;
  UINT i = 0;
  for (; i < region->getSubregionCount(); ++i) {
    subregion = region->getSubregion(i);
    fastAddPaintRegion(ti, subregion,
                       std::min(maxStyleId, subregion->getStyle()), maxStyleId);
  }
}
}

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

TRect ToonzImageUtils::convertWorldToRaster(const TRectD area,
                                            const TToonzImageP ti) {
  if (area.isEmpty()) return TRect();
  if (!ti || !ti->getRaster())
    return TRect(tfloor(area.x0), tfloor(area.y0), tfloor(area.x1) - 1,
                 tfloor(area.y1) - 1);
  TRasterCM32P ras = ti->getRaster();
  TRectD rect(area + ras->getCenterD());
  return TRect(tfloor(rect.x0), tfloor(rect.y0), tceil(rect.x1) - 1,
               tceil(rect.y1) - 1);
}

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

TRectD ToonzImageUtils::convertRasterToWorld(const TRect area,
                                             const TToonzImageP ti) {
  if (area.isEmpty()) return TRectD();

  TRectD rect(area.x0, area.y0, area.x1 + 1, area.y1 + 1);
  if (ti && ti->getRaster()) rect = rect - ti->getRaster()->getCenterD();
  return rect;
}

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

// clip in coordinate world (cioe' della stroke)

// overlaying inks, blend inks always "lose" on normal inks

TRect fastAddInkStroke(const TToonzImageP &ti, TStroke *stroke, int inkId,
                       bool selective, bool filled, TRectD clip,
                       bool doAntialiasing       = true,
                       const set<int> &blendInks = set<int>()) {
  TRasterCM32P ras = ti->getRaster();
  TOfflineGL *gl   = 0;

  TRect rectRender = rasterizeStroke(gl, ras->getBounds(), stroke,
                                     ti->getPalette(), clip, doAntialiasing);
  if (!gl) return TRect();

  TRaster32P glRas    = gl->getRaster();
  TRasterCM32P outRas = ras->extract(rectRender);
  assert(glRas->getSize() == outRas->getSize());

  assert(TPixelCM32::getMaxTone() == 255);
  outRas->lock();
  glRas->lock();
  bool isBlendInkUp = (blendInks.find(inkId) != blendInks.end());
  for (int y = 0; y < outRas->getLy(); ++y) {
    TPixel32 *inPix    = glRas->pixels(y);
    TPixelCM32 *outPix = outRas->pixels(y);
    for (int x = 0; x < outRas->getLx(); ++outPix, ++inPix, ++x) {
      int upTone = inPix->r;
      int dnTone = outPix->getTone();

      if (doAntialiasing) {
        // overlaying inks, blend inks always "lose" on normal inks

        bool isBlendInkDn =
            (blendInks.find(outPix->getInk()) != blendInks.end());

        if (isBlendInkUp && !isBlendInkDn && dnTone < 255) continue;

        if (isBlendInkDn && !isBlendInkUp && upTone < 255) {
          *outPix = TPixelCM32(inkId, outPix->getPaint(), upTone);
          continue;
        }

        // The upper pixel replaces the lower one, *if*
        //  a) It's more opaque
        //  b) If the ink id id not the same, ink is not completely transparent
        //  c)  ...
        if ((upTone <= dnTone) &&
            ((outPix->getInk() == inkId) || (upTone != 255)) &&
            (!selective || !outPix->isPureInk()))
          *outPix = TPixelCM32(inkId, outPix->getPaint(), upTone);
      } else {
        if (!selective || !outPix->isPureInk()) {
          // if(upTone<=192 && upTone<=dnTone)
          if (upTone == 0) *outPix = TPixelCM32(inkId, outPix->getPaint(), 0);
        }
      }
    }
  }
  outRas->unlock();
  glRas->unlock();
  delete gl;

  return rectRender;
}

// clip in coordinate world (cioe' della stroke)
TRect ToonzImageUtils::addInkStroke(const TToonzImageP &ti, TStroke *stroke,
                                    int inkId, bool selective, bool filled,
                                    TRectD clip, bool doAntialiasing) {
  TStroke *s      = new TStroke(*stroke);
  TPoint tiCenter = ti->getRaster()->getCenter();
  s->transform(TTranslation(tiCenter.x, tiCenter.y));
  TRect rect =
      fastAddInkStroke(ti, s, inkId, selective, filled, clip, doAntialiasing);
  rect -= tiCenter;
  return rect;
}

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

TRect ToonzImageUtils::changeColorStroke(
    const TToonzImageP &ti, const ChangeColorStrokeSettings &settings) {
  if (!settings.changeInk && !settings.changePaint) return TRect();

  TRasterCM32P ras = ti->getRaster();
  TOfflineGL *gl;
  TRect rect =
      rasterizeStroke(gl, ras->getBounds(), settings.stroke, settings.clip);
  if (rect.isEmpty()) {
    return rect;
  }
  TRaster32P glRas = gl->getRaster();
  ras->lock();
  glRas->lock();

  for (int y = rect.y0; y <= rect.y1; ++y) {
    TPixel32 *inPix    = glRas->pixels(y - rect.y0);
    TPixelCM32 *outPix = ras->pixels(y) + rect.x0;
    TPixel32 *inEndPix = inPix + rect.x1 - rect.x0 + 1;
    for (; inPix < inEndPix; ++outPix, ++inPix) {
      if (inPix->r < 128 && settings.changeInk && !outPix->isPurePaint())
        outPix->setInk(settings.colorId);
      if (inPix->r < 128 && settings.changePaint &&
          (settings.maskPaintId == -1 ||
           outPix->getPaint() == settings.maskPaintId))
        outPix->setPaint(settings.colorId);
    }
  }
  delete gl;
  ras->unlock();
  glRas->unlock();
  return rect;
}

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

TRect ToonzImageUtils::eraseRect(const TToonzImageP &ti, const TRectD &area,
                                 int maskId, bool onInk, bool onPaint) {
  assert(onInk || onPaint);
  TRasterCM32P ras = ti->getRaster();
  TRect rect       = convertWorldToRaster(area, ti) * ras->getBounds();
  if (rect.isEmpty()) return rect;
  ras->lock();

  for (int y = rect.y0; y <= rect.y1; y++) {
    TPixelCM32 *pix    = ras->pixels(y) + rect.x0;
    TPixelCM32 *endPix = ras->pixels(y) + rect.x1 + 1;
    for (; pix < endPix; ++pix) {
      if (onPaint && (maskId == -1 || maskId == pix->getPaint()))
        pix->setPaint(BackgroundStyle);

      if (onInk && (maskId == -1 || maskId == pix->getInk()))
        *pix = TPixelCM32(BackgroundStyle, pix->getPaint(),
                          TPixelCM32::getMaxTone());
    }
  }
  ras->unlock();
  return rect;
}

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

std::vector<TRect> ToonzImageUtils::paste(const TToonzImageP &ti,
                                          const TTileSetCM32 *tileSet) {
  std::vector<TRect> rects;
  TRasterCM32P raster = ti->getRaster();
  // for(int i=0;i<tileSet->getTileCount();i++)
  for (int i = tileSet->getTileCount() - 1; i >= 0; i--) {
    const TTileSetCM32::Tile *tile = tileSet->getTile(i);
    TRasterCM32P rasCM32;
    tile->getRaster(rasCM32);
    assert(!!rasCM32);
    raster->copy(rasCM32, tile->m_rasterBounds.getP00());
    rects.push_back(tile->m_rasterBounds);
  }
  return rects;
}

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

// DA RIFARE
// e' lenta da far schifo

//! Converts a TVectorImage into a TToonzImage. The input vector image
//! is transformed through the passed affine \b aff, and put into a
//! TToonzImage strictly covering the bounding box of the transformed
//! vector image. The output image has its lower-left position in the
//! world reference specified by the \b pos parameter, which is granted to
//! be an integer displacement of the passed value. Additional parameters
//! include an integer \b enlarge by which the output image is enlarged with
//! respect to the transformed image's bbox, and the bool \b transformThickness
//! to specify whether the transformation should involve strokes' thickensses
//! or not.
TToonzImageP ToonzImageUtils::vectorToToonzImage(
    const TVectorImageP &vimage, const TAffine &aff, TPalette *palette,
    const TPointD &outputPos, const TDimension &outputSize,
    const std::vector<TRasterFxRenderDataP> *fxs, bool transformThickness) {
  if (!vimage || !palette) return 0;

  // Transform the vector image through aff
  TVectorImageP vi = vimage->clone();
  vi->transform(aff, transformThickness);

  // Allocate the output ToonzImage
  TRasterCM32P raster(outputSize.lx, outputSize.ly);
  raster->clear();
  TToonzImageP ti(raster, raster->getBounds());
  ti->setPalette(palette->clone());

  // Shift outputPos to the origin
  vi->transform(TTranslation(-outputPos));

  int strokeCount = vi->getStrokeCount();
  std::vector<int> strokeIndex(strokeCount);
  std::vector<TStroke *> strokes(strokeCount);
  int maxStyleId = palette->getStyleCount() - 1;

  int i;
  for (i = 0; i < strokeCount; ++i) {
    strokeIndex[i] = i;
    strokes[i]     = vi->getStroke(i);
  }
  vi->notifyChangedStrokes(strokeIndex, strokes);
  int regionCount = vi->getRegionCount();

  // In such reference, the clip for rendering strokes is the output size
  TRectD clip(TDimensionD(outputSize.lx, outputSize.ly));

  set<int> colors;
  if (fxs) {
    for (i = 0; i < (int)fxs->size(); i++) {
      SandorFxRenderData *sandorData =
          dynamic_cast<SandorFxRenderData *>((*fxs)[i].getPointer());
      if (sandorData && sandorData->m_type == BlendTz) {
        std::string indexes =
            ::to_string(sandorData->m_blendParams.m_colorIndex);
        std::vector<std::string> items;
        parseIndexes(indexes, items);
        PaletteFilterFxRenderData paletteFilterData;
        insertIndexes(items, &paletteFilterData);
        colors.insert(paletteFilterData.m_colors.begin(),
                      paletteFilterData.m_colors.end());
      }
    }
  }

  int k, l;
  for (i = 0; i < strokeCount;) {
    // Draw all regions which have the same group.
    for (k = 0; k < regionCount; ++k)
      if (vi->areDifferentGroup(i, false, k, true) == -1) {
        TRegion *region = vi->getRegion(k);
        fastAddPaintRegion(ti, region, std::min(maxStyleId, region->getStyle()),
                           maxStyleId);
      }

    // Find the first stroke which does not belong to the group
    for (k = i;
         k < strokeCount && vi->areDifferentGroup(i, false, k, false) == -1;
         ++k)
      ;

    // Draw all found strokes
    for (l = i; l < k; ++l) {
      TStroke *stroke = vi->getStroke(l);

      bool visible       = false;
      int styleId        = stroke->getStyle();
      TColorStyleP style = palette->getStyle(styleId);
      assert(style);
      int colorCount = style->getColorParamCount();
      if (colorCount == 0)
        visible = true;
      else {
        visible = false;
        for (int j = 0; j < style->getColorParamCount() && !visible; j++) {
          TPixel32 color            = style->getColorParamValue(j);
          if (color.m != 0) visible = true;
        }
      }
      if (visible)
        fastAddInkStroke(ti, stroke, std::min(maxStyleId, stroke->getStyle()),
                         false, false, clip, true, colors);
    }
    i = k;
  }

  return ti;
}

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

TPalette *ToonzImageUtils::loadTzPalette(const TFilePath &pltFile) {
  TImageP pltImg;
  TImageReader loader(pltFile);
  pltImg = loader.load();

  TRasterImageP pltRasImg(pltImg);
  if (!pltRasImg) return 0;

  TRaster32P rasPlt = pltRasImg->getRaster();
  if (!rasPlt) return 0;

  std::map<int, std::pair<std::string, std::string>> pltColorNames;
  std::map<int, std::pair<std::string, std::string>>::iterator it;
  loader.getTzpPaletteColorNames(pltColorNames);

  TPalette *palette = new TPalette();

  const int offset = 0;

  assert(rasPlt->getLy() == 2);
  rasPlt->lock();
  TPixel32 *pixelRow = rasPlt->pixels(0);
  int x              = 0;
  int count          = palette->getStyleCount();

  for (; x < rasPlt->getLx(); ++x) {
    TSolidColorStyle *style = new TSolidColorStyle(pixelRow[x]);
    if ((it = pltColorNames.find(x)) != pltColorNames.end()) {
      std::string styleName = it->second.second;
      style->setName(::to_wstring(styleName));
    }
    if (x < count) palette->setStyle(x, style);
    // palette->setStyle(x, pixelRow[x]);
    else
      palette->addStyle(style);
  }

  // aggiungo solo i colori usati (salvo il BG)

  TPalette::Page *page = palette->getPage(0);
  // nella pagina c'e' gia' lo sfondo e il colore 1:
  // tolgo quest'ultimo
  page->removeStyle(1);
  // aggiungo gli altri
  std::map<std::wstring, int> pages;
  std::map<std::wstring, int>::iterator itpage;

  pixelRow = rasPlt->pixels(1);
  for (x = 0; x < rasPlt->getLx(); ++x) {
    if ((it = pltColorNames.find(x)) != pltColorNames.end()) {
      std::wstring pageName;
      pageName = ::to_wstring(it->second.first);
      if (x == 0) {
        page = palette->getPage(0);
        page->setName(pageName);
        pages[pageName] = 0;
      } else if ((itpage = pages.find(pageName)) != pages.end())
        page = palette->getPage(itpage->second);
      else {
        page            = palette->addPage(pageName);
        pages[pageName] = page->getIndex();
      }
    } else
      page = palette->getPage(0);

    if (pixelRow[x].r == 255) page->addStyle(offset + x);
  }
  rasPlt->unlock();

  return palette;
}

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

void ToonzImageUtils::getUsedStyles(std::set<int> &styles,
                                    const TToonzImageP &ti) {
  TRasterCM32P ras = ti->getRaster();
  if (!ras) return;
  int lx = ras->getLx();
  int ly = ras->getLy();
  ras->lock();
  for (int y = 0; y < ly; y++) {
    TPixelCM32 *pix    = ras->pixels(y);
    TPixelCM32 *endPix = pix + lx;
    while (pix < endPix) {
      styles.insert(pix->getInk());
      styles.insert(pix->getPaint());
      ++pix;
    }
  }
  ras->unlock();
}

void ToonzImageUtils::scrambleStyles(const TToonzImageP &ti,
                                     std::map<int, int> styleTable) {
  TRasterCM32P ras = ti->getRaster();
  if (!ras) return;
  if (styleTable.empty()) return;
  std::map<int, int>::iterator it;
  std::vector<int> lut(4096, -1);
  bool isIdentity = true;
  for (it = styleTable.begin(); it != styleTable.end(); ++it) {
    int j = it->first, k = it->second;
    assert(j >= 0);
    assert(j < 1000000);
    if (j >= (int)lut.size()) lut.resize(j + 1, -1);
    lut[j]                 = k;
    if (j != k) isIdentity = false;
  }
  if (isIdentity) return;

  int m  = lut.size();
  int lx = ras->getLx();
  int ly = ras->getLy();
  ras->lock();
  for (int y = 0; y < ly; y++) {
    TPixelCM32 *pix    = ras->pixels(y);
    TPixelCM32 *endPix = pix + lx;
    while (pix < endPix) {
      int ink                                               = pix->getInk();
      if (0 <= ink && ink < m && lut[ink] >= 0) ink         = lut[ink];
      int paint                                             = pix->getPaint();
      if (0 <= paint && paint < m && lut[paint] >= 0) paint = lut[paint];
      if (ink != pix->getInk() || paint != pix->getPaint()) {
        *pix = TPixelCM32(ink, paint, pix->getTone());
      }
      ++pix;
    }
  }
  ras->unlock();
}

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

#ifdef LEVO

bool ToonzImageUtils::convertToTlv(const TFilePath &levelPathIn) {
  try {
    TFilePath levelPathOut = levelPathIn.getParentDir() +
                             TFilePath(levelPathIn.getWideName() + L".tlv");

    TLevelReaderP lr(levelPathIn);
    TLevelP level = lr->loadInfo();

    TLevelWriterP lw(levelPathOut, 0);

    TPalette *plt = new TPalette();

    TLevel::Iterator it  = level->begin();
    TLevel::Iterator end = level->end();
    for (; it != level->end(); ++it) {
      try {
        TImageReaderP ir  = lr->getFrameReader(it->first);
        TRasterImageP img = ir->load();
        double dpix, dpiy;
        img->getDpi(dpix, dpiy);
        TRasterCM32P raster(convert(img->getBBox()).getSize());

        TRop::convert(raster, img->getRaster());

        TImageWriterP iw = lw->getFrameWriter(it->first);
        TToonzImageP outimg(raster, raster->getBounds());
        outimg->setDpi(dpix, dpiy);
        outimg->setPalette(plt);
        iw->save(outimg);

      } catch (...) {
        return false;
        // string msg="Frame "+toString(it->first.getNumber())+": conversion
        // failed!";
        // cout << msg << endl;
      }
    }

    TFilePath pltPath = lw->getFilePath().withNoFrame().withType("tpl");
    if (TSystem::touchParentDir(pltPath)) {
      if (TSystem::doesExistFileOrLevel(pltPath))
        TSystem::removeFileOrLevel(pltPath);
      TOStream os(pltPath);
      os << plt;
    }

    lr = TLevelReaderP();
    lw = TLevelWriterP();
    // delete plt;

    return true;
  } catch (...) {
    return false;
  }
}

#endif

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

void ToonzImageUtils::eraseImage(const TToonzImageP &ti,
                                 const TRaster32P &image, const TPoint &pos,
                                 bool invert, bool eraseInk, bool erasePaint,
                                 bool selective, int styleId) {
  TRect rasBounds   = ti->getRaster()->getBounds();
  TRect imageBounds = image->getBounds() + pos;

  if (invert) {
    /*----------------------------------------
    ┌───┬─┐
    │③　　│②│
    ├─┬─┤　│
    │④│★│　│
    │　├─┴─┤
    │　│①　　│
    └─┴───┘
★はFreeHandで囲んだ領域のバウンディングボックス
外側のワクはラスタ画像のフチ
-----------------------------------------*/
    TRect rect;
    /*- ①の部分を消す -*/
    if (rasBounds.y0 != imageBounds.y0) {
      rect = TRect(imageBounds.x0, rasBounds.y0, rasBounds.x1, imageBounds.y0);
      ToonzImageUtils::eraseRect(
          ti, ToonzImageUtils::convertRasterToWorld(rect, ti),
          selective ? styleId : -1, eraseInk, erasePaint);
    }
    /*- ②の部分を消す -*/
    if (imageBounds.x1 != rasBounds.x1) {
      rect = TRect(imageBounds.x1, imageBounds.y0, rasBounds.x1, rasBounds.y1);
      ToonzImageUtils::eraseRect(
          ti, ToonzImageUtils::convertRasterToWorld(rect, ti),
          selective ? styleId : -1, eraseInk, erasePaint);
    }
    /*- ③の部分を消す -*/
    if (imageBounds.y1 != rasBounds.y1) {
      rect = TRect(rasBounds.x0, imageBounds.y1, imageBounds.x1, rasBounds.y1);
      ToonzImageUtils::eraseRect(
          ti, ToonzImageUtils::convertRasterToWorld(rect, ti),
          selective ? styleId : -1, eraseInk, erasePaint);
    }
    /*- ④の部分を消す -*/
    if (rasBounds.x0 != imageBounds.x0) {
      rect = TRect(rasBounds.x0, rasBounds.y0, imageBounds.x0, imageBounds.y1);
      ToonzImageUtils::eraseRect(
          ti, ToonzImageUtils::convertRasterToWorld(rect, ti),
          selective ? styleId : -1, eraseInk, erasePaint);
    }
  }

  TRasterCM32P workRas = ti->getRaster()->extract(imageBounds);

  int y;
  for (y = 0; y < workRas->getLy(); y++) {
    TPixelCM32 *outPix    = workRas->pixels(y);
    TPixelCM32 *outEndPix = outPix + workRas->getLx();
    TPixel32 *inPix       = image->pixels(y);
    for (outPix; outPix != outEndPix; outPix++, inPix++) {
      bool canEraseInk =
          !selective || (selective && styleId == outPix->getInk());
      bool canErasePaint =
          !selective || (selective && styleId == outPix->getPaint());

      int paint, tone;
      if (!invert) {
        paint = inPix->m > 0 && erasePaint && canErasePaint
                    ? 0
                    : outPix->getPaint();
        tone = inPix->m > 0 && eraseInk && canEraseInk
                   ? std::max(outPix->getTone(), (int)inPix->m)
                   : outPix->getTone();
      } else {
        paint = inPix->m < 255 && erasePaint && canErasePaint
                    ? 0
                    : outPix->getPaint();
        tone = inPix->m < 255 && eraseInk && canEraseInk
                   ? std::max(outPix->getTone(), 255 - (int)inPix->m)
                   : outPix->getTone();
      }
      *outPix = TPixelCM32(outPix->getInk(), paint, tone);
    }
  }
}

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

std::string ToonzImageUtils::premultiply(const TFilePath &levelPath) {
  assert(0);
  /*
if (levelPath==TFilePath())
return "";

if(!TSystem::doesExistFileOrLevel(levelPath))
return string("Can't find level")+toString(levelPath.getWideString());

TFileType::Type type = TFileType::getInfo(levelPath);
if(type == TFileType::CMAPPED_LEVEL)
return "Cannot premultiply the selected file.";

if (type == TFileType::VECTOR_LEVEL || type == TFileType::VECTOR_IMAGE)
return "Cannot premultiply a vector-based level.";

if (type != TFileType::RASTER_LEVEL && type != TFileType::RASTER_IMAGE)
return "Cannot premultiply the selected file.";

try
{
TLevelReaderP lr = TLevelReaderP(levelPath);
if (!lr) return "";
TLevelP level =  lr->loadInfo();
if(!level || level->getFrameCount()==0) return "";
string format = levelPath.getType();


TPropertyGroup* prop =
TApplication::instance()
->getCurrentScene()
->getProperties()
->getOutputProperties()
->getFileFormatProperties(format)
->clone();
assert(prop);

TEnumProperty *p = (TEnumProperty*)prop->getProperty("Bits Per Pixel");
int bpp = p?atoi((toString(p->getValue()).c_str())):32;
if (bpp!=32 && bpp!=64) //non ha senso premoltiplicare senza il canale alpha...
{
if (bpp<32)
p->setValue(L"32(RGBM)");
else
p->setValue(L"64(RGBM)");
}

bool isMovie = (format=="mov" || format=="avi" || format=="3gp");


TLevelWriterP lw;
if (!isMovie)
{
lw = TLevelWriterP(levelPath, prop);
if (!lw) return "";
}

int count = 0;
TLevel::Iterator it = level->begin();

for (;it!=level->end(); ++it)
{
TImageReaderP ir = lr->getFrameReader(it->first);

TRasterImageP rimg = (TRasterImageP)ir->load();
if (!rimg)
continue;

TRop::premultiply(rimg->getRaster());
ir = 0;

if (isMovie)
level->setFrame(it->first, rimg);
else
{
TImageWriterP iw = lw->getFrameWriter(it->first);
iw->save(rimg);
iw = 0;
}
}

lr = TLevelReaderP();

if (isMovie)
{
TSystem::deleteFile(levelPath);
lw = TLevelWriterP(levelPath, prop);
if (!lw) return "";
lw->save(level);
}
if (prop)
delete prop;
}catch(...)
{
  return "Cannot premultiply the selected file.";
}
*/

  return "";
}