//
// InterfaceControler.cs
//
// Author:
//       Jean-Philippe Bruyère <jp.bruyere@hotmail.com>
//
// Copyright (c) 2013-2017 Jean-Philippe Bruyère
//
// Permission is hereby granted, free of charge, to any person obtaining a copy
// of this software and associated documentation files (the "Software"), to deal
// in the Software without restriction, including without limitation the rights
// to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
// copies of the Software, and to permit persons to whom the Software is
// furnished to do so, subject to the following conditions:
//
// The above copyright notice and this permission notice shall be included in
// all copies or substantial portions of the Software.
//
// THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
// IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
// FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
// AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
// LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
// OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
// THE SOFTWARE.

using System;
using OpenTK;
using OpenTK.Graphics.OpenGL;
using System.Threading;
using System.Collections.Generic;

namespace Crow
{
	public class ProjectiveIFaceControler : InterfaceControler {
		Matrix4 modelview;
		int[] viewport = new int[4];
		Vector3 vEyePosition;

		public Matrix4 ifaceModelMat;
		Point localMousePos;

		public ProjectiveIFaceControler(Rectangle ifaceBounds, Matrix4 _ifaceModelMat)
			: base(ifaceBounds){
			ifaceModelMat = _ifaceModelMat;
		}

		public override Matrix4 InterfaceMVP {
			get { return ifaceModelMat * modelview * projection; }
		}

		public override void initGL(){
			quad = new Crow.vaoMesh (0, 0, 0, 1, 1, 1, -1);
			//ifaceModelMat = Matrix4.CreateRotationX(MathHelper.PiOver2) * Matrix4.CreateTranslation(Vector3.UnitY);
			CrowInterface.ProcessResize(iRect);
			createContext ();
			//CrowInterface.ProcessResize (iRect);
		}
		public override void ProcessResize (Rectangle newSize)
		{
		}
		public override void OpenGLDraw ()
		{
			GL.Enable (EnableCap.DepthTest);
			base.OpenGLDraw ();
			GL.Disable (EnableCap.DepthTest);
		}
		public void UpdateView (Matrix4 _projection, Matrix4 _modelview, int[] _viewport, Vector3 _vEyePosition)
		{
			projection = _projection;
			modelview = _modelview;
			viewport = _viewport;
			vEyePosition = _vEyePosition;
		}
		public override bool ProcessMouseMove (int x, int y)
		{
			Matrix4 mv = ifaceModelMat * modelview;
			Vector3 vMouse = UnProject(ref projection, ref mv, viewport, new Vector2 (x, y)).Xyz;
			Vector3 vE = vEyePosition.Transform (ifaceModelMat.Inverted());
			Vector3 vMouseRay = Vector3.Normalize(vMouse - vE);
			float a = vE.Z / vMouseRay.Z;
			vMouse = vE - vMouseRay * a;
			//vMouse = vMouse.Transform (interfaceModelView.Inverted());
			localMousePos = new Point ((int)Math.Truncate ((vMouse.X + 0.5f) * iRect.Width),
				iRect.Height - (int)Math.Truncate ((vMouse.Y + 0.5f) * iRect.Height));
			mouseIsInInterface = localMousePos.X.IsInBetween (0, iRect.Width) & localMousePos.Y.IsInBetween (0, iRect.Height);

			return mouseIsInInterface ? CrowInterface.ProcessMouseMove (localMousePos.X, localMousePos.Y) : false;
		}
		Vector4 UnProject(ref Matrix4 projection, ref Matrix4 view, int[] viewport, Vector2 mouse)
		{
			Vector4 vec;

			vec.X = 2.0f * mouse.X / (float)viewport[2] - 1;
			vec.Y = -(2.0f * mouse.Y / (float)viewport[3] - 1);
			vec.Z = 0f;
			vec.W = 1.0f;

			Matrix4 viewInv = Matrix4.Invert(view);
			Matrix4 projInv = Matrix4.Invert(projection);

			Vector4.Transform(ref vec, ref projInv, out vec);
			Vector4.Transform(ref vec, ref viewInv, out vec);

			if (vec.W > float.Epsilon || vec.W < float.Epsilon)
			{
				vec.X /= vec.W;
				vec.Y /= vec.W;
				vec.Z /= vec.W;
			}

			return vec;
		}
	}
	public class InterfaceControler : IDisposable {
		public Interface CrowInterface;
		public int texID;
		public vaoMesh quad;
		public Rectangle iRect = new Rectangle(0,0,2048,2048);
		public bool mouseIsInInterface = false;

		protected Matrix4 projection;
		public virtual Matrix4 InterfaceMVP {
			get { return projection; }
		}

		#if MEASURE_TIME
		public List<PerformanceMeasure> PerfMeasures;
		public PerformanceMeasure glDrawMeasure = new PerformanceMeasure("OpenGL Draw", 10);
		#endif

