'use strict';
/**
 * @typedef {number} Uint32
 * Name influenced by {@link Uint32Array}
 */

/**
 * Yield a sequence of numbers in the interval `[start, end(`.
 * Doesn't handle unsafe (overflowing) numbers, so it'll get stuck at {@link Number.MAX_SAFE_INTEGER}.
 * @param {number} start
 * @param {number} end
 */
const range = function*(start, end, step=1) {
   for (let i = +start; i < +end; i += +step){
      yield i;
   }
};

/*
vars that should be private/local but are public/global, are prefixed with `_`.

fns that sanitize their inputs (despite JSDoc type annotations) are "very public" API.
*/

// get a handle for each canvas in the document
const _imageCanvas = /**@type {HTMLCanvasElement}*/(document.getElementById('imagecanvas'));
const _imageCtx = /**@type {CanvasRenderingContext2D}*/(_imageCanvas.getContext('2d'));

_imageCtx.textAlign = 'center';
_imageCtx.textBaseline = 'middle';

const _turtleCtx = (() => {
   const turtleCanv = /**@type {HTMLCanvasElement}*/(document.getElementById('turtlecanvas'));
   return /**@type {CanvasRenderingContext2D}*/(turtleCanv.getContext('2d'));
})();

// the turtle takes precedence when compositing
_turtleCtx.globalCompositeOperation = 'destination-over';

/**
 * specification of relative coordinates for drawing turtle shapes,
 * as lists of [x,y] pairs.
 * (The shapes are borrowed from cpython turtle.py)
 */
const _shapes = Object.freeze(/**@type {const}*/({
   triangle: [[-5, 0], [5, 0], [0, 15]],
   turtle: [
      [0, 16], [-2, 14], [-1, 10], [-4, 7], [-7, 9],
      [-9, 8], [-6, 5], [-7, 1], [-5, -3], [-8, -6],
      [-6, -8], [-4, -5], [0, -7], [4, -5], [6, -8],
      [8, -6], [5, -3], [7, 1], [6, 5], [9, 8],
      [7, 9], [4, 7], [1, 10], [2, 14]
   ],
   square: [[10, -10], [10, 10], [-10, 10], [-10, -10]],
   circle: [
      [10, 0], [9.51, 3.09], [8.09, 5.88],
      [5.88, 8.09], [3.09, 9.51], [0, 10],
      [-3.09, 9.51], [-5.88, 8.09], [-8.09, 5.88],
      [-9.51, 3.09], [-10, 0], [-9.51, -3.09],
      [-8.09, -5.88], [-5.88, -8.09], [-3.09, -9.51],
      [-0.00, -10.00], [3.09, -9.51], [5.88, -8.09],
      [8.09, -5.88], [9.51, -3.09]
   ]
}));

const _DEFAULT_SHAPE = 'triangle';

/** turtle-object constructor, for static type-checking */
const _defaultTurtle = () => ({
   pos: {
      x: 0,
      y: 0
   },
   angle: 0,
   penDown: true,
   width: 1,
   visible: true,
   redraw: true, // does this belong here?
   wrap: true,
   shape: _DEFAULT_SHAPE,
   colour: {
      r: 0,
      g: 0,
      b: 0,
      a: 1
   }
});

// initialise the state of the turtle
let _turtle = _defaultTurtle();

/**
 * draw the turtle and the current image if `redraw` is `true`.
 * for complicated drawings it is much faster to turn `redraw` off.
*/
const drawIf = () => { _turtle.redraw && draw(); };

/**
 * use canvas centered coordinates facing upwards
 * @param {CanvasRenderingContext2D} ctx
 */
const _centerCoords = ctx => {
   const {width: w, height: h} = ctx.canvas;
   ctx.translate(w / 2, h / 2);
   ctx.transform(1, 0, 0, -1, 0, 0);
};

