/*

 * Copyright (c) 2015, Jason Maltzen

 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 System.IO;

namespace DesertPaintLab

{

    // ReactionRecorder - business logic for recording paint reactions

    public class ReactionRecorder

    {

        public delegate void CaptureProgressHandler(int x, int y);

        public CaptureProgressHandler OnCaptureProgress;

        const int COLOR_TOLERANCE = 3;

        const InterfaceSize DEFAULT_INTERFACE_SIZE = InterfaceSize.Small;

        public static readonly int[] SWATCH_HEIGHT = 

        {

            24, // tiny

            24, // small

            24, // medium

            24, // large

            24 // huge

        };

        public static readonly int[] SWATCH_WIDTH =

        {

            260, // tiny

            260, // small

            260, // medium

            274, // large

            304 // huge

        };

        public static readonly int[] COLOR_BAR_WIDTH =

        {

            306, // tiny

            306, // small

            306, // medium

            320, // large

            350 // huge

        };

        public static readonly int[] RED_BAR_SPACING =

        {

            32, // tiny

            32, // small

            32, // medium

            32, // large

            32 // huge

        };

        public static readonly int[] GREEN_BAR_SPACING =

        {

            42, // tiny

            42, // small

            42, // medium

            42, // large

            42 // huge

        };

        public static readonly int[] BLUE_BAR_SPACING =

        {

            52, // tiny

            52, // small

            52, // medium

            52, // large

            52 // huge

        };

        // width to test on ends of swatch (10% on either end)

        public static readonly int[] SWATCH_TEST_WIDTH =

        {

            26, // tiny

            26, // small

            26, // medium

            28, // large

            31  // huge

        };

        int swatchHeight = SWATCH_HEIGHT[(int)DEFAULT_INTERFACE_SIZE];

        int swatchWidth = SWATCH_WIDTH[(int)DEFAULT_INTERFACE_SIZE];

        int swatchTestWidth = SWATCH_TEST_WIDTH[(int)DEFAULT_INTERFACE_SIZE];

        int colorBarWidth = COLOR_BAR_WIDTH[(int)DEFAULT_INTERFACE_SIZE];

        int redBarSpacing = RED_BAR_SPACING[(int)DEFAULT_INTERFACE_SIZE];

        int greenBarSpacing = GREEN_BAR_SPACING[(int)DEFAULT_INTERFACE_SIZE];

        int blueBarSpacing = BLUE_BAR_SPACING[(int)DEFAULT_INTERFACE_SIZE];

        public int SwatchHeight {  get { return swatchHeight; } }

        public int SwatchWidth {  get { return swatchWidth; } }

        public int ColorBarWidth { get { return colorBarWidth;  } }

        public int RedBarSpacing {  get { return redBarSpacing; } }

        public int GreenBarSpacing { get { return greenBarSpacing; } }

        public int BlueBarSpacing {  get { return blueBarSpacing; } }

        // Current Status

        public bool IsCaptured { get; private set; }

        public int X { get; private set; }

        public int Y { get; private set; }

        public int ScreenWidth { get; private set; }

        public int ScreenHeight { get; private set; }

        private PaintColor _recordedColor = new PaintColor();

        public PaintColor RecordedColor { get { return _recordedColor; } private set { _recordedColor.Set(value); } }

        public int RedBarX { get; private set; }

        public int RedBarY { get; private set; }

        int pixelMultiplier = 1;

        InterfaceSize interfaceSize;

        bool firstRun = true;

        int lastSwatchX = -1;

        int lastSwatchY = -1;

        public int SwatchX { get { return lastSwatchX; } }

        public int SwatchY { get { return lastSwatchY; } }

        private static ReactionRecorder _instance;

        public static ReactionRecorder Instance

        {

            get {

                if (_instance == null)

                {

                    _instance = new ReactionRecorder();

                }

                return _instance;

            }

        }

        public StreamWriter Log { get; set; }

        private void WriteLog(string format, params object[] args)

        {

            if (Log != null)

            {

                Log.WriteLine(format, args);

            }

        }

        public delegate void ReactionRecordedHandler(Reagent reagent1, Reagent reagent2, Reaction reaction);

        public ReactionRecordedHandler OnReactionRecorded;

        public ReactionRecorder()

        {

            pixelMultiplier = 1;

            interfaceSize = DEFAULT_INTERFACE_SIZE;

            swatchHeight = SWATCH_HEIGHT[(int)interfaceSize] * pixelMultiplier;

            swatchWidth = SWATCH_WIDTH[(int)interfaceSize] * pixelMultiplier;

            colorBarWidth = COLOR_BAR_WIDTH[(int)interfaceSize] * pixelMultiplier;

            redBarSpacing = RED_BAR_SPACING[(int)interfaceSize] * pixelMultiplier;

            greenBarSpacing = GREEN_BAR_SPACING[(int)interfaceSize] * pixelMultiplier;

            blueBarSpacing = BLUE_BAR_SPACING[(int)interfaceSize] * pixelMultiplier;

            swatchTestWidth = SWATCH_TEST_WIDTH[(int)interfaceSize] * pixelMultiplier;

        }

        public ReactionRecorder(int pixelMultiplier)

        {

            this.pixelMultiplier = pixelMultiplier;

            this.interfaceSize = DEFAULT_INTERFACE_SIZE;

            swatchHeight = SWATCH_HEIGHT[(int)interfaceSize] * pixelMultiplier;

            swatchWidth = SWATCH_WIDTH[(int)interfaceSize] * pixelMultiplier;

            colorBarWidth = COLOR_BAR_WIDTH[(int)interfaceSize] * pixelMultiplier;

            redBarSpacing = RED_BAR_SPACING[(int)interfaceSize] * pixelMultiplier;

            greenBarSpacing = GREEN_BAR_SPACING[(int)interfaceSize] * pixelMultiplier;

            blueBarSpacing = BLUE_BAR_SPACING[(int)interfaceSize] * pixelMultiplier;

            swatchTestWidth = SWATCH_TEST_WIDTH[(int)interfaceSize] * pixelMultiplier;

        }

        public ReactionRecorder(int pixelMultiplier, InterfaceSize interfaceSize)

        {

            this.pixelMultiplier = pixelMultiplier;

            this.interfaceSize = interfaceSize;

            swatchHeight = SWATCH_HEIGHT[(int)interfaceSize] * pixelMultiplier;

            swatchWidth = SWATCH_WIDTH[(int)interfaceSize] * pixelMultiplier;

            colorBarWidth = COLOR_BAR_WIDTH[(int)interfaceSize] * pixelMultiplier;

            redBarSpacing = RED_BAR_SPACING[(int)interfaceSize] * pixelMultiplier;

            greenBarSpacing = GREEN_BAR_SPACING[(int)interfaceSize] * pixelMultiplier;

            blueBarSpacing = BLUE_BAR_SPACING[(int)interfaceSize] * pixelMultiplier;

            swatchTestWidth = SWATCH_TEST_WIDTH[(int)interfaceSize] * pixelMultiplier;

        }

        private static bool IsPapyTexture(byte r, byte g, byte b)

        {

            // red between 208 and 244

            // green between 192 and 237

            // blue between 145 and 205

        }

        public void SetPixelMultiplier(int pixelMultiplier)

        {

            this.pixelMultiplier = pixelMultiplier;

            swatchHeight = SWATCH_HEIGHT[(int)interfaceSize] * pixelMultiplier;

            swatchWidth      = SWATCH_WIDTH[(int)interfaceSize] * pixelMultiplier;

            colorBarWidth    = COLOR_BAR_WIDTH[(int)interfaceSize] * pixelMultiplier;

            redBarSpacing    = RED_BAR_SPACING[(int)interfaceSize] * pixelMultiplier;

            greenBarSpacing  = GREEN_BAR_SPACING[(int)interfaceSize] * pixelMultiplier;

            blueBarSpacing   = BLUE_BAR_SPACING[(int)interfaceSize] * pixelMultiplier;

            swatchTestWidth  = SWATCH_TEST_WIDTH[(int)interfaceSize] * pixelMultiplier;

        }

        public void SetInterfaceSize(InterfaceSize interfaceSize)

        {

            this.interfaceSize = interfaceSize;

            swatchHeight = SWATCH_HEIGHT[(int)interfaceSize] * pixelMultiplier;

            swatchWidth = SWATCH_WIDTH[(int)interfaceSize] * pixelMultiplier;

            colorBarWidth = COLOR_BAR_WIDTH[(int)interfaceSize] * pixelMultiplier;

            redBarSpacing = RED_BAR_SPACING[(int)interfaceSize] * pixelMultiplier;

            greenBarSpacing = GREEN_BAR_SPACING[(int)interfaceSize] * pixelMultiplier;

            blueBarSpacing = BLUE_BAR_SPACING[(int)interfaceSize] * pixelMultiplier;

            swatchTestWidth = SWATCH_TEST_WIDTH[(int)interfaceSize] * pixelMultiplier;

        }

        unsafe private void ColorAt(byte *pixBytes, int x, int y, int stride, out byte r, out byte g, out byte b)

        {

            int pixelStart = (y * stride) + (x * 3);

                    r = pixBytes[pixelStart];

                    g = pixBytes[pixelStart + 1];

                    b = pixBytes[pixelStart + 2];

        }

        private bool IsDarkPixel(int r, int g, int b)

        {

            return ((r < 0x46) && (g < 0x46) && (b < 0x47));

        }

        private bool IsColorMatch(byte test_r, byte test_g, byte test_b, byte target_r, byte target_g, byte target_b)

        {

            return ((Math.Abs(test_r - target_r) <= COLOR_TOLERANCE) &&

                (Math.Abs(test_g - target_g) <= COLOR_TOLERANCE) &&

                (Math.Abs(test_b - target_b) <= COLOR_TOLERANCE));

        }

        unsafe private bool IsPossibleSwatchSlice(byte* pixBytes, int x, int y, int stride)

        {

            int testPixelStart = (y * stride) + (x * 3);

            byte r = pixBytes[testPixelStart];

            byte g = pixBytes[testPixelStart+1];

            byte b = pixBytes[testPixelStart+2];

            bool isDarkPixel = false;

            //bool isPapyAbove = false;

            //bool isPapyBelow = false;

            // 1.) Check if the top pixel is a dark pixel.

            isDarkPixel = IsDarkPixel(r, g, b); // ((r < 0x46) && (g < 0x46) && (b < 0x46));

            //// 2.) Check the pixel above it to see if it's from the papy texture.

            //int otherPixelStart = testPixelStart - stride;

            //isPapyAbove = ((otherPixelStart >= 0) &&

            //    IsPapyTexture(pixBytes[otherPixelStart++], pixBytes[otherPixelStart++], pixBytes[otherPixelStart]));

            //// 3.) Check the pixel below where the swatch should be to see if it's also from the papy texture.

            //otherPixelStart = testPixelStart + (stride * swatchHeight);

            //isPapyBelow = (IsPapyTexture(pixBytes[otherPixelStart++], pixBytes[otherPixelStart++], pixBytes[otherPixelStart]));

            //bool result = isDarkPixel && isPapyAbove && isPapyBelow;

            bool result = isDarkPixel;

            // grab the swatch color

            int swatchColorStart = testPixelStart + (2 * pixelMultiplier * stride); // 2 rows below the test pixel, skipping the faded color

            r = pixBytes[swatchColorStart];

            g = pixBytes[swatchColorStart+1];

            b = pixBytes[swatchColorStart+2];

            // scan the column from 2 below the top to 2 above the bottom to ensure the color matches

            for (int i = (2*pixelMultiplier); result && (i < swatchHeight-(2*pixelMultiplier)); ++i)

            {

                int otherPixelStart = testPixelStart + (stride * i);

                result &= IsColorMatch(pixBytes[otherPixelStart], pixBytes[otherPixelStart+1], pixBytes[otherPixelStart+2], r, g, b);

            }

            if (!result)

            {

                WriteLog("Swatch slice at {0}, {1} failed to match", x, y);

            }

            return result;

        }

        unsafe private bool IsPossibleSwatchUpperLeft(byte* pixBytes, int x, int y, int stride)

        {

            int testPixelStart = (y * stride) + (x * 3);

            if (testPixelStart < stride)

            {

                return false;

            }

            bool result = true;

            // test the left edge for dark pixels

            int i = 0;

            for (i = 0; result && (i < swatchHeight-pixelMultiplier); ++i)

            {

                int otherPixelStart = testPixelStart + (stride * i);

                result &= IsDarkPixel(pixBytes[otherPixelStart], pixBytes[otherPixelStart+1], pixBytes[otherPixelStart+2]);

            }

            if (!result)

            {

                // No dark border on the left side

                return false;

            }

            // test the dark top border and for papyrus above and below the swatch

            bool borderError = false;

            int papyErrorCount = 0;

            for (i = 0; result && (i < swatchWidth); ++i)

            {

                int otherPixelStart = testPixelStart + (3 * i);

                bool isBorder = IsDarkPixel(pixBytes[otherPixelStart], pixBytes[otherPixelStart+1], pixBytes[otherPixelStart+2]);

                result &= isBorder;

                if (!isBorder)

                {

                    borderError = true;

                }

                if (otherPixelStart >= stride)

                {

                    otherPixelStart = otherPixelStart - stride;

                    papyErrorCount += (IsPapyTexture(pixBytes[otherPixelStart], pixBytes[otherPixelStart + 1], pixBytes[otherPixelStart + 2]) ? 0 : 1);

                }

                else

                {

                    papyErrorCount++;

                }

                // Checking along the bottom of the swatch - 

                otherPixelStart = testPixelStart + (stride * swatchHeight) + (3 * i);

                papyErrorCount += (IsPapyTexture(pixBytes[otherPixelStart], pixBytes[otherPixelStart+1], pixBytes[otherPixelStart+2]) ? 0 : 1);

            }

            result &= (papyErrorCount < (swatchWidth / 20)); // allow up to 5% error rate checking for papy texture, because this seems to be inconsistent

            if (!result && ((i > (swatchWidth*0.8)) || (papyErrorCount >= (swatchWidth/20))))

            {

                if (!borderError && (papyErrorCount < swatchWidth))

                {

                    WriteLog("Found a potential swatch candidate of width {0} at {1},{2} that had {3} failures matching papyrus texture", i, x, y, papyErrorCount);

                }

            }

            return result;

        }

        unsafe private bool TestPosition(int x, int y, byte* pixBytes, int screenshotWidth, int screenshotHeight, int stride, ref PaintColor reactedColor, ref int redPixelStart)

        {

            byte pixel_r, pixel_g, pixel_b;

            int pixelStart, otherPixelStart;

            bool colorMatch = true;

            // Look for the color swatch.

            pixelStart = (y * stride) + (x * 3);

            pixel_r = pixBytes[pixelStart];

            pixel_g = pixBytes[pixelStart + 1];

            pixel_b = pixBytes[pixelStart + 2];

            bool foundSwatch = IsPossibleSwatchUpperLeft(pixBytes, x, y, stride); // ((pixel_r < 0x46) && (pixel_g < 0x46) && (pixel_b < 0x46));

            if (foundSwatch)

            {

                int borderXOffset = 0;

                for (borderXOffset = (2 * pixelMultiplier); foundSwatch && (borderXOffset < swatchTestWidth); ++borderXOffset)

                {

                    foundSwatch &= IsPossibleSwatchSlice(pixBytes, x + borderXOffset, y, stride);

                    foundSwatch &= IsPossibleSwatchSlice(pixBytes, x + swatchWidth - borderXOffset, y, stride);

                }

            }

            if (foundSwatch)

            {

                // found a swatch with an appropriate dark top border with papyrus texture above it and papyrus a jump below it

                // 4.) Scan the left border of the potential swatch

                // location.

                colorMatch = true;

                for (int i = 2; i < swatchHeight - (2 * pixelMultiplier); ++i)

                {

                    otherPixelStart = pixelStart + (stride * i);

                    if (!IsColorMatch(pixel_r, pixel_g, pixel_b, pixBytes[otherPixelStart], pixBytes[otherPixelStart + 1], pixBytes[otherPixelStart + 2]))

                    {

                        colorMatch = false;

                        break;

                    }

                }

                if (colorMatch)

                {

                    // WE FOUND THE SWATCH!

                    // Now we know where the color bars are.

                    redPixelStart = pixelStart + (redBarSpacing * stride);

                    int redPixel = redPixelStart;

                    int redPixelCount = 0;

                    while ((pixBytes[redPixel] > 0x9F) &&

                           (pixBytes[redPixel + 1] < 0x62) &&

                           (pixBytes[redPixel + 2] < 0x62))

                    {

                        redPixelCount++;

                        // pixBytes[redPixel] = 0x00;

                        // pixBytes[redPixel + 1] = 0xFF;

                        // pixBytes[redPixel + 2] = 0xFF;

                        redPixel += 3;

                    }

                    WriteLog("Color {0}, {1}, {2} is no longer red at {3},{4}", pixBytes[redPixel], pixBytes[redPixel + 1], pixBytes[redPixel + 2], (redPixel % stride)/3, redPixel / stride);

                    reactedColor.Red = (byte)Math.Round((float)redPixelCount * 255f / (float)colorBarWidth);

                    int greenPixelStart = pixelStart + (greenBarSpacing * stride);

                    int greenPixelCount = 0;

                    while ((pixBytes[greenPixelStart] < 0x62) &&

                           (pixBytes[greenPixelStart + 1] > 0x9F) &&

                           (pixBytes[greenPixelStart + 2] < 0x62))

                    {

                        greenPixelCount++;

                        // pixBytes[greenPixelStart] = 0x00;

                        // pixBytes[greenPixelStart + 1] = 0xFF;

                        // pixBytes[greenPixelStart + 2] = 0xFF;

                        greenPixelStart += 3;

                    }

                    WriteLog("Color {0}, {1}, {2} is no longer green at pixel offset {3},{4}", pixBytes[greenPixelStart], pixBytes[greenPixelStart + 1], pixBytes[greenPixelStart + 2], (greenPixelStart % stride)/3, greenPixelStart / stride);

                    reactedColor.Green = (byte)Math.Round((float)greenPixelCount * 255f / (float)colorBarWidth);

                    int bluePixelStart = pixelStart + (blueBarSpacing * stride);

                    int bluePixelCount = 0;

                    while ((pixBytes[bluePixelStart] < 0x62) &&

                        (pixBytes[bluePixelStart + 1] < 0x62) &&

                        (pixBytes[bluePixelStart + 2] > 0x9F))

                    {

                        bluePixelCount++;

                        // pixBytes[bluePixelStart] = 0x00;

                        // pixBytes[bluePixelStart + 1] = 0xFF;

                        // pixBytes[bluePixelStart + 2] = 0xFF;

                        bluePixelStart += 3;

                    }

                    WriteLog("Color {0}, {1}, {2} is no longer blue at pixel offset {3},{4}", pixBytes[bluePixelStart], pixBytes[bluePixelStart + 1], pixBytes[bluePixelStart + 2], (bluePixelStart % stride)/3, bluePixelStart / stride);

                    reactedColor.Blue = (byte)Math.Round((float)bluePixelCount * 255f / (float)colorBarWidth);

                    WriteLog("Found the color swatch at {0}, {1}. Color={2} Red={3}px Green={4}px Blue={5}px", x, y, reactedColor, redPixelCount, greenPixelCount, bluePixelCount);

                    return true;

                }

            }

            return false;

        }

        unsafe public bool CaptureReaction(byte* pixBytes, int screenshotWidth, int screenshotHeight, int stride)

        {

            PaintColor reactedColor = new PaintColor();

            int redPixelStart = 0;

            ScreenWidth = screenshotWidth;

            ScreenHeight = screenshotHeight;

            IsCaptured = false;

            _recordedColor.Clear();

            IsCaptured = false;

            if (!firstRun)

            {

                // If this is not the first run, let's check the last location, to see if the UI is still there.

                if (TestPosition(lastSwatchX, lastSwatchY, pixBytes, screenshotWidth, screenshotHeight, stride, ref reactedColor, ref redPixelStart))

                {

                    IsCaptured = true;

                    RedBarX = (redPixelStart % stride) / 3;

                    RedBarY = redPixelStart / stride;

                    RecordedColor = reactedColor;

                    return true;

                }

                else

                {

                    firstRun = true;

                }

            }

            for (X = 0; X < screenshotWidth - colorBarWidth; ++X)

            {

                for (int Y = 0; Y < (screenshotHeight - (blueBarSpacing + 10)  /*53*/); ++Y)

                {

                    if (TestPosition(X, Y, pixBytes, screenshotWidth, screenshotHeight, stride, ref reactedColor, ref redPixelStart))

                    {

                        RedBarX = (redPixelStart % stride) / 3;

                        RedBarY = redPixelStart / stride;

                        RecordedColor = reactedColor;

                        lastSwatchX = X;

                        lastSwatchY = Y;

                        firstRun = false;

                        IsCaptured = true;

                        return true;

                    }

                    OnCaptureProgress?.Invoke(X, Y);

                }

            }

            return false;

        }

        public bool RecordReaction(PlayerProfile profile, PaintColor expectedColor, PaintColor reactedColor, Reagent[] reagents)

        {

            bool saved = false;

            int r, g, b;

            if (reagents[2] != null)

            {

                // A 3-reagent reaction.

                Reaction reaction1 = profile.FindReaction(reagents[0], reagents[1]);

                Reaction reaction2 = profile.FindReaction(reagents[0], reagents[2]);

                Reaction reaction3 = profile.FindReaction(reagents[1], reagents[2]);

                r = reactedColor.Red - expectedColor.Red;

                g = reactedColor.Green - expectedColor.Green;

                b = reactedColor.Blue - expectedColor.Blue;

                if (reaction2 == null)

                {

                    r = r - reaction1.Red - reaction3.Red;

                    g = g - reaction1.Green - reaction3.Green;

                    b = b - reaction1.Blue - reaction3.Blue;

                    Reaction reaction = new Reaction(r, g, b);

                    profile.SetReaction(reagents[0], reagents[2], reaction);

                    profile.Save();

                    saved = true;

                    OnReactionRecorded?.Invoke(reagents[0], reagents[2], reaction);

                }

                else if (reaction3 == null)

                {

                    r = r - reaction1.Red - reaction2.Red;

                    g = g - reaction1.Green - reaction2.Green;

                    b = b - reaction1.Blue - reaction2.Blue;

                    Reaction reaction = new Reaction(r, g, b);

                    profile.SetReaction(reagents[1], reagents[2], reaction);

                    profile.Save();

                    saved = true;

                    OnReactionRecorded?.Invoke(reagents[1], reagents[2], reaction);

                }

            }

            else if ((reagents[0] != null) && (reagents[1] != null))

            {

                // A 2-reagent reaction.

                r = reactedColor.Red - expectedColor.Red;

                g = reactedColor.Green - expectedColor.Green;

                b = reactedColor.Blue - expectedColor.Blue;

                Reaction reaction = new Reaction(r, g, b);

                profile.SetReaction(reagents[0], reagents[1], reaction);

                profile.Save();

                saved = true;

                OnReactionRecorded?.Invoke(reagents[0], reagents[1], reaction);

            }

            return saved;

        }

    }

}