package.path = gh_utils.get_scripting_libs_dir() ..  "lua/?.lua;" .. package.path
package.loaded["mod_math"] = nil
mathmod = require "mod_math"


gx_camera = {
  --_all_cameras = {}
  --_num_cameras = 0
  _ctrl_key = 0,
  _mouse_wheel_delta = 0,
  _do_rotate = 0,
  _do_pan = 0,
  _pan_mx = 0,
  _pan_my = 0,
  _pan_speed_factor = 0.25,
  _old_mouse_x = 0,
  _old_mouse_y = 0,
  _orbit_yaw = 0,
  _orbit_pitch = 0,
  _keyboard_speed = 0.5,
  _lookat_x = 0,
  _lookat_y = 0,
  _lookat_z = 0,
  _MODE_ORBIT = 1,
  _MODE_FLY = 2,
  _MODE_FPS = 3,
  _mode = _MODE_ORBIT,
  _grid = 0,
  _grid_program = 0,
  _is_moving = 0,
  _fov = 0,
  _viewport = {x=0, y=0, w=0, h=0}
}



--[[
function gx_camera._create()
  local cam = { _id = 0}
  _num_cameras = _num_cameras + 1
  _all_cameras[_num_cameras] = cam
  return cam
end
--]]

function gx_camera.set_mode(mode)
  gx_camera._mode = mode
end

function gx_camera.set_mode_orbit()
  gx_camera._mode = gx_camera._MODE_ORBIT
end

function gx_camera.set_mode_fly()
  gx_camera._mode = gx_camera._MODE_FLY
end

function gx_camera.set_mode_fps()
  gx_camera._mode = gx_camera._MODE_FPS
end

function gx_camera.create_perspective(fov, is_vertical_fov, viewport_x, viewport_y, viewport_width, viewport_height, znear, zfar)
  local aspect = 1.0
  if (viewport_height > 0) then
    aspect = viewport_width / viewport_height
  end
  local camera = gh_camera.create_persp_v2(fov, is_vertical_fov, aspect, znear, zfar)
  gh_camera.set_viewport(camera, viewport_x, viewport_y, viewport_width, viewport_height)
  gh_camera.set_position(camera, 0, 0, 20)
  gh_camera.set_lookat(camera, 0, 0, 0, 1)
  gh_camera.set_upvec(camera, 0, 1, 0, 0)
  gx_camera._fov = fov
  gx_camera._viewport.x = viewport_x
  gx_camera._viewport.y = viewport_y
  gx_camera._viewport.w = viewport_width
  gx_camera._viewport.h = viewport_height
  return camera
end  

function gx_camera.update_perspective(camera, fov, is_vertical_fov, viewport_x, viewport_y, viewport_width, viewport_height, znear, zfar)
  local aspect = 1.0
  if (viewport_height > 0) then
    aspect = viewport_width / viewport_height
  end
  gh_camera.update_persp_v2(camera, fov, is_vertical_fov, aspect, znear, zfar)
  gh_camera.set_viewport(camera, viewport_x, viewport_y, viewport_width, viewport_height)
  gx_camera._fov = fov
  gx_camera._viewport.x = viewport_x
  gx_camera._viewport.y = viewport_y
  gx_camera._viewport.w = viewport_width
  gx_camera._viewport.h = viewport_height
end




function gx_camera.create_perspective_vk(fov, viewport_x, viewport_y, viewport_width, viewport_height, znear, zfar)
  local aspect = 1.0
  if (viewport_height > 0) then
    aspect = viewport_width / viewport_height
  end
  local camera = gh_camera.create_perspective_vk(fov, aspect, znear, zfar)
  gh_camera.set_viewport(camera, viewport_x, viewport_y, viewport_width, viewport_height)
  gh_camera.set_position(camera, 0, 0, 20)
  gh_camera.set_lookat(camera, 0, 0, 0, 1)
  gh_camera.set_upvec(camera, 0, 1, 0, 0)
  gx_camera._fov = fov
  gx_camera._viewport.x = viewport_x
  gx_camera._viewport.y = viewport_y
  gx_camera._viewport.w = viewport_width
  gx_camera._viewport.h = viewport_height
  return camera
end  



function gx_camera.update_perspective_vk(camera, fov, viewport_x, viewport_y, viewport_width, viewport_height, znear, zfar)
  local aspect = 1.0
  if (viewport_height > 0) then
    aspect = viewport_width / viewport_height
  end
  gh_camera.update_perspective_vk(camera, fov, aspect, znear, zfar)
  gh_camera.set_viewport(camera, viewport_x, viewport_y, viewport_width, viewport_height)
  gx_camera._fov = fov
  gx_camera._viewport.x = viewport_x
  gx_camera._viewport.y = viewport_y
  gx_camera._viewport.w = viewport_width
  gx_camera._viewport.h = viewport_height