/** draw the turtle and the current image */
const draw = () => {
   _clearCtx(_turtleCtx);
   if (_turtle.visible) {
      const {x, y} = _turtle.pos;

      _turtleCtx.save();
      _centerCoords(_turtleCtx);
      // move the origin to the turtle center
      _turtleCtx.translate(x, y);
      // rotate about the center of the turtle
      _turtleCtx.rotate(-_turtle.angle);
      // move the turtle back to its position
      _turtleCtx.translate(-x, -y);

      /**
       * the type isn't guaranteed, because {@link _shapes} is fully mutable,
       * so the user may mutate it
       * @type {number[][]}
      */
      const shape = _shapes[
         // eslint-disable-next-line no-prototype-builtins
         _shapes.hasOwnProperty(_turtle.shape) ? _turtle.shape : _DEFAULT_SHAPE
      ];

      // draw the turtle icon
      _turtleCtx.beginPath();
      if (shape.length > 0)
         _turtleCtx.moveTo(x + shape[0][0], y + shape[0][1]);
      for (const [cx, cy] of shape.slice(1)) {
         _turtleCtx.lineTo(x + cx, y + cy);
      }
      _turtleCtx.closePath();

      _turtleCtx.fillStyle = 'green';
      _turtleCtx.fill();
      _turtleCtx.restore();
   }
   _turtleCtx.drawImage(_imageCanvas, 0, 0, 300, 300, 0, 0, 300, 300);
};

const _clearCtx = (/**@type {CanvasRenderingContext2D}*/ ctx) => {
   const {width: w, height: h} = ctx.canvas;
   ctx.save();
   ctx.setTransform( 1,0,0,1,0,0 );
   ctx.clearRect( 0,0,w,h );
   ctx.restore();
};

/** clear the display, don't move the turtle */
const clear = () => {
   _clearCtx(_imageCtx);
   drawIf();
};

/**
 * reset the whole system, clear the display and move turtle back to
 * origin, facing the Y axis.
*/
const reset = () => {
   // initialise
   _turtle = _defaultTurtle();
   _imageCtx.lineWidth = _turtle.width;
   _imageCtx.strokeStyle = 'black';
   _imageCtx.globalAlpha = 1;

   clear();
   draw();
};

/**
 * Trace the forward motion of the turtle, allowing for possible
 * wrap-around at the boundaries of the canvas.
 * @param {number} distance
 */
const forward = distance => {
   distance = +distance;

   _imageCtx.save();
   _centerCoords(_imageCtx);
   _imageCtx.beginPath();

   // get the boundaries of the canvas
   const
      {abs, sin, cos} = Math,
      {width: w, height: h} = _imageCanvas,
      maxX = w / 2, minX = -maxX,
      maxY = h / 2, minY = -maxY;

   /**
    * Returns the sine and cosine of a number, as a 2-tuple.
    * @param {number} x
    * @return {[number, number]}
    */
   const sin_cos = x => [sin(x), cos(x)];

   let {x, y} = _turtle.pos;

   // trace out the forward steps
   while (distance > 0) {
      // move to the current location of the turtle
      _imageCtx.moveTo(x, y);

      // calculate the new location of the turtle after doing the forward movement
      const
         [sinAngle, cosAngle] = sin_cos(_turtle.angle),
         newX = x + sinAngle * distance,
         newY = y + cosAngle * distance;

      /**
       * wrap on the X boundary
       * @param {number} cutBound
       * @param {number} otherBound
       */
      const xWrap = (cutBound, otherBound) => {
         const distanceToEdge = abs((cutBound - x) / sinAngle);
         const edgeY = cosAngle * distanceToEdge + y;
         _imageCtx.lineTo(cutBound, edgeY);
         distance -= distanceToEdge;
         x = otherBound;
         y = edgeY;
      };
      /**
       * wrap on the Y boundary
       * @param {number} cutBound
       * @param {number} otherBound
       */
      const yWrap = (cutBound, otherBound) => {
         const distanceToEdge = abs((cutBound - y) / cosAngle);
         const edgeX = sinAngle * distanceToEdge + x;
         _imageCtx.lineTo(edgeX, cutBound);
         distance -= distanceToEdge;
         x = edgeX;
         y = otherBound;
      };
      /** don't wrap the turtle on any boundary */
      const noWrap = () => {
         _imageCtx.lineTo(newX, newY);
         _turtle.pos.x = newX;
         _turtle.pos.y = newY;
         distance = 0;
      };
      // if wrap is on, trace a part segment of the path and wrap on boundary if necessary
      if (_turtle.wrap)
         if (newX > maxX)
            xWrap(maxX, minX);
         else if (newX < minX)
            xWrap(minX, maxX);
         else if (newY > maxY)
            yWrap(maxY, minY);
         else if (newY < minY)
            yWrap(minY, maxY);
         else
            noWrap();
      // wrap is not on.
      else
         noWrap();
   }
   // only draw if the pen is currently down.
   _turtle.penDown && _imageCtx.stroke();
   _imageCtx.restore();
   drawIf();
};

/**
 * turn edge wrapping on/off
 * @param {boolean} b
 */
const wrap = b => { _turtle.wrap = b; };

