import { getProperBounds, LTTB, createLinearScale, makeSmooth } from "./util";
import { Data, RawData, Color } from "./types";
import { vec2, vec3, mat4 } from "gl-matrix";
import Shader from "./Shader";

export interface Options {
  canvas: HTMLCanvasElement;
  data: RawData[];
  color?: Color;
  backgroundColor?: Color;
  downsample?: boolean | number;
  onHover?: (d: Data) => void;
}

// constants
const THICKNESS = 2.4;
const LINE_COLOR: Color = {
  r: 255,
  g: 30,
  b: 30
};
const BG_COLOR: Color = {
  r: 255,
  g: 255,
  b: 255
};
const FACT = 2;

const DefaultOptions: Partial<Options> = {
  downsample: true,
  color: LINE_COLOR,
  backgroundColor: BG_COLOR
};

export default class Line {
  private options: Options;
  private data: Data[];
  private smoothData: Data[];
  private gl: WebGL2RenderingContext;

  private lineShader: Shader;
  private overlayShader: Shader;
  private indicatorShader: Shader;

  private lineVAO: WebGLVertexArrayObject;
  private overlayVAO: WebGLVertexArrayObject;
  private indicatorVAO: WebGLVertexArrayObject;

  private offsetX: number = -999;

  private buffer: WebGLBuffer;
  private numIndices: number;
  private frustum: {
    left: number;
    right: number;
    top: number;
    bottom: number;
    near: number;
    far: number;
  };
  private xScale: (n: number) => number;
  private yScale: (n: number) => number;

  constructor(options: Options) {
    // merge default options with user defined
    this.options = Object.assign({}, DefaultOptions, options);

    const { data, canvas, downsample, onHover } = this.options;

    if (data.length < 2) {
      // two more points made lines
      return;
    }

    this.gl = canvas.getContext("webgl2");
    if (!this.gl) throw new Error("You browser doesn't support WebGL2.");

    const { width, height } = canvas;

    // improve resolution
    canvas.width = width * FACT;
    canvas.height = height * FACT;
    canvas.style.width = width + "px";
    canvas.style.height = height + "px";

    this.gl.viewport(0, 0, width * FACT, height * FACT);
    this.gl.enable(this.gl.DEPTH_TEST);

    this.data = this.processData(data, downsample, width);
    // make corners smooth
    this.smoothData = makeSmooth(this.data);
    this.frustum = {
      left: 0,
      right: width * FACT,
      bottom: 0,
      top: height * FACT,
      near: 1,
      far: 100
    };

    this.createScaleMappers();
    this.createShaders();
    this.buildObjects();
    if (onHover) this.bindListeners();
    this.draw();
  }

  private createScaleMappers() {
    this.xScale = createLinearScale(
      [this.smoothData[0].x, this.smoothData[this.smoothData.length - 1].x],
      [this.frustum.left, this.frustum.right]
    );

    const bounds = getProperBounds(this.smoothData);
    this.yScale = createLinearScale(bounds, [
      this.frustum.bottom,
      this.frustum.top
    ]);
  }

  // RawData -> Data
  // respect downsampling
  private processData(
    rawData: RawData[],
    downsample: Options["downsample"],
    width: number
  ): Data[] {
    const isOneDemensionData = typeof rawData[0] === "number";

    let result: Data[] = [];

    if (isOneDemensionData)
      rawData.forEach((item, index) =>
        result.push({ x: index, y: item as number })
      );
    else rawData.forEach(item => result.push({ x: item[0], y: item[1] }));

    if (typeof downsample == "number" || downsample)
      result = LTTB(
        result,
        typeof downsample === "number"
          ? downsample
          : this.calThreshold(result, width)
      );

    return result;
  }

