#if !defined INCLUDE_LIGHT_SPECULAR_LIGHTING
#define INCLUDE_LIGHT_SPECULAR_LIGHTING

#include "/include/light/bsdf.glsl"
#include "/include/misc/distant_horizons.glsl"
#include "/include/misc/material.glsl"
#include "/include/misc/raytracer.glsl"
#include "/include/sky/projection.glsl"
#include "/include/utility/bicubic.glsl"
#include "/include/utility/dithering.glsl"
#include "/include/utility/random.glsl"
#include "/include/utility/sampling.glsl"
#include "/include/utility/space_conversion.glsl"

// ----------------------
//   Specular Highlight
// ----------------------

// GGX spherical area light approximation from Horizon: Zero Dawn
// https://www.guerrilla-games.com/read/decima-engine-advances-in-lighting-and-aa
float get_NoH_squared(
	float NoL,
	float NoV,
	float LoV,
	float light_radius
) {
	float radius_cos = cos(light_radius);
	float radius_tan = tan(light_radius);

	// Early out if R falls within the disc​
	float RoL = 2.0 * NoL * NoV - LoV;
	if (RoL >= radius_cos) return 1.0;

	float r_over_length_t = radius_cos * radius_tan * inversesqrt(1.0 - RoL * RoL);
	float not_r = r_over_length_t * (NoV - RoL * NoL);
	float vot_r = r_over_length_t * (2.0 * NoV * NoV - 1.0 - RoL * LoV);

	// Calculate dot(cross(N, L), V). This could already be calculated and available.​
	float triple = sqrt(clamp01(1.0 - NoL * NoL - NoV * NoV - LoV * LoV + 2.0 * NoL * NoV * LoV));

	// Do one Newton iteration to improve the bent light Direction​
	float NoB_r = r_over_length_t * triple, VoB_r = r_over_length_t * (2.0 * triple * NoV);
	float NoL_vt_r = NoL * radius_cos + NoV + not_r, LoV_vt_r = LoV * radius_cos + 1.0 + vot_r;
	float p = NoB_r * LoV_vt_r, q = NoL_vt_r * LoV_vt_r, s = VoB_r * NoL_vt_r;
	float x_num = q * (-0.5 * p + 0.25 * VoB_r * NoL_vt_r);
	float x_denom = p * p + s * ((s - 2.0 * p)) + NoL_vt_r * ((NoL * radius_cos + NoV) * LoV_vt_r * LoV_vt_r
		+ q * (-0.5 * (LoV_vt_r + LoV * radius_cos) - 0.5));
	float two_x_1 = 2.0 * x_num / (x_denom * x_denom + x_num * x_num);
	float sin_theta = two_x_1 * x_denom;
	float cos_theta = 1.0 - two_x_1 * x_num;
	not_r = cos_theta * not_r + sin_theta * NoB_r; // use new T to update not_r​
	vot_r = cos_theta * vot_r + sin_theta * VoB_r; // use new T to update vot_r​

	// Calculate (N.H)^2 based on the bent light direction​
	float new_NoL = NoL * radius_cos + not_r;
	float new_LoV = LoV * radius_cos + vot_r;
	float NoH = NoV + new_NoL;
	float HoH = 2.0 * new_LoV + 2.0;

	return clamp01(NoH * NoH / HoH);
}

vec3 get_specular_highlight(
	Material material,
	float NoL,
	float NoV,
	float NoH,
	float LoV,
	float LoH
) {
	const float specular_max_value = 4.0; // Maximum value imposed on specular highlight to prevent it from overloading bloom

#if   defined WORLD_OVERWORLD
	const float sun_angular_radius = SUN_ANGULAR_RADIUS * degree;
	const float moon_angular_radius = MOON_ANGULAR_RADIUS * degree;
	float light_radius = (sunAngle < 0.5) ? sun_angular_radius : moon_angular_radius;

	// No specular highlight on a new moon
	if (sunAngle > 0.5 && moonPhase == 4) return vec3(0.0);
#else
	const float light_radius = SUN_ANGULAR_RADIUS * degree;
#endif

	vec3 fresnel;
	if (material.is_hardcoded_metal) {
		fresnel = fresnel_lazanyi_2019(LoH, material.f0, material.f82);
	} else if (material.is_metal) {
		fresnel = fresnel_schlick(LoH, material.albedo);
	} else {
		fresnel = fresnel_dielectric(LoH, material.f0.x);
	}

	if (NoL <= eps) return vec3(0.0);
	if (all(lessThan(fresnel, vec3(1e-2)))) return vec3(0.0);

	vec3 albedo_tint = mix(vec3(1.0), material.albedo, float(material.is_hardcoded_metal));

	float NoH_squared = get_NoH_squared(NoL, NoV, LoV, light_radius);
	float alpha_squared = material.roughness * material.roughness;

	float d = distribution_ggx(NoH_squared, alpha_squared);
	float v = v2_smith_ggx(max(NoL, 1e-2), max(NoV, 1e-2), alpha_squared);

	return min((NoL * d * v) * fresnel * albedo_tint, vec3(specular_max_value));
}

