"""! @file main.py
    @brief Main file for the application
    @author xlanro00
"""

# Import basic libraries
import argparse as ap
import sys
import json
from os.path import exists

# Libraries for image processing
import numpy as np
import matplotlib.pyplot as plt
#from PIL import Image
import cv2 as cv

from stl import mesh

# Import custom image filter library
import filters as flt


class apply_filters:
    def __init__(self):
        # Parse arguments from command line
        self.parse_arguments()
        self.params = {}
        self.filters = []
        

        # Parse configuration from json file
        if self.args.config:
            self.config_file = self.args.config[0]
            self.preset_name = self.args.config[1]
            self.config = json.load(open(self.config_file))
            self.parse_conf()

        # If no config file given, expect filters in command line
        else:
            if not self.args.filters:
                print("No filters given, saving original image")

            print("No config file given, using command line arguments")
            i = 0

            for filter in self.args.filters:
                if filter.find('=') == -1:
                    # if no '=' in filter, it is a new filter
                    self.filters.append(filter)
                    i += 1
                    self.params[i] = {}
                else:
                    # else it's a parameter for current filter
                    key, value = filter.split('=')
                    self.params[i][key] = value
                self.parse_params(self.params[i])

        self.input_file = self.args.input_file
        self.output_file = self.args.output_file
        self.dpi = self.args.dpi
        self.mirror = True if self.args.mirror else False
        if exists(self.input_file):
            self.run()
        else:
            print("Input file does not exist", file=sys.stderr)
            exit(1)

    def run(self):
        # read as numpy.array
        self.img = cv.imread(
            self.input_file, cv.IMREAD_GRAYSCALE).astype(np.uint8)

        self.width = self.img.shape[1]
        self.height = self.img.shape[0]
        self.print_size(self.img.shape)
        print(self.dpi)
        fig = plt.figure(figsize=(self.width/100, self.height/100),
                         frameon=False, dpi=self.dpi)

        ax = plt.Axes(fig, [0., 0., 1., 1.])
        ax.set_axis_off()
        fig.add_axes(ax)

        if self.mirror is True:
            self.mirror_image()

        # Apply all filters and save image
        self.apply_filter()
        self.save_image(fig, ax)
        plt.close()
        if self.args.stl_file:
            self.make_lithophane()

    def parse_params(self, params):
        ''' Parse parameters of filters.
        Set to None if not given.
        They are later set in the filter method.
        '''

        possible_params = {"h", "searchWindowSize", "templateWindowSize",
                           "ksize", "kernel", "sigmaX", "sigmaY",
                           "sigmaColor", "sigmaSpace", "d", "anchor", "iterations",
                           "op", "strength", "amount", "radius", "weight", "channelAxis"}
        for key in possible_params:
            if params.get(key) is None:
                params[key] = None
            else:
                params[key] = params[key]

    def parse_conf(self):
        ''' Parse configuration file if one was given and store filters with their parameters
        '''

        if self.preset_name in self.config:
            filter_array = self.config[self.preset_name]
            for i, filter in enumerate(range(len(filter_array)), start=1):
                self.filters.append(filter_array[filter]["name"])
                self.params[i] = {}
                for attribute, value in filter_array[filter].items():
                    if attribute != "name":
                        self.params[i][attribute] = value
                self.parse_params(self.params[i])
            print("Loaded preset: " + self.preset_name +
                  " from file: " + self.config_file)
        else:
            print("Preset not found", file=sys.stderr)

    def parse_arguments(self):
        ''' Parse arguments from command line
        '''

        parser = ap.ArgumentParser(prog='main.py',
                                   description='Program for processing a 2D image into 3D fingerprint.',
                                   usage='%(prog)s [-h] [-m | --mirror | --no-mirror] input_file output_file dpi \
                                   ([-c config_file preset | --config config_file preset] | [filters ...]) [-s stl_file | --stl_file stl_file]')

        # positional arguments
        parser.add_argument("input_file", type=str,
                            help="location with input file")
        parser.add_argument("output_file", type=str,
                            help="output file location")
        parser.add_argument("dpi", type=int, help="scanner dpi")

        # boolean switch argument
        parser.add_argument('-m', "--mirror", help="mirror input image", 
                            type=bool, action=ap.BooleanOptionalAction)

        # another boolean switch argument, this time with value, name of the new file
        parser.add_argument('-s', '--stl_file', type=str, nargs='?', help="make stl model from processed image", required=False)

        # file with configuration containing presets, new preset name
        # pair argument - give both or none
        parser.add_argument('-c', '--config', nargs=2, metavar=('config_file', 'preset'),
                            help='pair: name of the config file with presets, name of the preset')

        # array of unknown length, all filter names saved inside
        parser.add_argument('filters', type=str, nargs='*',
                            help="list of filter names and their parameters in form [filter_name1 param1=value1 param2=value2 filter_name2 param1=value1...]")

        self.args = parser.parse_args()

    def filter_factory(self, filter_name):
        ''' Selects filter method of filters library.
        '''

        print("Applying " + filter_name + " filter ", end='')
        return getattr(flt, filter_name)

    def mirror_image(self):
        ''' Mirror image when mirroring is needed,
        should be used only if we want a positive model
         '''

        # TODO make this automatic for positive STL
        print("Mirroring image", file=sys.stderr)
        self.img = cv.flip(self.img, 1)  # 1 for vertical mirror

    def apply_filter(self):
        ''' Apply filters to image.

        Apply the filters one by one, if none were given, just save original image output.
        '''

        if len(self.filters) == 0:
            # No filter given, just save the image
            pass
        else:
            # Apply all filters
            for i, filter_name in enumerate(self.filters):
                filter = self.filter_factory(filter_name)
                #print(self.img.dtype)
                filter.apply(self, self.params[i+1])
                #print(self.img.dtype)

    def print_size(self, size):
        print("Height: " + str(size[0]), file=sys.stderr)
        print("Width: " + str(size[1]), file=sys.stderr)

    def save_image(self, fig, ax):
        ''' Save processed image.
        Colormap set to grayscale to avoid color mismatch.
        '''

        print("Saving image to ", self.output_file, file=sys.stderr)
        ax.imshow(self.img, cmap="gray")
        fig.savefig(fname=self.output_file, dpi='figure')

    def make_lithophane(self):
        '''After processing image, make a lithophane from it.
        '''

        print("Making meshgrid", file=sys.stderr)
        self.make_meshgrid()
        print("Converting to stl format", file=sys.stderr)
        self.make_mesh()
        plt.show()
        print(f"Saving lithophane to ", self.args.stl_file, file=sys.stderr)
        self.save_mesh()

    def make_meshgrid(self):
        ''' Create numpy meshgrid.
        Modify image values to get more usable depth values.
        Add zero padding to image to make sides of the plate.
        '''

        if self.img.dtype == np.float32 or self.img.dtype == np.float64:
            print("Converting to uint8", file=sys.stderr)
            self.img = self.img * 255
            self.img = self.img.astype(np.uint8)

        # Modify image to make it more suitable depth
        rescaled = (1 + (1 - self.img/255)/6) * 255 / 10 # for positive forms ?
        if self.mirror is True:
            rescaled = (2 - (1 - self.img/255)/6) * 255 / 10  # for negative forms
        
        # TODO: i dont know how to make white surrounding be extruded

        # Add zero padding to image
        # TODO this better be done in the next function to keep dimensions intact
        self.height = self.img.shape[0] + 2
        self.width = self.img.shape[1] + 2
        self.img = np.zeros([self.height, self.width])
        self.img[1:-1:1, 1:-1:1] = rescaled

        # Create meshgrid for 3D model
        verticesX = np.around(np.linspace(0, self.width / 10, self.width), 3)
        verticesY = np.around(np.linspace(0, self.height / 10, self.height), 3)
        self.meshgrid = np.meshgrid(verticesX, verticesY)

    def make_mesh(self):
        ''' Create mesh from image.
        Create vertices from meshgrid, add depth values from image.
        Create faces from vertices. Add veectors to the model.

        From wikipedia.org/wiki/STL_(file_format):
        ascii stl format consists of repeating struictures:
        
        facet normal ni nj nk # normal vector
            outer loop
                vertex v1x v1y v1z # vertex 1
                vertex v2x v2y v2z # vertex 2
                vertex v3x v3y v3z # vertex 3
            endloop
        endfacet

        '''

        # Convert meshgrid and image matrix to array of 3D points
        vertice_arr = np.vstack(list(map(np.ravel, self.meshgrid))).T
        z = (self.img / 10).reshape(-1, 1)
        vertice_arr = np.concatenate((vertice_arr, z), axis=1)

        # Convert back to matrix of 3D points
        vertice_arr = vertice_arr.reshape(self.height, self.width, 3)

        count = 0
        vertices = []
        faces = []

        # Function to add faces to the list
        def add_faces(c):
            faces.append([c, c + 1, c + 2])
            faces.append([c + 1, c + 3, c + 2])
            c += 4
            return c

        # Iterate over all vertices, create faces
        for j in range(self.width - 1):
            for i in range(self.height - 1):

                vertices.append([vertice_arr[i][j]])
                vertices.append([vertice_arr[i][j+1]])
                vertices.append([vertice_arr[i+1][j]])
                vertices.append([vertice_arr[i+1][j+1]])

                count = add_faces(count)

        # Add faces for the backside of the lithophane
        # This makes it closed, so it can be printed
        vertices.append([vertice_arr[0][0]])
        vertices.append([vertice_arr[0][self.width - 1]])
        vertices.append([vertice_arr[self.height - 1][0]])
        vertices.append([vertice_arr[self.height - 1][self.width - 1]])

        count = add_faces(count)

        # Convert to numpy arrays
        faces = np.array(faces)
        vertices = np.array(vertices)

        # Create the mesh
        self.stl_mesh = mesh.Mesh(np.zeros(len(faces), dtype=mesh.Mesh.dtype))
        for i, face in enumerate(faces):
            for j in range(3):
                self.stl_mesh.vectors[i][j] = vertices[face[j], :]
                self.stl_mesh.vectors[i][j] /= 2.54  # convert to inches

    def save_mesh(self):
        ''' Save final mesh to stl file.
        '''

        self.stl_mesh.save(self.args.stl_file)


image = apply_filters()