/**
 * Copies a BMP piece by piece, just because.
 */

#include <stdio.h>
#include <stdlib.h>

#include "bmp.h"

int main(int argc, char *argv[])
{
    // ensure proper usage
    if (argc != 4)
    {
        fprintf(stderr, "Usage: ./copy infile outfile\n");
        return 1;
    }

    // remember filenames
    int n = atoi(argv[1]);
    char *infile = argv[2];
    char *outfile = argv[3];


    // open input file
    FILE *inptr = fopen(infile, "r");
    if (inptr == NULL)
    {
        fprintf(stderr, "Could not open %s.\n", infile);
        return 2;
    }

    // open output file
    FILE *outptr = fopen(outfile, "w");
    if (outptr == NULL)
    {
        fclose(inptr);
        fprintf(stderr, "Could not create %s.\n", outfile);
        return 3;
    }

    // read infile's BITMAPFILEHEADER
    BITMAPFILEHEADER bf;
    fread(&bf, sizeof(BITMAPFILEHEADER), 1, inptr);

    // read infile's BITMAPINFOHEADER
    BITMAPINFOHEADER bi;
    fread(&bi, sizeof(BITMAPINFOHEADER), 1, inptr);

    // ensure infile is (likely) a 24-bit uncompressed BMP 4.0
    if (bf.bfType != 0x4d42 || bf.bfOffBits != 54 || bi.biSize != 40 ||
        bi.biBitCount != 24 || bi.biCompression != 0)
    {
        fclose(outptr);
        fclose(inptr);
        fprintf(stderr, "Unsupported file format.\n");
        return 4;
    }
    //CHANGES TO SCALE UP
    int infilepadding = (4 - (bi.biWidth * sizeof(RGBTRIPLE)) % 4) % 4;
    //calculated previous padding is for infile. multiply this by whatever you choose is outfile.
    //padding *= n;
    //printf("filepadding: %i\n", infilepadding);

    int biWidthCopy = bi.biWidth;
    bi.biWidth *= n;
    //printf("biwidth: %i", biWidthCopy);

    int outfilepadding = (4 - (bi.biWidth * sizeof(RGBTRIPLE)) % 4) % 4;

    //printf("outfilepadding: %i\n", outfilepadding);


    int biHeightCopy = bi.biHeight;
    bi.biHeight *= n;

    bi.biSizeImage = ((sizeof(RGBTRIPLE) * bi.biWidth) + outfilepadding) * abs(bi.biHeight);
    bf.bfSize = bi.biSizeImage + sizeof(BITMAPINFOHEADER) + sizeof(BITMAPFILEHEADER);


    // write outfile's BITMAPFILEHEADER
    fwrite(&bf, sizeof(BITMAPFILEHEADER), 1, outptr);

    // write outfile's BITMAPINFOHEADER
    fwrite(&bi, sizeof(BITMAPINFOHEADER), 1, outptr);










    //RGBTRIPLE *array_copy = malloc(sizeof(RGBTRIPLE));


    // iterate over infile's scanlines (***FOR EACH ROW***)
    for(int i = 0, biHeight = abs(biHeightCopy); i < biHeight; i++)
    {
        RGBTRIPLE* array_copy[bi.biWidth];
         int k = 0;
        // iterate over pixels in scanline (***FOR EACH PIXEL IN THE ROW***)
        for (int j = 0; j < biWidthCopy; j++)
        {

            // temporary storage
            RGBTRIPLE triple;

            printf("Pixel %i\t", j);

            fread(&triple, sizeof(RGBTRIPLE), 1, inptr);
            printf("cursor is here: \t%li\n",ftell(inptr));


            int count = 0;
            //add pixels for times n amount - WRITE TO ARRAY N TIMES
            while (count < n)
            {

                array_copy[k] = &triple;
               // printf("Pass: %i [%d.%d.%d]\t",k,triple.rgbtBlue,triple.rgbtGreen,triple.rgbtRed);
                printf("%i: [%d.%d.%d]\t", k,array_copy[k]->rgbtBlue,array_copy[k]->rgbtGreen,array_copy[k]->rgbtRed);
                count++;
                k++;

            }

            printf("\n");

        }

        //print out array
        for (int r = 0; r < 6;r++)
        {
            printf("array copy: [%d.%d.%d]\t", array_copy[r]->rgbtBlue,array_copy[r]->rgbtGreen,array_copy[r]->rgbtRed);
            printf("\n");
        }



        //write array copy to outfile twice vertically
        for (int p = 0; p < n; p++)
        {

            //write array_copy to outfile
            for (int x = 0; x < bi.biWidth; x++)
            {


            fwrite(*array_copy, sizeof(RGBTRIPLE), 1, outptr);
            //printf("freadoutput:%p\n", &triple);

            printf("final_copy: %d\n", array_copy[p]->rgbtGreen);

            }

             //add padding to horizontal row
            for (int j = 0; j < outfilepadding; j++)
            {
                fputc(0x0, outptr);
            }

        }



               // skip over padding, if any
                fseek(inptr, infilepadding, SEEK_CUR);
    }



    // close infile
    fclose(inptr);

    // close outfile
    fclose(outptr);

    // success
    return 0;
}