end







function gx_camera._init_camera_angles(camera, pitch, yaw)
	gx_camera._orbit_yaw = yaw
	gx_camera._orbit_pitch = pitch
end

function gx_camera._init_camera_orbit(camera, x, y)
	gx_camera._old_mouse_x = x
	gx_camera._old_mouse_y = y
end










function gx_camera._rotate_camera_position_around_point(camera, lookat_point_x, lookat_point_y, lookat_point_z, pitch, yaw, roll)
	local cam_pos_x, cam_pos_y, cam_pos_z = gh_object.get_position(camera)
	local vx = cam_pos_x - lookat_point_x
	local vy = cam_pos_y - lookat_point_y
	local vz = cam_pos_z - lookat_point_z
	local angX = pitch * mathmod._PI_OVER_180
	local angY = yaw * mathmod._PI_OVER_180
	local angZ = roll * mathmod._PI_OVER_180
	local mag = math.sqrt(vx*vx + vy*vy + vz*vz)
	local new_cam_pos_x = lookat_point_x + mag * math.cos(angY) * math.cos(angX)
	local new_cam_pos_y = lookat_point_y + mag * math.sin(angX)
	local new_cam_pos_z = lookat_point_z + mag * math.sin(angY) * math.cos(angX)
	gh_camera.set_position(camera, new_cam_pos_x, new_cam_pos_y, new_cam_pos_z)
  gh_camera.set_lookat(camera, lookat_point_x, lookat_point_y, lookat_point_z, 1)
end

function gx_camera._rotate_camera_orbit(camera, mouse_x, mouse_y, lookat_x, lookat_y, lookat_z)
	local dx = mouse_x - gx_camera._old_mouse_x
	local dy = mouse_y - gx_camera._old_mouse_y

	gx_camera._old_mouse_x = mouse_x
	gx_camera._old_mouse_y = mouse_y

	local dyaw = dx * 0.1
	local dpitch = dy * 0.1

	gx_camera._orbit_yaw = gx_camera._orbit_yaw + dyaw
	gx_camera._orbit_pitch = gx_camera._orbit_pitch + dpitch
	
	
  if (gx_camera._orbit_pitch >= 89.0) then
		gx_camera._orbit_pitch = 89.0
	end
	
	if (gx_camera._orbit_pitch <= -89.0) then
		gx_camera._orbit_pitch = -89.0
	end
  

	gx_camera._rotate_camera_position_around_point(camera, lookat_x, lookat_y, lookat_z, gx_camera._orbit_pitch, gx_camera._orbit_yaw, 0.0)
end

function gx_camera.orbit(camera, lookat_x, lookat_y, lookat_z)
	local LEFT_BUTTON = 1
  gx_camera.orbit_v2(camera, lookat_x, lookat_y, lookat_z, LEFT_BUTTON)
end

function gx_camera.orbit_v2(camera, lookat_x, lookat_y, lookat_z, mouse_button)
	--local LEFT_BUTTON = 1
	--local RIGHT_BUTTON = 2
	local is_down = gh_input.mouse_get_button_state(mouse_button) 
	if ((is_down == 1) and (gx_camera._do_rotate == 0)) then
		local mx
		local my
		mx, my = gh_input.mouse_getpos()

    if (gh_utils.get_platform() == 2) then -- OSX    
		  --gx_camera._init_camera_orbit(camera, mx, -my)
		  gx_camera._init_camera_orbit(camera, mx, my)
    else  -- Windows and Linux
      gx_camera._init_camera_orbit(camera, mx, my)
    end
		gx_camera._do_rotate = 1
	end
	
	if (is_down == 0) then
		gx_camera._do_rotate = 0
	end
	
	if (gx_camera._do_rotate == 1) then
		local mx
		local my
		mx, my = gh_input.mouse_getpos()
		
		if ((mx ~= gx_camera._old_mouse_x) or (my ~= gx_camera._old_mouse_y)) then
      if (gh_utils.get_platform() == 2) then -- OSX    
  			--gx_camera._rotate_camera_orbit(camera, mx, -my, lookat_x, lookat_y, lookat_z)
  			gx_camera._rotate_camera_orbit(camera, mx, my, lookat_x, lookat_y, lookat_z)
      else -- Windows and Linux
        gx_camera._rotate_camera_orbit(camera, mx, my, lookat_x, lookat_y, lookat_z)
      end  
		end
	end