// ------------------------
//   Specular Reflections
// ------------------------

#ifdef PROGRAM_COMPOSITE1
vec3 sample_ggx_vndf(vec3 viewer_dir, vec2 alpha, vec2 hash) {
/*
	// from https://jcgt.org/published/0007/04/01/paper.pdf: "Sampling the GGX distribution of visible normals"

	// Section 3.2: transforming the view direction to the hemisphere configuration
	viewer_dir = normalize(vec3(alpha * viewer_dir.xy, viewer_dir.z));

	// Section 4.1: orthonormal basis (with special case if cross product is zero)
	float len_sq = length_squared(viewer_dir.xy);
	vec3 T1 = (len_sq > 0) ? vec3(-viewer_dir.y, viewer_dir.x, 0) * inversesqrt(len_sq) : vec3(1.0, 0.0, 0.0);
	vec3 T2 = cross(viewer_dir, T1);

	// Section 4.2: parameterization of the projected area
	float r = sqrt(hash.x);
	float phi = 2.0 * pi * hash.y;
	float t1 = r * cos(phi);
	float t2 = r * sin(phi);
	float s = 0.5 + 0.5 * viewer_dir.z;

	t2 = (1.0 - s) * sqrt(1.0 - t1 * t1) + s * t2;

	// Section 4.3: reprojection onto hemisphere
	vec3 normal = t1 * T1 + t2 * T2 + sqrt(max0(1.0 - t1 * t1 - t2 * t2)) * viewer_dir;

	// Section 3.4: transforming the normal back to the ellipsoid configuration
	normal = normalize(vec3(alpha * normal.xy, max0(normal.z)));

	return normal;
/*/
	// Improved GGX importance sampling function by zombye
	// https://ggx-research.github.io/publication/2023/06/09/publication-ggx.html

    // Transform viewer direction to the hemisphere configuration
    viewer_dir = normalize(vec3(alpha * viewer_dir.xy, viewer_dir.z));

    // Sample a reflection direction off the hemisphere
    const float tau = 6.2831853; // 2 * pi
    float phi = tau * hash.x;
    float cos_theta = fma(1.0 - hash.y, 1.0 + viewer_dir.z, -viewer_dir.z);
    float sin_theta = sqrt(clamp(1.0 - cos_theta * cos_theta, 0.0, 1.0));
    vec3 reflected = vec3(vec2(cos(phi), sin(phi)) * sin_theta, cos_theta);

    // Evaluate halfway direction
    // This gives the normal on the hemisphere
    vec3 halfway = reflected + viewer_dir;

    // Transform the halfway direction back to hemiellispoid configuation
    // This gives the final sampled normal
    return normalize(vec3(alpha * halfway.xy, halfway.z));
//*/
}

vec3 get_sky_reflection(vec3 ray_dir, float skylight) {
#if defined WORLD_OVERWORLD
	return bicubic_filter(colortex4, project_sky(ray_dir)).rgb * pow12(linear_step(0.0, 0.75, skylight));
#else
	return texture(colortex4, project_sky(ray_dir)).rgb;
#endif
}

vec3 trace_specular_ray(
	vec3 screen_pos,
	vec3 view_pos,
	vec3 ray_dir,
	float dither,
	float skylight,
	uint intersection_step_count,
	uint refinement_step_count,
	int mip_level
) {
	vec3 view_dir = mat3(gbufferModelView) * ray_dir;

#ifdef ENVIRONMENT_REFLECTIONS
	vec3 hit_pos;
	bool hit = raymarch_depth_buffer(
	#ifdef DISTANT_HORIZONS
		combined_depth_buffer,
	#else
		#ifdef SSR_PREVIOUS_FRAME
		depthtex0,
		#else
		depthtex1,
		#endif
	#endif
		combined_projection_matrix,
		screen_pos,
		view_pos,
		view_dir,
		dither,
		intersection_step_count,
		refinement_step_count,
		hit_pos
	);
#else
	const bool hit = false;
	const vec3 hit_pos = vec3(0.0);
#endif

#ifdef SKY_REFLECTIONS
	vec3 sky_reflection = get_sky_reflection(ray_dir, skylight);
#else
	const vec3 sky_reflection = vec3(0.0);
#endif

	if (hit) {
		float border_attenuation_factor = mix(0.01, eps, pow4(clamp01(1.0 - gbufferModelViewInverse[2].y)));
		float border_attenuation = (hit_pos.x * hit_pos.y - hit_pos.x) * (hit_pos.x * hit_pos.y - hit_pos.y);
		      border_attenuation = dampen(linear_step(0.0, border_attenuation_factor, border_attenuation));

#if defined SSR_PREVIOUS_FRAME && !defined DISTANT_HORIZONS
	#ifdef VL
		// Un-apply volumetric fog scattering using fog from the current frame
		vec2 fog_uv = clamp(hit_pos.xy * VL_RENDER_SCALE, vec2(0.0), floor(view_res * VL_RENDER_SCALE - 1.0) * view_pixel_size);
		vec3 fog_scattering = texture(colortex6, fog_uv).rgb;
	#else
		vec3 fog_scattering = vec3(0.0);
	#endif

		vec3 hit_pos_prev = reproject(hit_pos);
		if (clamp01(hit_pos_prev) != hit_pos_prev) return sky_reflection;

		vec3 reflection = textureLod(colortex5, hit_pos_prev.xy, mip_level).rgb;
		     reflection = max0(reflection - fog_scattering);
#else
		vec3 reflection = textureLod(colortex0, hit_pos.xy * taau_render_scale, mip_level).rgb;
#endif

		return mix(sky_reflection, reflection, border_attenuation);
	} else {
		return sky_reflection;
	}
}