const hideTurtle = () => {
   _turtle.visible = false;
   drawIf();
};

const showTurtle = () => {
   _turtle.visible = true;
   drawIf();
};

/**
 * turn on/off redrawing
 * @param {boolean} b
 */
const redrawOnMove = b => { _turtle.redraw = b; };

/** lift up the pen (don't draw) */
const penup = () => { _turtle.penDown = false; };
/** put the pen down (do draw) */
const pendown = () => { _turtle.penDown = true; };

/**
 * turn right by an angle in degrees
 * @param {number} angle
 */
const right = angle => {
   _turtle.angle += degToRad(angle);
   drawIf();
};

/**
 * turn left by an angle in degrees
 * @param {number} angle
 */
const left = angle => {
   _turtle.angle -= degToRad(angle);
   drawIf();
};

/**
 * move the turtle to a particular coordinate (don't draw on the way there)
 * @param {number} x
 * @param {number} y
 */
const goto = (x, y) => {
   _turtle.pos.x = +x;
   _turtle.pos.y = +y;
   drawIf();
};

/**
 * set the angle of the turtle in degrees
 * @param {number} a
 */
const angle = a => { _turtle.angle = degToRad(a); };

/**
 * convert degrees to radians
 * @param {number} deg
 */
const degToRad = deg => deg / 180 * Math.PI;

/**
 * convert radians to degrees
 * @param {number} rad
 */
const radToDeg = rad => rad * 180 / Math.PI;

/**
 * set the width of the line
 * @param {number} w
 */
const width = w => {
   w = +w;
   _turtle.width = w;
   _imageCtx.lineWidth = w;
};

/**
 * write some text at the turtle position, with custom or default font.
 *
 * ideally we'd like this to rotate the text based on
 * the turtle orientation, but this will require some clever
 * canvas transformations which aren't implemented yet.
 * @param {string} msg
 */
const write = msg => {
   const {x, y} = _turtle.pos;

   _imageCtx.save();
   _centerCoords(_imageCtx);

   //_imageCtx.rotate(turtle.angle);
   _imageCtx.translate(x, y);
   _imageCtx.transform(1, 0, 0, -1, 0, 0);
   _imageCtx.translate(-x, -y);

   _imageCtx.fillText(msg, x, y);

   _imageCtx.restore();

   drawIf();
};

/**
 * set the font of the image Context
 * @param {string} font
 */
const setFont = font => { _imageCtx.font = font; };

/**
 * set the turtle draw shape
 *
 * currently supports triangle (default), circle, square, and turtle
 * @param {string} s
 */
const shape = s => {
   _turtle.shape = s;
   draw();
};

/**
 * set line color using RGB values in the range 0 - 255.
 * @param {number} r
 * @param {number} g
 * @param {number} b
 * @param {number} a alpha
 */
const colour = (r, g, b, a) => {
   r = +r;
   g = +g;
   b = +b;
   a = +a;

   _imageCtx.strokeStyle = `rgba(${r}, ${g}, ${b}, ${a})`;
   const c = _turtle.colour;
   c.r = r;
   c.g = g;
   c.b = b;
   c.a = a;
};
const color = colour;

/**
 * Returns a pseudo-random integer in a range
 * @param {number} min inclusive lower bound
 * @param {number} max inclusive upper bound
 */
const random = (min, max) => {
   min = +min;
   max = +max;

   return Math.floor(Math.random() * (max - min + 1) + min);
};

/**
 * repeatedly run an "action" callback `n` times
 * @param {number} n integer
 * @param {() => never} action callback
 */
const repeat = (n, action) => { while (n-- > 0) action(); };

/**
 * `setInterval` alias, but 2-adic (no rest args)
 * @param {TimerHandler} f
 * @param {number | undefined} ms
 */
const animate = (f, ms) => setInterval(f, ms);

/**
 * main program/script, mostly UI code.
 *
 * this fn is used to encapsulate private stuff that the user shouldn't access
 */
