/**
 * (c) 2009-2017 Torstein Honsi
 *
 * License: www.highcharts.com/license
 */
/**
 * Highcharts module to place labels next to a series in a natural position.
 *
 * TODO:
 * - add column support (box collision detection, boxesToAvoid logic)
 * - avoid data labels, when data labels above, show series label below.
 * - add more options (connector, format, formatter)
 *
 * https://jsfiddle.net/highcharts/L2u9rpwr/
 * https://jsfiddle.net/highcharts/y5A37/
 * https://jsfiddle.net/highcharts/264Nm/
 * https://jsfiddle.net/highcharts/y5A37/
 */

'use strict';
import H from '../parts/Globals.js';
import '../parts/Utilities.js';
import '../parts/Chart.js';
import '../parts/Series.js';

var labelDistance = 3,
    addEvent = H.addEvent,
    each = H.each,
    extend = H.extend,
    isNumber = H.isNumber,
    pick = H.pick,
    Series = H.Series,
    SVGRenderer = H.SVGRenderer,
    Chart = H.Chart;

H.setOptions({
    /**
     * @optionparent plotOptions
     */
    plotOptions: {
        series: {
            /**
             * Series labels are placed as close to the series as possible in a
             * natural way, seeking to avoid other series. The goal of this
             * feature is to make the chart more easily readable, like if a
             * human designer placed the labels in the optimal position.
             *
             * The series labels currently work with series types having a
             * `graph` or an `area`.
             *
             * Requires the `series-label.js` module.
             *
             * @sample highcharts/series-label/line-chart
             *         Line chart
             * @sample highcharts/demo/streamgraph
             *         Stream graph
             * @sample highcharts/series-label/stock-chart
             *         Stock chart
             * @since 6.0.0
             * @product highcharts highstock
             */
            label: {
                /**
                 * Enable the series label per series.
                 */
                enabled: true,
                /**
                 * Allow labels to be placed distant to the graph if necessary,
                 * and draw a connector line to the graph. Setting this option
                 * to true may decrease the performance significantly, since the
                 * algorithm with systematically search for open spaces in the
                 * while plot area. Visually, it may also result in a more
                 * cluttered chart, though more of the series will be labeled.
                 */
                connectorAllowed: false,
                /**
                 * If the label is closer than this to a neighbour graph, draw a
                 * connector.
                 */
                connectorNeighbourDistance: 24,
                /**
                 * For area-like series, allow the font size to vary so that
                 * small areas get a smaller font size. The default applies this
                 * effect to area-like series but not line-like series.
                 *
                 * @type {Number}
                 */
                minFontSize: null,
                /**
                 * For area-like series, allow the font size to vary so that
                 * small areas get a smaller font size. The default applies this
                 * effect to area-like series but not line-like series.
                 *
                 * @type {Number}
                 */
                maxFontSize: null,
                /**
                 * Draw the label on the area of an area series. By default it
                 * is drawn on the area. Set it to `false` to draw it next to
                 * the graph instead.
                 *
                 * @type {Boolean}
                 */
                onArea: null,

                /**
                 * Styles for the series label. The color defaults to the series
                 * color, or a contrast color if `onArea`.
                 */
                style: {
                    fontWeight: 'bold'
                },

                /**
                 * An array of boxes to avoid when laying out the labels. Each
                 * item has a `left`, `right`, `top` and `bottom` property.
                 *
                 * @type {Array<Object>}
                 */
                boxesToAvoid: []
            }
        }
    }
});

/**
 * Counter-clockwise, part of the fast line intersection logic
 */
function ccw(x1, y1, x2, y2, x3, y3) {
    var cw = ((y3 - y1) * (x2 - x1)) - ((y2 - y1) * (x3 - x1));
    return cw > 0 ? true : cw < 0 ? false : true;
}

/**
 * Detect if two lines intersect
 */
function intersectLine(x1, y1, x2, y2, x3, y3, x4, y4) {
    return ccw(x1, y1, x3, y3, x4, y4) !== ccw(x2, y2, x3, y3, x4, y4) &&
        ccw(x1, y1, x2, y2, x3, y3) !== ccw(x1, y1, x2, y2, x4, y4);
}

/**
 * Detect if a box intersects with a line
 */
function boxIntersectLine(x, y, w, h, x1, y1, x2, y2) {
    return (
        intersectLine(x, y, x + w, y, x1, y1, x2, y2) || // top of label
        intersectLine(x + w, y, x + w, y + h, x1, y1, x2, y2) || // right
        intersectLine(x, y + h, x + w, y + h, x1, y1, x2, y2) || // bottom
        intersectLine(x, y, x, y + h, x1, y1, x2, y2)   // left of label
    );
}

