/****************************************************************************
**
 * Draw circle by foci and a point on circle

Copyright (C) 2012 Dongxu Li (dongxuli2011@gmail.com)
Copyright (C) 2011 R. van Twisk (librecad@rvt.dds.nl)

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.
**********************************************************************/

#include<vector>

#include <QAction>
#include <QMouseEvent>

#include "rs_circle.h"
#include "rs_coordinateevent.h"
#include "rs_debug.h"
#include "rs_dialogfactory.h"
#include "rs_graphicview.h"
#include "rs_point.h"
#include "rs_preview.h"
#include "lc_quadratic.h"

#include "rs_actiondrawcircletan2_1p.h"

namespace {

    //list of entity types supported by current action
    const EntityTypeList enTypeList = {RS2::EntityLine, RS2::EntityArc, RS2::EntityCircle};
}

struct RS_ActionDrawCircleTan2_1P::Points {
	RS_Vector point;
	RS_CircleData cData;
	RS_Vector coord;
	double radius = 0.;
	bool valid = false;
	//keep a list of centers found
	RS_VectorSolutions centers;
    std::vector<RS_AtomicEntity*> circles;
};

/**
 * Constructor.
 *
 */
RS_ActionDrawCircleTan2_1P::RS_ActionDrawCircleTan2_1P(
        RS_EntityContainer& container,
        RS_GraphicView& graphicView)
    :RS_PreviewActionInterface("Draw tangent circle 2P",
							   container, graphicView)
    , pPoints(std::make_unique<Points>())
{
	actionType=RS2::ActionDrawCircleTan2_1P;
}

RS_ActionDrawCircleTan2_1P::~RS_ActionDrawCircleTan2_1P() = default;

void RS_ActionDrawCircleTan2_1P::init(int status) {
    if(status>=0) {
        RS_Snapper::suspend();
    }
	if(status>(int) pPoints->circles.size()) status=(int) pPoints->circles.size();
    RS_PreviewActionInterface::init(status);
	for(int i=0; i<status; ++i){
		if(!pPoints->circles[i]) {
            status=i;
            break;
        }
    }
    bool updateNeeded(false);
	for(size_t i=status>=0?status:0; i<pPoints->circles.size(); ++i){
        if(pPoints->circles[i])
            if(pPoints->circles[i]->isHighlighted()){
                pPoints->circles[i]->setHighlighted(false);
                updateNeeded=true;
            }
    }
    if(updateNeeded) graphicView->redraw(RS2::RedrawDrawing);
	pPoints->circles.resize(status>=0?status:0);
}


void RS_ActionDrawCircleTan2_1P::finish(bool updateTB){
    if( pPoints->circles.size() >0) {
		for(RS_AtomicEntity*const circle: pPoints->circles)
            circle->setHighlighted(false);
        graphicView->redraw(RS2::RedrawDrawing);
    }
    RS_PreviewActionInterface::finish(updateTB);
}

void RS_ActionDrawCircleTan2_1P::trigger() {
    RS_PreviewActionInterface::trigger();
	RS_Circle* c=new RS_Circle(container, pPoints->cData);

    container->addEntity(c);

    // upd. undo list:
    if (document) {
        document->startUndoCycle();
        document->addUndoable(c);
        document->endUndoCycle();
    }


	for(RS_AtomicEntity*const circle: pPoints->circles)
        circle->setHighlighted(false);
    graphicView->redraw(RS2::RedrawDrawing);
    pPoints->circles.clear();


    RS_DEBUG->print("RS_ActionDrawCircleTan2_1P::trigger():"
                    " entity added: %lu", c->getId());
    init(SetCircle1);
}


bool RS_ActionDrawCircleTan2_1P::getCenters()
{
    if(pPoints->circles.size()<2) return false;
	LC_Quadratic lc0(pPoints->circles[0], pPoints->point);
	LC_Quadratic lc1(pPoints->circles[1], pPoints->point);

	auto const& list=LC_Quadratic::getIntersection(lc0,lc1);
	pPoints->centers.clear();
	for(const RS_Vector& vp: list){
		auto ds=vp.distanceTo(pPoints->point)-RS_TOLERANCE;
        bool validBranch(true);
        for(RS_AtomicEntity* cirlce : pPoints->circles){
            // issue #1288, pull request #1445 by melwyncarlo: ignore center on circles
            double distance = RS_MAXDOUBLE;
            cirlce->getNearestPointOnEntity(vp, false, &distance);
            if (distance < ds) {
                validBranch=false;
                break;
            }
            if(cirlce->rtti()==RS2::EntityCircle||cirlce->rtti()==RS2::EntityArc){
                if( vp.distanceTo(cirlce->getCenter()) <= ds) {
                    validBranch=false;
                    break;
                }
            }
        }
		if(validBranch)  pPoints->centers.push_back(vp);
    }
    return pPoints->centers.size() > 0;
}

void RS_ActionDrawCircleTan2_1P::mouseMoveEvent(QMouseEvent* e) {
    RS_DEBUG->print("RS_ActionDrawCircleTan2_1P::mouseMoveEvent begin");

    switch( getStatus()){
    case SetPoint:
		pPoints->coord=snapPoint(e);
		pPoints->point=pPoints->coord;
        break;
    case SetCenter:
		pPoints->coord=graphicView->toGraph(e->x(),e->y());
        break;
    default:
        return;
    }
    deletePreview();
    if(preparePreview()){
		RS_Circle* e=new RS_Circle(preview.get(), pPoints->cData);
		for (auto const& vp: pPoints->centers)
			preview->addEntity(new RS_Point(preview.get(), vp));
        preview->addEntity(e);
        drawPreview();
    }
    RS_DEBUG->print("RS_ActionDrawCircleTan2_1P::mouseMoveEvent end");
}