end

function gx_camera.init_orientation(camera, lookat_x, lookat_y, lookat_z, pitch, yaw)
	gx_camera._init_camera_angles(camera, pitch, yaw)
	gx_camera._rotate_camera_position_around_point(camera, lookat_x, lookat_y, lookat_z, pitch, yaw, 0)
end


function gx_camera.move_along_view(camera, distance)
	local px, py, pz = gh_camera.get_position(camera)
	local vx, vy, vz = gh_camera.get_view_vector(camera)
	px = px + (vx * distance)
	py = py + (vy * distance)
	pz = pz + (vz * distance)
	gh_camera.set_position(camera, px, py, pz)
end

function gx_camera.move_along_view_xz(camera, distance)
	local px, py, pz = gh_camera.get_position(camera)
	local vx, vy, vz = gh_camera.get_view_vector(camera)
	px = px + (vx * distance)
	pz = pz + (vz * distance)
	gh_camera.set_position(camera, px, py, pz)
end

function gx_camera.rotate_view(camera, pitch, yaw)
  gh_camera.set_yaw(camera, yaw)
  gh_camera.set_pitch(camera, pitch)
end

function gx_camera.strafe_h(camera, dist, update_lookat)
  gx_camera.strafe_h_v2(camera, dist, 1)
end

function gx_camera.strafe_h_v2(camera, dist, update_lookat)
	local v = mathmod.new_vec3()
	local u = mathmod.new_vec3()
	v.x, v.y, v.z = gh_camera.get_view_vector(camera)
  v:neg()
	u.x, u.y, u.z = gh_camera.get_up_vector(camera)
  local xvec = v:cross(u)
  local p = mathmod.new_vec3()
	p.x, p.y, p.z = gh_camera.get_position(camera)
  p = p + (xvec * dist)
	gh_camera.set_position(camera, p.x, p.y, p.z)

  if (update_lookat == 1) then
    local lookat_x = gx_camera._lookat_x + (xvec.x * dist)
    local lookat_y = gx_camera._lookat_y + (xvec.y * dist)
    local lookat_z = gx_camera._lookat_z + (xvec.z * dist)
    gx_camera.set_orbit_lookat(camera, lookat_x, lookat_y, lookat_z)  
  end
end

function gx_camera.strafe_h_xz(camera, dist, update_lookat)
	local v = mathmod.new_vec3()
	local u = mathmod.new_vec3()
	v.x, v.y, v.z = gh_camera.get_view_vector(camera)
  v:neg()
	u.x, u.y, u.z = gh_camera.get_up_vector(camera)
  local xvec = v:cross(u)
  local p = mathmod.new_vec3()
	p.x, p.y, p.z = gh_camera.get_position(camera)
  p.x = p.x + (xvec.x * dist)
  p.z = p.z + (xvec.z * dist)
	gh_camera.set_position(camera, p.x, p.y, p.z)
  
  if (update_lookat == 1) then
    local lookat_x = gx_camera._lookat_x + (xvec.x * dist)
    local lookat_y = gx_camera._lookat_y + (xvec.y * dist)
    local lookat_z = gx_camera._lookat_z + (xvec.z * dist)
    gx_camera.set_orbit_lookat(camera, lookat_x, lookat_y, lookat_z)  
  end
end

function gx_camera.strafe_v(camera, dist)
  gx_camera.strafe_v_v2(camera, dist, 1)
end

function gx_camera.strafe_v_v2(camera, dist, update_lookat)
  -- Vertical strafe
	local v = mathmod.new_vec3()
	local u = mathmod.new_vec3()
	v.x, v.y, v.z = gh_camera.get_view_vector(camera)
  v:neg()
	u.x, u.y, u.z = gh_camera.get_up_vector(camera)
  local xvec = v:cross(u)
  local p = mathmod.new_vec3()
	p.x, p.y, p.z = gh_camera.get_position(camera)
  p = p + (u * dist)
	gh_camera.set_position(camera, p.x, p.y, p.z)
  
  if (update_lookat == 1) then
    local lookat_x = gx_camera._lookat_x + (u.x * dist)
    local lookat_y = gx_camera._lookat_y + (u.y * dist)
    local lookat_z = gx_camera._lookat_z + (u.z * dist)
    gx_camera.set_orbit_lookat(camera, lookat_x, lookat_y, lookat_z)  
  end
  
end