vec3 get_specular_reflections(
	Material material,
	mat3 tbn_matrix,
	vec3 screen_pos,
	vec3 view_pos,
	vec3 normal,
	vec3 flat_normal,
	vec3 world_dir,
	vec3 tangent_dir,
	float skylight,
	bool is_water
) {
	vec3 albedo_tint = material.is_hardcoded_metal ? material.albedo : vec3(1.0);

	float alpha_squared = sqr(material.roughness);

	float dither = r1(frameCounter, texelFetch(noisetex, ivec2(gl_FragCoord.xy) & 511, 0).b);

#ifdef DISTANT_HORIZONS
	// Convert screen depth to combined depth
	screen_pos = view_to_screen_space(combined_projection_matrix, view_pos, true);
#endif

#if defined SSR_ROUGHNESS_SUPPORT && defined SPECULAR_MAPPING
	if (!is_water) { // Rough reflection
	 	float mip_level = 8.0 * dampen(material.roughness);

		vec3 reflection = vec3(0.0);

		for (int i = 0; i < SSR_RAY_COUNT; ++i) {
			vec2 hash;
			hash.x = interleaved_gradient_noise(gl_FragCoord.xy,                    frameCounter * SSR_RAY_COUNT + i);
			hash.y = interleaved_gradient_noise(gl_FragCoord.xy + vec2(97.0, 23.0), frameCounter * SSR_RAY_COUNT + i);

			vec3 microfacet_normal = tbn_matrix * sample_ggx_vndf(-tangent_dir, vec2(alpha_squared), hash);
			vec3 ray_dir = reflect(world_dir, microfacet_normal);

			float NoL = dot(normal, ray_dir);
			if (NoL < eps) continue;

			vec3 radiance = trace_specular_ray(screen_pos, view_pos, ray_dir, dither, skylight, SSR_INTERSECTION_STEPS_ROUGH, SSR_REFINEMENT_STEPS, int(mip_level));

			float NoV = max(1e-2, dot(flat_normal, -world_dir));
			float MoV = max(1e-2, dot(microfacet_normal, -world_dir));

			vec3 fresnel;
			if (material.is_hardcoded_metal) {
				fresnel = fresnel_lazanyi_2019(NoV, material.f0, material.f82);
			} else if (material.is_metal) {
				fresnel = fresnel_schlick(NoV, material.albedo);
			} else {
				fresnel = fresnel_dielectric(NoV, material.f0.x);
			}

			float v1 = v1_smith_ggx(NoV, alpha_squared);
			float v2 = v2_smith_ggx(NoL, NoV, alpha_squared);

			reflection += radiance * fresnel * (2.0 * NoL * v2 / v1);
		}

		reflection *= albedo_tint * rcp(float(SSR_RAY_COUNT));
		if (any(isnan(reflection))) reflection = vec3(0.0); // don't reflect NaNs
		return reflection * material.ssr_multiplier;
	}
#else
	// Fade reflection when rough reflections are disabled
	if (material.roughness > 0.05) {
		material.f0 *= 1.0 - sqr(material.roughness);
		material.ssr_multiplier = sqr(1.0 - material.roughness);
	}
#endif

	// Mirror-like reflections

	vec3 ray_dir = reflect(world_dir, normal);

	float NoL = dot(normal, ray_dir);
	float NoV = clamp01(dot(normal, -world_dir));

	if (NoL < eps) return vec3(0.0);

	vec3 fresnel;
	if (material.is_hardcoded_metal) {
		fresnel = fresnel_lazanyi_2019(NoV, material.f0, material.f82);
	} else if (material.is_metal) {
		fresnel = fresnel_schlick(NoV, material.albedo);
	} else {
		fresnel = fresnel_dielectric(NoV, material.f0.x);
	}

	float v1 = v1_smith_ggx(NoV, alpha_squared);
	float v2 = v2_smith_ggx(NoL, NoV, alpha_squared);

	vec3 reflection  = trace_specular_ray(screen_pos, view_pos, ray_dir, dither, skylight, SSR_INTERSECTION_STEPS_SMOOTH, SSR_REFINEMENT_STEPS, 0);
	     reflection *= albedo_tint * fresnel;

	if (any(isnan(reflection))) reflection = vec3(0.0); // don't reflect NaNs

	return reflection * material.ssr_multiplier;
}
#endif // PROGRAM_COMPOSITE1

#endif // INCLUDE_LIGHT_SPECULAR_LIGHTING
