#include <sstream>

#include "TGLIncludes.h"
#include "TGLCamera.h"
#include "TGLRnrCtx.h"
#include "TGLSelectRecord.h"
#include "TGLViewerBase.h"
#include "TGLViewer.h"
#include "TImage.h"
#include "TEveManager.h"

#include "Fireworks/Core/interface/CmsAnnotation.h"
#include "Fireworks/Core/src/FWCheckBoxIcon.h"
#include "Fireworks/Core/interface/FWConfiguration.h"

CmsAnnotation::CmsAnnotation(TGLViewerBase* parent, Float_t posx, Float_t posy)
    : TGLOverlayElement(TGLOverlayElement::kUser),
      fPosX(posx),
      fPosY(posy),
      fMouseX(0),
      fMouseY(0),
      fDrag(kNone),
      fParent(nullptr),
      fSize(0.2),
      fSizeDrag(0.0),
      fActive(false),
      fAllowDestroy(false) {
  // Constructor.
  // Create annotation as plain text

  parent->AddOverlayElement(this);
  fParent = (TGLViewer*)parent;
}

CmsAnnotation::~CmsAnnotation() {
  // Destructor.

  fParent->RemoveOverlayElement(this);
}

void CmsAnnotation::Render(TGLRnrCtx& rnrCtx) {
  if (rnrCtx.GetCamera()->RefViewport().Width() == 0 || rnrCtx.GetCamera()->RefViewport().Height() == 0)
    return;

  static UInt_t ttid_black = 0;
  static UInt_t ttid_white = 0;

  bool whiteBg = rnrCtx.ColorSet().Background().GetColorIndex() == kWhite;
  UInt_t& ttid = whiteBg ? ttid_white : ttid_black;

  if ((whiteBg == false && ttid == 0) || (whiteBg && ttid == 0)) {
    TImage* imgs[3];
    TString base = whiteBg ? "White" : "Black";
    imgs[0] = TImage::Open(FWCheckBoxIcon::coreIcondir() + "CMSLogo" + base + "Bg.png");
    imgs[1] = TImage::Open(FWCheckBoxIcon::coreIcondir() + "CMSLogo" + base + "BgM.png");
    imgs[2] = TImage::Open(FWCheckBoxIcon::coreIcondir() + "CMSLogo" + base + "BgS.png");

    glGenTextures(1, &ttid);
    glBindTexture(GL_TEXTURE_2D, ttid);

    glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_REPEAT);
    glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_REPEAT);
    glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_LINEAR);
    glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR_MIPMAP_LINEAR);
    glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_BASE_LEVEL, 0);
    glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MAX_LEVEL, 2);

    glPixelStorei(GL_UNPACK_ALIGNMENT, 1);
    glPixelStorei(GL_UNPACK_SWAP_BYTES, 1);

    for (int i = 0; i < 3; i++)
      glTexImage2D(GL_TEXTURE_2D,
                   i,
                   GL_RGBA,
                   imgs[i]->GetWidth(),
                   imgs[i]->GetHeight(),
                   0,
                   GL_BGRA,
                   GL_UNSIGNED_BYTE,
                   imgs[i]->GetArgbArray());

    glPixelStorei(GL_UNPACK_SWAP_BYTES, 0);

    for (int i = 0; i < 3; i++)
      delete imgs[i];
  }

  glPushAttrib(GL_ENABLE_BIT | GL_LINE_BIT | GL_POLYGON_BIT);
  TGLCapabilitySwitch lights_off(GL_LIGHTING, kFALSE);

  // reset matrix
  glMatrixMode(GL_PROJECTION);
  glPushMatrix();
  glLoadIdentity();

  if (rnrCtx.Selection()) {
    TGLRect rect(*rnrCtx.GetPickRectangle());
    rnrCtx.GetCamera()->WindowToViewport(rect);
    gluPickMatrix(rect.X(), rect.Y(), rect.Width(), rect.Height(), (Int_t*)rnrCtx.GetCamera()->RefViewport().CArr());
  }
  const TGLRect& vp = rnrCtx.RefCamera().RefViewport();
  glOrtho(vp.X(), vp.Width(), vp.Y(), vp.Height(), 0, 1);
  glMatrixMode(GL_MODELVIEW);
  glPushMatrix();
  glLoadIdentity();

  // move to pos
  Float_t posX = vp.Width() * fPosX;
  Float_t posY = vp.Height() * fPosY;
  glTranslatef(posX, posY, -0.99);

  glDisable(GL_DEPTH_TEST);
  glEnable(GL_BLEND);
  glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);

  glEnable(GL_TEXTURE_2D);
  glBindTexture(GL_TEXTURE_2D, ttid);

  glTexEnvi(GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_REPLACE);

  // logo
  glPushName(kMove);
  TGLUtil::Color(rnrCtx.ColorSet().Background().GetColorIndex());
  glBegin(GL_QUADS);
  Float_t z = 0.9;
  Float_t a = fSize * vp.Height();
  glTexCoord2f(0, 1);
  glVertex3f(0, -a, z);
  glTexCoord2f(1, 1);
  glVertex3f(a, -a, z);
  glTexCoord2f(1, 0);
  glVertex3f(a, 0, z);
  glTexCoord2f(0, 0);
  glVertex3f(0, 0, z);
  glEnd();
  glPopName();

  glDisable(GL_TEXTURE_2D);

  if (fActive) {
    // resize button
    glPushMatrix();
    glBegin(GL_QUADS);
    Float_t a = fSize * vp.Height();
    TGLUtil::ColorTransparency(rnrCtx.ColorSet().Markup().GetColorIndex(), 95);
    glTexCoord2f(0, 1);
    glVertex3f(0, -a, z);
    glTexCoord2f(1, 1);
    glVertex3f(a, -a, z);
    glTexCoord2f(1, 0);
    glVertex3f(a, 0, z);
    glTexCoord2f(0, 0);
    glVertex3f(0, 0, z);
    glEnd();

    glTranslatef(a, -a, 0);
    a *= 0.2;
    z = 0.95;
    glPushName(kResize);
    TGLUtil::ColorTransparency(rnrCtx.ColorSet().Markup().GetColorIndex(), 100);
    glBegin(GL_QUADS);
    glVertex3f(0, 0, z);
    glVertex3f(0, a, z);
    glVertex3f(-a, a, z);
    glVertex3f(-a, 0, z);
    glEnd();
    {
      glTranslatef(-a / 3, a / 3, 0);
      glBegin(GL_LINES);
      TGLUtil::ColorTransparency(rnrCtx.ColorSet().Markup().GetColorIndex(), 40);
      Float_t s = a / 3;
      glVertex3f(0, 0, z);
      glVertex3f(0, s, z);
      glVertex3f(0, 0, z);
      glVertex3f(-s, 0, z);
      glEnd();
    }
    glPopName();
    glPopMatrix();

    // delete
    if (fAllowDestroy) {
      glPushName(7);
      TGLUtil::ColorTransparency(rnrCtx.ColorSet().Markup().GetColorIndex(), 100);
      glTranslatef(0, -a, 0);
      glBegin(GL_QUADS);
      glVertex3f(0, 0, z);
      glVertex3f(a, 0, z);
      glVertex3f(a, a, z);
      glVertex3f(0, a, z);
      glEnd();
      {
        glBegin(GL_LINES);
        TGLUtil::ColorTransparency(rnrCtx.ColorSet().Markup().GetColorIndex(), 40);
        Float_t s = a / 3;
        glVertex3f(s, s, z);
        glVertex3f(a - s, a - s, z);
        glVertex3f(s, a - s, z);
        glVertex3f(a - s, s, z);
        glEnd();
      }
      glPopName();
    }
  }

  glEnable(GL_DEPTH_TEST);
  glMatrixMode(GL_PROJECTION);
  glPopMatrix();
  glMatrixMode(GL_MODELVIEW);
  glPopMatrix();

  glPopAttrib();
}

