#include "toonz/imagepainter.h"
#include "toonz/glrasterpainter.h"
#include "trastercm.h"
#include "tropcm.h"
#include "tpalette.h"
#include "tgl.h"
#include "tvectorimage.h"
#include "tenv.h"
#include "trop.h"
#include "tvectorrenderdata.h"
#include "tvectorgl.h"
#include "trasterimage.h"
#include "timagecache.h"
#include "toonz/sceneproperties.h"
#include "toonz/stage2.h"
#include "toonz/preferences.h"
#include "toonz/fill.h"

using namespace ImagePainter;

TEnv::IntVar FlipBookWhiteBgToggle("FlipBookWhiteBgToggle", 1);
TEnv::IntVar FlipBookBlackBgToggle("FlipBookBlackBgToggle", 0);
TEnv::IntVar FlipBookCheckBgToggle("FlipBookCheckBgToggle", 0);
namespace {

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

TRaster32P keepChannels(const TRasterP &rin, TPalette *palette, UCHAR channel) {
  TRaster32P rout(rin->getSize());

  if ((TRasterCM32P)rin)
    TRop::convert(rout, (TRasterCM32P)rin, TPaletteP(palette));
  else
    TRop::copy(rout, rin);

  TPixel32 *pix = (TPixel32 *)rout->getRawData();

  assert(channel & TRop::MChan);
  int i;

  for (i = 0; i < rout->getLx() * rout->getLy(); i++, pix++) {
    if (!(channel & TRop::RChan)) pix->r = 0;
    if (!(channel & TRop::GChan)) pix->g = 0;
    if (!(channel & TRop::BChan)) pix->b = 0;
  }
  return rout;
}

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

inline void quickput(const TRasterP &rout, const TRasterP &rin,
                     const TPaletteP &palette, const TAffine &aff,
                     bool useChecks) {
  if (TRasterCM32P srcCM32 = rin) {
    if (useChecks) {
      bool inksOnly       = false;
      TPixel32 colorscale = TPixel32(0, 0, 0, 255);
      int tc              = ToonzCheck::instance()->getChecks();
      int index           = ToonzCheck::instance()->getColorIndex();

      if (tc & ToonzCheck::eGap) {
        srcCM32 = srcCM32->clone();
        AreaFiller(srcCM32).rectFill(srcCM32->getBounds(), 1, true, true,
                                     false);
      }

      if (tc == 0 || tc == ToonzCheck::eBlackBg)
        TRop::quickPut(rout, srcCM32, palette, aff, colorscale, inksOnly);
      else {
        TRop::CmappedQuickputSettings settings;
        settings.m_globalColorScale = colorscale;
        settings.m_inksOnly         = inksOnly;
        settings.m_transparencyCheck =
            tc & (ToonzCheck::eTransparency | ToonzCheck::eGap);
        settings.m_blackBgCheck = tc & ToonzCheck::eBlackBg;
        settings.m_inkIndex =
            tc & ToonzCheck::eInk ? index : (tc & ToonzCheck::eInk1 ? 1 : -1);
        settings.m_paintIndex = tc & ToonzCheck::ePaint ? index : -1;
        Preferences::instance()->getTranspCheckData(
            settings.m_transpCheckBg, settings.m_transpCheckInk,
            settings.m_transpCheckPaint);
        TRop::quickPut(rout, srcCM32, palette, aff, settings);
      }
      srcCM32 = TRasterCM32P();

    } else
      TRop::quickPut(rout, rin, palette, aff);
  } else
    TRop::quickPut(rout, rin, aff);
}

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

TPixel32 *getBuffer(const TRect &rect) {
  static std::vector<char> buffer;
  int size = rect.getLx() * rect.getLy() * 4;
  if (size > (int)buffer.size()) buffer.resize(size);
  return (TPixel32 *)&buffer[0];
}

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

TRaster32P getCheckBoard(const TRect &rect, const TAffine &aff,
                         TSceneProperties *sprop) {
  double scale = sqrt(fabs(aff.det()));
  TPixel32 col1, col2;
  Preferences::instance()->getChessboardColors(col1, col2);
  TRaster32P ras(rect.getLx(), rect.getLy(), rect.getLx(), getBuffer(rect));
  TRop::checkBoard(ras, col1, col2, TDimensionD(50 * scale, 50 * scale),
                   TPointD(-aff.a13, -aff.a23));
  return ras;
}

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

void drawCompareLines(const TDimension &dim, double compareX, double compareY) {
  glPushMatrix();
  glLoadIdentity();

  glColor3d(0.0, 0.0, 0.0);

  glBegin(GL_LINES);
  glVertex2d(dim.lx * compareX - 1, 0);
  glVertex2d(dim.lx * compareX - 1, dim.ly - 1);
  glVertex2d(dim.lx * compareX + 1, 0);
  glVertex2d(dim.lx * compareX + 1, dim.ly - 1);

  glVertex2d(0, dim.ly * compareY - 1);
  glVertex2d(dim.lx - 1, dim.ly * compareY - 1);
  glVertex2d(0, dim.ly * compareY + 1);
  glVertex2d(dim.lx - 1, dim.ly * compareY + 1);
  glEnd();
  glColor3d(1.0, 0.0, 0.0);
  glBegin(GL_LINES);
  glVertex2d(dim.lx * compareX, 0);
  glVertex2d(dim.lx * compareX, dim.ly - 1);

  glVertex2d(0, dim.ly * compareY);
  glVertex2d(dim.lx - 1, dim.ly * compareY);
  glEnd();
  glPopMatrix();
}

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

class Painter {
  TDimension m_dim;
  TDimension m_imageSize;
  TAffine m_aff;
  TAffine m_finalAff;

