/*
SUAI lab 13 var 5
task:Написать программу, формирующую по исходному BMP файлу новый BMP файл, содержащий фрагмент
исходного с заданными размерами и начальными координатами.Размеры и координаты фрагмента ввести.
*/
#include <iostream>
#include <Windows.h>
#include <locale>

using namespace std;

struct RGB
{

	BYTE	Bcolor;
	BYTE	Gcolor;
	BYTE	Rcolor;

}image[512 * 512], oimage[512 * 512], sepimage[512 * 512];

void main()
{
	// вещи необходимые для изображения

	int	imgHeight;
	int	imgWidth;
	BITMAPFILEHEADER bmfh;
	BITMAPINFOHEADER bmih;
	RGBTRIPLE RGBColor;
	int	x1, x2, y1, y2;	//точки
	int s = 0, o = 0, p = 0;;
	// файлы

	FILE *inimage;
	FILE *outimage;
	FILE *sepimager;

	setlocale(0, "RUSSIAN");
	// открытие и считывание header'a нашего входного изображения

	inimage = fopen("lena.bmp", "r+b");
	fseek(inimage, 0, SEEK_SET);
	fread(&bmfh, sizeof(bmfh), 1, inimage);
	fread(&bmih, sizeof(bmih), 1, inimage);

	imgWidth = bmih.biWidth;
	imgHeight = bmih.biHeight;

	// массивы цветов для входяшего изображения

	int **inBcolor = new int*[512];
	for (int i = 0; i < 512; i++)
		inBcolor[i] = new int[512];
	int **inRcolor = new int*[512];
	for (int i = 0; i < 512; i++)
		inRcolor[i] = new int[512];
	int **inGcolor = new int*[512];
	for (int i = 0; i < 512; i++)
		inGcolor[i] = new int[512];

	int **sepBcolor = new int*[512];
	for (int i = 0; i < 512; i++)
		sepBcolor[i] = new int[512];
	int **sepRcolor = new int*[512];
	for (int i = 0; i < 512; i++)
		sepRcolor[i] = new int[512];
	int **sepGcolor = new int*[512];
	for (int i = 0; i < 512; i++)
		sepGcolor[i] = new int[512];
	// построения массивов цветов нашего изображения

	for (int i = 0; i < 512 * 512; i++)
	{
		fread(&RGBColor, sizeof(RGBColor), 1, inimage);
		image[i].Rcolor = RGBColor.rgbtRed;
		image[i].Bcolor = RGBColor.rgbtBlue;
		image[i].Gcolor = RGBColor.rgbtGreen;
		sepimage[i].Rcolor = RGBColor.rgbtRed;
		sepimage[i].Bcolor = RGBColor.rgbtBlue;
		sepimage[i].Gcolor = RGBColor.rgbtGreen;
	}

	s = 0;
	for (int i = 0; i < 512; i++)
	{
		for (int j = 0; j < 512; j++)
		{
			inBcolor[i][j] = image[s].Bcolor;
			inRcolor[i][j] = image[s].Rcolor;
			inGcolor[i][j] = image[s].Gcolor;
			sepBcolor[i][j] = sepimage[s].Bcolor;
			sepRcolor[i][j] = sepimage[s].Rcolor;
			sepGcolor[i][j] = sepimage[s].Gcolor;
			s++;
		}
	}

	s = 0;

	cout << 512 * 512 << " " << s;

	cout << "Введите координаты:" << endl;
	cout << "Введите координату х1: "; cin >> x1;
	cout << "Введите координату x2: "; cin >> x2;
	if (x1 >= x2 || x1 >= 512 || x2>512)
	{
		cout << "Недопустимое значение переменных x" << endl;
		exit(0);
	}
	cout << "Введите координату y1: "; cin >> y1;
	cout << "Введите координату y2: "; cin >> y2;
	if (y1 >= y2 || y1 >= 512 || y2>512)
	{
		cout << "Недопустимое значение переменных y" << endl;
		exit(0);
	}
	cout << "Размер данного изображения : " << x2 - x1 << "x" << y2 - y1 << endl;
	int size = (x2 - x1)*(y2 - y1);
	// массив для нового изображения составляется по заданной ширине и длине

	int **outBcolor = new int*[x2 - x1];
	for (int i = 0; i < x2 - x1; i++)
		outBcolor[i] = new int[y2 - y1];
	int **outRcolor = new int*[x2 - x1];
	for (int i = 0; i < x2 - x1; i++)
		outRcolor[i] = new int[y2 - y1];
	int **outGcolor = new int*[x2 - x1];
	for (int i = 0; i < x2 - x1; i++)
		outGcolor[i] = new int[y2 - y1];
	// CПЕПИЯ
	///////////////////////////////////////////////////

	p = 0; o = 0;
	for (int i = y1; i < y2; i++)
	{
		for (int j = x1; j < x2; j++)
		{
			sepRcolor[i][j] = round((inRcolor[i][j] * .393) + (inGcolor[i][j] * .669));
			sepGcolor[i][j] = round((inRcolor[i][j] * .349) + (inGcolor[i][j] * .686));
			sepBcolor[i][j] = round((inRcolor[i][j] * .272) + (inGcolor[i][j] * .534));
		}
	}



	p = 0; o = 0;
	for (int j = 0; j < 512*512; j++)
	{
			sepimage[j].Rcolor =  sepRcolor[o][p];
			sepimage[j].Bcolor =  sepBcolor[o][p];
			sepimage[j].Gcolor =  sepGcolor[o][p];
			p++;
			if (p == 512)
			{
				p = 0; o++;
			}
	}
	//ВЫРЕЗАНИЕ
	/////////////////////////////////////////////////
	p = 0; o = 0;
	for (int i = y1; i < y2; i++)
	{
		for (int j = x1; j < x2; j++)
		{
			outBcolor[o][p] = inBcolor[i][j];
			outRcolor[o][p] = inRcolor[i][j];
			outGcolor[o][p] = inGcolor[i][j];
			p++;
			if (p == y2 - y1)
			{
				p = 0; o++;
			}
		}
	}

	o = 0; p = 0;
	for (int i = 0; i < 512 * 512; i++)
	{
		oimage[i].Rcolor = 0;
		oimage[i].Bcolor = 0;
		oimage[i].Gcolor = 0;
	}

	p = 0; o = 0;
	for (int i = 0; i < size; i++)
	{
		oimage[i].Rcolor = 255 - outRcolor[o][p];
		oimage[i].Bcolor = 255 - outBcolor[o][p];
		oimage[i].Gcolor = 255 - outGcolor[o][p];
		p++;
		if (p == y2 - y1)
		{
			p = 0; o++;
		}
	}

	// вывод изображения
	bmih.biWidth = imgWidth;
	bmih.biHeight = imgHeight;
	sepimager = fopen("sepimg.bmp", "w+b");
	fwrite(&bmfh, sizeof(bmfh), 1, sepimager);
	fwrite(&bmih, sizeof(bmih), 1, sepimager);

	for (int i = 0; i < 512 * 512; i++)
	{
		fwrite(&sepimage[i], sizeof(RGB), 1, sepimager);
	}
	fclose(sepimager);
	bmih.biWidth = x2 - x1;
	bmih.biHeight = y2 - y1;
	outimage = fopen("output.bmp", "w+b");
	fwrite(&bmfh, sizeof(bmfh), 1, outimage);
	fwrite(&bmih, sizeof(bmih), 1, outimage);

	for (int i = 0; i < 512 * 512; i++)
	{
		fwrite(&oimage[i], sizeof(RGB), 1, outimage);
	}

	// удаление массивов нового изображения
	for (int i = 0; i < x2 - x1; i++)
	{
		delete[] outRcolor[i];
		delete[] outBcolor[i];
		delete[] outGcolor[i];
		delete[] inRcolor[i];
		delete[] inBcolor[i];
		delete[] inGcolor[i];
	}
	fcloseall();
}