function gx_camera.set_keyboard_speed(speed)
  gx_camera._keyboard_speed = speed
end  




function gx_camera.ComputeProjectiveScaleFactor(camera, lookat_x, lookat_y, lookat_z, screen_height, fov)
  local fov_rad = fov * 3.14159 / 180.0
	local focalLength = (0.5 * screen_height) / (math.tan(fov_rad / 2))
  local px, py, pz = gh_camera.get_position(camera)
  local dx = lookat_x - px
  local dy = lookat_y - py
  local dz = lookat_z - pz
	local pivotDistance = math.sqrt((dx*dx) + (dy*dy) + (dz*dz))
  local S = pivotDistance / focalLength
	return S
end


--[[  
function gx_camera.pan(camera, speed_factor)
  local KC_LEFT_CTRL = 29
  local is_ctrl_down = gh_input.keyboard_is_key_down(KC_LEFT_CTRL) 
	local is_leftbutton_down = 0
  
  
  -- OSX platform.
  local	KC_LEFT = 203
  local KC_RIGHT = 205
  
  -- Override for Windows platform.
  if (gh_utils.get_platform() == 1) then
    KC_RIGHT = 77
    KC_LEFT = 75
  end

  local KC_A = 30
  local KC_D = 32

  local kb_down = 0
  local dx = 0
  local dy = 0
  
  if ((gh_input.keyboard_is_key_down(KC_A) == 1) or (gh_input.keyboard_is_key_down(KC_LEFT) == 1)) then
    gx_camera._do_pan = 1
    dx = -10
    kb_down = 1
  elseif ((gh_input.keyboard_is_key_down(KC_D) == 1) or (gh_input.keyboard_is_key_down(KC_RIGHT) == 1)) then
    gx_camera._do_pan = 1
    dx = 10
    kb_down = 1
  end
  
  
  gx_camera._ctrl_key = is_ctrl_down
  
  if (is_ctrl_down == 1) then
    local LEFT_BUTTON = 1
    is_leftbutton_down = gh_input.mouse_get_button_state(LEFT_BUTTON) 
    if ((is_leftbutton_down == 1) and (gx_camera._do_pan == 0)) then
      local mx, my = gh_input.mouse_getpos()
      gx_camera._pan_mx = mx
      gx_camera._pan_my = my
      gx_camera._do_pan = 1
    end
    
    local mx, my = gh_input.mouse_getpos()
    dx = mx - gx_camera._pan_mx
    dy = my - gx_camera._pan_my
    gx_camera._pan_mx = mx
    gx_camera._pan_my = my
    
  end
  
	if ((kb_down == 0) and (is_leftbutton_down == 0)) then
		gx_camera._do_pan = 0
	end
  
  if (gx_camera._do_pan == 1) then
    gx_camera.strafe_h(camera, dx * speed_factor)
    gx_camera.strafe_v(camera, dy * speed_factor)
  end  
end
--]]

function gx_camera.pan(camera, speed_factor)
  local KC_LEFT_CTRL = 29
  local is_ctrl_down = gh_input.keyboard_is_key_down(KC_LEFT_CTRL) 
	local is_leftbutton_down = 0
  
  local dx = 0
  local dy = 0
  
  gx_camera._ctrl_key = is_ctrl_down
  
  if (is_ctrl_down == 1) then
    local LEFT_BUTTON = 1
    is_leftbutton_down = gh_input.mouse_get_button_state(LEFT_BUTTON) 
    if ((is_leftbutton_down == 1) and (gx_camera._do_pan == 0)) then
      local mx, my = gh_input.mouse_getpos()
      gx_camera._pan_mx = mx
      gx_camera._pan_my = my
      gx_camera._do_pan = 1
    end
    
    local mx, my = gh_input.mouse_getpos()
    dx = mx - gx_camera._pan_mx
    dy = my - gx_camera._pan_my
    gx_camera._pan_mx = mx
    gx_camera._pan_my = my
  end
  
	if (is_leftbutton_down == 0) then
		gx_camera._do_pan = 0
	end
  
  if (gx_camera._do_pan == 1) then
    gx_camera.strafe_h(camera, dx * speed_factor)
    gx_camera.strafe_v(camera, dy * speed_factor)
  end  
end




