#include <cstring>

#include <string>

#include <iostream>

#include "sp-item.h"

#include "display/curve.h"

#include "2geom/line.h"

#include "2geom/crossing.h"

#include "2geom/convex-cover.h"

#include "helper/geom-curves.h"

#include "svg/stringstream.h"

#include "conn-avoid-ref.h"

#include "sp-conn-end.h"

#include "sp-path.h"

#include "libavoid/router.h"

#include "libavoid/connector.h"

#include "libavoid/geomtypes.h"

#include "libavoid/shape.h"

#include "xml/node.h"

#include "document.h"

#include "desktop.h"

#include "desktop-handles.h"

#include "document-undo.h"

#include "sp-namedview.h"

#include "sp-item-group.h"

#include "inkscape.h"

#include "verbs.h"

#include <glibmm/i18n.h>

using Inkscape::DocumentUndo;

using Avoid::Router;

static Avoid::Polygon avoid_item_poly(SPItem const *item);

SPAvoidRef::SPAvoidRef(SPItem *spitem)

: shapeRef(NULL)

, item(spitem)

, setting(false)

, new_setting(false)

, _transformed_connection()

{

}

SPAvoidRef::~SPAvoidRef()

{

_transformed_connection.disconnect();

// If the document is being destroyed then the router instance

// and the ShapeRefs will have been destroyed with it.

const bool routerInstanceExists = (item->document->router != NULL);

if (shapeRef && routerInstanceExists) {

// Deleting the shapeRef will remove it completely from

// an existing Router instance.

delete shapeRef;

}

shapeRef = NULL;

}

void SPAvoidRef::setAvoid(char const *value)

{

// Don't keep avoidance information for cloned objects.

if ( !item->cloned ) {

new_setting = false;

if (value && (strcmp(value, "true") == 0)) {

new_setting = true;

}

}

}

void SPAvoidRef::handleSettingChange(void)

{

SPDesktop *desktop = inkscape_active_desktop();

if (desktop == NULL) {

return;

}

if (sp_desktop_document(desktop) != item->document) {

// We don't want to go any further if the active desktop's document

// isn't the same as the document that this item is part of. This

// case can happen if a new document is loaded from the file chooser

// or via the recent file menu. In this case, we can end up here

// as a rersult of a ensureUpToDate performed on a

// document not yet attached to the active desktop.

return;

}

if (new_setting == setting) {

// Don't need to make any changes

return;

}

setting = new_setting;

Router *router = item->document->router;

_transformed_connection.disconnect();

if (new_setting) {

Avoid::Polygon poly = avoid_item_poly(item);

if (poly.size() > 0) {

_transformed_connection = item->connectTransformed(

sigc::ptr_fun(&avoid_item_move));

char const *id = item->getAttribute("id");

g_assert(id != NULL);

// Get a unique ID for the item.

GQuark itemID = g_quark_from_string(id);

shapeRef = new Avoid::ShapeRef(router, poly, itemID);

router->addShape(shapeRef);

}

}

else

{

g_assert(shapeRef);

// Deleting the shapeRef will remove it completely from

// an existing Router instance.

delete shapeRef;

shapeRef = NULL;

}

}

GSList *SPAvoidRef::getAttachedShapes(const unsigned int type)

{

GSList *list = NULL;

Avoid::IntList shapes;

GQuark shapeId = g_quark_from_string(item->getId());

item->document->router->attachedShapes(shapes, shapeId, type);

Avoid::IntList::iterator finish = shapes.end();

for (Avoid::IntList::iterator i = shapes.begin(); i != finish; ++i) {

const gchar *connId = g_quark_to_string(*i);

SPObject *obj = item->document->getObjectById(connId);

if (obj == NULL) {

g_warning("getAttachedShapes: Object with id=\"%s\" is not "

"found. Skipping.", connId);

continue;

}

SPItem *shapeItem = SP_ITEM(obj);

list = g_slist_prepend(list, shapeItem);

}

return list;

}

GSList *SPAvoidRef::getAttachedConnectors(const unsigned int type)

{

GSList *list = NULL;

Avoid::IntList conns;

GQuark shapeId = g_quark_from_string(item->getId());

item->document->router->attachedConns(conns, shapeId, type);

Avoid::IntList::iterator finish = conns.end();

for (Avoid::IntList::iterator i = conns.begin(); i != finish; ++i) {

const gchar *connId = g_quark_to_string(*i);

SPObject *obj = item->document->getObjectById(connId);

if (obj == NULL) {

g_warning("getAttachedConnectors: Object with id=\"%s\" is not "

"found. Skipping.", connId);

continue;

}

SPItem *connItem = SP_ITEM(obj);

list = g_slist_prepend(list, connItem);

}

return list;

}

Geom::Point SPAvoidRef::getConnectionPointPos()

{

g_assert(item);

// the center is all we are interested in now; we used to care

// about non-center points, but that's moot.

Geom::OptRect bbox = item->documentVisualBounds();

return (bbox) ? bbox->midpoint() : Geom::Point(0, 0);

}

static std::vector<Geom::Point> approxCurveWithPoints(SPCurve *curve)

{

// The number of segments to use for not straight curves approximation

const unsigned NUM_SEGS = 4;

const Geom::PathVector& curve_pv = curve->get_pathvector();

// The structure to hold the output

std::vector<Geom::Point> poly_points;

// Iterate over all curves, adding the endpoints for linear curves and

// sampling the other curves

double seg_size = 1.0 / NUM_SEGS;

double at;

at = 0;

Geom::PathVector::const_iterator pit = curve_pv.begin();

while (pit != curve_pv.end())

{

Geom::Path::const_iterator cit = pit->begin();

while (cit != pit->end())

{

if (cit == pit->begin())

{

poly_points.push_back(cit->initialPoint());

}

if (dynamic_cast<Geom::CubicBezier const*>(&*cit))

{

at += seg_size;

if (at <= 1.0 )

poly_points.push_back(cit->pointAt(at));

else

{

at = 0.0;

++cit;

}

}

else

{

poly_points.push_back(cit->finalPoint());

++cit;

}

}

++pit;

}

return poly_points;

}

