// -*- mode: c++; c-file-style: "linux"; c-basic-offset: 2; indent-tabs-mode:
// nil -*-
//
//  Copyright (C) 2004-2015 Andrej Vodopivec <andrej.vodopivec@gmail.com>
//            (C) 2014-2018 Gunter Königsmann <wxMaxima@physikbuch.de>
//
//  This program is free software; you can redistribute it and/or modify
//  it under the terms of the GNU General Public License as published by
//  the Free Software Foundation; either version 2 of the License, or
//  (at your option) any later version.
//
//  This program is distributed in the hope that it will be useful,
//  but WITHOUT ANY WARRANTY; without even the implied warranty of
//  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
//  GNU General Public License for more details.
//
//
//  You should have received a copy of the GNU General Public License
//  along with this program; if not, write to the Free Software
//  Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
//
//  SPDX-License-Identifier: GPL-2.0+

/*! \file
  This file defines the class SqrtCell

  SqrtCell is the Cell type that represents a square root.
*/

#include "SqrtCell.h"
#include "CellImpl.h"

#define SIGN_FONT_SCALE 2.0

SqrtCell::SqrtCell(GroupCell *group, Configuration *config,
                   std::unique_ptr<Cell> &&inner)
  : Cell(group, config), m_innerCell(std::move(inner)) {
  InitBitFields_SqrtCell();
  SetStyle(TS_VARIABLE);
  MakeBreakUpCells();
}

SqrtCell::SqrtCell(GroupCell *group, const SqrtCell &cell)
  : SqrtCell(group, cell.m_configuration,
             CopyList(group, cell.m_innerCell.get())) {
  CopyCommonData(cell);
  MakeBreakUpCells();
}

DEFINE_CELL(SqrtCell)

void SqrtCell::MakeBreakUpCells() {
  if (m_open)
    return;
  m_open = std::make_unique<TextCell>(m_group, m_configuration, wxS("sqrt("));
  m_open->SetStyle(TS_FUNCTION);
  static_cast<TextCell &>(*m_open).DontEscapeOpeningParenthesis();
  m_close = std::make_unique<TextCell>(m_group, m_configuration, wxS(")"));
}

void SqrtCell::Recalculate(AFontSize fontsize) const {
  bool changed = false;
  changed |= m_innerCell->RecalculateList(fontsize);
  changed |= m_open->RecalculateList(fontsize);
  changed |= m_close->RecalculateList(fontsize);

  if (changed || NeedsRecalculation(fontsize)) {
    Cell::Recalculate(fontsize);

    m_width = m_innerCell->SumOfWidths() + Scale_Px(13) + 1;
    if (!IsBrokenIntoLines()) {
      auto openHeight = 0; // m_open->GetHeightList();
      auto openCenter = 0; // m_open->GetCenterList();
      m_height = std::max(m_innerCell->GetHeightList(), openHeight) + Scale_Px(3);
      m_center = std::max(m_innerCell->GetCenterList(), openCenter) + Scale_Px(3);
    } else {
      m_height = m_center = m_width = 0;
    }
  }
}

void SqrtCell::SetCurrentPoint(wxPoint point) const {
  Cell::SetCurrentPoint(point);
  if (IsBrokenIntoLines())
    return;

  wxPoint in(point);
  in.x += Scale_Px(11) + 1;
  m_innerCell->SetCurrentPointList(in);
}

void SqrtCell::Draw(wxDC *dc, wxDC *antialiassingDC) {
  Cell::Draw(dc, antialiassingDC);
  if (DrawThisCell()) {
    wxPoint point = m_currentPoint;
    {
      SetPen(antialiassingDC, 1.2);

      const wxPoint points[12] = {
        {0, 0},
        {Scale_Px(3), -Scale_Px(1)},
        //  A wider line
        {Scale_Px(3), -Scale_Px(1)},
        {Scale_Px(7), m_height - m_center - Scale_Px(4)},
        {Scale_Px(7.5), m_height - m_center - Scale_Px(4)},
        {Scale_Px(3.5), -Scale_Px(1)},
        {Scale_Px(3.5), -Scale_Px(1)},
        {Scale_Px(3), -Scale_Px(1)},
        {Scale_Px(8), m_height - m_center - Scale_Px(4)},
        // The upwards line
        {Scale_Px(10), -m_center + Scale_Px(2)},
        // The horizontal line
        {m_width - Scale_Px(1), -m_center + Scale_Px(2)},
        // The serif at the end of the root
        {m_width - Scale_Px(1), -m_center + Scale_Px(6)}
      };
      // Draw the sqrt symbol without the small 'vertical line' at the end (as TeX does by default).
      // Requested in the discussion forum: https://github.com/wxMaxima-developers/wxmaxima/discussions/2073
      // The Latex Wikibook writes, that that habit is not normally used when writing with a computer:
      // https://en.wikibooks.org/wiki/LaTeX/Mathematics#Roots
      // But I don't know, what is 'correct'.
      //
      // If that small line should be drawn, just replace 11 by 12 in the command below,
      // so that the last part of the points-array above will be drawn too:
      antialiassingDC->DrawLines(11, points, point.x, point.y);
    }

    m_innerCell->DrawList(dc, antialiassingDC);
  }
}

wxString SqrtCell::ToString() const {
  if (IsBrokenIntoLines())
    return wxEmptyString;
  else
    return wxS("sqrt(") + m_innerCell->ListToString() + wxS(")");
}

wxString SqrtCell::ToMatlab() const {
  if (IsBrokenIntoLines())
    return wxEmptyString;
  else
    return wxS("sqrt(") + m_innerCell->ListToMatlab() + wxS(")");
}

wxString SqrtCell::ToTeX() const {
  if (IsBrokenIntoLines())
    return wxEmptyString;
  else
    return wxS("\\sqrt{") + m_innerCell->ListToTeX() + wxS("}");
}

wxString SqrtCell::ToMathML() const {
  return wxS("<msqrt>") + m_innerCell->ListToMathML() + wxS("</msqrt>\n");
}

wxString SqrtCell::ToOMML() const {
  return wxS("<m:rad><m:radPr m:degHide=\"1\"></m:radPr><m:deg></m:deg><m:e>") +
    m_innerCell->ListToOMML() + wxS("</m:e></m:rad>\n");
}

wxString SqrtCell::ToXML() const {
  return wxS("<q") + GetXMLFlags() + wxS(">") + m_innerCell->ListToXML() + wxS("</q>");
}

bool SqrtCell::BreakUp() const {
  if (IsBrokenIntoLines())
    return false;

  Cell::BreakUpAndMark();
  m_open->SetNextToDraw(m_innerCell);
  m_innerCell->last()->SetNextToDraw(m_close);
  m_close->SetNextToDraw(m_nextToDraw);
  m_nextToDraw = m_open;
  return true;
}

void SqrtCell::SetNextToDraw(Cell *next) const {
  if (IsBrokenIntoLines())
    m_close->SetNextToDraw(next);
  else
    m_nextToDraw = next;
}