/**
 * General symbol definition for labels with connector
 */
SVGRenderer.prototype.symbols.connector = function (x, y, w, h, options) {
    var anchorX = options && options.anchorX,
        anchorY = options && options.anchorY,
        path,
        yOffset,
        lateral = w / 2;

    if (isNumber(anchorX) && isNumber(anchorY)) {

        path = ['M', anchorX, anchorY];

        // Prefer 45 deg connectors
        yOffset = y - anchorY;
        if (yOffset < 0) {
            yOffset = -h - yOffset;
        }
        if (yOffset < w) {
            lateral = anchorX < x + (w / 2) ? yOffset : w - yOffset;
        }

        // Anchor below label
        if (anchorY > y + h) {
            path.push('L', x + lateral, y + h);

        // Anchor above label
        } else if (anchorY < y) {
            path.push('L', x + lateral, y);

        // Anchor left of label
        } else if (anchorX < x) {
            path.push('L', x, y + h / 2);

        // Anchor right of label
        } else if (anchorX > x + w) {
            path.push('L', x + w, y + h / 2);
        }
    }
    return path || [];
};

/**
 * Points to avoid. In addition to actual data points, the label should avoid
 * interpolated positions.
 */
Series.prototype.getPointsOnGraph = function () {

    if (!this.xAxis && !this.yAxis) {
        return;
    }

    var distance = 16,
        points = this.points,
        point,
        last,
        interpolated = [],
        i,
        deltaX,
        deltaY,
        delta,
        len,
        n,
        j,
        d,
        graph = this.graph || this.area,
        node = graph.element,
        inverted = this.chart.inverted,
        xAxis = this.xAxis,
        yAxis = this.yAxis,
        paneLeft = inverted ? yAxis.pos : xAxis.pos,
        paneTop = inverted ? xAxis.pos : yAxis.pos,
        onArea = pick(this.options.label.onArea, !!this.area),
        translatedThreshold = yAxis.getThreshold(this.options.threshold);

    // For splines, get the point at length (possible caveat: peaks are not
    // correctly detected)
    if (this.getPointSpline && node.getPointAtLength && !onArea) {
        // If it is animating towards a path definition, use that briefly, and
        // reset
        if (graph.toD) {
            d = graph.attr('d');
            graph.attr({ d: graph.toD });
        }
        len = node.getTotalLength();
        for (i = 0; i < len; i += distance) {
            point = node.getPointAtLength(i);
            interpolated.push({
                chartX: paneLeft + point.x,
                chartY: paneTop + point.y,
                plotX: point.x,
                plotY: point.y
            });
        }
        if (d) {
            graph.attr({ d: d });
        }
        // Last point
        point = points[points.length - 1];
        point.chartX = paneLeft + point.plotX;
        point.chartY = paneTop + point.plotY;
        interpolated.push(point);

    // Interpolate
    } else {
        len = points.length;
        for (i = 0; i < len; i += 1) {

            point = points[i];
            last = points[i - 1];

            // Absolute coordinates so we can compare different panes
            point.chartX = paneLeft + point.plotX;
            point.chartY = paneTop + point.plotY;
            if (onArea) {
                // Vertically centered inside area
                point.chartCenterY = paneTop + (
                    point.plotY +
                    pick(point.yBottom, translatedThreshold)
                ) / 2;
            }

            // Add interpolated points
            if (i > 0) {
                deltaX = Math.abs(point.chartX - last.chartX);
                deltaY = Math.abs(point.chartY - last.chartY);
                delta = Math.max(deltaX, deltaY);
                if (delta > distance) {

                    n = Math.ceil(delta / distance);

                    for (j = 1; j < n; j += 1) {
                        interpolated.push({
                            chartX: last.chartX +
                                (point.chartX - last.chartX) * (j / n),
                            chartY: last.chartY +
                                (point.chartY - last.chartY) * (j / n),
                            chartCenterY: last.chartCenterY +
                                (point.chartCenterY - last.chartCenterY) *
                                (j / n),
                            plotX: last.plotX +
                                (point.plotX - last.plotX) * (j / n),
                            plotY: last.plotY +
                                (point.plotY - last.plotY) * (j / n)
                        });
                    }
                }
            }

            // Add the real point in order to find positive and negative peaks
            if (isNumber(point.plotY)) {
                interpolated.push(point);
            }
        }
    }

    // Get the bounding box so we can do a quick check first if the bounding
    // boxes overlap.
    /*
    interpolated.bBox = node.getBBox();
    interpolated.bBox.x += paneLeft;
    interpolated.bBox.y += paneTop;
    */

    return interpolated;
};