bool RS_ActionDrawCircleTan2_1P::preparePreview(){
	if (!getCenters()) return false;
	pPoints->cData.center=pPoints->centers.getClosest(pPoints->coord);
	pPoints->cData.radius=pPoints->point.distanceTo(pPoints->cData.center);
    return true;
}

RS_Entity* RS_ActionDrawCircleTan2_1P::catchCircle(QMouseEvent* e) {
	RS_Entity* ret=nullptr;
    RS_Entity*  en = catchEntity(e,enTypeList, RS2::ResolveAll);
	if (!en) return ret;
	if (!en->isVisible()) return ret;
	for(auto p: pPoints->circles){
		if(p && en->getId() == p->getId()) return ret; //do not pull in the same line again
    }
    if(en->getParent() != nullptr && en->getParent()->ignoredOnModification()){
		return nullptr;
	}
	return en;
}

void RS_ActionDrawCircleTan2_1P::mouseReleaseEvent(QMouseEvent* e) {
    // Proceed to next status
    if (e->button()==Qt::LeftButton) {

        switch (getStatus()) {
        case SetCircle1:
        case SetCircle2:
        {
            pPoints->circles.resize(getStatus());
            RS_AtomicEntity*  en = static_cast<RS_AtomicEntity*>(catchCircle(e));
            if (en == nullptr) return;
//            circle = static_cast<RS_AtomicEntity*>(en);
            en->setHighlighted(true);
			pPoints->circles.push_back(en);
            graphicView->redraw(RS2::RedrawDrawing);
            setStatus(getStatus()+1);
        }
            break;
        case SetPoint:
        {
            RS_Vector snapped = snapPoint(e);
            RS_CoordinateEvent ce(snapped);
            coordinateEvent(&ce);
        }
            break;
        case SetCenter:
			pPoints->coord=graphicView->toGraph(e->x(),e->y());
            if(preparePreview()) trigger();
            break;

        default:
            break;
        }
    } else if (e->button()==Qt::RightButton) {
        // Return to last status:
        if(getStatus()>0){
            deletePreview();
        }
        init(getStatus()-1);
    }
}


void RS_ActionDrawCircleTan2_1P::coordinateEvent(RS_CoordinateEvent* e) {

    RS_Vector mouse = e->getCoordinate();
    switch(getStatus()){

    case SetPoint:
		pPoints->point=mouse;
		pPoints->coord=mouse;
        if(getCenters()) {
			if(pPoints->centers.size()==1) trigger();
            else setStatus(getStatus()+1);
        }
        break;
        default:
        break;
//    case SetCenter:
//        coord=mouse;
//        trigger();
    }

}

//fixme, support command line

/*
void RS_ActionDrawCircleTan2_1P::commandEvent(RS_CommandEvent* e) {
    QString c = e->getCommand().toLower();

    if (checkCommand("help", c)) {
            RS_DIALOGFACTORY->commandMessage(msgAvailableCommands()
                                             + getAvailableCommands().join(", "));
        return;
    }

    switch (getStatus()) {
    case SetFocus1: {
            bool ok;
            double m = RS_Math::eval(c, &ok);
			if (ok) {
                ratio = m / major.magnitude();
                if (!isArc) {
                    trigger();
                } else {
                    setStatus(SetAngle1);
                }
			} else
                    RS_DIALOGFACTORY->commandMessage(tr("Not a valid expression"));
        }
        break;

    case SetAngle1: {
            bool ok;
            double a = RS_Math::eval(c, &ok);
			if (ok) {
                angle1 = RS_Math::deg2rad(a);
                setStatus(SetAngle2);
			} else
                    RS_DIALOGFACTORY->commandMessage(tr("Not a valid expression"));
        }
        break;

    case SetAngle2: {
            bool ok;
            double a = RS_Math::eval(c, &ok);
			if (ok) {
                angle2 = RS_Math::deg2rad(a);
                trigger();
			} else
                    RS_DIALOGFACTORY->commandMessage(tr("Not a valid expression"));
        }
        break;

    default:
        break;
    }
}
*/

void RS_ActionDrawCircleTan2_1P::updateMouseButtonHints() {
	switch (getStatus()) {
	case SetCircle1:
		RS_DIALOGFACTORY->updateMouseWidget(tr("Specify a line/arc/circle"),
											tr("Cancel"));
		break;

	case SetCircle2:
		RS_DIALOGFACTORY->updateMouseWidget(tr("Specify the another arc/circle"),
											tr("Back"));
		break;

	case SetPoint:
		RS_DIALOGFACTORY->updateMouseWidget(tr("Specify a point on the tangent circle"),
											tr("Back"));
		break;
	case SetCenter:
		RS_DIALOGFACTORY->updateMouseWidget(tr("Select the center of the tangent circle"),
											tr("Back"));
		break;
	default:
		RS_DIALOGFACTORY->updateMouseWidget();
		break;
	}
}

void RS_ActionDrawCircleTan2_1P::updateMouseCursor()
{
    switch (getStatus())
    {
        case SetCircle1:
        case SetCircle2:
        case SetCenter:
            graphicView->setMouseCursor(RS2::SelectCursor);
            break;
        case SetPoint:
            graphicView->setMouseCursor(RS2::CadCursor);
            break;
    }
}

// EOF