  TPalette *m_palette;
  TRectD m_bbox;
  TRasterP m_raster;
  bool m_useTexture;
  bool m_drawExternalBG;
  VisualSettings m_vSettings;

public:
  Painter(const TDimension &dim, const TDimension &imageSize,
          const TAffine &viewAff, TPalette *palette,
          const VisualSettings &visualSettings);

  void flushRasterImages(const TRect &loadbox, double compareX, double compareY,
                         bool swapCompared);
  void doFlushRasterImages(const TRasterP &rin, int bg,
                           const TPointD &offs = TPointD());
  void onVectorImage(TVectorImage *vi);
  void onRasterImage(TRasterImage *ri);
  void onToonzImage(TToonzImage *ti);
  void drawBlank();
  TRaster32P buildCheckboard(int bg, const TDimension &dim);
};

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

Painter::Painter(const TDimension &dim, const TDimension &imageSize,
                 const TAffine &viewAff, TPalette *palette,
                 const VisualSettings &visualSettings)
    : m_dim(dim)
    , m_imageSize(imageSize)
    , m_aff(viewAff)
    , m_palette(palette)
    , m_bbox()
    , m_raster()
    , m_vSettings(visualSettings)
//, m_channel(visualSettings.m_colorMask)
//, m_greytones(visualSettings.m_greytones)
//, m_sceneProperties(visualSettings.m_sceneProperties)
//, m_useTexture(visualSettings.m_useTexture)
//, m_drawExternalBG(visualSettings.m_drawExternalBG)
{}

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

void Painter::flushRasterImages(const TRect &loadbox, double compareX,
                                double compareY, bool swapCompare) {
  if (!m_raster) return;
  glDisable(GL_DEPTH_TEST);
  glDisable(GL_DITHER);
  glDisable(GL_LOGIC_OP);
  glDisable(GL_STENCIL_TEST);

#ifdef GL_EXT_convolution
  glDisable(GL_CONVOLUTION_1D_EXT);
  glDisable(GL_CONVOLUTION_2D_EXT);
  glDisable(GL_SEPARABLE_2D_EXT);
#endif

#ifdef GL_EXT_histogram
  glDisable(GL_HISTOGRAM_EXT);
  glDisable(GL_MINMAX_EXT);
#endif

#ifdef GL_EXT_texture3D
  glDisable(GL_TEXTURE_3D_EXT);
#endif

  UCHAR m = m_vSettings.m_colorMask;
  bool showBg =
      (m == 0 || (m & TRop::MChan && !m_vSettings.m_greytones &&
                  (m & TRop::RChan || m & TRop::GChan || m & TRop::BChan)));

  int bg = showBg ? m_vSettings.m_bg : 0x40000;

  if (m_vSettings.m_drawExternalBG) {
    if (m_vSettings.m_colorMask != 0) {
      glClearColor(0, 0, 0, 1.0);
      glClear(GL_COLOR_BUFFER_BIT);
    } else {
      TPixel bgColor = Preferences::instance()->getPreviewBgColor();
      glClearColor(bgColor.r / 255.0f, bgColor.g / 255.0f, bgColor.b / 255.0f,
                   1.0);
      glClear(GL_COLOR_BUFFER_BIT);
    }
  }
  UCHAR chan = m_vSettings.m_colorMask;
  if (chan != 0 && !(chan & TRop::MChan) &&
      !(chan != TRop::MChan && chan & TRop::MChan) && !m_vSettings.m_greytones)
    glColorMask((chan & TRop::RChan) ? GL_TRUE : GL_FALSE,
                (chan & TRop::GChan) ? GL_TRUE : GL_FALSE,
                (chan & TRop::BChan) ? GL_TRUE : GL_FALSE, GL_TRUE);

  if (compareX != DefaultCompareValue || compareY != DefaultCompareValue) {
    glEnable(GL_SCISSOR_TEST);
    // draw right/down part of the screen...
    if (swapCompare)
      glScissor(0, 0,
                m_dim.lx * (compareX == DefaultCompareValue ? 1 : compareX),
                m_dim.ly * (compareY == DefaultCompareValue ? 1 : compareY));
    else
      glScissor(m_dim.lx * (compareX == DefaultCompareValue ? 0 : compareX),
                m_dim.ly * (compareY == DefaultCompareValue ? 0 : compareY),
                m_dim.lx, m_dim.ly);
    doFlushRasterImages(m_raster, bg, convert(loadbox.getP00()));

    TImageP refimg =
        TImageCache::instance()->get(QString("TnzCompareImg"), false);
    if ((TToonzImageP)refimg || (TRasterImageP)refimg) {
      // draw left/up part of the screen...
      TRasterP raux, rref;
      if ((TToonzImageP)refimg)
        rref = ((TToonzImageP)refimg)->getCMapped();
      else
        rref = ((TRasterImageP)refimg)->getRaster();

      TRect rect = loadbox;
      raux       = loadbox != TRect() ? rref->extract(rect) : rref;

      TPointD cmpOffs = TPointD(
          0.5 * (((m_imageSize.lx == 0) ? m_raster->getLx() : m_imageSize.lx) -
                 rref->getLx()),
          0.5 * (((m_imageSize.ly == 0) ? m_raster->getLy() : m_imageSize.ly) -
                 rref->getLy()));

      if (swapCompare)
        glScissor(m_dim.lx * (compareX == DefaultCompareValue ? 0 : compareX),
                  m_dim.ly * (compareY == DefaultCompareValue ? 0 : compareY),
                  m_dim.lx, m_dim.ly);
      else
        glScissor(0, 0,
                  m_dim.lx * (compareX == DefaultCompareValue ? 1 : compareX),
                  m_dim.ly * (compareY == DefaultCompareValue ? 1 : compareY));
      doFlushRasterImages(raux, bg, cmpOffs + convert(loadbox.getP00()));
    }
    glDisable(GL_SCISSOR_TEST);
  } else
    doFlushRasterImages(m_raster, bg, convert(loadbox.getP00()));

  m_raster  = TRasterP();
  m_palette = 0;
}

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

TRaster32P Painter::buildCheckboard(int bg, const TDimension &dim) {
  TRaster32P checkBoard = TRaster32P(100, 100);
  if (bg == 0x100000) {
    TPixel col1, col2;
    Preferences::instance()->getChessboardColors(col1, col2);
    TPointD p = TPointD(0, 0);
    if (m_vSettings.m_useTexture)
      p = TPointD(m_bbox.x0 > 0 ? 0 : -m_bbox.x0,
                  m_bbox.y0 > 0 ? 0 : -m_bbox.y0);

    assert(checkBoard.getPointer());
    TRop::checkBoard(checkBoard, col1, col2, TDimensionD(50, 50), p);
  } else {
    TPixel pix = bg == 0x40000 ? TPixel::Black : TPixel::White;
    assert(checkBoard.getPointer());
    checkBoard->fill(pix);
  }

  // TRaster32P textureBackGround;

  // if(m_vSettings.m_useTexture)
  //  textureBackGround = TRaster32P(dim.lx,dim.ly);

  assert(checkBoard.getPointer());
  int lx = (m_imageSize.lx == 0 ? dim.lx : m_imageSize.lx);
  int ly = (m_imageSize.ly == 0 ? dim.ly : m_imageSize.ly);
  int x, y;

  TRaster32P checkBoardRas(lx, ly);
  for (y = 0; y < ly; y += 100) {
    for (x = 0; x < lx; x += 100) {
      // TAffine checkTrans = TTranslation(x,y);
      // if(m_vSettings.m_useTexture)
      //  quickput(textureBackGround, checkBoard, m_palette, checkTrans);
      // else
      quickput(checkBoardRas, checkBoard, m_palette, TTranslation(x, y), false);
    }
  }

  return checkBoardRas;
}

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

void Painter::doFlushRasterImages(const TRasterP &rin, int bg,
                                  const TPointD &offs) {
  if (!rin) return;
  TRectD viewRect(0.0, 0.0, m_dim.lx - 1, m_dim.ly - 1);
  TRectD bbox;
  if (m_vSettings.m_useTexture)
    bbox = m_bbox;
  else {
    double delta = sqrt(fabs(m_finalAff.det()));
    bbox         = m_bbox.enlarge(delta) * viewRect;
  }

  UCHAR chan = m_vSettings.m_colorMask;
  TRect rect(tfloor(bbox.x0), tfloor(bbox.y0), tceil(bbox.x1), tceil(bbox.y1));
  if (rect.isEmpty()) return;

  TRaster32P ras;
  TRasterP _rin = rin;
  TAffine aff;
  if (m_vSettings.m_useTexture) {
    ras = _rin;
    aff = m_aff;
    // ras->clear();
  } else {
    int lx = rect.getLx(), ly = rect.getLy();

    // Following lines are used to solve a problem that occurs with some
    // graphics cards!
    // It seems that the glReadPixels() function is very slow if the lx length
    // isn't a multiple of 8!
    TDimension backgroundDim(lx, ly);
    backgroundDim.lx = (lx & 0x7) == 0 ? lx : lx + 8 - (lx & 0x7);

    static std::vector<char> buffer;
    int size = backgroundDim.lx * backgroundDim.ly * 4;
    if (size > (int)buffer.size()) buffer.resize(size);

    TRaster32P backgroundRas(backgroundDim.lx, backgroundDim.ly,
                             backgroundDim.lx, (TPixel32 *)&buffer[0]);
    glReadPixels(rect.x0, rect.y0, backgroundDim.lx, backgroundDim.ly, TGL_FMT,
                 TGL_TYPE, backgroundRas->getRawData());
    TRect r = rect - rect.getP00();
    ras     = backgroundRas->extract(r);

    aff = TTranslation(-rect.x0, -rect.y0) * m_finalAff;
    aff *= TTranslation(TPointD(0.5, 0.5));  // very quick and very dirty fix:
                                             // in camerastand the images seems
                                             // shifted of an half pixel...it's
                                             // a quickput approximation?
  }

  ras->lock();

  bool showChannelsOnMatte =
      (chan != TRop::MChan && chan != 0 && !m_vSettings.m_greytones);

  if (m_vSettings.m_useTexture) {
    TRaster32P checkBoardRas = buildCheckboard(bg, _rin->getSize());
    GLRasterPainter::drawRaster(aff, checkBoardRas->getRawData(),
                                checkBoardRas->getWrap(), 4,
                                checkBoardRas->getSize(), true);
    if (showChannelsOnMatte)
      ras = keepChannels(_rin, m_palette, chan);
    else if (chan == TRop::MChan || m_vSettings.m_greytones) {
      TRasterP app = ras->create(ras->getLx(), ras->getLy());
      try {
        TRop::setChannel(ras, app, chan, m_vSettings.m_greytones);
        ras = app;
      } catch (...) {
      }
    }
    GLRasterPainter::drawRaster(aff, ras->getRawData(), ras->getWrap(), 4,
                                ras->getSize(), true);
    ras->unlock();
  } else {
    if (bg == 0x100000)
      quickput(ras, buildCheckboard(bg, _rin->getSize()), m_palette, aff,
               false);
    else {
      int lx = (m_imageSize.lx == 0 ? _rin->getLx() : m_imageSize.lx);
      int ly = (m_imageSize.ly == 0 ? _rin->getLy() : m_imageSize.ly);

      TRect rect = convert(aff * TRectD(0, 0, lx - 1, ly - 1));
      // Image size is a 0 point.  Do nothing
      if (rect.x0 == rect.x1 && rect.y0 == rect.y1) return;

      TRaster32P raux = ras->extract(rect);
      raux->fill(bg == 0x40000 ? TPixel::Black : TPixel::White);
    }

    if (showChannelsOnMatte)
      quickput(ras, keepChannels(_rin, m_palette, chan), m_palette,
               m_vSettings.m_useTexture ? TAffine() : aff * TTranslation(offs),
               m_vSettings.m_useChecks);
    else if (chan != 0) {
      TRasterP app = ras->create(_rin->getLx(), _rin->getLy());
      quickput(app, _rin, m_palette, TAffine(), m_vSettings.m_useChecks);
      try {
        TRop::setChannel(app, app, chan, m_vSettings.m_greytones);
      } catch (...) {
      }
      quickput(ras, app, m_palette, aff * TTranslation(offs),
               m_vSettings.m_useChecks);
    } else {
      quickput(ras, _rin, m_palette, aff * TTranslation(offs),
               m_vSettings.m_useChecks);
    }

    glDisable(GL_BLEND);

    glPushMatrix();
    glLoadIdentity();

    glRasterPos2d(rect.x0, rect.y0);
    glPixelStorei(GL_UNPACK_ROW_LENGTH, 0);

    glDrawPixels(ras->getWrap(), ras->getLy(), TGL_FMT, TGL_TYPE,
                 ras->getRawData());

    CHECK_ERRORS_BY_GL

    ras->unlock();
    glPopMatrix();
  }
}

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

void Painter::onVectorImage(TVectorImage *vi) {
  TRect clipRect = m_dim;
  clipRect -= TPoint(m_dim.lx * 0.5, m_dim.ly * 0.5);

  bool thereIsColorFilter =
      (m_vSettings.m_colorMask != 0 && m_vSettings.m_colorMask != TRop::MChan);

  if (m_vSettings.m_bg == 0x100000 && !thereIsColorFilter) {
    TRaster32P check =
        getCheckBoard(clipRect, m_aff, m_vSettings.m_sceneProperties);

    glDisable(GL_BLEND);

    glPushMatrix();
    glLoadIdentity();
    glRasterPos2d(0, 0);
    glPixelStorei(GL_UNPACK_ROW_LENGTH, 0);

    glDrawPixels(check->getLx(), check->getLy(), TGL_FMT, TGL_TYPE,
                 check->getRawData());
    glPopMatrix();
  } else {
    if (m_vSettings.m_bg == 0x40000 || thereIsColorFilter)
      glClearColor(0.0, 0.0, 0.0, 1.0);
    else if (m_vSettings.m_bg == 0x80000)
      glClearColor(1.0, 1.0, 1.0, 1.0);

    glClear(GL_COLOR_BUFFER_BIT);
  }

  TVectorRenderData rd(m_aff, clipRect, vi->getPalette(), 0,
                       true  // alfa enabled
                       );
  if (m_vSettings.m_useChecks) {
    ToonzCheck *tc         = ToonzCheck::instance();
    int checks             = tc->getChecks();  // &ToonzCheck::eBlackBg
    rd.m_inkCheckEnabled   = checks & ToonzCheck::eInk;
    rd.m_paintCheckEnabled = checks & ToonzCheck::ePaint;
    rd.m_colorCheckIndex   = tc->getColorIndex();
  }
  tglDraw(rd, vi);
}

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

void Painter::onRasterImage(TRasterImage *ri) {
  TDimension imageSize =
      (m_imageSize.lx == 0 ? ri->getRaster()->getSize() : m_imageSize);

  m_finalAff =
      m_vSettings.m_useTexture
          ? m_aff
          : TTranslation(m_dim.lx * 0.5, m_dim.ly * 0.5) * m_aff *
                TTranslation(-TPointD(0.5 * imageSize.lx, 0.5 * imageSize.ly));

  TRectD bbox = TRectD(0, 0, imageSize.lx - 1, imageSize.ly - 1);
  m_bbox      = m_vSettings.m_useTexture ? bbox : m_finalAff * bbox;

  if (!m_bbox.overlaps(TRectD(0, 0, m_dim.lx - 1, m_dim.ly - 1))) return;
  m_raster = ri->getRaster();
}

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

void Painter::onToonzImage(TToonzImage *ti) {
  TDimension imageSize =
      (m_imageSize.lx == 0 ? ti->getRaster()->getSize() : m_imageSize);

  m_finalAff =
      m_vSettings.m_useTexture
          ? m_aff
          : TTranslation(m_dim.lx * 0.5, m_dim.ly * 0.5) * m_aff *
                TTranslation(-TPointD(0.5 * imageSize.lx, 0.5 * imageSize.ly));

  TRectD bbox = TRectD(0, 0, imageSize.lx - 1, imageSize.ly - 1);
  m_bbox      = m_vSettings.m_useTexture ? bbox : m_finalAff * bbox;
  if (!m_bbox.overlaps(TRectD(0, 0, m_dim.lx - 1, m_dim.ly - 1))) return;
  m_raster = ti->getRaster();
}

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

void Painter::drawBlank() {
  TPixel bgColor = Preferences::instance()->getPreviewBgColor();
  glClearColor(bgColor.r / 255.0f, bgColor.g / 255.0f, bgColor.b / 255.0f, 1.0);
  glClear(GL_COLOR_BUFFER_BIT);
  glPushMatrix();
  glLoadIdentity();
  tglColor(m_vSettings.m_blankColor);
  tglFillRect(m_bbox);
  glPopMatrix();
}

}  // namespace