/**
 * Overridable function to return series-specific font sizes for the labels. By
 * default it returns bigger font sizes for series with the greater sum of y
 * values.
 */
Series.prototype.labelFontSize = function (minFontSize, maxFontSize) {
    return minFontSize + (
        (this.sum / this.chart.labelSeriesMaxSum) *
        (maxFontSize - minFontSize)
    ) + 'px';
};

/**
 * Check whether a proposed label position is clear of other elements
 */
Series.prototype.checkClearPoint = function (x, y, bBox, checkDistance) {
    var distToOthersSquared = Number.MAX_VALUE, // distance to other graphs
        distToPointSquared = Number.MAX_VALUE,
        dist,
        connectorPoint,
        connectorEnabled = this.options.label.connectorAllowed,
        onArea = pick(this.options.label.onArea, !!this.area),
        chart = this.chart,
        series,
        points,
        leastDistance = 16,
        withinRange,
        xDist,
        yDist,
        i,
        j;

    function intersectRect(r1, r2) {
        return !(r2.left > r1.right ||
            r2.right < r1.left ||
            r2.top > r1.bottom ||
            r2.bottom < r1.top);
    }

    /**
     * Get the weight in order to determine the ideal position. Larger distance
     * to other series gives more weight. Smaller distance to the actual point
     * (connector points only) gives more weight.
     */
    function getWeight(distToOthersSquared, distToPointSquared) {
        return distToOthersSquared - distToPointSquared;
    }

    // First check for collision with existing labels
    for (i = 0; i < chart.boxesToAvoid.length; i += 1) {
        if (intersectRect(chart.boxesToAvoid[i], {
            left: x,
            right: x + bBox.width,
            top: y,
            bottom: y + bBox.height
        })) {
            return false;
        }
    }

    // For each position, check if the lines around the label intersect with any
    // of the graphs.
    for (i = 0; i < chart.series.length; i += 1) {
        series = chart.series[i];
        points = series.interpolatedPoints;
        if (series.visible && points) {
            for (j = 1; j < points.length; j += 1) {

                if (
                    // To avoid processing, only check intersection if the X
                    // values are close to the box.
                    points[j].chartX >= x - leastDistance &&
                    points[j - 1].chartX <= x + bBox.width + leastDistance
                ) {
                    // If any of the box sides intersect with the line, return.
                    if (boxIntersectLine(
                            x,
                            y,
                            bBox.width,
                            bBox.height,
                            points[j - 1].chartX,
                            points[j - 1].chartY,
                            points[j].chartX,
                            points[j].chartY
                        )) {
                        return false;
                    }

                    // But if it is too far away (a padded box doesn't
                    // intersect), also return.
                    if (this === series && !withinRange && checkDistance) {
                        withinRange = boxIntersectLine(
                            x - leastDistance,
                            y - leastDistance,
                            bBox.width + 2 * leastDistance,
                            bBox.height + 2 * leastDistance,
                            points[j - 1].chartX,
                            points[j - 1].chartY,
                            points[j].chartX,
                            points[j].chartY
                        );
                    }
                }

                // Find the squared distance from the center of the label. On
                // area series, avoid its own graph.
                if (
                    (connectorEnabled || withinRange) &&
                    (this !== series || onArea)
                ) {
                    xDist = x + bBox.width / 2 - points[j].chartX;
                    yDist = y + bBox.height / 2 - points[j].chartY;
                    distToOthersSquared = Math.min(
                        distToOthersSquared,
                        xDist * xDist + yDist * yDist
                    );
                }
            }

            // Do we need a connector?
            if (
                !onArea &&
                connectorEnabled &&
                this === series &&
                (
                    (checkDistance && !withinRange) ||
                    distToOthersSquared < Math.pow(
                        this.options.label.connectorNeighbourDistance,
                        2
                    )
                )
            ) {
                for (j = 1; j < points.length; j += 1) {
                    dist = Math.min(
                        (
                            Math.pow(x + bBox.width / 2 - points[j].chartX, 2) +
                            Math.pow(y + bBox.height / 2 - points[j].chartY, 2)
                        ),
                        (
                            Math.pow(x - points[j].chartX, 2) +
                            Math.pow(y - points[j].chartY, 2)
                        ),
                        (
                            Math.pow(x + bBox.width - points[j].chartX, 2) +
                            Math.pow(y - points[j].chartY, 2)
                        ),
                        (
                            Math.pow(x + bBox.width - points[j].chartX, 2) +
                            Math.pow(y + bBox.height - points[j].chartY, 2)
                        ),
                        (
                            Math.pow(x - points[j].chartX, 2) +
                            Math.pow(y + bBox.height - points[j].chartY, 2)
                        )
                    );
                    if (dist < distToPointSquared) {
                        distToPointSquared = dist;
                        connectorPoint = points[j];
                    }
                }
                withinRange = true;
            }
        }
    }

    return !checkDistance || withinRange ? {
        x: x,
        y: y,
        weight: getWeight(
            distToOthersSquared,
            connectorPoint ? distToPointSquared : 0
        ),
        connectorPoint: connectorPoint
    } : false;

};