  private createShaders() {
    const { gl } = this;
    const { color, backgroundColor } = this.options;

    const lineVShaderSrc = `
      attribute vec2 position;
      uniform mat4 mvp;
      void main() {
        gl_Position = mvp * vec4(position, 0.0, 1.0);
      }
    `;
    const lineFShaderSrc = `
      precision highp float;
      vec3 lineColor = vec3(${color!.r / 255.0}, ${color!.g / 255.0}, ${color!
      .b / 255.0});
      void main() {
        gl_FragColor = vec4(lineColor, 1.0);
      }
    `;

    this.lineShader = new Shader(gl, lineVShaderSrc, lineFShaderSrc);

    const overlayVShaderSrc = `
      attribute vec2 position;
      uniform mat4 mvp;
      void main() {
        gl_Position = mvp * vec4(position, -0.1, 1.0);
      }
    `;
    const overlayFShaderSrc = `
      precision mediump float;
      uniform vec2 resolution;
      vec3 bg = vec3(${backgroundColor.r / 255.0}, ${backgroundColor.g /
      255.0}, ${backgroundColor.b / 255.0});
      void main() {
        vec2 st = gl_FragCoord.xy / resolution;
        float c = smoothstep(2.0, 0.0, st.y);
        gl_FragColor = vec4(c * bg, 1.0);
      }
    `;

    this.overlayShader = new Shader(gl, overlayVShaderSrc, overlayFShaderSrc);

    if (this.options.onHover) {
      const indicatorVShaderSrc = `
        uniform float offsetX;
        uniform mat4 mvp;
        attribute vec2 position;
        void main() {
          gl_Position = mvp * vec4(position.x + offsetX, position.y, 0.1, 1.0);
        }
      `;
      const indicatorFShaderSrc = `
        precision mediump float;
        void main() {
          gl_FragColor = vec4(1.0, 0.0, 0.0, 1.0);
        }
      `;
      this.indicatorShader = new Shader(
        gl,
        indicatorVShaderSrc,
        indicatorFShaderSrc
      );
    }
  }

  private calThreshold(data: Data[], width: number): number {
    const { length } = data;

    if (length < 2) return length;

    // The interval of two adjacent points is 15 display pixels
    const maxPoints = Math.floor(width / 15 + 1);

    return length > maxPoints ? maxPoints : length;
  }

