using System;
using System.Collections.Generic;
using System.Globalization;
using Nett;
using SixLabors.ImageSharp;
using SixLabors.ImageSharp.PixelFormats;
using SixLabors.Primitives;
using Robust.Client.Utility;
using Robust.Shared.Log;
using Robust.Shared.Maths;
using Robust.Shared.Noise;
using BlendFactor = Robust.Shared.Maths.Color.BlendFactor;

namespace Content.Client.Parallax
{
    public class ParallaxGenerator
    {
        private readonly List<Layer> Layers = new List<Layer>();

        public static Image<Rgba32> GenerateParallax(TomlTable config, Size size)
        {
            Logger.DebugS("parallax", "Generating parallax!");
            var generator = new ParallaxGenerator();
            generator._loadConfig(config);

            var image = new Image<Rgba32>(Configuration.Default, size.Width, size.Height, Rgba32.Black);
            var count = 0;
            foreach (var layer in generator.Layers)
            {
                layer.Apply(image);
                Logger.DebugS("parallax", "Layer {0} done!", count++);
            }

            return image;
        }

        private void _loadConfig(TomlTable config)
        {
            foreach (var layerArray in config.Get<TomlTableArray>("layers").Items)
            {
                var layer = layerArray.Get<TomlTable>();
                switch (layer.Get<string>("type"))
                {
                    case "noise":
                        var layerNoise = new LayerNoise(layer);
                        Layers.Add(layerNoise);
                        break;

                    case "points":
                        var layerPoint = new LayerPoints(layer);
                        Layers.Add(layerPoint);
                        break;

                    default:
                        throw new NotSupportedException();
                }
            }
        }

        private abstract class Layer
        {
            public abstract void Apply(Image<Rgba32> bitmap);
        }

        private class LayerNoise : Layer
        {
            private readonly Color InnerColor = Color.White;
            private readonly Color OuterColor = Color.Black;
            private readonly NoiseGenerator.NoiseType NoiseType = NoiseGenerator.NoiseType.Fbm;
            private readonly uint Seed = 1234;
            private readonly double Persistence = 0.5;
            private readonly double Lacunarity = Math.PI * 2 / 3;
            private readonly double Frequency = 1;
            private readonly uint Octaves = 3;
            private readonly double Threshold;
            private readonly double Power = 1;
            private readonly BlendFactor SrcFactor = BlendFactor.One;
            private readonly BlendFactor DstFactor = BlendFactor.One;

            public LayerNoise(TomlTable table)
            {
                if (table.TryGetValue("innercolor", out var tomlObject))
                {
                    InnerColor = Color.FromHex(tomlObject.Get<string>());
                }

                if (table.TryGetValue("outercolor", out tomlObject))
                {
                    OuterColor = Color.FromHex(tomlObject.Get<string>());
                }

                if (table.TryGetValue("seed", out tomlObject))
                {
                    Seed = (uint) tomlObject.Get<int>();
                }

                if (table.TryGetValue("persistence", out tomlObject))
                {
                    Persistence = double.Parse(tomlObject.Get<string>(), CultureInfo.InvariantCulture);
                }

                if (table.TryGetValue("lacunarity", out tomlObject))
                {
                    Lacunarity = double.Parse(tomlObject.Get<string>(), CultureInfo.InvariantCulture);
                }

                if (table.TryGetValue("frequency", out tomlObject))
                {
                    Frequency = double.Parse(tomlObject.Get<string>(), CultureInfo.InvariantCulture);
                }

                if (table.TryGetValue("octaves", out tomlObject))
                {
                    Octaves = (uint) tomlObject.Get<int>();
                }

                if (table.TryGetValue("threshold", out tomlObject))
                {
                    Threshold = double.Parse(tomlObject.Get<string>(), CultureInfo.InvariantCulture);
                }

                if (table.TryGetValue("sourcefactor", out tomlObject))
                {
                    SrcFactor = (BlendFactor) Enum.Parse(typeof(BlendFactor), tomlObject.Get<string>());
                }

                if (table.TryGetValue("destfactor", out tomlObject))
                {
                    DstFactor = (BlendFactor) Enum.Parse(typeof(BlendFactor), tomlObject.Get<string>());
                }

                if (table.TryGetValue("power", out tomlObject))
                {
                    Power = double.Parse(tomlObject.Get<string>(), CultureInfo.InvariantCulture);
                }

                if (table.TryGetValue("noise_type", out tomlObject))
                {
                    switch (tomlObject.Get<string>())
                    {
                        case "fbm":
                            NoiseType = NoiseGenerator.NoiseType.Fbm;
                            break;
                        case "ridged":
                            NoiseType = NoiseGenerator.NoiseType.Ridged;
                            break;
                        default:
                            throw new InvalidOperationException();
                    }
                }
            }