/**
 * The main initiator method that runs on chart level after initiation and
 * redraw. It runs in  a timeout to prevent locking, and loops over all series,
 * taking all series and labels into account when placing the labels.
 */
Chart.prototype.drawSeriesLabels = function () {

    // console.time('drawSeriesLabels');

    var chart = this,
        labelSeries = this.labelSeries;

    chart.boxesToAvoid = [];

    // Build the interpolated points
    each(labelSeries, function (series) {
        series.interpolatedPoints = series.getPointsOnGraph();

        each(series.options.label.boxesToAvoid || [], function (box) {
            chart.boxesToAvoid.push(box);
        });
    });

    each(chart.series, function (series) {

        if (!series.xAxis && !series.yAxis) {
            return;
        }

        var bBox,
            x,
            y,
            results = [],
            clearPoint,
            i,
            best,
            labelOptions = series.options.label,
            inverted = chart.inverted,
            paneLeft = inverted ? series.yAxis.pos : series.xAxis.pos,
            paneTop = inverted ? series.xAxis.pos : series.yAxis.pos,
            paneWidth = chart.inverted ? series.yAxis.len : series.xAxis.len,
            paneHeight = chart.inverted ? series.xAxis.len : series.yAxis.len,
            points = series.interpolatedPoints,
            onArea = pick(labelOptions.onArea, !!series.area),
            label = series.labelBySeries,
            minFontSize = labelOptions.minFontSize,
            maxFontSize = labelOptions.maxFontSize;

        function insidePane(x, y, bBox) {
            return x > paneLeft && x <= paneLeft + paneWidth - bBox.width &&
                y >= paneTop && y <= paneTop + paneHeight - bBox.height;
        }

        function destroyLabel() {
            if (label) {
                series.labelBySeries = label.destroy();
            }
        }

        if (series.visible && !series.isSeriesBoosting && points) {
            if (!label) {
                series.labelBySeries = label = chart.renderer
                    .label(series.name, 0, -9999, 'connector')
                    .css(extend({
                        color: onArea ?
                            chart.renderer.getContrast(series.color) :
                            series.color
                    }, series.options.label.style));

                // Adapt label sizes to the sum of the data
                if (minFontSize && maxFontSize) {
                    label.css({
                        fontSize: series.labelFontSize(minFontSize, maxFontSize)
                    });
                }

                label
                    .attr({
                        padding: 0,
                        opacity: chart.renderer.forExport ? 1 : 0,
                        stroke: series.color,
                        'stroke-width': 1,
                        zIndex: 3
                    })
                    .add()
                    .animate({ opacity: 1 }, { duration: 200 });
            }

            bBox = label.getBBox();
            bBox.width = Math.round(bBox.width);

            // Ideal positions are centered above or below a point on right side
            // of chart
            for (i = points.length - 1; i > 0; i -= 1) {

                if (onArea) {

                    // Centered
                    x = points[i].chartX - bBox.width / 2;
                    y = points[i].chartCenterY - bBox.height / 2;
                    if (insidePane(x, y, bBox)) {
                        best = series.checkClearPoint(
                            x,
                            y,
                            bBox
                        );
                    }
                    if (best) {
                        results.push(best);
                    }


                } else {

                    // Right - up
                    x = points[i].chartX + labelDistance;
                    y = points[i].chartY - bBox.height - labelDistance;
                    if (insidePane(x, y, bBox)) {
                        best = series.checkClearPoint(
                            x,
                            y,
                            bBox
                        );
                    }
                    if (best) {
                        results.push(best);
                    }

                    // Right - down
                    x = points[i].chartX + labelDistance;
                    y = points[i].chartY + labelDistance;
                    if (insidePane(x, y, bBox)) {
                        best = series.checkClearPoint(
                            x,
                            y,
                            bBox
                        );
                    }
                    if (best) {
                        results.push(best);
                    }

                    // Left - down
                    x = points[i].chartX - bBox.width - labelDistance;
                    y = points[i].chartY + labelDistance;
                    if (insidePane(x, y, bBox)) {
                        best = series.checkClearPoint(
                            x,
                            y,
                            bBox
                        );
                    }
                    if (best) {
                        results.push(best);
                    }

                    // Left - up
                    x = points[i].chartX - bBox.width - labelDistance;
                    y = points[i].chartY - bBox.height - labelDistance;
                    if (insidePane(x, y, bBox)) {
                        best = series.checkClearPoint(
                            x,
                            y,
                            bBox
                        );
                    }
                    if (best) {
                        results.push(best);
                    }
                }
            }

            // Brute force, try all positions on the chart in a 16x16 grid
            if (labelOptions.connectorAllowed && !results.length && !onArea) {
                for (
                    x = paneLeft + paneWidth - bBox.width;
                    x >= paneLeft;
                    x -= 16
                ) {
                    for (
                        y = paneTop;
                        y < paneTop + paneHeight - bBox.height;
                        y += 16
                    ) {
                        clearPoint = series.checkClearPoint(x, y, bBox, true);
                        if (clearPoint) {
                            results.push(clearPoint);
                        }
                    }
                }
            }

            if (results.length) {

                results.sort(function (a, b) {
                    return b.weight - a.weight;
                });

                best = results[0];

                chart.boxesToAvoid.push({
                    left: best.x,
                    right: best.x + bBox.width,
                    top: best.y,
                    bottom: best.y + bBox.height
                });

                // Move it if needed
                var dist = Math.sqrt(
                    Math.pow(Math.abs(best.x - label.x), 2),
                    Math.pow(Math.abs(best.y - label.y), 2)
                );

                if (dist) {

                    // Move fast and fade in - pure animation movement is
                    // distractive...
                    var attr = {
                            opacity: chart.renderer.forExport ? 1 : 0,
                            x: best.x,
                            y: best.y
                        },
                        anim = {
                            opacity: 1
                        };
                    // ... unless we're just moving a short distance
                    if (dist <= 10) {
                        anim = {
                            x: attr.x,
                            y: attr.y
                        };
                        attr = {};
                    }
                    series.labelBySeries
                        .attr(extend(attr, {
                            anchorX: best.connectorPoint &&
                                best.connectorPoint.plotX + paneLeft,
                            anchorY: best.connectorPoint &&
                                best.connectorPoint.plotY + paneTop
                        }))
                        .animate(anim);

                    // Record closest point to stick to for sync redraw
                    series.options.kdNow = true;
                    series.buildKDTree();
                    var closest = series.searchPoint({
                        chartX: best.x,
                        chartY: best.y
                    }, true);
                    label.closest = [
                        closest,
                        best.x - closest.plotX,
                        best.y - closest.plotY
                    ];

                }

            } else {
                destroyLabel();
            }
        } else {
            destroyLabel();
        }
    });
    // console.timeEnd('drawSeriesLabels');
};