static std::vector<Geom::Point> approxItemWithPoints(SPItem const *item, const Geom::Affine& item_transform)

{

// The structure to hold the output

std::vector<Geom::Point> poly_points;

if (SP_IS_GROUP(item))

{

SPGroup* group = SP_GROUP(item);

// consider all first-order children

for (GSList const* i = sp_item_group_item_list(group); i != NULL; i = i->next) {

SPItem* child_item = SP_ITEM(i->data);

std::vector<Geom::Point> child_points = approxItemWithPoints(child_item, item_transform * child_item->transform);

poly_points.insert(poly_points.end(), child_points.begin(), child_points.end());

}

}

else if (SP_IS_SHAPE(item))

{

SP_SHAPE(item)->set_shape();

SPCurve* item_curve = SP_SHAPE(item)->getCurve();

// make sure it has an associated curve

if (item_curve)

{

// apply transformations (up to common ancestor)

item_curve->transform(item_transform);

std::vector<Geom::Point> curve_points = approxCurveWithPoints(item_curve);

poly_points.insert(poly_points.end(), curve_points.begin(), curve_points.end());

item_curve->unref();

}

}

return poly_points;

}

static Avoid::Polygon avoid_item_poly(SPItem const *item)

{

SPDesktop *desktop = inkscape_active_desktop();

g_assert(desktop != NULL);

double spacing = desktop->namedview->connector_spacing;

Geom::Affine itd_mat = item->i2doc_affine();

std::vector<Geom::Point> hull_points;

hull_points = approxItemWithPoints(item, itd_mat);

// create convex hull from all sampled points

Geom::ConvexHull hull(hull_points);

// enlarge path by "desktop->namedview->connector_spacing"

// store expanded convex hull in Avoid::Polygn

Avoid::Polygon poly;

Geom::Line hull_edge(hull[-1], hull[0]);

Geom::Line prev_parallel_hull_edge;

prev_parallel_hull_edge.setOrigin(hull_edge.origin()+hull_edge.versor().ccw()*spacing);

prev_parallel_hull_edge.setVersor(hull_edge.versor());

int hull_size = hull.boundary.size();

for (int i = 0; i < hull_size; ++i)

{

hull_edge.setPoints(hull[i], hull[i+1]);

Geom::Line parallel_hull_edge;

parallel_hull_edge.setOrigin(hull_edge.origin()+hull_edge.versor().ccw()*spacing);

parallel_hull_edge.setVersor(hull_edge.versor());

// determine the intersection point

try {

Geom::OptCrossing int_pt = Geom::intersection(parallel_hull_edge, prev_parallel_hull_edge);

if (int_pt)

{

Avoid::Point avoid_pt((parallel_hull_edge.origin()+parallel_hull_edge.versor()*int_pt->ta)[Geom::X],

(parallel_hull_edge.origin()+parallel_hull_edge.versor()*int_pt->ta)[Geom::Y]);

poly.ps.push_back(avoid_pt);

}

else

{

// something went wrong...

std::cout<<"conn-avoid-ref.cpp: avoid_item_poly: Geom:intersection failed."<<std::endl;

}

}

catch (Geom::InfiniteSolutions const &e) {

// the parallel_hull_edge and prev_parallel_hull_edge lie on top of each other, hence infinite crossings

g_message("conn-avoid-ref.cpp: trying to get crossings of identical lines");

}

prev_parallel_hull_edge = parallel_hull_edge;

}

return poly;

}

GSList *get_avoided_items(GSList *list, SPObject *from, SPDesktop *desktop,

bool initialised)

{

for (SPObject *child = from->firstChild() ; child != NULL; child = child->next ) {

if (SP_IS_ITEM(child) &&

!desktop->isLayer(SP_ITEM(child)) &&

!SP_ITEM(child)->isLocked() &&

!desktop->itemIsHidden(SP_ITEM(child)) &&

(!initialised || SP_ITEM(child)->avoidRef->shapeRef)

)

{

list = g_slist_prepend (list, SP_ITEM(child));

}

if (SP_IS_ITEM(child) && desktop->isLayer(SP_ITEM(child))) {

list = get_avoided_items(list, child, desktop, initialised);

}

}

return list;

}

void avoid_item_move(Geom::Affine const */*mp*/, SPItem *moved_item)

{

Avoid::ShapeRef *shapeRef = moved_item->avoidRef->shapeRef;

g_assert(shapeRef);

Router *router = moved_item->document->router;

Avoid::Polygon poly = avoid_item_poly(moved_item);

if (!poly.empty()) {

router->moveShape(shapeRef, poly);

}

}

void init_avoided_shape_geometry(SPDesktop *desktop)

{

// Don't count this as changes to the document,

// it is basically just late initialisation.

SPDocument *document = sp_desktop_document(desktop);

bool saved = DocumentUndo::getUndoSensitive(document);

DocumentUndo::setUndoSensitive(document, false);

bool initialised = false;

GSList *items = get_avoided_items(NULL, desktop->currentRoot(), desktop,

initialised);

for ( GSList const *iter = items ; iter != NULL ; iter = iter->next ) {

SPItem *item = reinterpret_cast<SPItem *>(iter->data);

item->avoidRef->handleSettingChange();

}

if (items) {

g_slist_free(items);

}

DocumentUndo::setUndoSensitive(document, saved);

}