const _main = () => {
   const doc = document;

   /**
    * check if `x` is `-0`, using only operators.
    * to ensure correctness in ALL circumstances, it doesn't use `Object.is`, because it's mutable.
    * this means this fn is 100% [pure](https://en.wikipedia.org/wiki/Pure_function).
    * @param {*} x
    */
   const isNegZero = x => x === 0 && 1 / x == -Infinity;

   /**
    * check if `x` matches the description of the `Uint32` namepath.
    * this fn is pure, by using only operators (and a fn call).
    * @param {*} x
   */
   const isUint32 = x => typeof x == 'number' && x == x >>> 0 && !isNegZero(x);

   /**
    * String Queue (FIFO) to manage a history or log.
    * @param {Uint32} [maxSize=2**16] maximum chars to keep in memory.
    */
   const Hist = class {
      // a 16bit address-space seems like a sensible default
      constructor(maxSize = 1 << 0x10) {
         // runtime type safety
         if ( !isUint32(maxSize) )
            throw new RangeError('expected `maxSize` to be `Uint32`, but got ' + maxSize);
         // just-in-case
         if (maxSize < 2)
            console.warn('Max History size set to 0 or 1. This seems like an accident');

         /**
          * max CUs to store, until at least 1 string is cleared from the queue.
          * @type {Uint32}
          */
         this._maxSize = maxSize;

         /**
          * total size in memory.
          * measured in **code-units** (16b or 2B), not bytes (8b or 1B).
          * @type {Uint32}
          */
         this._size = 0;

         /**
          * pointer to currently selected entry.
          * @type {Uint32}
          */
         this._index = 0;

         /**@type {string[]}*/
         this._entries = [];
      }

      /** returns entry at current `index`, defaults to empty `string` */
      get() { return this._entries[this._index] || ''; }

      // both are unused, but may be handy in the future
      /** get latest entry, defaults to empty `string` */
      newest() { return this._entries[this._entries.length - 1] || ''; }
      /** get earliest entry, defaults to empty `string` */
      oldest() { return this._entries[0] || ''; }

      /**
       * append/push, with auto-flush
       * @param {string} s
       */
      set(s) {
         // enqueue, then set index to newest entry
         this._index = this._entries.push(s);
         // ensure it's up-to-date, to avoid memory leaks
         this._size += s.length;

         // flush old entries
         while (this._size > this._maxSize) {
            // dequeue, then update size
            this._size -= /**@type {string}*/(this._entries.shift()).length;
            this._index--; // index correction
         }
      }

      /**
       * increment `index` by 1, clamped to `entries.length`, then return its value.
       * @return {Uint32}
       */
      incIdx() {
         return this._index = Math.min(this._index + 1, this._entries.length);
      }

      /**
       * decrement `index` by 1, clamped to 0 (keeps it unsigned), then return its value.
       * @return {Uint32}
       */
      decIdx() {
         return this._index = Math.max(this._index - 1, 0);
      }

      // also unused, but good to have available
      /**
       * set `maxSize` to a new value
       * @param {Uint32} n
      */
      setMaxSize(n) {
         if ( !isUint32(n) )
            throw new RangeError('expected `n` to be `Uint32`, but got ' + n);
         this._maxSize = n;
      }
      // maybe we should add a button to clear the history?
   };

   const cmds = new Hist(1 << 20); // is this size "balanced"?

   const cmdBox = /**@type {HTMLInputElement}*/(doc.getElementById('command'));

   cmdBox.addEventListener('keydown', ({ key }) => {
      switch (key) {
         // Moves up and down in command history
         case 'ArrowDown': cmds.incIdx(); break;
         case 'ArrowUp': cmds.decIdx(); break;
         // call `runCmd` when user presses any "Enter" or "Return" keys
         case 'Enter': return runCmd();
         default: return;
      }
      // external fall-through, only executed if `return` isn't touched
      cmdBox.value = cmds.get();
   }, false);

   const def = /**@type {HTMLTextAreaElement}*/(doc.getElementById('definitions'));

   /** Executes program in the command box */
   const runCmd = () => {
      const cmdText = cmdBox.value;
      cmds.set(cmdText);

      const definitionsText = def.value;
      // https://stackoverflow.com/questions/19357978/indirect-eval-call-in-strict-mode
      // "JS never ceases to surprise me" @Rudxain
      try {
         // execute any code in the definitions box
         (0, eval)(definitionsText);
         // execute the code in the command box
         (0, eval)(cmdText);
      } catch (e) {
         alert('Exception thrown:\n' + e);
         throw e;
      } finally {
         // clear the command box
         cmdBox.value = '';
      }
   };

   /**
    * Similar to JQuery
    * @param {string} id HTML element ID
    * @param {(this: HTMLElement, ev: MouseEvent) => unknown} cb callback
    */
   const listenClickById = (id, cb) => doc.getElementById(id).addEventListener('click', cb);
   // call `runCmd` when user presses "Run"
   listenClickById('runButton', runCmd);
   listenClickById('resetButton', reset);
   reset();
};

_main();