  // build vertics and indices that form the line segments
  private buildObjects() {
    const { gl } = this;

    const lineVertices: number[] = [];
    const lineIndices: number[] = [];
    const overlayVertices: number[] = [];
    const overlayIndices: number[] = [];

    // build first point
    {
      const p0 = vec2.fromValues(
        this.xScale(this.smoothData[0].x),
        this.yScale(this.smoothData[0].y)
      );
      const p1 = vec2.fromValues(
        this.xScale(this.smoothData[1].x),
        this.yScale(this.smoothData[1].y)
      );

      const p0p1 = vec2.sub(vec2.create(), p1, p0);
      const normal = vec2.normalize(
        vec2.create(),
        vec2.fromValues(-p0p1[1], p0p1[0])
      );

      const t = vec2.fromValues(normal[0] * THICKNESS, normal[1] * THICKNESS);
      const t0 = vec2.sub(vec2.create(), p0, t);
      const t1 = vec2.add(vec2.create(), p0, t);
      lineVertices.push(
        // 0
        t0[0],
        t0[1],
        // 1
        t1[0],
        t1[1]
      );

      const firstPoint = t0[0] < t1[0] ? t0 : t1;
      overlayVertices.push(
        // 0
        firstPoint[0],
        this.frustum.bottom,
        // 1
        firstPoint[0],
        firstPoint[1]
      );
    }

    // build middle points
    for (let i = 1; i < this.smoothData.length - 1; i++) {
      const p0 = vec2.fromValues(
        this.xScale(this.smoothData[i - 1].x),
        this.yScale(this.smoothData[i - 1].y)
      );
      const p1 = vec2.fromValues(
        this.xScale(this.smoothData[i].x),
        this.yScale(this.smoothData[i].y)
      );
      const p2 = vec2.fromValues(
        this.xScale(this.smoothData[i + 1].x),
        this.yScale(this.smoothData[i + 1].y)
      );

      const p0p1 = vec2.sub(vec2.create(), p1, p0);
      const p1p2 = vec2.sub(vec2.create(), p2, p1);

      const p0p1Norm = vec2.normalize(vec2.create(), p0p1);
      const p1p2Norm = vec2.normalize(vec2.create(), p1p2);
      const tangent = vec2.add(vec2.create(), p0p1Norm, p1p2Norm);
      const tangentNorm = vec2.normalize(vec2.create(), tangent);
      const miter = vec2.fromValues(-tangentNorm[1], tangentNorm[0]);

      const normal0 = vec2.normalize(
        vec2.create(),
        vec2.fromValues(-p0p1[1], p0p1[0])
      );

      const len = THICKNESS / vec2.dot(miter, normal0);

      const t2 = vec2.sub(
        vec2.create(),
        p1,
        vec2.fromValues(miter[0] * len, miter[1] * len)
      );

      const t3 = vec2.add(
        vec2.create(),
        p1,
        vec2.fromValues(miter[0] * len, miter[1] * len)
      );

      lineVertices.push(
        // 2
        t2[0],
        t2[1],
        // 3
        t3[0],
        t3[1]
      );
      overlayVertices.push(
        // 0
        t3[0],
        this.frustum.bottom,
        // 1
        t3[0],
        t3[1]
      );
      lineIndices.push(
        1 + (i - 1) * 2,
        0 + (i - 1) * 2,
        2 + (i - 1) * 2,
        1 + (i - 1) * 2,
        2 + (i - 1) * 2,
        3 + (i - 1) * 2
      );
      overlayIndices.push(
        1 + (i - 1) * 2,
        0 + (i - 1) * 2,
        2 + (i - 1) * 2,
        1 + (i - 1) * 2,
        2 + (i - 1) * 2,
        3 + (i - 1) * 2
      );
    }

    // build last point
    {
      const i = this.smoothData.length - 2;
      const p1 = vec2.fromValues(
        this.xScale(this.smoothData[i].x),
        this.yScale(this.smoothData[i].y)
      );
      const p2 = vec2.fromValues(
        this.xScale(this.smoothData[i + 1].x),
        this.yScale(this.smoothData[i + 1].y)
      );
      const p1p2 = vec2.sub(vec2.create(), p2, p1);

      const normal = vec2.normalize(
        vec2.create(),
        vec2.fromValues(-p1p2[1], p1p2[0])
      );
      const t = vec2.fromValues(normal[0] * THICKNESS, normal[1] * THICKNESS);
      const t4 = vec2.sub(vec2.create(), p2, t);
      const t5 = vec2.add(vec2.create(), p2, t);
      lineVertices.push(
        // 4
        t4[0],
        t4[1],
        // 5
        t5[0],
        t5[1]
      );
      const lastPoint = t4[0] < t5[0] ? t5 : t4;
      overlayVertices.push(
        // 0
        lastPoint[0],
        this.frustum.bottom,
        // 1
        lastPoint[0],
        lastPoint[1]
      );

      lineIndices.push(
        1 + i * 2,
        0 + i * 2,
        2 + i * 2,
        1 + i * 2,
        2 + i * 2,
        3 + i * 2
      );
      overlayIndices.push(
        1 + i * 2,
        0 + i * 2,
        2 + i * 2,
        1 + i * 2,
        2 + i * 2,
        3 + i * 2
      );
    }

    {
      const lineVAO = gl.createVertexArray();
      gl.bindVertexArray(lineVAO);

      const lineVBO = gl.createBuffer();
      gl.bindBuffer(gl.ARRAY_BUFFER, lineVBO);
      gl.bufferData(
        gl.ARRAY_BUFFER,
        new Float32Array(lineVertices),
        gl.STATIC_DRAW
      );

      const lineEBO = gl.createBuffer();
      gl.bindBuffer(gl.ELEMENT_ARRAY_BUFFER, lineEBO);
      gl.bufferData(
        gl.ELEMENT_ARRAY_BUFFER,
        new Uint16Array(lineIndices),
        gl.STATIC_DRAW
      );

      const positionLoc = gl.getAttribLocation(
        this.lineShader.program,
        "position"
      );
      gl.vertexAttribPointer(positionLoc, 2, gl.FLOAT, false, 0, 0);
      gl.enableVertexAttribArray(positionLoc);
      gl.bindBuffer(gl.ARRAY_BUFFER, null);

      this.lineVAO = lineVAO;
      this.lineShader.setNumOfIndices(lineIndices.length);
    }

    {
      const overlayVAO = gl.createVertexArray();
      gl.bindVertexArray(overlayVAO);

      const overlayVBO = gl.createBuffer();
      gl.bindBuffer(gl.ARRAY_BUFFER, overlayVBO);
      gl.bufferData(
        gl.ARRAY_BUFFER,
        new Float32Array(overlayVertices),
        gl.STATIC_DRAW
      );

      const overlayEBO = gl.createBuffer();
      gl.bindBuffer(gl.ELEMENT_ARRAY_BUFFER, overlayEBO);
      gl.bufferData(
        gl.ELEMENT_ARRAY_BUFFER,
        new Uint16Array(overlayIndices),
        gl.STATIC_DRAW
      );

      const positionLoc = gl.getAttribLocation(
        this.overlayShader.program,
        "position"
      );
      gl.vertexAttribPointer(positionLoc, 2, gl.FLOAT, false, 0, 0);
      gl.enableVertexAttribArray(positionLoc);
      gl.bindBuffer(gl.ARRAY_BUFFER, null);

      this.overlayVAO = overlayVAO;
      this.overlayShader.setNumOfIndices(overlayIndices.length);
    }

    // indicator
    if (this.options.onHover) {
      const { left, right, top, bottom } = this.frustum;

      const indicatorVAO = gl.createVertexArray();
      gl.bindVertexArray(indicatorVAO);

      const indicatorVBO = gl.createBuffer();
      gl.bindBuffer(gl.ARRAY_BUFFER, indicatorVBO);

      // build dashed line
      const vertices = [];
      const indices = [];
      const gapLength = 4 * FACT;
      const lineLength = 2 * FACT;
      const numOfSegments = Math.round(
        (top - bottom) / (gapLength + lineLength)
      );
      for (let i = 0; i < numOfSegments; i++) {
        vertices.push(0, i * (gapLength + lineLength) + gapLength / 2); // bottom
        vertices.push(
          0,
          i * (gapLength + lineLength) + gapLength / 2 + lineLength
        ); // top
        indices.push(i * 2 + 0, i * 2 + 1);
      }
      gl.bufferData(
        gl.ARRAY_BUFFER,
        Float32Array.from(vertices),
        gl.STATIC_DRAW
      );

      const indicatorEBO = gl.createBuffer();
      gl.bindBuffer(gl.ELEMENT_ARRAY_BUFFER, indicatorEBO);
      gl.bufferData(
        gl.ELEMENT_ARRAY_BUFFER,
        Uint16Array.from(indices),
        gl.STATIC_DRAW
      );

      const positionLoc = gl.getAttribLocation(
        this.indicatorShader.program,
        "position"
      );
      gl.vertexAttribPointer(positionLoc, 2, gl.FLOAT, false, 0, 0);
      gl.enableVertexAttribArray(positionLoc);
      gl.bindBuffer(gl.ARRAY_BUFFER, null);

      this.indicatorVAO = indicatorVAO;
      this.indicatorShader.setNumOfIndices(indices.length);
    }
  }