function gx_camera.pan2(camera, speed_factor, mouse_button)
  --local KC_LEFT_CTRL = 29
  --local is_ctrl_down = gh_input.keyboard_is_key_down(KC_LEFT_CTRL) 
 
  
  local is_mousebutton_down = gh_input.mouse_get_button_state(mouse_button) 
  if ((is_mousebutton_down == 1) and (gx_camera._do_pan == 0)) then
    --print("gx_camera.pan2() - is_mousebutton_down=1")
    local mx, my = gh_input.mouse_getpos()
    gx_camera._pan_mx = mx
    gx_camera._pan_my = my
    gx_camera._do_pan = 1
  end
  
  if (is_mousebutton_down == 0) then
    gx_camera._do_pan = 0
  end
  
  if (gx_camera._do_pan == 1) then

    local mx, my = gh_input.mouse_getpos()
    local dx = (mx - gx_camera._pan_mx)
    local dy = (my - gx_camera._pan_my)
    gx_camera._pan_mx = mx
    gx_camera._pan_my = my



    --local S = gx_camera.ComputeProjectiveScaleFactor(camera, 0, 0, 0, gx_camera._viewport.h, gx_camera._fov)
    --print("S => " .. S)

    --local distx = 1
    --local disty = 0
    local distx = dx * speed_factor
    local disty = dy * speed_factor
    --if (dx > 0) then
    --  print("gx_camera.pan2() - distx=" .. distx .. " speed_factor=" .. speed_factor .. " dx=" .. dx .. " mx=" .. mx .. " _pan_mx=" .. gx_camera._pan_mx)
    --end


    gx_camera.strafe_h(camera, distx)
    gx_camera.strafe_v(camera, disty)
  end  
end




function gx_camera.is_moving()
  return gx_camera._is_moving
end


function gx_camera.update_fly(camera, dt)

  -- OSX platform.
  local	KC_UP = 200
  local	KC_LEFT = 203
  local KC_RIGHT = 205
  local	KC_DOWN = 208
  
  --[[
  -- Override for Windows plateform.
  if (gh_utils.get_platform() == 1) then
    KC_UP = 72
    KC_DOWN = 80
    KC_RIGHT = 77
    KC_LEFT = 75
  end
  --]]

  local KC_W = 17
  local KC_S = 31
  local KC_A = 30
  local KC_D = 32
  local KC_R = 19
  local KC_F = 33
  

  local cam_dist = gx_camera._keyboard_speed * dt
  if ((gh_input.keyboard_is_key_down(KC_W) == 1) or (gh_input.keyboard_is_key_down(KC_UP) == 1)) then
    gx_camera.move_along_view(camera, cam_dist)
    gx_camera._is_moving = 1
  end
  if ((gh_input.keyboard_is_key_down(KC_S) == 1) or (gh_input.keyboard_is_key_down(KC_DOWN) == 1)) then
    gx_camera.move_along_view(camera, -cam_dist)
    gx_camera._is_moving = 1
  end
  if ((gh_input.keyboard_is_key_down(KC_A) == 1) or (gh_input.keyboard_is_key_down(KC_LEFT) == 1)) then
    gx_camera.strafe_h_v2(camera, cam_dist, 0)
    gx_camera._is_moving = 1
  end
  if ((gh_input.keyboard_is_key_down(KC_D) == 1) or (gh_input.keyboard_is_key_down(KC_RIGHT) == 1)) then
    gx_camera.strafe_h_v2(camera, -cam_dist, 0)
    gx_camera._is_moving = 1
  end
  
  if (gh_input.keyboard_is_key_down(KC_R) == 1) then
    gx_camera.strafe_v_v2(camera, cam_dist, 0)
    gx_camera._is_moving = 1
  end
  if (gh_input.keyboard_is_key_down(KC_F) == 1) then
    gx_camera.strafe_v_v2(camera, -cam_dist, 0)
    gx_camera._is_moving = 1
  end
  
  local LEFT_BUTTON = 1
  local is_down = gh_input.mouse_get_button_state(LEFT_BUTTON) 
  if ((is_down == 1) and (gx_camera._do_rotate == 0)) then
    gx_camera._old_mouse_x, gx_camera._old_mouse_y = gh_input.mouse_getpos()
    gx_camera._do_rotate = 1
  end

  if (is_down == 0) then
    gx_camera._do_rotate = 0
  end
  
  

  if (gx_camera._do_rotate == 1) then
    local mx
    local my
    mx, my = gh_input.mouse_getpos()
    
    local mouse_dx = (mx - gx_camera._old_mouse_x) * mathmod._PI_OVER_180
    local mouse_dy =(my - gx_camera._old_mouse_y) * mathmod._PI_OVER_180

    gx_camera._old_mouse_x = mx
    gx_camera._old_mouse_y = my
    
    local mouse_speed = 10.0
    gx_camera.rotate_view(camera, -mouse_dy * mouse_speed, -mouse_dx * mouse_speed)
  end