            public override void Apply(Image<Rgba32> bitmap)
            {
                var noise = new NoiseGenerator(NoiseType);
                noise.SetSeed(Seed);
                noise.SetFrequency(Frequency);
                noise.SetPersistence(Persistence);
                noise.SetLacunarity(Lacunarity);
                noise.SetOctaves(Octaves);
                noise.SetPeriodX(bitmap.Width);
                noise.SetPeriodY(bitmap.Height);
                var threshVal = 1 / (1 - Threshold);
                var powFactor = 1 / Power;
                for (var x = 0; x < bitmap.Width; x++)
                {
                    for (var y = 0; y < bitmap.Height; y++)
                    {
                        // Do noise calculations.
                        var noiseVal = Math.Min(1, Math.Max(0, (noise.GetNoiseTiled(x, y) + 1) / 2));

                        // Threshold
                        noiseVal = Math.Max(0, noiseVal - Threshold);
                        noiseVal *= threshVal;
                        noiseVal = Math.Pow(noiseVal, powFactor);

                        // Get colors based on noise values.
                        var srcColor = Color.InterpolateBetween(InnerColor, OuterColor, (float) noiseVal)
                            .WithAlpha((float) noiseVal);

                        // Apply blending factors & write back.
                        var dstColor = bitmap[x, y].ConvertImgSharp();
                        bitmap[x, y] = Color.Blend(dstColor, srcColor, DstFactor, SrcFactor).ConvertImgSharp();
                    }
                }
            }
        }

        private class LayerPoints : Layer
        {
            private readonly int Seed = 1234;
            private readonly int PointCount = 100;

            private readonly Color CloseColor = Color.White;
            private readonly Color FarColor = Color.Black;

            private readonly BlendFactor SrcFactor = BlendFactor.One;
            private readonly BlendFactor DstFactor = BlendFactor.One;

            // Noise mask stuff.
            private readonly bool Masked;
            private readonly NoiseGenerator.NoiseType MaskNoiseType = NoiseGenerator.NoiseType.Fbm;
            private readonly uint MaskSeed = 1234;
            private readonly double MaskPersistence = 0.5;
            private readonly double MaskLacunarity = Math.PI * 2 / 3;
            private readonly double MaskFrequency = 1;
            private readonly uint MaskOctaves = 3;
            private readonly double MaskThreshold;
            private readonly int PointSize = 1;
            private readonly double MaskPower = 1;


            public LayerPoints(TomlTable table)
            {
                if (table.TryGetValue("seed", out var tomlObject))
                {
                    Seed = tomlObject.Get<int>();
                }

                if (table.TryGetValue("count", out tomlObject))
                {
                    PointCount = tomlObject.Get<int>();
                }

                if (table.TryGetValue("sourcefactor", out tomlObject))
                {
                    SrcFactor = (BlendFactor) Enum.Parse(typeof(BlendFactor), tomlObject.Get<string>());
                }

                if (table.TryGetValue("destfactor", out tomlObject))
                {
                    DstFactor = (BlendFactor) Enum.Parse(typeof(BlendFactor), tomlObject.Get<string>());
                }

                if (table.TryGetValue("farcolor", out tomlObject))
                {
                    FarColor = Color.FromHex(tomlObject.Get<string>());
                }

                if (table.TryGetValue("closecolor", out tomlObject))
                {
                    CloseColor = Color.FromHex(tomlObject.Get<string>());
                }

                if (table.TryGetValue("pointsize", out tomlObject))
                {
                    PointSize = tomlObject.Get<int>();
                }

                // Noise mask stuff.
                if (table.TryGetValue("mask", out tomlObject))
                {
                    Masked = tomlObject.Get<bool>();
                }

                if (table.TryGetValue("maskseed", out tomlObject))
                {
                    MaskSeed = (uint) tomlObject.Get<int>();
                }

                if (table.TryGetValue("maskpersistence", out tomlObject))
                {
                    MaskPersistence = double.Parse(tomlObject.Get<string>(), CultureInfo.InvariantCulture);
                }

                if (table.TryGetValue("masklacunarity", out tomlObject))
                {
                    MaskLacunarity = double.Parse(tomlObject.Get<string>(), CultureInfo.InvariantCulture);
                }

                if (table.TryGetValue("maskfrequency", out tomlObject))
                {
                    MaskFrequency = double.Parse(tomlObject.Get<string>(), CultureInfo.InvariantCulture);
                }

                if (table.TryGetValue("maskoctaves", out tomlObject))
                {
                    MaskOctaves = (uint) tomlObject.Get<int>();
                }

                if (table.TryGetValue("maskthreshold", out tomlObject))
                {
                    MaskThreshold = double.Parse(tomlObject.Get<string>(), CultureInfo.InvariantCulture);
                }

                if (table.TryGetValue("masknoise_type", out tomlObject))
                {
                    switch (tomlObject.Get<string>())
                    {
                        case "fbm":
                            MaskNoiseType = NoiseGenerator.NoiseType.Fbm;
                            break;
                        case "ridged":
                            MaskNoiseType = NoiseGenerator.NoiseType.Ridged;
                            break;
                        default:
                            throw new InvalidOperationException();
                    }
                }

                if (table.TryGetValue("maskpower", out tomlObject))
                {
                    MaskPower = double.Parse(tomlObject.Get<string>(), CultureInfo.InvariantCulture);
                }
            }