  private buildMVP() {
    const { gl, frustum } = this;

    const p = mat4.ortho(
      mat4.create(),
      frustum.left,
      frustum.right,
      frustum.bottom,
      frustum.top,
      frustum.near,
      frustum.far
    );
    const v = mat4.targetTo(
      mat4.create(),
      vec3.fromValues(0, 0, 2),
      vec3.fromValues(0, 0, -1),
      vec3.fromValues(0, 1, 0)
    );
    const m = mat4.create();
    const mvp = mat4.mul(mat4.create(), mat4.mul(mat4.create(), m, v), p);

    return mvp;
  }

  private bindListeners() {
    const { canvas } = this.options;
    canvas.addEventListener("mousemove", this.onMouseMove.bind(this));
  }

  private onMouseMove(event: MouseEvent) {
    const { canvas, onHover } = this.options;
    const clientRect = canvas.getBoundingClientRect();
    const x = event.x - clientRect.left;
    const y = event.y - clientRect.top;
    const point = this.findClosestPoint(x * FACT);
    if (point && point.offsetX !== this.offsetX) {
      this.offsetX = point.offsetX;
      this.draw();
      onHover && onHover(point.data);
    }
  }

  private findClosestPoint(
    mouseX: number
  ): { offsetX: number; data: Data } | undefined {
    const { data } = this;
    // linear search
    for (let i = 0; i < data.length - 1; ++i) {
      const x1 = this.xScale(data[i].x);
      const x2 = this.xScale(data[i + 1].x);
      if (x2 >= mouseX && x1 <= mouseX) {
        // for first and last point, shift it a bit
        const choseLeftPoint = x2 - mouseX > mouseX - x1;
        const isFirstPoint = choseLeftPoint && i === 0;
        const isLastPoint = !choseLeftPoint && i === data.length - 2;
        const offset = isFirstPoint ? 1 : isLastPoint ? -1 : 0;
        return choseLeftPoint
          ? { offsetX: x1 + offset, data: data[i] }
          : { offsetX: x2 + offset, data: data[i + 1] };
      }
    }
  }

  private draw() {
    const { gl } = this;
    const { backgroundColor } = this.options;

    gl.clearColor(
      backgroundColor.r / 250.0,
      backgroundColor.g / 250.0,
      backgroundColor.b / 250.0,
      1
    );
    gl.clear(gl.COLOR_BUFFER_BIT | gl.DEPTH_BUFFER_BIT);

    const mvp = this.buildMVP();

    this.lineShader.use();
    this.lineShader.setMat4("mvp", mvp);
    this.lineShader.draw(this.lineVAO);

    this.overlayShader.use();
    this.overlayShader.setMat4("mvp", mvp);
    this.overlayShader.set2fv(
      "resolution",
      new Float32Array([
        this.frustum.right - this.frustum.left,
        this.frustum.top - this.frustum.bottom
      ])
    );
    this.overlayShader.draw(this.overlayVAO);

    if (this.indicatorShader) {
      this.indicatorShader.use();
      this.indicatorShader.setFloat("offsetX", this.offsetX);
      this.indicatorShader.setMat4("mvp", mvp);
      this.indicatorShader.draw(this.indicatorVAO, gl.LINES);
    }
  }
}