//=============================================================================

ImagePainter::VisualSettings::VisualSettings()
    : m_colorMask(0)
    , m_greytones(false)
    , m_doCompare(false)
    , m_defineLoadbox(false)
    , m_useLoadbox(false)
    , m_blankColor(TPixel::Transparent)
    , m_useTexture(false)
    , m_drawExternalBG(false)
    , m_showBBox(false)
    , m_sceneProperties(0)
    , m_recomputeIfNeeded(true)
    , m_drawBlankFrame(false)
    , m_useChecks(false) {
  if (FlipBookBlackBgToggle) m_bg = 0x40000;
  if (FlipBookWhiteBgToggle) m_bg = 0x80000;
  if (FlipBookCheckBgToggle) m_bg = 0x100000;
}

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

bool ImagePainter::VisualSettings::needRepaint(const VisualSettings &vs) const {
  return !(m_colorMask == vs.m_colorMask && m_greytones == vs.m_greytones &&
           m_bg == vs.m_bg && m_doCompare == vs.m_doCompare &&
           m_defineLoadbox == vs.m_defineLoadbox &&
           m_useLoadbox == vs.m_useLoadbox && m_useTexture == vs.m_useTexture &&
           m_drawExternalBG == vs.m_drawExternalBG);
}

//=============================================================================