end


function gx_camera.update_walk_fps(camera, dt)

  -- OSX platform.
  local	KC_UP = 200
  local	KC_LEFT = 203
  local KC_RIGHT = 205
  local	KC_DOWN = 208
  
  --[[
  -- Override for Windows plateform.
  if (gh_utils.get_platform() == 1) then
    KC_UP = 72
    KC_DOWN = 80
    KC_RIGHT = 77
    KC_LEFT = 75
  end
  --]]

  local KC_W = 17
  local KC_S = 31
  local KC_A = 30
  local KC_D = 32
  local KC_R = 19
  local KC_F = 33
  

  local cam_dist = gx_camera._keyboard_speed * dt
  if ((gh_input.keyboard_is_key_down(KC_W) == 1) or (gh_input.keyboard_is_key_down(KC_UP) == 1)) then
    gx_camera.move_along_view_xz(camera, cam_dist)
    gx_camera._is_moving = 1
  end
  if ((gh_input.keyboard_is_key_down(KC_S) == 1) or (gh_input.keyboard_is_key_down(KC_DOWN) == 1)) then
    gx_camera.move_along_view_xz(camera, -cam_dist)
    gx_camera._is_moving = 1
  end
  if ((gh_input.keyboard_is_key_down(KC_A) == 1) or (gh_input.keyboard_is_key_down(KC_LEFT) == 1)) then
    gx_camera.strafe_h_xz(camera, cam_dist, 0)
    gx_camera._is_moving = 1
  end
  if ((gh_input.keyboard_is_key_down(KC_D) == 1) or (gh_input.keyboard_is_key_down(KC_RIGHT) == 1)) then
    gx_camera.strafe_h_xz(camera, -cam_dist, 0)
    gx_camera._is_moving = 1
  end
  
  if (gh_input.keyboard_is_key_down(KC_R) == 1) then
    gx_camera.strafe_v_v2(camera, cam_dist, 0)
    gx_camera._is_moving = 1
  end
  if (gh_input.keyboard_is_key_down(KC_F) == 1) then
    gx_camera.strafe_v_v2(camera, -cam_dist, 0)
    gx_camera._is_moving = 1
  end
  
  
  gx_camera._do_rotate = 1
  

  if (gx_camera._do_rotate == 1) then
    

    local mouse_dx = 0
    local mouse_dy = 0
    

    if (gh_utils.get_platform() == 2) then -- return 1 if Windows, 2 if osx, 3 if linux, 4 if rpi and 5 if tinker board
    
      mouse_dx, mouse_dy = gh_input.mouse_get_position_delta()
      gh_input.mouse_reset_position_delta()

      mouse_dx = mouse_dx * mathmod._PI_OVER_180
      mouse_dy = mouse_dy * mathmod._PI_OVER_180
      
      gh_input.mouse_set_position(winW/2, winH/2)

    else 
 
      local mx
      local my
      mx, my = gh_input.mouse_get_position_v2()
      --print(string.format("mx: %d - my: %d", mx, my))

      mouse_dx = (mx - winW/2) * mathmod._PI_OVER_180
      mouse_dy =(my - winH/2) * mathmod._PI_OVER_180
      
      gh_input.mouse_set_position(winW/2, winH/2)
      
      gx_camera._old_mouse_x = mx
      gx_camera._old_mouse_y = my

    end

    
    local mouse_speed = 10.0
    gx_camera.rotate_view(camera, -mouse_dy * mouse_speed, -mouse_dx * mouse_speed)
    
  end
end




function gx_camera.set_orbit_lookat(camera, lookat_x, lookat_y, lookat_z)
  gx_camera._lookat_x = lookat_x
  gx_camera._lookat_y = lookat_y
  gx_camera._lookat_z = lookat_z
  gh_camera.set_lookat(camera, lookat_x, lookat_y, lookat_z, 1.0)
end

function gx_camera.update_orbit(camera, dt, lookat_x, lookat_y, lookat_z)
  local LEFT_BUTTON = 1
  gx_camera.update_orbit_v2(camera, dt, lookat_x, lookat_y, lookat_z, LEFT_BUTTON)
end