Bool_t CmsAnnotation::Handle(TGLRnrCtx& rnrCtx, TGLOvlSelectRecord& selRec, Event_t* event) {
  // Handle overlay event.
  // Return TRUE if event was handled.

  if (selRec.GetN() < 2)
    return kFALSE;
  int recID = selRec.GetItem(1);

  switch (event->fType) {
    case kButtonPress: {
      fMouseX = event->fX;
      fMouseY = event->fY;
      fDrag = (recID == kResize) ? kResize : kMove;
      fSizeDrag = fSize;
      return kTRUE;
    }
    case kButtonRelease: {
      fDrag = kNone;
      if (recID == 7) {
        fParent->RequestDraw(rnrCtx.ViewerLOD());
        delete this;
        return kTRUE;
      }
      break;
    }
    case kMotionNotify: {
      const TGLRect& vp = rnrCtx.RefCamera().RefViewport();
      if (vp.Width() == 0 || vp.Height() == 0)
        return false;
      if (fDrag != kNone) {
        if (fDrag == kMove) {
          fPosX += (Float_t)(event->fX - fMouseX) / vp.Width();
          fPosY -= (Float_t)(event->fY - fMouseY) / vp.Height();
          fMouseX = event->fX;
          fMouseY = event->fY;

          Float_t h = fSize;
          Float_t w = fSize / vp.Aspect();

          // Make sure we don't go offscreen (use fDraw variables set in draw)
          if (fPosX < 0)
            fPosX = 0;
          else if (fPosX + w > 1.0f)
            fPosX = 1.0f - w;
          if (fPosY < h)
            fPosY = h;
          else if (fPosY > 1.0f)
            fPosY = 1.0f;
        } else {
          using namespace TMath;
          Float_t oovpw = 1.0f / vp.Width(), oovph = 1.0f / vp.Height();

          Float_t xw = oovpw * Min(Max(0, event->fX), vp.Width());
          Float_t yw = oovph * Min(Max(0, vp.Height() - event->fY), vp.Height());

          Float_t rx = Max((xw - fPosX) / (oovpw * fMouseX - fPosX), 0.0f);
          Float_t ry = Max((yw - fPosY) / (oovph * (vp.Height() - fMouseY) - fPosY), 0.0f);

          fSize = Max(fSizeDrag * Min(rx, ry), 0.01f);
        }
      }
      return kTRUE;
    }
    default: {
      return kFALSE;
    }
  }

  return false;
}