ImagePainter::CompareSettings::CompareSettings()
    : m_compareX(0.5)
    , m_compareY(DefaultCompareValue)
    , m_dragCompareX(false)
    , m_dragCompareY(false)
    , m_swapCompared(false) {}

//=============================================================================

void ImagePainter::paintImage(const TImageP &image, const TDimension &imageSize,
                              const TDimension &viewerSize, const TAffine &aff,
                              const VisualSettings &visualSettings,
                              const CompareSettings &compareSettings,
                              const TRect &loadbox) {
  glDisable(GL_DEPTH_TEST);

  if (visualSettings.m_drawExternalBG) {
    glClearColor(0.0, 0.0, 0.0, 0.0);
    glClear(GL_COLOR_BUFFER_BIT);
  }

  GLenum error = glGetError();
  // assert(error==GL_NO_ERROR);
  if (error != GL_NO_ERROR) {
    printf("ImagePainter::paintImage() gl_error:%d\n", error);
  }

  if (!image) return;

  TRasterImageP rimg = (TRasterImageP)image;
  TVectorImageP vimg = (TVectorImageP)image;
  TToonzImageP timg  = (TToonzImageP)image;

  TRect clipRect(viewerSize);
  clipRect -= TPoint(viewerSize.lx * 0.5, viewerSize.ly * 0.5);
  Painter painter(viewerSize, imageSize, aff, image->getPalette(),
                  visualSettings);

  if (rimg)
    painter.onRasterImage(rimg.getPointer());
  else if (vimg)
    painter.onVectorImage(vimg.getPointer());
  else if (timg)
    painter.onToonzImage(timg.getPointer());

  if (visualSettings.m_blankColor != TPixel::Transparent) {
    painter.drawBlank();
    return;
  }

  // if I have a color filter applied using a glmask, , drawing of images must
  // be done on black bg!
  if (!vimg)
    painter.flushRasterImages(
        loadbox, visualSettings.m_doCompare ? compareSettings.m_compareX
                                            : DefaultCompareValue,
        visualSettings.m_doCompare ? compareSettings.m_compareY
                                   : DefaultCompareValue,
        compareSettings.m_swapCompared);

  glColorMask(GL_TRUE, GL_TRUE, GL_TRUE, GL_TRUE);

  if (visualSettings.m_doCompare)
    drawCompareLines(viewerSize, compareSettings.m_compareX,
                     compareSettings.m_compareY);
}