            public override void Apply(Image<Rgba32> bitmap)
            {
                // Temporary buffer so we don't mess up blending.
                var buffer = new Image<Rgba32>(Configuration.Default, bitmap.Width, bitmap.Height, Rgba32.Black);

                if (Masked)
                {
                    GenPointsMasked(buffer);
                }
                else
                {
                    GenPoints(buffer);
                }

                for (var x = 0; x < bitmap.Width; x++)
                {
                    for (var y = 0; y < bitmap.Height; y++)
                    {
                        var dstColor = bitmap[x, y].ConvertImgSharp();
                        var srcColor = buffer[x, y].ConvertImgSharp();

                        bitmap[x, y] = Color.Blend(dstColor, srcColor, DstFactor, SrcFactor).ConvertImgSharp();
                    }
                }
            }

            private void GenPoints(Image<Rgba32> buffer)
            {
                var o = PointSize - 1;
                var random = new Random(Seed);
                for (var i = 0; i < PointCount; i++)
                {
                    var relX = random.NextDouble();
                    var relY = random.NextDouble();

                    var x = (int) (relX * buffer.Width);
                    var y = (int) (relY * buffer.Height);

                    var dist = random.NextDouble();

                    for (var ox = x - o; ox <= x + o; ox++)
                    {
                        for (var oy = y - o; oy <= y + o; oy++)
                        {
                            var color = Color.InterpolateBetween(FarColor, CloseColor, (float) dist).ConvertImgSharp();
                            buffer[MathHelper.Mod(ox, buffer.Width), MathHelper.Mod(oy, buffer.Width)] = color;
                        }
                    }
                }
            }

            void GenPointsMasked(Image<Rgba32> buffer)
            {
                var o = PointSize - 1;
                var random = new Random(Seed);
                var noise = new NoiseGenerator(MaskNoiseType);
                noise.SetSeed(MaskSeed);
                noise.SetFrequency(MaskFrequency);
                noise.SetPersistence(MaskPersistence);
                noise.SetLacunarity(MaskLacunarity);
                noise.SetOctaves(MaskOctaves);
                noise.SetPeriodX(buffer.Width);
                noise.SetPeriodY(buffer.Height);

                var threshVal = 1 / (1 - MaskThreshold);
                var powFactor = 1 / MaskPower;

                const int maxPointAttemptCount = 9999;
                var pointAttemptCount = 0;

                for (var i = 0; i < PointCount; i++)
                {
                    var relX = random.NextDouble();
                    var relY = random.NextDouble();

                    var x = (int) (relX * buffer.Width);
                    var y = (int) (relY * buffer.Height);

                    // Grab noise at this point.
                    var noiseVal = Math.Min(1, Math.Max(0, (noise.GetNoiseTiled(x, y) + 1) / 2));
                    // Threshold
                    noiseVal = Math.Max(0, noiseVal - MaskThreshold);
                    noiseVal *= threshVal;
                    noiseVal = Math.Pow(noiseVal, powFactor);

                    var randomThresh = random.NextDouble();
                    if (randomThresh > noiseVal)
                    {
                        if (++pointAttemptCount <= maxPointAttemptCount)
                        {
                            i--;
                        }

                        continue;
                    }

                    var dist = random.NextDouble();

                    for (var ox = x - o; ox <= x + o; ox++)
                    {
                        for (var oy = y - o; oy <= y + o; oy++)
                        {
                            var color = Color.InterpolateBetween(FarColor, CloseColor, (float) dist).ConvertImgSharp();
                            buffer[MathHelper.Mod(ox, buffer.Width), MathHelper.Mod(oy, buffer.Height)] = color;
                        }
                    }
                }
            }
        }
    }
}