function gx_camera.update_orbit_v2(camera, dt, lookat_x, lookat_y, lookat_z, mouse_button)
  -- OSX platform.
  local	KC_UP = 200
  local	KC_LEFT = 203
  local KC_RIGHT = 205
  local	KC_DOWN = 208
  --[[
  -- Override for Windows plateform.
  if (gh_utils.get_platform() == 1) then
    KC_UP = 72
    KC_DOWN = 80
    KC_RIGHT = 77
    KC_LEFT = 75
  end
  --]]

  local KC_W = 17
  local KC_S = 31
  local KC_A = 30
  local KC_D = 32

  
  local wheel_delta = gh_input.mouse_get_wheel_delta()
  gx_camera._mouse_wheel_delta = wheel_delta
  gh_input.mouse_reset_wheel_delta()
  
  local distance = gx_camera._keyboard_speed * dt * 10

  -- if (wheel_delta ~= 0.0) then
  --   gh_utils.trace(string.format("gx_camera.update_orbit_v2 - wheel_delta:%.1f, distance: %.1f *****************************", wheel_delta, distance))
  -- else
  --   gh_utils.trace(string.format("gx_camera.update_orbit_v2 - wheel_delta:%.1f, distance: %.1f", wheel_delta, distance))
  -- end
  
  if ((wheel_delta > 0) or (gh_input.keyboard_is_key_down(KC_W) == 1) or (gh_input.keyboard_is_key_down(KC_UP) == 1)) then
    gx_camera.move_along_view(camera, distance)
  end
  if ((wheel_delta < 0) or (gh_input.keyboard_is_key_down(KC_S) == 1) or (gh_input.keyboard_is_key_down(KC_DOWN) == 1)) then
    gx_camera.move_along_view(camera, -distance)
  end
  
  gx_camera.orbit_v2(camera, lookat_x, lookat_y, lookat_z, mouse_button)
end


function gx_camera.update_move_along_view(camera, dt)
  
  -- OSX platform.
  local KC_UP = 200
  local KC_LEFT = 203
  local KC_RIGHT = 205
  local KC_DOWN = 208
  --[[
  -- Override for Windows plateform.
  if (gh_utils.get_platform() == 1) then
    KC_UP = 72
    KC_DOWN = 80
    KC_RIGHT = 77
    KC_LEFT = 75
  end
  --]]

  local KC_W = 17
  local KC_S = 31
  local KC_A = 30
  local KC_D = 32

  
  local wheel_delta = gh_input.mouse_get_wheel_delta()
  gx_camera._mouse_wheel_delta = wheel_delta
  gh_input.mouse_reset_wheel_delta()
  
  local distance = gx_camera._keyboard_speed * dt * 10
  
  if ((wheel_delta > 0) or (gh_input.keyboard_is_key_down(KC_W) == 1) or (gh_input.keyboard_is_key_down(KC_UP) == 1)) then
    gx_camera.move_along_view(camera, distance)
  end
  if ((wheel_delta < 0) or (gh_input.keyboard_is_key_down(KC_S) == 1) or (gh_input.keyboard_is_key_down(KC_DOWN) == 1)) then
    gx_camera.move_along_view(camera, -distance)
  end
end



function gx_camera.update(camera, dt)

  -- Windows platform.
  if (gh_utils.get_platform() == 1) then
    gh_window.keyboard_update_buffer(0)
  end
 
  gx_camera._is_moving = 0
  -- PAN with [CTRL] + mouse right click
  gx_camera.pan(camera, gx_camera._pan_speed_factor)

  
  if (gx_camera._do_pan == 0) then
    if (gx_camera._mode == gx_camera._MODE_ORBIT) then
      gx_camera.update_orbit(camera, dt, gx_camera._lookat_x, gx_camera._lookat_y, gx_camera._lookat_z)  
    
    elseif (gx_camera._mode == gx_camera._MODE_FLY) then
      gx_camera.update_fly(camera, dt)  
      
    elseif (gx_camera._mode == gx_camera._MODE_FPS) then
      gx_camera.update_walk_fps(camera, dt)  
     
    end
  end

end


function gx_camera.update_v2(camera, dt)

  -- Windows platform.
  if (gh_utils.get_platform() == 1) then
    gh_window.keyboard_update_buffer(0)
  end
 
  gx_camera._is_moving = 0


  local RIGHT_BUTTON = 2
  local speed_factor = gx_camera._keyboard_speed * 0.5 * dt
  -- PAN with mouse right click only
  gx_camera.pan2(camera, speed_factor, RIGHT_BUTTON)


  
  if (gx_camera._do_pan == 0) then
    if (gx_camera._mode == gx_camera._MODE_ORBIT) then
      gx_camera.update_orbit(camera, dt, gx_camera._lookat_x, gx_camera._lookat_y, gx_camera._lookat_z)  
    
    elseif (gx_camera._mode == gx_camera._MODE_FLY) then
      gx_camera.update_fly(camera, dt)  
      
    elseif (gx_camera._mode == gx_camera._MODE_FPS) then
      gx_camera.update_walk_fps(camera, dt)  
     
    end
  end

