LSP_lab2_ver3

#define _CRT_SECURE_NO_WARNINGS
#include <stdio.h>
#include <stdlib.h>
#include <math.h>
#include <time.h>
//#include "stdafx.h"


#pragma pack(push, 2)
typedef struct {
    char signature[2];
    int size;
    short emptyField1;
    short emptyField2;
    int data;
    int lengthHead;
    int width;
    int heidth;
    short countColorPlace;
    short bit;
    char methodArch[4];
    int lengthRastrMas;
    int gorisResolution;
    int vertResolution;
    int countColorPic;
    int countMainColor;
} head_bmp;
#pragma pack(pop)

char nameFile[] = "1.bmp";

int saveImg(char *buf, head_bmp head, int width, int heigth, int comp)
{
    FILE *f;
    f = fopen("1_1_1.bmp", "wb");

    fwrite(&head, sizeof(char)*54, 1, f);
    fseek(f, head.data, SEEK_SET);
    fwrite(buf, sizeof(char)* ((3 * width*heigth) + (comp*heigth)), 1, f);
    fclose(f);

    return 0;
}

char* reflectGorisA(char *buffer, int width, int heigth, int comp)
{
    int i, j, index, w;
    char t;

    __asm
    {
        //for (i = 1; i <= heigth; i = i + 1)
        mov i, 1;
        jmp LN6;
        LN5:
        mov eax, i;
        add eax, 1;
        mov i, eax;
        LN6:
        mov eax, i;
        cmp eax, heigth;
        jg  LN4;
        //index = 3 * (i - 1)*width + (i - 1)*comp;
        mov eax, i;
        sub eax, 1;
        imul ecx, eax, 3;
        imul    ecx, width;
        mov edx, i;
        sub edx, 1;
        imul    edx, comp;
        add ecx, edx;
        mov index, ecx;
        //w = (int)3 * floor(width / 2);
        mov eax, width;
        shr eax, 1;
        imul eax, 3;
        mov w, eax;
        //for (j = 0; j <= w; j = j + 3)
        mov j, 0;
        jmp LN3;
        LN2:
        mov eax, j;
        add eax, 3
        mov j, eax;
        LN3:
        mov eax, j;
        cmp eax, w;
        jg  LN1;
        //t = buffer[index + j];
        mov eax, index;
        add eax, j;
        mov esi, buffer;
        add esi, eax;
        lodsb;
        mov t, al;
        //buffer[index + j] = buffer[3 * i*width - j - 3 + (i - 1)*comp];
        imul    eax, i, 3;
        imul    eax, width;
        sub eax, j;
        mov ecx, i;
        sub ecx, 1;
        imul    ecx, comp;
        lea esi, [eax + ecx - 3];
        mov edi, index;
        add edi, j;
        mov ecx, buffer;
        add esi, ecx;
        add edi, ecx;
        lodsb;
        stos;
        //buffer[3 * i*width - j - 3 + (i - 1)*comp] = t;
        imul    eax, i, 3;
        imul    eax, width;
        sub eax, j;
        mov ecx, i;
        sub ecx, 1;
        imul    ecx, comp;
        mov edi, ecx;
        add edi, eax;
        sub edi, 3;
        add edi, buffer;
        mov al, t;
        stos;
        //t = buffer[index + j + 1];
        mov eax, index;
        add eax, j;
        mov esi, buffer;
        add esi, eax;
        add esi, 1;
        lodsb;
        mov t, al;;
        //buffer[index + j + 1] = buffer[3 * i*width - j - 2 + (i - 1)*comp];
        imul    eax, i, 3;
        imul    eax, width;
        sub eax, j;
        mov ecx, i;
        sub ecx, 1;
        imul    ecx, comp;
        lea esi, [eax + ecx - 2];
        mov edi, index;
        add edi, j;
        add edi, 1;
        mov ecx, buffer;
        add esi, ecx;
        add edi, ecx;
        lodsb;
        stos;
        //buffer[3 * i*width - j - 2 + (i - 1)*comp] = t;
        imul    eax, i, 3;
        imul    eax, width;
        sub eax, j;
        mov ecx, i;
        sub ecx, 1;
        imul    ecx, comp;
        mov edi, ecx;
        add edi, eax;
        sub edi, 2;
        add edi, buffer;
        mov al, t;
        stos;
        //t = buffer[index + j + 2];
        mov eax, index;
        add eax, j;
        mov esi, buffer;
        add esi, eax;
        add esi, 2;
        lodsb;
        mov t, al;;
        //buffer[index + j + 2] = buffer[3 * i*width - j - 1 + (i - 1)*comp];
        imul    eax, i, 3;
        imul    eax, width;
        sub eax, j;
        mov ecx, i;
        sub ecx, 1;
        imul    ecx, comp;
        lea esi, [eax + ecx - 1];
        mov edi, index;
        add edi, j;
        add edi, 2;
        mov ecx, buffer;
        add esi, ecx;
        add edi, ecx;
        lodsb;
        stos;
        //buffer[3 * i*width - j - 1 + (i - 1)*comp] = t;
        imul    eax, i, 3;
        imul    eax, width;
        sub eax, j;
        mov ecx, i;
        sub ecx, 1;
        imul    ecx, comp;
        mov edi, ecx;
        add edi, eax;
        sub edi, 1;
        add edi, buffer;
        mov al, t;
        stos;
        jmp LN2;
        LN1:
        jmp LN5;
        LN4:
    }

    return buffer;
}
char* reflectGoris(char *buffer, int width, int heigth, int comp)
{
    int i, j, index, w;
    char t;


    for (i = 1; i <= heigth; i = i + 1)
    {
        index = 3 * (i - 1)*width + (i - 1)*comp;
        w = (int)3 * floor(width / 2);
        for (j = 0; j <= w; j = j + 3)
        {

            t = buffer[index + j];
            buffer[index + j] = buffer[3 * i*width - j - 3 + (i - 1)*comp];
            buffer[3 * i*width - j - 3 + (i - 1)*comp] = t;

            t = buffer[index + j + 1];
            buffer[index + j + 1] = buffer[3 * i*width - j - 2 + (i - 1)*comp];
            buffer[3 * i*width - j - 2 + (i - 1)*comp] = t;

            t = buffer[index + j + 2];
            buffer[index + j + 2] = buffer[3 * i*width - j - 1 + (i - 1)*comp];
            buffer[3 * i*width - j - 1 + (i - 1)*comp] = t;
        }
    }
    return buffer;
}
int main()
{
    clock_t time;
    head_bmp imgHead;
    FILE* f;
    char *buffer;
    int comp;

    time = clock();
    if ((f = fopen("1.bmp", "rb")) == NULL)
    {
        printf("Ошибочка вышла: файла не существует");
        return -1;
    }

    fread(&imgHead, sizeof(char)*54, 1, f);
    if (imgHead.signature[0] == 0x42 && imgHead.signature[1] == 0x4d)
    {

        if (imgHead.bit == 24)
        {
            comp = (4 - (3 * imgHead.width) % 4);
            buffer = (char*)malloc(sizeof(char)* ((3 * imgHead.width*imgHead.heidth) + (comp*imgHead.heidth)));

            fseek(f, imgHead.data, SEEK_SET);
            fread(buffer, sizeof(char)* ((3 * imgHead.width*imgHead.heidth) + (comp*imgHead.heidth)), 1, f);

            //buffer = reflectGoris(buffer, imgHead.width, imgHead.heidth, comp);

            buffer = reflectGorisA(buffer, imgHead.width, imgHead.heidth, comp);

            saveImg(buffer, imgHead, imgHead.width, imgHead.heidth, comp);



        }
        else
        {
            printf("Ошибочка вышла: глубина цвета должна быть равна 24");

        }
    }

    else
    {
        printf("Ошибочка вышла: файл неверного формата");

    }

    fclose(f);
    time = clock() - time;

    fprintf(stderr, "%fc", (double)time / CLOCKS_PER_SEC);
    scanf(&buffer);

    return 0;
}