/**
 * Prepare drawing series labels
 */
function drawLabels() {

    var chart = this,
        delay = Math.max(
            H.animObject(chart.renderer.globalAnimation).duration,
            250
        ),
        initial = !chart.hasRendered;

    chart.labelSeries = [];
    chart.labelSeriesMaxSum = 0;

    H.clearTimeout(chart.seriesLabelTimer);

    // Which series should have labels
    each(chart.series, function (series) {
        var options = series.options.label,
            label = series.labelBySeries,
            closest = label && label.closest;

        if (
            options.enabled &&
            series.visible &&
            (series.graph || series.area) &&
            !series.isSeriesBoosting
        ) {
            chart.labelSeries.push(series);

            if (options.minFontSize && options.maxFontSize) {
                series.sum = H.reduce(series.yData, function (pv, cv) {
                    return (pv || 0) + (cv || 0);
                }, 0);
                chart.labelSeriesMaxSum = Math.max(
                    chart.labelSeriesMaxSum,
                    series.sum
                );
            }

            // The labels are processing heavy, wait until the animation is done
            if (initial) {
                delay = Math.max(
                    delay,
                    H.animObject(series.options.animation).duration
                );
            }

            // Keep the position updated to the axis while redrawing
            if (closest) {
                if (closest[0].plotX !== undefined) {
                    label.animate({
                        x: closest[0].plotX + closest[1],
                        y: closest[0].plotY + closest[2]
                    });
                } else {
                    label.attr({ opacity: 0 });
                }
            }
        }
    });

    chart.seriesLabelTimer = H.syncTimeout(function () {
        if (chart.series && chart.labelSeries) { // #7931, chart destroyed
            chart.drawSeriesLabels();
        }
    }, chart.renderer.forExport ? 0 : delay);

}
addEvent(Chart, 'render', drawLabels);
