/* This file is part of the Palabos library.
 *
 * The Palabos softare is developed since 2011 by FlowKit-Numeca Group Sarl
 * (Switzerland) and the University of Geneva (Switzerland), which jointly
 * own the IP rights for most of the code base. Since October 2019, the
 * Palabos project is maintained by the University of Geneva and accepts
 * source code contributions from the community.
 * 
 * Contact:
 * Jonas Latt
 * Computer Science Department
 * University of Geneva
 * 7 Route de Drize
 * 1227 Carouge, Switzerland
 * jonas.latt@unige.ch
 *
 * The most recent release of Palabos can be downloaded at 
 * <https://palabos.unige.ch/>
 *
 * The library Palabos is free software: you can redistribute it and/or
 * modify it under the terms of the GNU Affero General Public License as
 * published by the Free Software Foundation, either version 3 of the
 * License, or (at your option) any later version.
 *
 * The library is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU Affero General Public License for more details.
 *
 * You should have received a copy of the GNU Affero General Public License
 * along with this program.  If not, see <http://www.gnu.org/licenses/>.
*/

#include "palabos3D.h"
#include "palabos3D.hh"

#include <algorithm>
#include <string>
#include <vector>

using namespace plb;
using namespace std;

typedef double T;

const int typeOfVoxelization = voxelFlag::inside;
const plint extraLayer = 0;
const plint blockSize = 20;
const plint extendedEnvelopeWidth = 2;
const plint borderWidth = 1;
const plint margin = 4; // Extra margin of allocated cells around the obstacle. 

int main(int argc, char* argv[])
{
    plbInit(&argc, &argv);
    global::directories().setOutputDir("./");
    global::IOpolicy().activateParallelIO(false);
    plint resolution=0;
    plint referenceDirection=0;
    T inflation=0.0;

    string stlFileName, outFileName, precisionStr;
    try {
        global::argv(1).read(stlFileName);
        global::argv(2).read(outFileName);
        global::argv(3).read(precisionStr);
        global::argv(4).read(resolution);
        global::argv(5).read(referenceDirection);
    }
    catch (PlbIOException& exception) {
        pcout << "Usage: " 
              << (std::string)global::argv(0) << " inputSTL.stl outputSTL.stl precision (FLT|DBL|LDBL|INF) resolution referenceDirection (0|1|2) [inflation (>= 0)]" << std::endl;
        exit(-1);
    }

    std::transform(precisionStr.begin(), precisionStr.end(), precisionStr.begin(), ::toupper);

    Precision precision;
    if (precisionStr == "FLT") {
        precision = FLT;
    } else if (precisionStr == "DBL") {
        precision = DBL;
    } else if (precisionStr == "LDBL") {
        precision = LDBL;
    } else if (precisionStr == "INF") {
        precision = INF;
    } else {
        pcout << "Wrong precision command-line argument." << std::endl;
        exit(-1);
    }

    try {
        global::argv(6).read(inflation);
        if (util::lessThan(inflation, (T) 0)) {
            pcout << "Wrong inflation command-line argument." << std::endl;
            exit(-1);
        }
    }
    catch (PlbIOException& exception) {
        inflation = -1.0;
    }

    TriangleSet<T>* triangleSet = 0;
    try {
        triangleSet = new TriangleSet<T>(stlFileName, precision);
    }
    catch (PlbIOException& exception) {
        pcout << "Error, could not read STL file " << stlFileName
              << ": " << exception.what() << std::endl;
        exit(-1);
    }
    DEFscaledMesh<T> mesh(*triangleSet, resolution, referenceDirection, margin, extraLayer);
    TriangleBoundary3D<T> boundary(mesh);
    if (inflation < (T) 0) {
        boundary.getMesh().inflate();
    } else {
        boundary.getMesh().inflate(inflation);
    }
    T dx = boundary.getDx();
    Array<T,3> location(boundary.getPhysicalLocation());
    VoxelizedDomain3D<T> voxelizedDomain (
            boundary, typeOfVoxelization, extraLayer, borderWidth, extendedEnvelopeWidth, blockSize );

    MultiScalarField3D<T> flagMatrix((MultiBlock3D&)voxelizedDomain.getVoxelMatrix());
    setToConstant(flagMatrix, voxelizedDomain.getVoxelMatrix(),
                  voxelFlag::inside, flagMatrix.getBoundingBox(), (T) 1.0);
    setToConstant(flagMatrix, voxelizedDomain.getVoxelMatrix(),
                  voxelFlag::innerBorder, flagMatrix.getBoundingBox(), (T) 1.0);
    pcout << "Number of inside cells: " << computeSum(flagMatrix) << std::endl;

   //TriangleSet<T> triangles (
           //vofToTriangles<T,descriptors::D3Q19Descriptor>( 
               //flagMatrix, (T) 0.5, flagMatrix.getBoundingBox().enlarge(-2) ) );

    std::vector<TriangleSet<T>::Triangle> triangles;
    isoSurfaceMarchingCube(triangles, voxelizedDomain, flagMatrix.getBoundingBox());
    TriangleSet<T> newTriangleSet(triangles, FLT);
    newTriangleSet.writeBinarySTL(outFileName);

    DEFscaledMesh<T> newMesh(newTriangleSet);
    TriangleBoundary3D<T> newBoundary(newMesh);
    newBoundary.getMesh().scale(dx);
    newBoundary.getMesh().translate(location);
    newBoundary.getMesh().writeBinarySTL(outFileName);

    return 0;
}

