using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Text;
using System.Windows.Forms;
using System.IO;
using System.Drawing.Imaging;

namespace OpenRa.BlockCacheVisualizer
{
	public partial class Form1 : Form
	{
		public Form1()
		{
			InitializeComponent();
			Visible = true;

			OpenFileDialog d = new OpenFileDialog();
			d.RestoreDirectory = true;
			d.Filter = "OpenRA PNG Block Cache (*.png)|*.png";

			if (DialogResult.OK != d.ShowDialog())
				return;

			string filename = d.FileName;
			string palname = Path.GetDirectoryName(filename) + "\\palette-cache.png";

			Bitmap palette = new Bitmap(palname);
			Bitmap block = new Bitmap(filename);

			uint[] masks = { 0x00ff0000, 0x0000ff00, 0x000000ff, 0xff000000 };

			foreach (uint c in masks)
			{
				Bitmap b = ExtractChannelToBitmap(block, palette, c);
				PictureBox pb = new PictureBox();

				pb.SizeMode = PictureBoxSizeMode.AutoSize;
				pb.Image = b;

				flowLayoutPanel1.Controls.Add(pb);
			}
		}

		uint MaskColor(uint c, uint mask)
		{
			uint hax = c & mask;

			hax = (hax & 0xffff) | (hax >> 16);
			return (hax & 0xff) | (hax >> 8);
		}

		Bitmap ExtractChannelToBitmap(Bitmap src, Bitmap pal, uint mask)
		{
			Bitmap dest = new Bitmap(src.Width / 2, src.Height / 2, pal.PixelFormat);

			BitmapData destData = dest.LockBits(new Rectangle(new Point(), dest.Size), ImageLockMode.WriteOnly,
				dest.PixelFormat);

			BitmapData paletteData = pal.LockBits(new Rectangle(new Point(), pal.Size), ImageLockMode.ReadOnly,
				pal.PixelFormat);

			BitmapData srcData = src.LockBits(new Rectangle(new Point(), src.Size), ImageLockMode.ReadOnly,
				src.PixelFormat);

			int strideInts = destData.Stride/4;
			int strideInts2 = srcData.Stride/4;

			unsafe
			{
				uint* pdest = (uint*)destData.Scan0.ToPointer();
				uint* ppal = (uint*)paletteData.Scan0.ToPointer();
				uint* psrc = (uint*)srcData.Scan0.ToPointer();

				int h = dest.Height; int w = dest.Width;

				for (int j = 0; j < h; j++)
					for (int i = 0; i < w; i++)
					{
						uint srcc = psrc[2 * j * strideInts2 + 2 * i];
						uint index = MaskColor(srcc, mask);
						uint data = ppal[index];
						pdest[j * strideInts + i] = data;
					}
			}

			dest.UnlockBits(destData);
			pal.UnlockBits(paletteData);
			src.UnlockBits(srcData);

			return dest;
		}
	}
}