		#region CTOR
		public InterfaceControler(Rectangle ifaceBounds){
			iRect = ifaceBounds;

			CrowInterface = new Interface ();

			#if MEASURE_TIME
			PerfMeasures = new List<PerformanceMeasure> (
				new PerformanceMeasure[] {
					this.CrowInterface.updateMeasure,
					this.CrowInterface.layoutingMeasure,
					this.CrowInterface.clippingMeasure,
					this.CrowInterface.drawingMeasure,
					this.glDrawMeasure
				}
			);
			#endif

			Thread t = new Thread (interfaceThread);
			t.IsBackground = true;
			t.Start ();

			initGL ();
		}
		#endregion

		void interfaceThread()
		{
			while (CrowInterface.ClientRectangle.Size.Width == 0)
				Thread.Sleep (5);

			while (true) {
				CrowInterface.Update ();
				//Thread.Sleep (1);
			}
		}

		#region Mouse And Keyboard handling
		public virtual void ProcessResize(Rectangle newSize){
			iRect = newSize;
			CrowInterface.ProcessResize(newSize);
			createContext ();
			GL.Viewport (0, 0, newSize.Width, newSize.Height);//TODO:find a better place for this
		}
		public virtual bool ProcessMouseMove(int x, int y){
			return CrowInterface.ProcessMouseMove (x, y);
		}
		public virtual bool ProcessMouseButtonUp(int button)
		{
			return CrowInterface.ProcessMouseButtonUp (button);
		}
		public virtual bool ProcessMouseButtonDown(int button)
		{
			return CrowInterface.ProcessMouseButtonDown (button);
		}
		public virtual bool ProcessMouseWheelChanged(float delta)
		{
			return CrowInterface.ProcessMouseWheelChanged (delta);
		}
		public virtual bool ProcessKeyDown(int Key){
			return CrowInterface.ProcessKeyDown(Key);
		}
		public virtual bool ProcessKeyUp(int Key){
			return CrowInterface.ProcessKeyUp(Key);
		}
		public virtual bool ProcessKeyPress(char Key){
			return CrowInterface.ProcessKeyPress(Key);
		}
		#endregion

		#region graphic context
		public virtual void initGL(){
			projection = OpenTK.Matrix4.CreateOrthographicOffCenter (-0.5f, 0.5f, -0.5f, 0.5f, 1, -1);
			quad = new Crow.vaoMesh (0, 0, 0, 1, 1, 1, -1);
			createContext ();
		}
		/// <summary>Create the texture for the interface redering</summary>
		public virtual void createContext()
		{
			if (GL.IsTexture(texID))
				GL.DeleteTexture (texID);
			GL.GenTextures(1, out texID);
			GL.ActiveTexture (TextureUnit.Texture0);
			GL.BindTexture(TextureTarget.Texture2D, texID);

			GL.TexImage2D(TextureTarget.Texture2D, 0, PixelInternalFormat.Rgba,
				iRect.Width, iRect.Height, 0,
				OpenTK.Graphics.OpenGL.PixelFormat.Bgra, PixelType.UnsignedByte, CrowInterface.bmp);

			GL.TexParameter(TextureTarget.Texture2D, TextureParameterName.TextureMinFilter, (int)TextureMinFilter.Linear);
			GL.TexParameter(TextureTarget.Texture2D, TextureParameterName.TextureMagFilter, (int)TextureMagFilter.Linear);

			GL.BindTexture(TextureTarget.Texture2D, 0);
		}
		/// <summary>Rendering of the interface</summary>
		public virtual void OpenGLDraw()
		{
			#if MEASURE_TIME
			glDrawMeasure.StartCycle();
			#endif

			GL.ActiveTexture (TextureUnit.Texture0);
			GL.BindTexture (TextureTarget.Texture2D, texID);
			if (Monitor.TryEnter(CrowInterface.RenderMutex)) {
				if (CrowInterface.IsDirty) {
					GL.TexSubImage2D (TextureTarget.Texture2D, 0,
						CrowInterface.DirtyRect.Left, CrowInterface.DirtyRect.Top,
						CrowInterface.DirtyRect.Width, CrowInterface.DirtyRect.Height,
						OpenTK.Graphics.OpenGL.PixelFormat.Bgra, PixelType.UnsignedByte, CrowInterface.dirtyBmp);
					CrowInterface.IsDirty = false;
				}
				Monitor.Exit (CrowInterface.RenderMutex);
			}
			quad.Render (BeginMode.TriangleStrip);
			GL.BindTexture(TextureTarget.Texture2D, 0);

			#if MEASURE_TIME
			glDrawMeasure.StopCycle();
			#endif
		}
		#endregion

		#region IDisposable implementation

		public void Dispose ()
		{
			if (GL.IsTexture(texID))
				GL.DeleteTexture (texID);
			if (quad != null)
				quad.Dispose ();
		}

		#endregion
	}
}