end



function gx_camera.draw_tripod(camera)
  --local w, h = gh_window.getsize(0)
  gh_utils.tripod_visualizer_camera_render(camera, 0, 0, 100, 100)
end


function gx_camera.draw_ref_grid_v2(x_size, z_size, x_subdiv, z_subdiv, gpu_prog)
  local grid = gx_camera._grid
  if (grid == 0) then
    grid = gh_utils.grid_create()
    gx_camera._grid = grid
    
    gh_utils.grid_set_lines_color(grid, 0.7, 0.7, 0.7, 1.0)
    gh_utils.grid_set_main_lines_color(grid, 1.0, 1.0, 0.0, 1.0)
    gh_utils.grid_set_main_x_axis_color(grid, 1.0, 0.0, 0.0, 1.0)
    gh_utils.grid_set_main_z_axis_color(grid, 0.0, 0.0, 1.0, 1.0)
    local display_main_lines = 1
    local display_lines = 1
    gh_utils.grid_set_display_lines_options(grid, display_main_lines, display_lines)

    if (gpu_prog == 0) then
    
      local grid_program_vs_gl3=" \
      in vec4 gxl3d_Position; \
      in vec4 gxl3d_Color; \
      uniform mat4 gxl3d_ModelViewProjectionMatrix; \
      out vec4 Vertex_Color; \
      void main() \
      { \
        gl_Position = gxl3d_ModelViewProjectionMatrix * gxl3d_Position; \
        Vertex_Color = gxl3d_Color; \
      }"

      local grid_program_ps_gl3=" \
      in vec4 Vertex_Color; \
      out vec4 FragColor; \
      void main (void) \
      { \
        FragColor = Vertex_Color;  \
      }"
      
      local grid_program_vs_gl2=" \
      #version 120 \
      uniform mat4 gxl3d_ModelViewProjectionMatrix; \
      varying vec4 Vertex_Color; \
      void main() \
      { \
        gl_Position = gxl3d_ModelViewProjectionMatrix * gl_Vertex; \
        Vertex_Color = gl_Color; \
      }"

      local grid_program_ps_gl2=" \
      #version 120 \
      varying vec4 Vertex_Color; \
      void main (void) \
      { \
        gl_FragColor = Vertex_Color;  \
      }"

      local grid_program_vs_gles2=" \
      attribute vec4 gxl3d_Position; \
      attribute vec4 gxl3d_Color; \
      uniform mat4 gxl3d_ModelViewProjectionMatrix; \
      varying vec4 Vertex_Color; \
      void main() \
      { \
        gl_Position = gxl3d_ModelViewProjectionMatrix * gxl3d_Position; \
        Vertex_Color = gxl3d_Color; \
      }"

      local grid_program_ps_gles2=" \
      varying highp vec4 Vertex_Color; \
      void main (void) \
      { \
        gl_FragColor = Vertex_Color;  \
      }"

      local vs = ""
      local ps = ""

      if (gh_renderer.is_opengl_es() == 1) then
        vs = grid_program_vs_gles2
        ps = grid_program_ps_gles2
      else
        if (gh_renderer.get_api_version_major() < 3) then
          vs = grid_program_vs_gl2
          ps = grid_program_ps_gl2
          else
          if (gh_renderer.get_api_version_major() == 3) and ((gh_renderer.get_api_version_minor() < 2)) then
            vs = "#version 130\n" .. grid_program_vs_gl3
            ps = "#version 130\n" .. grid_program_ps_gl3
            else
            vs = "#version 150\n" .. grid_program_vs_gl3
            ps = "#version 150\n" .. grid_program_ps_gl3
          end
        end
      end
      gx_camera._grid_program = gh_gpu_program.create(vs, ps)
    end
  end
  
  gh_utils.grid_set_geometry_params(grid, x_size, z_size, x_subdiv, z_subdiv)
  if (gpu_prog == 0) then
    gh_gpu_program.bind(gx_camera._grid_program)
  end
  gh_object.render(grid)
end


function gx_camera.draw_ref_grid(x_size, z_size, x_subdiv, z_subdiv)
  gx_camera.draw_ref_grid_v2(x_size, z_size, x_subdiv, z_subdiv, 0)
end