//______________________________________________________________________________
Bool_t CmsAnnotation::MouseEnter(TGLOvlSelectRecord& /*rec*/) {
  // Mouse has entered overlay area.

  fActive = kTRUE;
  return kTRUE;
}

//______________________________________________________________________
void CmsAnnotation::MouseLeave() {
  // Mouse has left overlay area.

  fActive = kFALSE;
}

//______________________________________________________________________
bool CmsAnnotation::getVisible() const { return GetState() == TGLOverlayElement::kActive; }

//______________________________________________________________________
void CmsAnnotation::setVisible(Bool_t x) {
  SetState(x ? (TGLOverlayElement::kActive) : (TGLOverlayElement::kInvisible));
  fParent->Changed();
  gEve->Redraw3D();
}

//______________________________________________________________________________

void CmsAnnotation::addTo(FWConfiguration& iTo) const {
  std::stringstream s;
  s << fSize;
  iTo.addKeyValue("LogoSize", FWConfiguration(s.str()));

  std::stringstream x;
  x << fPosX;
  iTo.addKeyValue("LogoPosX", FWConfiguration(x.str()));

  std::stringstream y;
  y << fPosY;
  iTo.addKeyValue("LogoPosY", FWConfiguration(y.str()));
}

void CmsAnnotation::setFrom(const FWConfiguration& iFrom) {
  const FWConfiguration* value;
  value = iFrom.valueForKey("LogoSize");
  if (value)
    fSize = atof(value->value().c_str());

  value = iFrom.valueForKey("LogoPosX");
  if (value)
    fPosX = atof(value->value().c_str());

  value = iFrom.valueForKey("LogoPosY");
  if (value)
    fPosY = atof(value->value().c_str());
}