LagrangeBasis3d.cpp

Go to the documentation of this file.

 
#include "LagrangeBasis3d.hpp"
 
#include <polyfem/mesh/MeshNodes.hpp>
#include <polyfem/quadrature/TetQuadrature.hpp>
#include <polyfem/quadrature/HexQuadrature.hpp>
#include <polyfem/quadrature/PrismQuadrature.hpp>
 
#include <polyfem/assembler/AssemblerUtils.hpp>
 
#include <polyfem/autogen/auto_p_bases.hpp>
#include <polyfem/autogen/auto_q_bases.hpp>
#include <polyfem/autogen/prism_bases.hpp>
 
#include <polyfem/utils/MaybeParallelFor.hpp>
 
#include <cassert>
#include <array>
 
using namespace polyfem;
using namespace polyfem::assembler;
using namespace polyfem::basis;
using namespace polyfem::mesh;
using namespace polyfem::quadrature;
 
/*
Axes:
  z y
  │╱
  o──x
Boundaries:
X axis: left/right
Y axis: front/back
Z axis: bottom/top
Corner nodes:
v3──x──v2
 │⋱   ╱  ╲
 x  ⋱╱    ╲
 │  x  x   x
 │ ╱     ⋱  ╲
 │╱         ⋱╲
v0─────x──────v1
v0 = (0, 0, 0)
v1 = (1, 0, 0)
v2 = (0, 1, 0)
v3 = (0, 0, 1)
Edge nodes:
e0  = (0.5,   0,   0)
e1  = (0.5, 0.5,   0)
e2  = (  0, 0.5,   0)
e3  = (  0, 0,   0.5)
e4  = (0.5,   0, 0.5)
e5  = (  0, 0.5, 0.5)
Corner nodes:
      v7──────x─────v6
      ╱┆     ╱      ╱│
     ╱ ┆    ╱      ╱ │
    x┄┄┼┄┄┄x┄┄┄┄┄┄x  │
   ╱   x  ╱      ╱┆  x
  ╱    ┆ ╱      ╱ ┆ ╱│
v4─────┼x─────v5  ┆╱ │
 │     ┆┆      │  x  │
 │    v3┼┄┄┄┄┄x┼┄⌿┼┄v2
 │    ╱ ┆      │╱ ┆ ╱
 x┄┄┄⌿┄┄x┄┄┄┄┄┄x  ┆╱
 │  x   ┆      │  x
 │ ╱    ┆      │ ╱
 │╱     ┆      │╱
v0──────x─────v1
v0 = (0, 0, 0)
v1 = (1, 0, 0)
v2 = (1, 1, 0)
v3 = (0, 1, 0)
v4 = (0, 0, 1)
v5 = (1, 0, 1)
v6 = (1, 1, 1)
v7 = (0, 1, 1)
Edge nodes:
       x─────e10─────x
      ╱┆     ╱      ╱│
     ╱ ┆    ╱      ╱ │
   e11┄┼┄┄┄x┄┄┄┄┄e9  │
   ╱  e7  ╱      ╱┆ e6
  ╱    ┆ ╱      ╱ ┆ ╱│
 x─────e8──────x  ┆╱ │
 │     ┆┆      │  x  │
 │     x┼┄┄┄┄┄e2┄⌿┼┄┄x
 │    ╱ ┆      │╱ ┆ ╱
e4┄┄┄⌿┄┄x┄┄┄┄┄e5  ┆╱
 │ e3   ┆      │ e1
 │ ╱    ┆      │ ╱
 │╱     ┆      │╱
 x─────e0──────x
e0  = (0.5,   0,   0)
e1  = (  1, 0.5,   0)
e2  = (0.5,   1,   0)
e3  = (  0, 0.5,   0)
e4  = (  0,   0, 0.5)
e5  = (  1,   0, 0.5)
e6  = (  1,   1, 0.5)
e7  = (  0,   1, 0.5)
e8  = (0.5,   0,   1)
e9  = (  1, 0.5,   1)
e10 = (0.5,   1,   1)
e11 = (  0, 0.5,   1)
Face nodes:
      v7──────x─────v6
      ╱┆     ╱      ╱│
     ╱ ┆    ╱      ╱ │
    x┄┄┼┄┄f5┄┄┄┄┄┄x  │
   ╱   x  ╱  f3  ╱┆  x
  ╱    ┆ ╱      ╱ ┆ ╱│
v4─────┼x─────v5  ┆╱ │
 │ f0  ┆┆      │ f1  │
 │    v3┼┄┄┄┄┄x┼┄⌿┼┄v2
 │    ╱ ┆      │╱ ┆ ╱
 x┄┄┄⌿┄f2┄┄┄┄┄┄x  ┆╱
 │  x   ┆ f4   │  x
 │ ╱    ┆      │ ╱
 │╱     ┆      │╱
v0──────x─────v1
f0  = (  0, 0.5, 0.5)
f1  = (  1, 0.5, 0.5)
f2  = (0.5,   0, 0.5)
f3  = (0.5,   1, 0.5)
f4  = (0.5, 0.5,   0)
f5  = (0.5, 0.5,   1)
*/
 
namespace
{
    template <class InputIterator, class T>
    int find_index(InputIterator first, InputIterator last, const T &val)
    {
        return std::distance(first, std::find(first, last, val));
    }
 
    Navigation3D::Index find_quad_face(const Mesh3D &mesh, int c, int v1, int v2, int v3, int v4)
    {
        std::array<int, 4> v = {{v1, v2, v3, v4}};
        std::sort(v.begin(), v.end());
        for (int lf = 0; lf < mesh.n_cell_faces(c); ++lf)
        {
            auto idx = mesh.get_index_from_element(c, lf, 0);
            if (mesh.n_face_vertices(idx.face) != 4)
                continue;
 
            std::array<int, 4> u;
            for (int lv = 0; lv < mesh.n_face_vertices(idx.face); ++lv)
            {
                u[lv] = idx.vertex;
                idx = mesh.next_around_face(idx);
            }
            std::sort(u.begin(), u.end());
            if (u == v)
            {
                return idx;
            }
        }
        assert(false);
        return Navigation3D::Index();
    }
 
    std::array<int, 4> tet_vertices_local_to_global(const Mesh3D &mesh, int c)
    {
        // Vertex nodes
        assert(mesh.is_simplex(c));
        std::array<int, 4> l2g;
        int lv = 0;
        for (int vi : mesh.get_ordered_vertices_from_tet(c))
        {
            l2g[lv++] = vi;
        }
 
        return l2g;
    }
 
    std::array<int, 8> hex_vertices_local_to_global(const Mesh3D &mesh, int c)
    {
        assert(mesh.is_cube(c));
 
        // Vertex nodes
        std::array<int, 8> l2g;
        int lv = 0;
        for (int vi : mesh.get_ordered_vertices_from_hex(c))
        {
            l2g[lv++] = vi;
        }
 
        return l2g;
    }
 
    std::array<int, 6> prism_vertices_local_to_global(const Mesh3D &mesh, int c)
    {
        assert(mesh.is_prism(c));
 
        // Vertex nodes
        std::array<int, 6> l2g;
        int lv = 0;
        for (int vi : mesh.get_ordered_vertices_from_prism(c))
        {
            l2g[lv++] = vi;
        }
 
        return l2g;
    }
 
    int lowest_order_elem_on_edge(const polyfem::mesh::NCMesh3D &mesh, const Eigen::VectorXi &discr_orders, const int eid)
    {
        auto elem_list = mesh.edge_neighs(eid);
        int min = std::numeric_limits<int>::max();
        int elem = -1;
        for (const auto e : elem_list)
            if (discr_orders[e] < min)
                elem = e;
        return elem;
    }
 
    void tet_local_to_global(const bool is_geom_bases, const int p, const Mesh3D &mesh, int c, const Eigen::VectorXi &discr_order, const Eigen::VectorXi &edge_orders, const Eigen::VectorXi &face_orders, std::vector<int> &res, polyfem::mesh::MeshNodes &nodes, std::vector<std::vector<int>> &edge_virtual_nodes, std::vector<std::vector<int>> &face_virtual_nodes)
    {
        const int n_edge_nodes = p > 1 ? ((p - 1) * 6) : 0;
        const int nn = p > 2 ? (p - 2) : 0;
        const int n_loc_f = (nn * (nn + 1) / 2);
        const int n_face_nodes = n_loc_f * 4;
        int n_cell_nodes = 0;
        for (int pp = 4; pp <= p; ++pp)
            n_cell_nodes += ((pp - 3) * ((pp - 3) + 1) / 2);
 
        if (p == 0)
        {
            res.push_back(nodes.node_id_from_cell(c));
            return;
        }
 
        // std::vector<int> res;
        res.reserve(4 + n_edge_nodes + n_face_nodes + n_cell_nodes);
 
        // Edge nodes
        Eigen::Matrix<Navigation3D::Index, 4, 1> f;
 
        auto v = tet_vertices_local_to_global(mesh, c);
        Eigen::Matrix<int, 4, 3> fv;
        fv.row(0) << v[0], v[1], v[2];
        fv.row(1) << v[0], v[1], v[3];
        fv.row(2) << v[1], v[2], v[3];
        fv.row(3) << v[2], v[0], v[3];
 
        for (long lf = 0; lf < fv.rows(); ++lf)
        {
            const auto index = mesh.get_index_from_element_face(c, fv(lf, 0), fv(lf, 1), fv(lf, 2));
            f[lf] = index;
        }
 
        Eigen::Matrix<Navigation3D::Index, 6, 1> e;
        Eigen::Matrix<int, 6, 2> ev;
        ev.row(0) << v[0], v[1];
        ev.row(1) << v[1], v[2];
        ev.row(2) << v[2], v[0];
 
        ev.row(3) << v[0], v[3];
        ev.row(4) << v[1], v[3];
        ev.row(5) << v[2], v[3];
 
        for (int le = 0; le < e.rows(); ++le)
        {
            // const auto index =  find_edge(mesh, c, ev(le, 0), ev(le, 1));
            const auto index = mesh.get_index_from_element_edge(c, ev(le, 0), ev(le, 1));
            e[le] = index;
        }
 
        // vertices
        for (size_t lv = 0; lv < v.size(); ++lv)
        {
            if (!mesh.is_conforming() && !is_geom_bases)
            {
                const auto &ncmesh = dynamic_cast<const NCMesh3D &>(mesh);
                // hanging vertex
                if (ncmesh.leader_edge_of_vertex(v[lv]) >= 0 || ncmesh.leader_face_of_vertex(v[lv]) >= 0)
                    res.push_back(-lv - 1);
                else
                    res.push_back(nodes.node_id_from_primitive(v[lv]));
            }
            else
                res.push_back(nodes.node_id_from_primitive(v[lv]));
        }
 
        // Edges
        for (int le = 0; le < e.rows(); ++le)
        {
            const auto index = e[le];
            auto neighs = mesh.edge_neighs(index.edge);
            int min_p = discr_order.size() > 0 ? discr_order(c) : 0;
 
            if (is_geom_bases)
            {
                auto node_ids = nodes.node_ids_from_edge(index, p - 1);
                res.insert(res.end(), node_ids.begin(), node_ids.end());
            }
            else
            {
                if (!mesh.is_conforming() && !is_geom_bases)
                {
                    const auto &ncmesh = dynamic_cast<const NCMesh3D &>(mesh);
                    // slave edge
                    if (ncmesh.leader_edge_of_edge(index.edge) >= 0 || ncmesh.leader_face_of_edge(index.edge) >= 0)
                    {
                        for (int tmp = 0; tmp < p - 1; ++tmp)
                            res.push_back(-le - 1);
                    }
                    // master or conforming edge with constrained order
                    else if (edge_orders[index.edge] < discr_order(c))
                    {
                        for (int tmp = 0; tmp < p - 1; ++tmp)
                            res.push_back(-le - 1);
 
                        int min_order_elem = lowest_order_elem_on_edge(ncmesh, discr_order, index.edge);
                        // master edge, add extra nodes
                        if (min_order_elem == c)
                            edge_virtual_nodes[index.edge] = nodes.node_ids_from_edge(index, edge_orders[index.edge] - 1);
                    }
                    else
                    {
                        auto node_ids = nodes.node_ids_from_edge(index, p - 1);
                        res.insert(res.end(), node_ids.begin(), node_ids.end());
                    }
                }
                else
                {
                    for (auto cid : neighs)
                    {
                        min_p = std::min(min_p, discr_order.size() > 0 ? discr_order(cid) : 0);
                    }
 
                    if (discr_order.size() > 0 && discr_order(c) > min_p)
                    {
                        for (int tmp = 0; tmp < p - 1; ++tmp)
                            res.push_back(-le - 10);
                    }
                    else
                    {
                        auto node_ids = nodes.node_ids_from_edge(index, p - 1);
                        res.insert(res.end(), node_ids.begin(), node_ids.end());
                    }
                }
            }
        }
 
        // faces
        for (int lf = 0; lf < f.rows(); ++lf)
        {
            const auto index = f[lf];
            const auto other_cell = mesh.switch_element(index).element;
 
            const bool skip_other = discr_order.size() > 0 && other_cell >= 0 && discr_order(c) > discr_order(other_cell);
 
            if (is_geom_bases)
            {
                auto node_ids = nodes.node_ids_from_face(index, p - 2);
                res.insert(res.end(), node_ids.begin(), node_ids.end());
            }
            else
            {
                if (!mesh.is_conforming() && !is_geom_bases)
                {
                    const auto &ncmesh = dynamic_cast<const NCMesh3D &>(mesh);
                    // slave face
                    if (ncmesh.leader_face_of_face(index.face) >= 0)
                    {
                        for (int tmp = 0; tmp < n_loc_f; ++tmp)
                            res.push_back(-lf - 1);
                    }
                    // master face or conforming face with constrained order
                    else if (face_orders[index.face] < discr_order[c])
                    {
                        for (int tmp = 0; tmp < n_loc_f; ++tmp)
                            res.push_back(-lf - 1);
                        // master face
                        if (ncmesh.n_follower_faces(index.face) > 0 && face_orders[index.face] > 2)
                            face_virtual_nodes[index.face] = nodes.node_ids_from_face(index, face_orders[index.face] - 2);
                    }
                    else
                    {
                        auto node_ids = nodes.node_ids_from_face(index, p - 2);
                        res.insert(res.end(), node_ids.begin(), node_ids.end());
                    }
                }
                else
                {
                    if (skip_other)
                    {
                        for (int tmp = 0; tmp < n_loc_f; ++tmp)
                            res.push_back(-lf - 1);
                    }
                    else
                    {
                        auto node_ids = nodes.node_ids_from_face(index, p - 2);
                        res.insert(res.end(), node_ids.begin(), node_ids.end());
                    }
                }
            }
        }
 
        // cells
        if (n_cell_nodes > 0)
        {
            const auto index = f[0];
 
            auto node_ids = nodes.node_ids_from_cell(index, p - 3);
            res.insert(res.end(), node_ids.begin(), node_ids.end());
        }
 
        assert(res.size() == size_t(4 + n_edge_nodes + n_face_nodes + n_cell_nodes));
    }
 
    void hex_local_to_global(const bool serendipity, const int q, const Mesh3D &mesh, int c, const Eigen::VectorXi &discr_order, std::vector<int> &res, MeshNodes &nodes)
    {
        assert(mesh.is_cube(c));
 
        const int n_edge_nodes = ((q - 1) * 12);
        const int nn = (q - 1);
        const int n_loc_f = serendipity ? 0 : (nn * nn);
        const int n_face_nodes = serendipity ? 0 : (n_loc_f * 6);
        const int n_cell_nodes = serendipity ? 0 : (nn * nn * nn);
 
        if (q == 0)
        {
            res.push_back(nodes.node_id_from_cell(c));
            return;
        }
 
        // std::vector<int> res;
        res.reserve(8 + n_edge_nodes + n_face_nodes + n_cell_nodes);
 
        // Vertex nodes
        auto v = hex_vertices_local_to_global(mesh, c);
 
        // Edge nodes
        Eigen::Matrix<Navigation3D::Index, 12, 1> e;
        Eigen::Matrix<int, 12, 2> ev;
        ev.row(0) << v[0], v[1];
        ev.row(1) << v[1], v[2];
        ev.row(2) << v[2], v[3];
        ev.row(3) << v[3], v[0];
        ev.row(4) << v[0], v[4];
        ev.row(5) << v[1], v[5];
        ev.row(6) << v[2], v[6];
        ev.row(7) << v[3], v[7];
        ev.row(8) << v[4], v[5];
        ev.row(9) << v[5], v[6];
        ev.row(10) << v[6], v[7];
        ev.row(11) << v[7], v[4];
        for (int le = 0; le < e.rows(); ++le)
        {
            // e[le] = find_edge(mesh, c, ev(le, 0), ev(le, 1)).edge;
            e[le] = mesh.get_index_from_element_edge(c, ev(le, 0), ev(le, 1));
        }
 
        // Face nodes
        Eigen::Matrix<Navigation3D::Index, 6, 1> f;
        Eigen::Matrix<int, 6, 4> fv;
        fv.row(0) << v[0], v[3], v[4], v[7];
        fv.row(1) << v[1], v[2], v[5], v[6];
        fv.row(2) << v[0], v[1], v[5], v[4];
        fv.row(3) << v[3], v[2], v[6], v[7];
        fv.row(4) << v[0], v[1], v[2], v[3];
        fv.row(5) << v[4], v[5], v[6], v[7];
        for (int lf = 0; lf < f.rows(); ++lf)
        {
            const auto index = find_quad_face(mesh, c, fv(lf, 0), fv(lf, 1), fv(lf, 2), fv(lf, 3));
            f[lf] = index;
        }
 
        // vertices
        for (size_t lv = 0; lv < v.size(); ++lv)
        {
            res.push_back(nodes.node_id_from_primitive(v[lv]));
        }
        assert(res.size() == size_t(8));
 
        // Edges
        for (int le = 0; le < e.rows(); ++le)
        {
            const auto index = e[le];
            auto neighs = mesh.edge_neighs(index.edge);
            int min_q = discr_order.size() > 0 ? discr_order(c) : 0;
 
            for (auto cid : neighs)
            {
                min_q = std::min(min_q, discr_order.size() > 0 ? discr_order(cid) : 0);
            }
 
            if (discr_order.size() > 0 && discr_order(c) > min_q)
            {
                for (int tmp = 0; tmp < q - 1; ++tmp)
                    res.push_back(-le - 10);
            }
            else
            {
                auto node_ids = nodes.node_ids_from_edge(index, q - 1);
                res.insert(res.end(), node_ids.begin(), node_ids.end());
            }
        }
        assert(res.size() == size_t(8 + n_edge_nodes));
 
        // faces
        for (int lf = 0; lf < f.rows(); ++lf)
        {
            const auto index = f[lf];
            const auto other_cell = mesh.switch_element(index).element;
 
            const bool skip_other = discr_order.size() > 0 && other_cell >= 0 && discr_order(c) > discr_order(other_cell);
 
            if (skip_other)
            {
                for (int tmp = 0; tmp < n_loc_f; ++tmp)
                    res.push_back(-lf - 1);
            }
            else
            {
                auto node_ids = nodes.node_ids_from_face(index, serendipity ? 0 : (q - 1));
                assert(node_ids.size() == n_loc_f);
                res.insert(res.end(), node_ids.begin(), node_ids.end());
            }
        }
        assert(res.size() == size_t(8 + n_edge_nodes + n_face_nodes));
 
        // cells
        if (n_cell_nodes > 0)
        {
            const auto index = f[0];
 
            auto node_ids = nodes.node_ids_from_cell(index, q - 1);
            res.insert(res.end(), node_ids.begin(), node_ids.end());
        }
 
        assert(res.size() == size_t(8 + n_edge_nodes + n_face_nodes + n_cell_nodes));
    }
 
    void prism_local_to_global(const int p, const int q, const Mesh3D &mesh, int c, const Eigen::VectorXi &discr_order, std::vector<int> &res, MeshNodes &nodes)
    {
        assert(mesh.is_prism(c));
 
        const int n_edge_nodest = p > 1 ? ((p - 1) * 3) : 0;
        const int nnt = p > 2 ? (p - 2) : 0;
        const int n_face_nodest = nnt * (nnt + 1) / 2;
 
        const int nnq = q > 1 ? (q - 1) : 0;
        const int n_face_nodesq = nnq * n_edge_nodest / 3;
 
        const int n_edge_nodes = n_edge_nodest * 2 + nnq * 3;
        const int n_face_nodes = n_face_nodest * 2 + n_face_nodesq * 3;
        const int n_cell_nodes = n_face_nodest * nnq;
 
        if (p == 0 && q == 0)
        {
            res.push_back(nodes.node_id_from_cell(c));
            return;
        }
 
        res.reserve(6 + n_edge_nodes + n_face_nodes + n_cell_nodes);
 
        // Vertex nodes
        auto v = prism_vertices_local_to_global(mesh, c);
 
        // Edge nodes
        Eigen::Matrix<Navigation3D::Index, 9, 1> e;
        Eigen::Matrix<int, 9, 2> ev;
        ev.row(0) << v[0], v[1];
        ev.row(1) << v[1], v[2];
        ev.row(2) << v[2], v[0];
        ev.row(3) << v[3], v[4];
        ev.row(4) << v[4], v[5];
        ev.row(5) << v[5], v[3];
        ev.row(6) << v[0], v[3];
        ev.row(7) << v[1], v[4];
        ev.row(8) << v[2], v[5];
 
        for (int le = 0; le < e.rows(); ++le)
        {
            e[le] = mesh.get_index_from_element_edge(c, ev(le, 0), ev(le, 1));
        }
 
        // Face nodes
        Eigen::Matrix<Navigation3D::Index, 5, 1> f;
        Eigen::Matrix<int, 2, 3> fvt;
        fvt.row(0) << v[0], v[1], v[2];
        fvt.row(1) << v[3], v[4], v[5];
        for (int lf = 0; lf < fvt.rows(); ++lf)
        {
            const auto index = mesh.get_index_from_element_face(c, fvt(lf, 0), fvt(lf, 1), fvt(lf, 2));
            f[lf] = index;
        }
 
        Eigen::Matrix<int, 3, 4> fvq;
        fvq.row(0) << v[0], v[1], v[4], v[3];
        fvq.row(1) << v[1], v[2], v[5], v[4];
        fvq.row(2) << v[2], v[0], v[3], v[5];
        for (int lf = 0; lf < fvq.rows(); ++lf)
        {
            const auto index = find_quad_face(mesh, c, fvq(lf, 0), fvq(lf, 1), fvq(lf, 2), fvq(lf, 3));
            f[lf + 2] = index;
        }
 
        // vertices
        for (size_t lv = 0; lv < v.size(); ++lv)
        {
            res.push_back(nodes.node_id_from_primitive(v[lv]));
        }
        assert(res.size() == size_t(6));
 
        // Edges
        for (int le = 0; le < e.rows(); ++le)
        {
            const auto index = e[le];
            auto neighs = mesh.edge_neighs(index.edge);
            // int min_q = discr_order.size() > 0 ? discr_order(c) : 0;
 
            // TODO prism: not conforming
            // for (auto cid : neighs)
            // {
            //  min_q = std::min(min_q, discr_order.size() > 0 ? discr_order(cid) : 0);
            // }
 
            // if (discr_order.size() > 0 && discr_order(c) > min_q)
            // {
            //  for (int tmp = 0; tmp < q - 1; ++tmp)
            //      res.push_back(-le - 10);
            // }
            // else
            {
                auto node_ids = nodes.node_ids_from_edge(index, (le < 6 ? p : q) - 1);
                res.insert(res.end(), node_ids.begin(), node_ids.end());
            }
        }
        assert(res.size() == size_t(6 + n_edge_nodes));
 
        // faces
        for (int lf = 0; lf < f.rows(); ++lf)
        {
            const auto index = f[lf];
            const auto other_cell = mesh.switch_element(index).element;
 
            // TODO prism: not conforming
            //  const bool skip_other = discr_order.size() > 0 && other_cell >= 0 && discr_order(c) > discr_order(other_cell);
 
            // if (skip_other)
            // {
            //  for (int tmp = 0; tmp < n_loc_f; ++tmp)
            //      res.push_back(-lf - 1);
            // }
            // else
            {
                // todo prism, nodes are not necessarly a square
                auto node_ids = nodes.node_ids_from_face(index, lf < 2 ? (p - 2) : ((q - 1) * (p - 1)));
                // assert(node_ids.size() == n_loc_f);
                res.insert(res.end(), node_ids.begin(), node_ids.end());
            }
        }
        assert(res.size() == size_t(6 + n_edge_nodes + n_face_nodes));
 
        // cells
        if (n_cell_nodes > 0)
        {
            // TODO: implement me internal prism nodes
            log_and_throw_error("Prism internal nodes not implemented yet");
 
            const auto index = f[0];
 
            auto node_ids = nodes.node_ids_from_cell(index, q - 1);
            res.insert(res.end(), node_ids.begin(), node_ids.end());
        }
 
        assert(res.size() == size_t(6 + n_edge_nodes + n_face_nodes + n_cell_nodes));
    }
    // -----------------------------------------------------------------------------
 
    void compute_nodes(
        const Mesh3D &mesh,
        const Eigen::VectorXi &discr_ordersp,
        const Eigen::VectorXi &discr_ordersq,
        const Eigen::VectorXi &edge_orders,
        const Eigen::VectorXi &face_orders,
        const bool serendipity,
        const bool has_polys,
        const bool is_geom_bases,
        MeshNodes &nodes,
        std::vector<std::vector<int>> &edge_virtual_nodes,
        std::vector<std::vector<int>> &face_virtual_nodes,
        std::vector<std::vector<int>> &element_nodes_id,
        std::vector<LocalBoundary> &local_boundary,
        std::map<int, InterfaceData> &poly_face_to_data)
    {
        // Step 1: Assign global node ids for each quads
        local_boundary.clear();
        // local_boundary.resize(mesh.n_faces());
        element_nodes_id.resize(mesh.n_faces());
 
        if (!mesh.is_conforming())
        {
            const auto &ncmesh = dynamic_cast<const NCMesh3D &>(mesh);
            edge_virtual_nodes.resize(ncmesh.n_edges());
            face_virtual_nodes.resize(ncmesh.n_faces());
        }
 
        for (int c = 0; c < mesh.n_cells(); ++c)
        {
            const int discr_order = discr_ordersp(c);
            const int discr_orderq = discr_ordersq(c);
 
            if (mesh.is_cube(c))
            {
                hex_local_to_global(serendipity, discr_order, mesh, c, discr_ordersp, element_nodes_id[c], nodes);
 
                auto v = hex_vertices_local_to_global(mesh, c);
                Eigen::Matrix<int, 6, 4> fv;
                fv.row(0) << v[0], v[3], v[4], v[7];
                fv.row(1) << v[1], v[2], v[5], v[6];
                fv.row(2) << v[0], v[1], v[5], v[4];
                fv.row(3) << v[3], v[2], v[6], v[7];
                fv.row(4) << v[0], v[1], v[2], v[3];
                fv.row(5) << v[4], v[5], v[6], v[7];
 
                LocalBoundary lb(c, BoundaryType::QUAD);
                for (int i = 0; i < fv.rows(); ++i)
                {
                    const int f = find_quad_face(mesh, c, fv(i, 0), fv(i, 1), fv(i, 2), fv(i, 3)).face;
 
                    if (mesh.is_boundary_face(f) || mesh.get_boundary_id(f) > 0)
                    {
                        lb.add_boundary_primitive(f, i);
                    }
                }
 
                if (!lb.empty())
                    local_boundary.emplace_back(lb);
            }
            else if (mesh.is_simplex(c))
            {
                // element_nodes_id[c] = polyfem::LagrangeBasis3d::tet_local_to_global(discr_order, mesh, c, discr_orders, nodes);
                tet_local_to_global(is_geom_bases, discr_order, mesh, c, discr_ordersp, edge_orders, face_orders, element_nodes_id[c], nodes, edge_virtual_nodes, face_virtual_nodes);
 
                auto v = tet_vertices_local_to_global(mesh, c);
                Eigen::Matrix<int, 4, 3> fv;
                fv.row(0) << v[0], v[1], v[2];
                fv.row(1) << v[0], v[1], v[3];
                fv.row(2) << v[1], v[2], v[3];
                fv.row(3) << v[2], v[0], v[3];
 
                LocalBoundary lb(c, BoundaryType::TRI);
                for (long i = 0; i < fv.rows(); ++i)
                {
                    const int f = mesh.get_index_from_element_face(c, fv(i, 0), fv(i, 1), fv(i, 2)).face;
 
                    if (mesh.is_boundary_face(f))
                    {
                        lb.add_boundary_primitive(f, i);
                    }
                }
 
                if (!lb.empty())
                    local_boundary.emplace_back(lb);
            }
            else if (mesh.is_prism(c))
            {
                // todo non conforming prisms
                prism_local_to_global(discr_order, discr_orderq, mesh, c, discr_ordersp, element_nodes_id[c], nodes);
 
                auto v = prism_vertices_local_to_global(mesh, c);
                Eigen::Matrix<int, 2, 3> fvt;
                fvt.row(0) << v[0], v[1], v[2];
                fvt.row(1) << v[3], v[4], v[5];
 
                LocalBoundary lb(c, BoundaryType::PRISM);
                for (long i = 0; i < fvt.rows(); ++i)
                {
                    const int f = mesh.get_index_from_element_face(c, fvt(i, 0), fvt(i, 1), fvt(i, 2)).face;
 
                    if (mesh.is_boundary_face(f))
                    {
                        lb.add_boundary_primitive(f, i);
                    }
                }
 
                Eigen::Matrix<int, 3, 4> fvq;
                fvq.row(0) << v[0], v[1], v[4], v[3];
                fvq.row(1) << v[1], v[2], v[5], v[4];
                fvq.row(2) << v[2], v[0], v[3], v[5];
 
                for (long i = 0; i < fvq.rows(); ++i)
                {
                    const int f = find_quad_face(mesh, c, fvq(i, 0), fvq(i, 1), fvq(i, 2), fvq(i, 3)).face;
 
                    if (mesh.is_boundary_face(f))
                    {
                        lb.add_boundary_primitive(f, i + 2);
                    }
                }
 
                if (!lb.empty())
                    local_boundary.emplace_back(lb);
            }
        }
 
        if (!has_polys)
            return;
 
        // Step 2: Iterate over edges of polygons and compute interface weights
        Eigen::VectorXi indices;
        for (int c = 0; c < mesh.n_cells(); ++c)
        {
            // Skip non-polytopes
            if (!mesh.is_polytope(c))
            {
                continue;
            }
 
            for (int lf = 0; lf < mesh.n_cell_faces(c); ++lf)
            {
                auto index = mesh.get_index_from_element(c, lf, 0);
                auto index2 = mesh.switch_element(index);
                int c2 = index2.element;
                assert(c2 >= 0);
 
                const int discr_order = discr_ordersp(c2);
                const int discr_orderq = discr_ordersq(c2);
                if (mesh.is_cube(c2))
                {
                    indices = LagrangeBasis3d::hex_face_local_nodes(serendipity, discr_order, mesh, index2);
                }
                else if (mesh.is_simplex(c2))
                {
                    indices = LagrangeBasis3d::tet_face_local_nodes(discr_order, mesh, index2);
                }
                else if (mesh.is_prism(c2))
                {
                    indices = LagrangeBasis3d::prism_face_local_nodes(discr_order, discr_orderq, mesh, index2);
                }
                else
                    continue;
 
                InterfaceData data;
                data.local_indices.insert(data.local_indices.begin(), indices.data(), indices.data() + indices.size());
                assert(indices.size() == data.local_indices.size());
                poly_face_to_data[index2.face] = data;
            }
        }
    }
    void local_to_global(const Eigen::MatrixXd &verts, const Eigen::MatrixXd &uv, Eigen::MatrixXd &pts)
    {
        const int dim = verts.cols();
        const int N = uv.rows();
        assert(dim == 3);
        assert(uv.cols() == dim);
        assert(verts.rows() == dim + 1);
 
        pts.setZero(N, dim);
        for (int i = 0; i < N; i++)
            pts.row(i) = uv(i, 0) * verts.row(1) + uv(i, 1) * verts.row(2) + uv(i, 2) * verts.row(3) + (1.0 - uv(i, 0) - uv(i, 1) - uv(i, 2)) * verts.row(0);
    }
 
    void local_to_global_face(const Eigen::MatrixXd &verts, const Eigen::MatrixXd &uv, Eigen::MatrixXd &pts)
    {
        const int dim = verts.cols();
        const int N = uv.rows();
        assert(dim == 3);
        assert(uv.cols() == 2);
        assert(verts.rows() == 3);
 
        pts.setZero(N, dim);
        for (int i = 0; i < N; i++)
            pts.row(i) = uv(i, 0) * verts.row(1) + uv(i, 1) * verts.row(2) + (1.0 - uv(i, 0) - uv(i, 1)) * verts.row(0);
    }
 
    void global_to_local(const Eigen::MatrixXd &verts, const Eigen::MatrixXd &pts, Eigen::MatrixXd &uv)
    {
        const int dim = verts.cols();
        const int N = pts.rows();
        assert(dim == 3);
        assert(verts.rows() == dim + 1);
        assert(pts.cols() == dim);
 
        Eigen::Matrix3d J;
        for (int i = 0; i < dim; i++)
            J.col(i) = verts.row(i + 1) - verts.row(0);
 
        Eigen::Matrix3d Jinv = J.inverse();
 
        uv.setZero(N, dim);
        polyfem::utils::maybe_parallel_for(N, [&](int start, int end, int thread_id) {
            for (int i = start; i < end; i++)
            {
                auto point = pts.row(i) - verts.row(0);
                uv.row(i) = Jinv * point.transpose();
            }
        });
    }
 
    void global_to_local_face(const Eigen::MatrixXd &verts, const Eigen::MatrixXd &pts, Eigen::MatrixXd &uv)
    {
        const int dim = verts.cols();
        const int N = pts.rows();
        assert(dim == 3);
        assert(verts.rows() == 3);
        assert(pts.cols() == dim);
 
        Eigen::Matrix3d J;
        for (int i = 0; i < 2; i++)
            J.col(i) = verts.row(i + 1) - verts.row(0);
 
        Eigen::Vector3d a = J.col(0);
        Eigen::Vector3d b = J.col(1);
        Eigen::Vector3d virtual_vert = a.cross(b);
        J.col(2) = virtual_vert;
 
        uv.setZero(N, 2);
        polyfem::utils::maybe_parallel_for(N, [&](int start, int end, int thread_id) {
            for (int i = start; i < end; i++)
            {
                auto point = pts.row(i) - verts.row(0);
                Eigen::Vector3d x = J.colPivHouseholderQr().solve(point.transpose());
                uv.row(i) = x.block(0, 0, 2, 1);
                assert(std::abs(x(2)) < 1e-8);
            }
        });
    }
 
    void global_to_local_edge(const Eigen::MatrixXd &verts, const Eigen::MatrixXd &pts, Eigen::VectorXd &uv)
    {
        const int dim = verts.cols();
        const int N = pts.rows();
        assert(dim == 3);
        assert(verts.rows() == 2);
        assert(pts.cols() == dim);
 
        auto edge = verts.row(1) - verts.row(0);
        double squared_length = edge.squaredNorm();
 
        uv.setZero(N);
        polyfem::utils::maybe_parallel_for(N, [&](int start, int end, int thread_id) {
            for (int i = start; i < end; i++)
            {
                auto vec = pts.row(i) - verts.row(0);
                uv(i) = (vec.dot(edge)) / squared_length;
            }
        });
    }
 
    bool check_edge_face_orders(const polyfem::mesh::NCMesh3D &mesh, const Eigen::VectorXi &elem_orders, const Eigen::VectorXi &edge_orders, const Eigen::VectorXi &face_orders)
    {
        // same order for overlapping faces
        for (int i = 0; i < mesh.n_faces(); i++)
            if (mesh.leader_face_of_face(i) >= 0)
                if (face_orders[mesh.leader_face_of_face(i)] != face_orders[i])
                    return false;
 
        // face order no smaller than order of its edges
        for (int i = 0; i < mesh.n_faces(); i++)
        {
            if (mesh.n_face_cells(i) == 0)
                continue;
            for (int j = 0; j < mesh.n_face_vertices(i); j++)
            {
                const int e_id = mesh.face_edge(i, j);
                if (edge_orders[e_id] > face_orders[i])
                    return false;
            }
        }
 
        // same order for overlapping edges
        for (int i = 0; i < mesh.n_edges(); i++)
            if (mesh.leader_edge_of_edge(i) >= 0)
                if (edge_orders[mesh.leader_edge_of_edge(i)] != edge_orders[i])
                    return false;
 
        // face order no larger than order of interior edges
        for (int i = 0; i < mesh.n_edges(); i++)
        {
            if (mesh.n_edge_cells(i) == 0)
                continue;
            if (mesh.leader_face_of_edge(i) >= 0 && mesh.leader_edge_of_edge(i) < 0)
                if (face_orders[mesh.leader_face_of_edge(i)] > edge_orders[i])
                    return false;
        }
        return true;
    }
 
    void compute_edge_face_orders(const polyfem::mesh::NCMesh3D &mesh, const Eigen::VectorXi &elem_orders, Eigen::VectorXi &edge_orders, Eigen::VectorXi &face_orders)
    {
        const int max_order = elem_orders.maxCoeff();
        edge_orders.setConstant(mesh.n_edges(), max_order);
        face_orders.setConstant(mesh.n_faces(), max_order);
 
        for (int i = 0; i < mesh.n_cells(); i++)
            for (int j = 0; j < mesh.n_cell_faces(i); j++)
                face_orders[mesh.cell_face(i, j)] = std::min(face_orders[mesh.cell_face(i, j)], elem_orders[i]);
 
        for (int i = 0; i < mesh.n_cells(); i++)
            for (int j = 0; j < mesh.n_cell_edges(i); j++)
                edge_orders[mesh.cell_edge(i, j)] = std::min(edge_orders[mesh.cell_edge(i, j)], elem_orders[i]);
 
        while (!check_edge_face_orders(mesh, elem_orders, edge_orders, face_orders))
        {
            // same order for overlapping faces
            for (int i = 0; i < mesh.n_faces(); i++)
                if (mesh.leader_face_of_face(i) >= 0)
                    face_orders[mesh.leader_face_of_face(i)] = std::min(face_orders[mesh.leader_face_of_face(i)], face_orders[i]);
 
            for (int i = 0; i < mesh.n_faces(); i++)
                if (mesh.leader_face_of_face(i) >= 0)
                    face_orders[i] = std::min(face_orders[mesh.leader_face_of_face(i)], face_orders[i]);
 
            // face order no smaller than order of its edges
            for (int i = 0; i < mesh.n_faces(); i++)
            {
                if (mesh.n_face_cells(i) == 0)
                    continue;
                for (int j = 0; j < mesh.n_face_vertices(i); j++)
                {
                    const int e_id = mesh.face_edge(i, j);
                    edge_orders[e_id] = std::min(edge_orders[e_id], face_orders[i]);
                }
            }
 
            // same order for overlapping edges
            for (int i = 0; i < mesh.n_edges(); i++)
                if (mesh.leader_edge_of_edge(i) >= 0)
                    edge_orders[mesh.leader_edge_of_edge(i)] = std::min(edge_orders[mesh.leader_edge_of_edge(i)], edge_orders[i]);
 
            for (int i = 0; i < mesh.n_edges(); i++)
                if (mesh.leader_edge_of_edge(i) >= 0)
                    edge_orders[i] = std::min(edge_orders[mesh.leader_edge_of_edge(i)], edge_orders[i]);
 
            // face order no larger than order of interior edges
            for (int i = 0; i < mesh.n_edges(); i++)
            {
                if (mesh.n_edge_cells(i) == 0)
                    continue;
                if (mesh.leader_face_of_edge(i) >= 0 && mesh.leader_edge_of_edge(i) < 0)
                    face_orders[mesh.leader_face_of_edge(i)] = std::min(face_orders[mesh.leader_face_of_edge(i)], edge_orders[i]);
            }
        }
    }
} // anonymous namespace
 
Eigen::VectorXi LagrangeBasis3d::tet_face_local_nodes(const int p, const Mesh3D &mesh, Navigation3D::Index index)
{
    const int nn = p > 2 ? (p - 2) : 0;
    const int n_edge_nodes = (p - 1) * 6;
    const int n_face_nodes = nn * (nn + 1) / 2;
 
    const int c = index.element;
    assert(mesh.is_simplex(c));
 
    // Local to global mapping of node indices
    const auto l2g = tet_vertices_local_to_global(mesh, c);
 
    // Extract requested interface
    Eigen::VectorXi result(3 + (p - 1) * 3 + n_face_nodes);
    result[0] = find_index(l2g.begin(), l2g.end(), index.vertex);
    result[1] = find_index(l2g.begin(), l2g.end(), mesh.next_around_face(index).vertex);
    result[2] = find_index(l2g.begin(), l2g.end(), mesh.next_around_face(mesh.next_around_face(index)).vertex);
 
    Eigen::Matrix<Navigation3D::Index, 6, 1> e;
    Eigen::Matrix<int, 6, 2> ev;
    ev.row(0) << l2g[0], l2g[1];
    ev.row(1) << l2g[1], l2g[2];
    ev.row(2) << l2g[2], l2g[0];
 
    ev.row(3) << l2g[0], l2g[3];
    ev.row(4) << l2g[1], l2g[3];
    ev.row(5) << l2g[2], l2g[3];
 
    Navigation3D::Index tmp = index;
 
    for (int le = 0; le < e.rows(); ++le)
    {
        // const auto index =  find_edge(mesh, c, ev(le, 0), ev(le, 1));
        const auto l_index = mesh.get_index_from_element_edge(c, ev(le, 0), ev(le, 1));
        e[le] = l_index;
    }
 
    int ii = 3;
    for (int k = 0; k < 3; ++k)
    {
        bool reverse = false;
        int le = 0;
        for (; le < ev.rows(); ++le)
        {
            // const auto l_index =  find_edge(mesh, c, ev(le, 0), ev(le, 1));
            // const auto l_index = mesh.get_index_from_element_edge(c, ev(le, 0), ev(le, 1));
            const auto l_index = e[le];
            if (l_index.edge == tmp.edge)
            {
                if (l_index.vertex == tmp.vertex)
                    reverse = false;
                else
                {
                    reverse = true;
                    if (mesh.switch_vertex(tmp).vertex != l_index.vertex)
                        assert(false);
                }
 
                break;
            }
        }
        assert(le < 6);
 
        if (!reverse)
        {
 
            for (int i = 0; i < p - 1; ++i)
            {
                result[ii++] = 4 + le * (p - 1) + i;
            }
        }
        else
        {
            for (int i = 0; i < p - 1; ++i)
            {
                result[ii++] = 4 + (le + 1) * (p - 1) - i - 1;
            }
        }
 
        tmp = mesh.next_around_face(tmp);
    }
 
    // faces
 
    Eigen::Matrix<int, 4, 3> fv;
    fv.row(0) << l2g[0], l2g[1], l2g[2];
    fv.row(1) << l2g[0], l2g[1], l2g[3];
    fv.row(2) << l2g[1], l2g[2], l2g[3];
    fv.row(3) << l2g[2], l2g[0], l2g[3];
 
    long lf = 0;
    for (; lf < fv.rows(); ++lf)
    {
        const auto l_index = mesh.get_index_from_element_face(c, fv(lf, 0), fv(lf, 1), fv(lf, 2));
        if (l_index.face == index.face)
            break;
    }
 
    assert(lf < fv.rows());
 
    if (n_face_nodes == 0)
    {
    }
    else if (n_face_nodes == 1)
        result[ii++] = 4 + n_edge_nodes + lf;
    else // if (n_face_nodes == 3)
    {
 
        const auto get_order = [&p, &nn, &n_face_nodes](const std::array<int, 3> &corners) {
            int index;
            int start;
            int offset;
 
            std::vector<int> order1(n_face_nodes); // A-> B
            for (int k = 0; k < n_face_nodes; ++k)
                order1[k] = k;
 
            std::vector<int> order2(n_face_nodes); // B-> A
            index = 0;
            start = nn - 1;
            for (int k = 0; k < nn; ++k)
            {
                for (int l = 0; l < nn - k; ++l)
                {
                    order2[index] = start - l;
                    index++;
                }
                start += (nn - 1) - k;
            }
 
            std::vector<int> order3(n_face_nodes); // A->C
            index = 0;
            for (int k = 0; k < nn; ++k)
            {
                offset = k;
                for (int l = 0; l < nn - k; ++l)
                {
                    order3[index] = offset;
                    offset += nn - l;
 
                    index++;
                }
            }
 
            std::vector<int> order4(n_face_nodes); // C-> A
            index = 0;
            start = n_face_nodes - 1;
            for (int k = 0; k < nn; ++k)
            {
                offset = 0;
                for (int l = 0; l < nn - k; ++l)
                {
                    order4[index] = start - offset;
                    offset += k + 2 + l;
                    index++;
                }
 
                start += -k - 1;
            }
 
            std::vector<int> order5(n_face_nodes); // B-> C
            index = 0;
            start = nn - 1;
            for (int k = 0; k < nn; ++k)
            {
                offset = 0;
                for (int l = 0; l < nn - k; ++l)
                {
                    order5[index] = start + offset;
                    offset += nn - 1 - l;
                    index++;
                }
 
                start--;
            }
 
            std::vector<int> order6(n_face_nodes); // C-> B
            index = 0;
            start = n_face_nodes;
            for (int k = 0; k < nn; ++k)
            {
                offset = 0;
                start = start - k - 1;
                for (int l = 0; l < nn - k; ++l)
                {
                    order6[index] = start - offset;
                    offset += l + 1 + k;
                    index++;
                }
            }
 
            if (corners[0] == order1[0] && corners[1] == order1[nn - 1])
            {
                assert(corners[2] == order1[n_face_nodes - 1]);
                return order1;
            }
 
            if (corners[0] == order2[0] && corners[1] == order2[nn - 1])
            {
                assert(corners[2] == order2[n_face_nodes - 1]);
                return order2;
            }
 
            if (corners[0] == order3[0] && corners[1] == order3[nn - 1])
            {
                assert(corners[2] == order3[n_face_nodes - 1]);
                return order3;
            }
 
            if (corners[0] == order4[0] && corners[1] == order4[nn - 1])
            {
                assert(corners[2] == order4[n_face_nodes - 1]);
                return order4;
            }
 
            if (corners[0] == order5[0] && corners[1] == order5[nn - 1])
            {
                assert(corners[2] == order5[n_face_nodes - 1]);
                return order5;
            }
 
            if (corners[0] == order6[0] && corners[1] == order6[nn - 1])
            {
                assert(corners[2] == order6[n_face_nodes - 1]);
                return order6;
            }
 
            assert(false);
            return order1;
        };
 
        Eigen::MatrixXd nodes;
        autogen::p_nodes_3d(p, nodes);
        // auto pos = LagrangeBasis3d::linear_tet_face_local_nodes_coordinates(mesh, index);
        // Local to global mapping of node indices
 
        // Extract requested interface
        std::array<int, 3> idx;
        for (int lv = 0; lv < 3; ++lv)
        {
            idx[lv] = find_index(l2g.begin(), l2g.end(), index.vertex);
            index = mesh.next_around_face(index);
        }
        Eigen::Matrix3d pos(3, 3);
        int cnt = 0;
        for (int i : idx)
        {
            pos.row(cnt++) = nodes.row(i);
        }
 
        const Eigen::RowVector3d bary = pos.colwise().mean();
 
        const int offset = 4 + n_edge_nodes;
        bool found = false;
        for (int lff = 0; lff < 4; ++lff)
        {
            Eigen::MatrixXd loc_nodes = nodes.block(offset + lff * n_face_nodes, 0, n_face_nodes, 3);
            Eigen::RowVector3d node_bary = loc_nodes.colwise().mean();
 
            if ((node_bary - bary).norm() < 1e-10)
            {
                std::array<int, 3> corners;
                int sum = 0;
                for (int m = 0; m < 3; ++m)
                {
                    auto t = pos.row(m);
                    int min_n = -1;
                    double min_dis = 10000;
 
                    for (int n = 0; n < n_face_nodes; ++n)
                    {
                        double dis = (loc_nodes.row(n) - t).squaredNorm();
                        if (dis < min_dis)
                        {
                            min_dis = dis;
                            min_n = n;
                        }
                    }
 
                    assert(min_n >= 0);
                    assert(min_n < n_face_nodes);
                    corners[m] = min_n;
                }
 
                const auto indices = get_order(corners);
                for (int min_n : indices)
                {
                    sum += min_n;
                    result[ii++] = 4 + n_edge_nodes + min_n + lf * n_face_nodes;
                }
 
                assert(sum == (n_face_nodes - 1) * n_face_nodes / 2);
 
                found = true;
                assert(lff == lf);
 
                break;
            }
        }
 
        assert(found);
    }
    // else
    // {
    //  assert(n_face_nodes == 0);
    // }
 
    assert(ii == result.size());
    return result;
}
 
Eigen::VectorXi LagrangeBasis3d::hex_face_local_nodes(const bool serendipity, const int q, const Mesh3D &mesh, Navigation3D::Index index)
{
    const int nn = q - 1;
    const int n_edge_nodes = nn * 12;
    const int n_face_nodes = serendipity ? 0 : nn * nn;
 
    const int c = index.element;
    assert(mesh.is_cube(c));
 
    // Local to global mapping of node indices
    const auto l2g = hex_vertices_local_to_global(mesh, c);
 
    // Extract requested interface
    Eigen::VectorXi result(4 + nn * 4 + n_face_nodes);
    result[0] = find_index(l2g.begin(), l2g.end(), index.vertex);
    result[1] = find_index(l2g.begin(), l2g.end(), mesh.next_around_face(index).vertex);
    result[2] = find_index(l2g.begin(), l2g.end(), mesh.next_around_face(mesh.next_around_face(index)).vertex);
    result[3] = find_index(l2g.begin(), l2g.end(), mesh.next_around_face(mesh.next_around_face(mesh.next_around_face(index))).vertex);
 
    Eigen::Matrix<Navigation3D::Index, 12, 1> e;
    Eigen::Matrix<int, 12, 2> ev;
    ev.row(0) << l2g[0], l2g[1];
    ev.row(1) << l2g[1], l2g[2];
    ev.row(2) << l2g[2], l2g[3];
    ev.row(3) << l2g[3], l2g[0];
    ev.row(4) << l2g[0], l2g[4];
    ev.row(5) << l2g[1], l2g[5];
    ev.row(6) << l2g[2], l2g[6];
    ev.row(7) << l2g[3], l2g[7];
    ev.row(8) << l2g[4], l2g[5];
    ev.row(9) << l2g[5], l2g[6];
    ev.row(10) << l2g[6], l2g[7];
    ev.row(11) << l2g[7], l2g[4];
 
    Navigation3D::Index tmp = index;
 
    for (int le = 0; le < e.rows(); ++le)
    {
        const auto l_index = mesh.get_index_from_element_edge(c, ev(le, 0), ev(le, 1));
        e[le] = l_index;
    }
 
    int ii = 4;
    for (int k = 0; k < 4; ++k)
    {
        bool reverse = false;
        int le = 0;
        for (; le < ev.rows(); ++le)
        {
            // const auto l_index =  find_edge(mesh, c, ev(le, 0), ev(le, 1));
            // const auto l_index = mesh.get_index_from_element_edge(c, ev(le, 0), ev(le, 1));
            const auto l_index = e[le];
            if (l_index.edge == tmp.edge)
            {
                if (l_index.vertex == tmp.vertex)
                    reverse = false;
                else
                {
                    reverse = true;
                    assert(mesh.switch_vertex(tmp).vertex == l_index.vertex);
                }
 
                break;
            }
        }
        assert(le < 12);
 
        if (!reverse)
        {
 
            for (int i = 0; i < q - 1; ++i)
            {
                result[ii++] = 8 + le * (q - 1) + i;
            }
        }
        else
        {
            for (int i = 0; i < q - 1; ++i)
            {
                result[ii++] = 8 + (le + 1) * (q - 1) - i - 1;
            }
        }
 
        tmp = mesh.next_around_face(tmp);
    }
 
    // faces
 
    Eigen::Matrix<int, 6, 4> fv;
    fv.row(0) << l2g[0], l2g[3], l2g[4], l2g[7];
    fv.row(1) << l2g[1], l2g[2], l2g[5], l2g[6];
    fv.row(2) << l2g[0], l2g[1], l2g[5], l2g[4];
    fv.row(3) << l2g[3], l2g[2], l2g[6], l2g[7];
    fv.row(4) << l2g[0], l2g[1], l2g[2], l2g[3];
    fv.row(5) << l2g[4], l2g[5], l2g[6], l2g[7];
 
    long lf = 0;
    for (; lf < fv.rows(); ++lf)
    {
        const auto l_index = find_quad_face(mesh, c, fv(lf, 0), fv(lf, 1), fv(lf, 2), fv(lf, 3));
        if (l_index.face == index.face)
            break;
    }
 
    assert(lf < fv.rows());
 
    if (n_face_nodes == 1)
        result[ii++] = 8 + n_edge_nodes + lf;
    else if (n_face_nodes != 0)
    {
        Eigen::MatrixXd nodes;
        autogen::q_nodes_3d(q, nodes);
        // auto pos = LagrangeBasis3d::linear_tet_face_local_nodes_coordinates(mesh, index);
        // Local to global mapping of node indices
 
        // Extract requested interface
        std::array<int, 4> idx;
        for (int lv = 0; lv < 4; ++lv)
        {
            idx[lv] = find_index(l2g.begin(), l2g.end(), index.vertex);
            index = mesh.next_around_face(index);
        }
        Eigen::Matrix<double, 4, 3> pos(4, 3);
        int cnt = 0;
        for (int i : idx)
        {
            pos.row(cnt++) = nodes.row(i);
        }
 
        const Eigen::RowVector3d bary = pos.colwise().mean();
 
        const int offset = 8 + n_edge_nodes;
        bool found = false;
        for (int lff = 0; lff < 6; ++lff)
        {
            Eigen::Matrix<double, 4, 3> loc_nodes = nodes.block<4, 3>(offset + lff * n_face_nodes, 0);
            Eigen::RowVector3d node_bary = loc_nodes.colwise().mean();
 
            if ((node_bary - bary).norm() < 1e-10)
            {
                int sum = 0;
                for (int m = 0; m < 4; ++m)
                {
                    auto t = pos.row(m);
                    int min_n = -1;
                    double min_dis = 10000;
 
                    for (int n = 0; n < 4; ++n)
                    {
                        double dis = (loc_nodes.row(n) - t).squaredNorm();
                        if (dis < min_dis)
                        {
                            min_dis = dis;
                            min_n = n;
                        }
                    }
 
                    assert(min_n >= 0);
                    assert(min_n < 4);
 
                    sum += min_n;
 
                    result[ii++] = 8 + n_edge_nodes + min_n + lf * n_face_nodes;
                }
 
                assert(sum == 6); // 0 + 1 + 2 + 3
 
                found = true;
                assert(lff == lf);
            }
 
            if (found)
                break;
        }
 
        assert(found);
    }
 
    assert(ii == result.size());
    return result;
}
 
Eigen::VectorXi LagrangeBasis3d::prism_face_local_nodes(const int p, const int q, const Mesh3D &mesh, Navigation3D::Index index)
{
    const int c = index.element;
    assert(mesh.is_prism(c));
 
    // Local to global mapping of node indices
    const auto l2g = prism_vertices_local_to_global(mesh, c);
 
    const int global_n_edges_nodes = (p - 1) * 6 + (q - 1) * 3;
 
    if (mesh.n_face_vertices(index.face) == 3)
    {
        const int nn = p > 2 ? (p - 2) : 0;
        const int n_edge_nodes = (p - 1) * 6;
        const int n_face_nodes = nn * (nn + 1) / 2;
 
        // Extract requested interface
        Eigen::VectorXi result(3 + (p - 1) * 3 + n_face_nodes);
        result[0] = find_index(l2g.begin(), l2g.end(), index.vertex);
        result[1] = find_index(l2g.begin(), l2g.end(), mesh.next_around_face(index).vertex);
        result[2] = find_index(l2g.begin(), l2g.end(), mesh.next_around_face(mesh.next_around_face(index)).vertex);
 
        Eigen::Matrix<Navigation3D::Index, 6, 1> e;
        Eigen::Matrix<int, 6, 2> ev;
        ev.row(0) << l2g[0], l2g[1];
        ev.row(1) << l2g[1], l2g[2];
        ev.row(2) << l2g[2], l2g[0];
 
        ev.row(3) << l2g[3], l2g[4];
        ev.row(4) << l2g[4], l2g[5];
        ev.row(5) << l2g[5], l2g[3];
 
        Navigation3D::Index tmp = index;
 
        for (int le = 0; le < e.rows(); ++le)
        {
            // const auto index =  find_edge(mesh, c, ev(le, 0), ev(le, 1));
            const auto l_index = mesh.get_index_from_element_edge(c, ev(le, 0), ev(le, 1));
            e[le] = l_index;
        }
 
        int ii = 3;
        for (int k = 0; k < 3; ++k)
        {
            bool reverse = false;
            int le = 0;
            for (; le < ev.rows(); ++le)
            {
                // const auto l_index =  find_edge(mesh, c, ev(le, 0), ev(le, 1));
                // const auto l_index = mesh.get_index_from_element_edge(c, ev(le, 0), ev(le, 1));
                const auto l_index = e[le];
                if (l_index.edge == tmp.edge)
                {
                    if (l_index.vertex == tmp.vertex)
                        reverse = false;
                    else
                    {
                        reverse = true;
                        if (mesh.switch_vertex(tmp).vertex != l_index.vertex)
                            assert(false);
                    }
 
                    break;
                }
            }
            assert(le < 6);
 
            if (!reverse)
            {
 
                for (int i = 0; i < p - 1; ++i)
                {
                    result[ii++] = 6 + le * (p - 1) + i;
                }
            }
            else
            {
                for (int i = 0; i < p - 1; ++i)
                {
                    result[ii++] = 6 + (le + 1) * (p - 1) - i - 1;
                }
            }
 
            tmp = mesh.next_around_face(tmp);
        }
 
        // faces
 
        Eigen::Matrix<int, 2, 3> fv;
        fv.row(0) << l2g[0], l2g[1], l2g[2];
        fv.row(1) << l2g[3], l2g[4], l2g[5];
 
        long lf = 0;
        for (; lf < fv.rows(); ++lf)
        {
            const auto l_index = mesh.get_index_from_element_face(c, fv(lf, 0), fv(lf, 1), fv(lf, 2));
            if (l_index.face == index.face)
                break;
        }
 
        assert(lf < fv.rows());
 
        if (n_face_nodes == 0)
        {
        }
        else if (n_face_nodes == 1)
            result[ii++] = 6 + global_n_edges_nodes + lf;
        else // if (n_face_nodes == 3)
        {
 
            const auto get_order = [&p, &q, &nn, &n_face_nodes](const std::array<int, 3> &corners) {
                int index;
                int start;
                int offset;
 
                std::vector<int> order1(n_face_nodes); // A-> B
                for (int k = 0; k < n_face_nodes; ++k)
                    order1[k] = k;
 
                std::vector<int> order2(n_face_nodes); // B-> A
                index = 0;
                start = nn - 1;
                for (int k = 0; k < nn; ++k)
                {
                    for (int l = 0; l < nn - k; ++l)
                    {
                        order2[index] = start - l;
                        index++;
                    }
                    start += (nn - 1) - k;
                }
 
                std::vector<int> order3(n_face_nodes); // A->C
                index = 0;
                for (int k = 0; k < nn; ++k)
                {
                    offset = k;
                    for (int l = 0; l < nn - k; ++l)
                    {
                        order3[index] = offset;
                        offset += nn - l;
 
                        index++;
                    }
                }
 
                std::vector<int> order4(n_face_nodes); // C-> A
                index = 0;
                start = n_face_nodes - 1;
                for (int k = 0; k < nn; ++k)
                {
                    offset = 0;
                    for (int l = 0; l < nn - k; ++l)
                    {
                        order4[index] = start - offset;
                        offset += k + 2 + l;
                        index++;
                    }
 
                    start += -k - 1;
                }
 
                std::vector<int> order5(n_face_nodes); // B-> C
                index = 0;
                start = nn - 1;
                for (int k = 0; k < nn; ++k)
                {
                    offset = 0;
                    for (int l = 0; l < nn - k; ++l)
                    {
                        order5[index] = start + offset;
                        offset += nn - 1 - l;
                        index++;
                    }
 
                    start--;
                }
 
                std::vector<int> order6(n_face_nodes); // C-> B
                index = 0;
                start = n_face_nodes;
                for (int k = 0; k < nn; ++k)
                {
                    offset = 0;
                    start = start - k - 1;
                    for (int l = 0; l < nn - k; ++l)
                    {
                        order6[index] = start - offset;
                        offset += l + 1 + k;
                        index++;
                    }
                }
 
                if (corners[0] == order1[0] && corners[1] == order1[nn - 1])
                {
                    assert(corners[2] == order1[n_face_nodes - 1]);
                    return order1;
                }
 
                if (corners[0] == order2[0] && corners[1] == order2[nn - 1])
                {
                    assert(corners[2] == order2[n_face_nodes - 1]);
                    return order2;
                }
 
                if (corners[0] == order3[0] && corners[1] == order3[nn - 1])
                {
                    assert(corners[2] == order3[n_face_nodes - 1]);
                    return order3;
                }
 
                if (corners[0] == order4[0] && corners[1] == order4[nn - 1])
                {
                    assert(corners[2] == order4[n_face_nodes - 1]);
                    return order4;
                }
 
                if (corners[0] == order5[0] && corners[1] == order5[nn - 1])
                {
                    assert(corners[2] == order5[n_face_nodes - 1]);
                    return order5;
                }
 
                if (corners[0] == order6[0] && corners[1] == order6[nn - 1])
                {
                    assert(corners[2] == order6[n_face_nodes - 1]);
                    return order6;
                }
 
                assert(false);
                return order1;
            };
 
            Eigen::MatrixXd nodes;
            autogen::prism_nodes_3d(p, q, nodes);
            // auto pos = LagrangeBasis3d::linear_tet_face_local_nodes_coordinates(mesh, index);
            // Local to global mapping of node indices
 
            // Extract requested interface
            std::array<int, 3> idx;
            for (int lv = 0; lv < 3; ++lv)
            {
                idx[lv] = find_index(l2g.begin(), l2g.end(), index.vertex);
                index = mesh.next_around_face(index);
            }
            Eigen::Matrix3d pos(3, 3);
            int cnt = 0;
            for (int i : idx)
            {
                pos.row(cnt++) = nodes.row(i);
            }
 
            const Eigen::RowVector3d bary = pos.colwise().mean();
 
            const int offset = 6 + global_n_edges_nodes;
            bool found = false;
            for (int lff = 0; lff < 2; ++lff)
            {
                Eigen::MatrixXd loc_nodes = nodes.block(offset + lff * n_face_nodes, 0, n_face_nodes, 3);
                Eigen::RowVector3d node_bary = loc_nodes.colwise().mean();
 
                if ((node_bary - bary).norm() < 1e-10)
                {
                    std::array<int, 3> corners;
                    int sum = 0;
                    for (int m = 0; m < 3; ++m)
                    {
                        auto t = pos.row(m);
                        int min_n = -1;
                        double min_dis = 10000;
 
                        for (int n = 0; n < n_face_nodes; ++n)
                        {
                            double dis = (loc_nodes.row(n) - t).squaredNorm();
                            if (dis < min_dis)
                            {
                                min_dis = dis;
                                min_n = n;
                            }
                        }
 
                        assert(min_n >= 0);
                        assert(min_n < n_face_nodes);
                        corners[m] = min_n;
                    }
 
                    const auto indices = get_order(corners);
                    for (int min_n : indices)
                    {
                        sum += min_n;
                        result[ii++] = 6 + global_n_edges_nodes + min_n + lf * n_face_nodes;
                    }
 
                    assert(sum == (n_face_nodes - 1) * n_face_nodes / 2);
 
                    found = true;
                    assert(lff == lf);
 
                    break;
                }
            }
 
            assert(found);
        }
        // else
        // {
        //  assert(n_face_nodes == 0);
        // }
 
        assert(ii == result.size());
        return result;
    }
    else
    {
        const int nn = q - 1;
        const int n_edge_nodes = nn * 12;
        const int n_face_nodes = nn * nn;
 
        // Extract requested interface
        Eigen::VectorXi result(4 + nn * 4 + n_face_nodes);
        result[0] = find_index(l2g.begin(), l2g.end(), index.vertex);
        result[1] = find_index(l2g.begin(), l2g.end(), mesh.next_around_face(index).vertex);
        result[2] = find_index(l2g.begin(), l2g.end(), mesh.next_around_face(mesh.next_around_face(index)).vertex);
        result[3] = find_index(l2g.begin(), l2g.end(), mesh.next_around_face(mesh.next_around_face(mesh.next_around_face(index))).vertex);
 
        Eigen::Matrix<Navigation3D::Index, 9, 1> e;
        Eigen::Matrix<int, 9, 2> ev;
        ev.row(0) << l2g[0], l2g[1];
        ev.row(1) << l2g[1], l2g[2];
        ev.row(2) << l2g[2], l2g[0];
 
        ev.row(3) << l2g[3], l2g[4];
        ev.row(4) << l2g[4], l2g[5];
        ev.row(5) << l2g[5], l2g[3];
 
        ev.row(6) << l2g[0], l2g[3];
        ev.row(7) << l2g[1], l2g[4];
        ev.row(8) << l2g[2], l2g[5];
 
        Navigation3D::Index tmp = index;
 
        for (int le = 0; le < e.rows(); ++le)
        {
            const auto l_index = mesh.get_index_from_element_edge(c, ev(le, 0), ev(le, 1));
            e[le] = l_index;
        }
 
        int ii = 4;
        for (int k = 0; k < 4; ++k)
        {
            bool reverse = false;
            int le = 0;
            for (; le < ev.rows(); ++le)
            {
                // const auto l_index =  find_edge(mesh, c, ev(le, 0), ev(le, 1));
                // const auto l_index = mesh.get_index_from_element_edge(c, ev(le, 0), ev(le, 1));
                const auto l_index = e[le];
                if (l_index.edge == tmp.edge)
                {
                    if (l_index.vertex == tmp.vertex)
                        reverse = false;
                    else
                    {
                        reverse = true;
                        assert(mesh.switch_vertex(tmp).vertex == l_index.vertex);
                    }
 
                    break;
                }
            }
            assert(le < 9);
 
            if (!reverse)
            {
 
                for (int i = 0; i < q - 1; ++i)
                {
                    result[ii++] = 6 + le * (q - 1) + i;
                }
            }
            else
            {
                for (int i = 0; i < q - 1; ++i)
                {
                    result[ii++] = 6 + (le + 1) * (q - 1) - i - 1;
                }
            }
 
            tmp = mesh.next_around_face(tmp);
        }
 
        // faces
 
        Eigen::Matrix<int, 3, 4> fv;
        fv.row(0) << l2g[0], l2g[3], l2g[4], l2g[1];
        fv.row(1) << l2g[1], l2g[4], l2g[5], l2g[2];
        fv.row(2) << l2g[2], l2g[5], l2g[3], l2g[0];
 
        long lf = 0;
        for (; lf < fv.rows(); ++lf)
        {
            const auto l_index = find_quad_face(mesh, c, fv(lf, 0), fv(lf, 1), fv(lf, 2), fv(lf, 3));
            if (l_index.face == index.face)
                break;
        }
 
        assert(lf < fv.rows());
 
        if (n_face_nodes == 1)
            result[ii++] = 6 + global_n_edges_nodes + lf;
        else if (n_face_nodes != 0)
        {
            Eigen::MatrixXd nodes;
            autogen::q_nodes_3d(q, nodes);
            // auto pos = LagrangeBasis3d::linear_tet_face_local_nodes_coordinates(mesh, index);
            // Local to global mapping of node indices
 
            // Extract requested interface
            std::array<int, 4> idx;
            for (int lv = 0; lv < 4; ++lv)
            {
                idx[lv] = find_index(l2g.begin(), l2g.end(), index.vertex);
                index = mesh.next_around_face(index);
            }
            Eigen::Matrix<double, 4, 3> pos(4, 3);
            int cnt = 0;
            for (int i : idx)
            {
                pos.row(cnt++) = nodes.row(i);
            }
 
            const Eigen::RowVector3d bary = pos.colwise().mean();
 
            const int offset = 8 + n_edge_nodes;
            bool found = false;
            for (int lff = 0; lff < 6; ++lff)
            {
                Eigen::Matrix<double, 4, 3> loc_nodes = nodes.block<4, 3>(offset + lff * n_face_nodes, 0);
                Eigen::RowVector3d node_bary = loc_nodes.colwise().mean();
 
                if ((node_bary - bary).norm() < 1e-10)
                {
                    int sum = 0;
                    for (int m = 0; m < 4; ++m)
                    {
                        auto t = pos.row(m);
                        int min_n = -1;
                        double min_dis = 10000;
 
                        for (int n = 0; n < 4; ++n)
                        {
                            double dis = (loc_nodes.row(n) - t).squaredNorm();
                            if (dis < min_dis)
                            {
                                min_dis = dis;
                                min_n = n;
                            }
                        }
 
                        assert(min_n >= 0);
                        assert(min_n < 4);
 
                        sum += min_n;
 
                        result[ii++] = 8 + n_edge_nodes + min_n + lf * n_face_nodes;
                    }
 
                    assert(sum == 6); // 0 + 1 + 2 + 3
 
                    found = true;
                    assert(lff == lf);
                }
 
                if (found)
                    break;
            }
 
            assert(found);
        }
 
        assert(ii == result.size());
        return result;
    }
}
 
int LagrangeBasis3d::build_bases(
    const Mesh3D &mesh,
    const std::string &assembler,
    const int quadrature_order,
    const int mass_quadrature_order,
    const int discr_orderp,
    const int discr_orderq,
    const bool bernstein,
    const bool serendipity,
    const bool has_polys,
    const bool is_geom_bases,
    const bool use_corner_quadrature,
    std::vector<ElementBases> &bases,
    std::vector<LocalBoundary> &local_boundary,
    std::map<int, InterfaceData> &poly_face_to_data,
    std::shared_ptr<MeshNodes> &mesh_nodes)
{
    Eigen::VectorXi discr_ordersp(mesh.n_cells());
    discr_ordersp.setConstant(discr_orderp);
 
    Eigen::VectorXi discr_ordersq(mesh.n_cells());
    discr_ordersq.setConstant(discr_orderq);
 
    return build_bases(mesh, assembler, quadrature_order, mass_quadrature_order, discr_ordersp, discr_ordersq, bernstein, serendipity, has_polys, is_geom_bases, use_corner_quadrature, bases, local_boundary, poly_face_to_data, mesh_nodes);
}
 
int LagrangeBasis3d::build_bases(
    const Mesh3D &mesh,
    const std::string &assembler,
    const int quadrature_order,
    const int mass_quadrature_order,
    const Eigen::VectorXi &discr_ordersp,
    const Eigen::VectorXi &discr_ordersq,
    const bool bernstein,
    const bool serendipity,
    const bool has_polys,
    const bool is_geom_bases,
    const bool use_corner_quadrature,
    std::vector<ElementBases> &bases,
    std::vector<LocalBoundary> &local_boundary,
    std::map<int, InterfaceData> &poly_face_to_data,
    std::shared_ptr<MeshNodes> &mesh_nodes)
{
    assert(mesh.is_volume());
    assert(discr_ordersp.size() == mesh.n_cells());
    assert(discr_ordersq.size() == mesh.n_cells());
 
    // Navigation3D::get_index_from_element_face_time = 0;
    // Navigation3D::switch_vertex_time = 0;
    // Navigation3D::switch_edge_time = 0;
    // Navigation3D::switch_face_time = 0;
    // Navigation3D::switch_element_time = 0;
 
    const int max_p = discr_ordersp.maxCoeff();
    const int max_q = discr_ordersq.maxCoeff();
    const int mmax = std::max(max_p, max_q);
    // assert(max_p < 5); //P5 not supported
 
    const int nn = mmax > 1 ? (mmax - 1) : 0;
    const int n_face_nodes = nn * nn;
    const int n_cells_nodes = nn * nn * nn;
 
    Eigen::VectorXi edge_orders, face_orders;
    if (!mesh.is_conforming())
    {
        const auto &ncmesh = dynamic_cast<const NCMesh3D &>(mesh);
        compute_edge_face_orders(ncmesh, discr_ordersp, edge_orders, face_orders);
    }
 
    mesh_nodes = std::make_shared<MeshNodes>(mesh, has_polys, !is_geom_bases, nn, n_face_nodes * (is_geom_bases ? 2 : 1), mmax == 0 ? 1 : n_cells_nodes);
    MeshNodes &nodes = *mesh_nodes;
    std::vector<std::vector<int>> element_nodes_id, edge_virtual_nodes, face_virtual_nodes;
    compute_nodes(mesh, discr_ordersp, discr_ordersq, edge_orders, face_orders, serendipity, has_polys, is_geom_bases, nodes, edge_virtual_nodes, face_virtual_nodes, element_nodes_id, local_boundary, poly_face_to_data);
    // boundary_nodes = nodes.boundary_nodes();
 
    bases.resize(mesh.n_cells());
    std::vector<int> interface_elements;
    interface_elements.reserve(mesh.n_faces());
 
    for (int e = 0; e < mesh.n_cells(); ++e)
    {
        ElementBases &b = bases[e];
        const int discr_order = discr_ordersp(e);
        const int discr_orderq = discr_ordersq(e);
        const int n_el_bases = (int)element_nodes_id[e].size();
        b.bases.resize(n_el_bases);
 
        bool skip_interface_element = false;
 
        for (int j = 0; j < n_el_bases; ++j)
        {
            const int global_index = element_nodes_id[e][j];
            if (global_index < 0)
            {
                skip_interface_element = true;
                break;
            }
        }
 
        if (skip_interface_element)
        {
            interface_elements.push_back(e);
        }
 
        if (mesh.is_cube(e))
        {
            const int real_order = quadrature_order > 0 ? quadrature_order : AssemblerUtils::quadrature_order(assembler, discr_order, AssemblerUtils::BasisType::CUBE_LAGRANGE, 3);
            const int real_mass_order = mass_quadrature_order > 0 ? mass_quadrature_order : AssemblerUtils::quadrature_order("Mass", discr_order, AssemblerUtils::BasisType::CUBE_LAGRANGE, 3);
            b.set_quadrature([real_order](Quadrature &quad) {
                HexQuadrature hex_quadrature;
                hex_quadrature.get_quadrature(real_order, quad);
            });
            b.set_mass_quadrature([real_mass_order](Quadrature &quad) {
                HexQuadrature hex_quadrature;
                hex_quadrature.get_quadrature(real_mass_order, quad);
            });
 
            b.set_local_node_from_primitive_func([serendipity, discr_order, e](const int primitive_id, const Mesh &mesh) {
                const auto &mesh3d = dynamic_cast<const Mesh3D &>(mesh);
                Navigation3D::Index index;
 
                for (int lf = 0; lf < 6; ++lf)
                {
                    index = mesh3d.get_index_from_element(e, lf, 0);
                    if (index.face == primitive_id)
                        break;
                }
                assert(index.face == primitive_id);
                return hex_face_local_nodes(serendipity, discr_order, mesh3d, index);
            });
 
            for (int j = 0; j < n_el_bases; ++j)
            {
                const int global_index = element_nodes_id[e][j];
 
                b.bases[j].init(discr_order, global_index, j, nodes.node_position(global_index));
 
                const int dtmp = serendipity ? -2 : discr_order;
 
                b.bases[j].set_basis([dtmp, j](const Eigen::MatrixXd &uv, Eigen::MatrixXd &val) { autogen::q_basis_value_3d(dtmp, j, uv, val); });
                b.bases[j].set_grad([dtmp, j](const Eigen::MatrixXd &uv, Eigen::MatrixXd &val) { autogen::q_grad_basis_value_3d(dtmp, j, uv, val); });
            }
        }
        else if (mesh.is_simplex(e))
        {
            const int real_order = quadrature_order > 0 ? quadrature_order : AssemblerUtils::quadrature_order(assembler, discr_order, AssemblerUtils::BasisType::SIMPLEX_LAGRANGE, 3);
            const int real_mass_order = mass_quadrature_order > 0 ? mass_quadrature_order : AssemblerUtils::quadrature_order("Mass", discr_order, AssemblerUtils::BasisType::SIMPLEX_LAGRANGE, 3);
 
            b.set_quadrature([real_order, use_corner_quadrature](Quadrature &quad) {
                TetQuadrature tet_quadrature(use_corner_quadrature);
                tet_quadrature.get_quadrature(real_order, quad);
            });
            b.set_mass_quadrature([real_mass_order, use_corner_quadrature](Quadrature &quad) {
                TetQuadrature tet_quadrature(use_corner_quadrature);
                tet_quadrature.get_quadrature(real_mass_order, quad);
            });
 
            b.set_local_node_from_primitive_func([discr_order, e](const int primitive_id, const Mesh &mesh) {
                const auto &mesh3d = dynamic_cast<const Mesh3D &>(mesh);
                Navigation3D::Index index;
 
                for (int lf = 0; lf < mesh3d.n_cell_faces(e); ++lf)
                {
                    index = mesh3d.get_index_from_element(e, lf, 0);
                    if (index.face == primitive_id)
                        break;
                }
                assert(index.face == primitive_id);
                return tet_face_local_nodes(discr_order, mesh3d, index);
            });
 
            const bool rational = is_geom_bases && mesh.is_rational() && !mesh.cell_weights(e).empty();
            assert(!rational);
 
            for (int j = 0; j < n_el_bases; ++j)
            {
                const int global_index = element_nodes_id[e][j];
                if (!skip_interface_element)
                {
                    b.bases[j].init(discr_order, global_index, j, nodes.node_position(global_index));
                }
 
                b.bases[j].set_basis([bernstein, discr_order, j](const Eigen::MatrixXd &uv, Eigen::MatrixXd &val) { autogen::p_basis_value_3d(bernstein, discr_order, j, uv, val); });
                b.bases[j].set_grad([bernstein, discr_order, j](const Eigen::MatrixXd &uv, Eigen::MatrixXd &val) { autogen::p_grad_basis_value_3d(bernstein, discr_order, j, uv, val); });
            }
        }
        else if (mesh.is_prism(e))
        {
            const int orderp = quadrature_order > 0 ? quadrature_order : AssemblerUtils::quadrature_order(assembler, discr_order, AssemblerUtils::BasisType::PRISM_LAGRANGE, 2);
            const int orderq = quadrature_order > 0 ? quadrature_order : AssemblerUtils::quadrature_order(assembler, discr_orderq, AssemblerUtils::BasisType::PRISM_LAGRANGE, 1);
 
            const int mass_orderp = mass_quadrature_order > 0 ? mass_quadrature_order : AssemblerUtils::quadrature_order("Mass", discr_order, AssemblerUtils::BasisType::PRISM_LAGRANGE, 2);
            const int mass_orderq = mass_quadrature_order > 0 ? mass_quadrature_order : AssemblerUtils::quadrature_order("Mass", discr_orderq, AssemblerUtils::BasisType::PRISM_LAGRANGE, 1);
 
            b.set_quadrature([orderp, orderq](Quadrature &quad) {
                PrismQuadrature tet_quadrature;
                tet_quadrature.get_quadrature(orderp, orderq, quad);
            });
            b.set_mass_quadrature([mass_orderp, mass_orderq](Quadrature &quad) {
                PrismQuadrature tet_quadrature;
                tet_quadrature.get_quadrature(mass_orderp, mass_orderq, quad);
            });
 
            b.set_local_node_from_primitive_func([discr_order, discr_orderq, e](const int primitive_id, const Mesh &mesh) {
                const auto &mesh3d = dynamic_cast<const Mesh3D &>(mesh);
                Navigation3D::Index index;
 
                for (int lf = 0; lf < mesh3d.n_cell_faces(e); ++lf)
                {
                    index = mesh3d.get_index_from_element(e, lf, 0);
                    if (index.face == primitive_id)
                        break;
                }
                assert(index.face == primitive_id);
                return prism_face_local_nodes(discr_order, discr_orderq, mesh3d, index);
            });
 
            for (int j = 0; j < n_el_bases; ++j)
            {
                const int global_index = element_nodes_id[e][j];
                if (!skip_interface_element)
                {
                    b.bases[j].init(discr_order, global_index, j, nodes.node_position(global_index));
                }
 
                b.bases[j].set_basis([discr_order, discr_orderq, j](const Eigen::MatrixXd &uv, Eigen::MatrixXd &val) { autogen::prism_basis_value_3d(discr_order, discr_orderq, j, uv, val); });
                b.bases[j].set_grad([discr_order, discr_orderq, j](const Eigen::MatrixXd &uv, Eigen::MatrixXd &val) { autogen::prism_grad_basis_value_3d(discr_order, discr_orderq, j, uv, val); });
            }
        }
        else
        {
            // Polyhedra bases are built later on
            // assert(false);
        }
    }
 
    if (!is_geom_bases)
    {
        if (!mesh.is_conforming())
        {
            const auto &ncmesh = dynamic_cast<const NCMesh3D &>(mesh);
 
            std::vector<std::vector<int>> elementOrder;
            {
                const int max_order = discr_ordersp.maxCoeff(), min_order = discr_ordersp.minCoeff();
                int max_level = 0;
                for (int e = 0; e < ncmesh.n_cells(); e++)
                    if (max_level < ncmesh.cell_ref_level(e))
                        max_level = ncmesh.cell_ref_level(e);
 
                elementOrder.resize((max_level + 1) * (max_order - min_order + 1));
                int N = 0;
                int cur_level = 0;
                while (cur_level <= max_level)
                {
                    int order = min_order;
                    while (order <= max_order)
                    {
                        int cur_bucket = (max_order - min_order + 1) * cur_level + (order - min_order);
                        for (int i = 0; i < ncmesh.n_cells(); i++)
                        {
                            if (ncmesh.cell_ref_level(i) != cur_level || discr_ordersp[i] != order)
                                continue;
 
                            N++;
                            elementOrder[cur_bucket].push_back(i);
                        }
                        order++;
                    }
                    cur_level++;
                }
            }
 
            for (const auto &bucket : elementOrder)
            {
                if (bucket.size() == 0)
                    continue;
                polyfem::utils::maybe_parallel_for((int)bucket.size(), [&](int start, int end, int thread_id) {
                    for (int e_aux = start; e_aux < end; e_aux++)
                    {
                        const int e = bucket[e_aux];
                        ElementBases &b = bases[e];
                        const int discr_order = discr_ordersp(e);
                        const int n_edge_nodes = discr_order - 1;
                        const int n_face_nodes = (discr_order - 1) * (discr_order - 2) / 2;
                        const int n_el_bases = element_nodes_id[e].size();
 
                        auto v = tet_vertices_local_to_global(mesh, e);
 
                        Eigen::Matrix<Navigation3D::Index, 4, 1> cell_faces;
                        Eigen::Matrix<int, 4, 3> fv;
                        fv.row(0) << v[0], v[1], v[2];
                        fv.row(1) << v[0], v[1], v[3];
                        fv.row(2) << v[1], v[2], v[3];
                        fv.row(3) << v[2], v[0], v[3];
 
                        for (long lf = 0; lf < fv.rows(); ++lf)
                        {
                            const auto index = mesh.get_index_from_element_face(e, fv(lf, 0), fv(lf, 1), fv(lf, 2));
                            cell_faces[lf] = index;
                        }
 
                        Eigen::Matrix<Navigation3D::Index, 6, 1> cell_edges;
                        Eigen::Matrix<int, 6, 2> ev;
                        ev.row(0) << v[0], v[1];
                        ev.row(1) << v[1], v[2];
                        ev.row(2) << v[2], v[0];
 
                        ev.row(3) << v[0], v[3];
                        ev.row(4) << v[1], v[3];
                        ev.row(5) << v[2], v[3];
 
                        for (int le = 0; le < ev.rows(); ++le)
                        {
                            // const auto index =  find_edge(mesh, c, ev(le, 0), ev(le, 1));
                            const auto index = mesh.get_index_from_element_edge(e, ev(le, 0), ev(le, 1));
                            cell_edges[le] = index;
                        }
 
                        Eigen::MatrixXd verts(4, 3);
                        for (int i = 0; i < ncmesh.n_cell_vertices(e); i++)
                            verts.row(i) = ncmesh.point(v[i]);
 
                        for (int j = 0; j < n_el_bases; ++j)
                        {
                            const int global_index = element_nodes_id[e][j];
 
                            if (global_index >= 0)
                            {
                                b.bases[j].init(discr_order, global_index, j, nodes.node_position(global_index));
                            }
                            else
                            {
                                // vertex node - hanging vertex
                                if (j < 4)
                                {
                                    int large_elem = -1;
                                    if (ncmesh.leader_edge_of_vertex(v[j]) >= 0)
                                    {
                                        large_elem = lowest_order_elem_on_edge(ncmesh, discr_ordersp, ncmesh.leader_edge_of_vertex(v[j]));
                                    }
                                    else if (ncmesh.leader_face_of_vertex(v[j]) >= 0)
                                    {
                                        std::vector<int> ids;
                                        ncmesh.get_face_elements_neighs(ncmesh.leader_face_of_vertex(v[j]), ids);
                                        assert(ids.size() == 1);
                                        large_elem = ids[0];
                                    }
                                    else
                                        assert(false);
 
                                    Eigen::MatrixXd large_elem_verts(4, 3);
                                    auto v_large = tet_vertices_local_to_global(mesh, large_elem);
                                    for (int i = 0; i < ncmesh.n_cell_vertices(large_elem); i++)
                                        large_elem_verts.row(i) = ncmesh.point(v_large[i]);
 
                                    Eigen::MatrixXd node_position;
                                    global_to_local(large_elem_verts, verts.row(j), node_position);
 
                                    // evaluate the basis of the large element at this node
                                    const auto &other_bases = bases[large_elem];
                                    std::vector<AssemblyValues> w;
                                    other_bases.evaluate_bases(node_position, w);
 
                                    // apply basis projection
                                    for (long i = 0; i < w.size(); ++i)
                                    {
                                        assert(w[i].val.size() == 1);
                                        if (std::abs(w[i].val(0)) < 1e-12)
                                            continue;
 
                                        assert(other_bases.bases[i].global().size() > 0);
                                        for (size_t ii = 0; ii < other_bases.bases[i].global().size(); ++ii)
                                        {
                                            const auto &other_global = other_bases.bases[i].global()[ii];
                                            assert(other_global.index >= 0);
                                            b.bases[j].global().emplace_back(other_global.index, other_global.node, w[i].val(0) * other_global.val);
                                        }
                                    }
                                }
                                // edge node - slave edge / edge on face / constrained order
                                else if (j < 4 + 6 * n_edge_nodes)
                                {
                                    const int local_edge_id = (j - 4) / n_edge_nodes;
                                    const int edge_id = cell_edges[local_edge_id].edge;
                                    bool need_extra_fake_nodes = false;
                                    int large_elem = -1;
 
                                    // slave edge
                                    if (ncmesh.leader_edge_of_edge(edge_id) >= 0)
                                    {
                                        std::vector<int> ids;
                                        ncmesh.get_edge_elements_neighs(ncmesh.leader_edge_of_edge(edge_id), ids);
                                        large_elem = ids[0];
                                    }
                                    // edge on face
                                    else if (ncmesh.leader_face_of_edge(edge_id) >= 0)
                                    {
                                        std::vector<int> ids;
                                        ncmesh.get_face_elements_neighs(ncmesh.leader_face_of_edge(edge_id), ids);
                                        assert(ids.size() == 1);
                                        large_elem = ids[0];
                                    }
                                    // constrained order
                                    else if (discr_order > edge_orders[edge_id])
                                    {
                                        int min_order_elem = lowest_order_elem_on_edge(ncmesh, discr_ordersp, edge_id);
                                        // if haven't built min_order_elem? directly contribute to extra nodes
                                        if (discr_ordersp[min_order_elem] < discr_order)
                                            large_elem = min_order_elem;
 
                                        // constrained order, master edge -- need extra fake nodes
                                        if (large_elem < 0)
                                        {
                                            // assert((edge.order < 2 || edge.global_ids.size() > 0) && edge.slaves.size() > 0);
                                            need_extra_fake_nodes = true;
                                        }
                                    }
                                    else
                                        assert(false);
 
                                    assert(large_elem >= 0 || need_extra_fake_nodes);
                                    Eigen::MatrixXd lnodes;
                                    autogen::p_nodes_3d(discr_order, lnodes);
                                    Eigen::MatrixXd local_position = lnodes.row(j);
                                    if (need_extra_fake_nodes)
                                    {
                                        Eigen::MatrixXd global_position, edge_verts(2, 3);
                                        Eigen::VectorXd point_weight;
 
                                        edge_verts.row(0) = ncmesh.point(ncmesh.edge_vertex(edge_id, 0));
                                        edge_verts.row(1) = ncmesh.point(ncmesh.edge_vertex(edge_id, 1));
 
                                        local_to_global(verts, local_position, global_position);
                                        global_to_local_edge(edge_verts, global_position, point_weight);
 
                                        std::function<double(const int, const int, const double)> basis_1d = [](const int order, const int id, const double x) -> double {
                                            assert(id <= order && id >= 0);
                                            double y = 1;
                                            for (int o = 0; o <= order; o++)
                                            {
                                                if (o != id)
                                                    y *= (x * order - o) / (id - o);
                                            }
                                            return y;
                                        };
 
                                        // contribution to edge nodes
                                        for (int i = 0; i < edge_virtual_nodes[edge_id].size(); i++)
                                        {
                                            const int global_index = edge_virtual_nodes[edge_id][i];
                                            // const double weight = basis_1d(edge_orders[edge_id], i+1, edge_weight);
                                            Eigen::VectorXd node_weight;
                                            global_to_local_edge(edge_verts, nodes.node_position(global_index), node_weight);
                                            const int basis_id = std::lround(node_weight(0) * edge_orders[edge_id]);
                                            const double weight = basis_1d(edge_orders[edge_id], basis_id, point_weight(0));
                                            if (std::abs(weight) < 1e-12)
                                                continue;
                                            b.bases[j].global().emplace_back(global_index, nodes.node_position(global_index), weight);
                                        }
 
                                        // contribution to vertex nodes
                                        for (int i = 0; i < 2; i++)
                                        {
                                            const int lv = ev(local_edge_id, i);
                                            const auto &global_ = b.bases[lv].global();
                                            Eigen::VectorXd node_weight;
                                            global_to_local_edge(edge_verts, verts.row(lv), node_weight);
                                            const int basis_id = std::lround(node_weight(0) * edge_orders[edge_id]);
                                            const double weight = basis_1d(edge_orders[edge_id], basis_id, point_weight(0));
                                            if (std::abs(weight) > 1e-12)
                                            {
                                                assert(global_.size() > 0);
                                                for (size_t ii = 0; ii < global_.size(); ++ii)
                                                    b.bases[j].global().emplace_back(global_[ii].index, global_[ii].node, weight * global_[ii].val);
                                            }
                                        }
                                    }
                                    else
                                    {
                                        Eigen::MatrixXd global_position, large_elem_verts(4, 3);
                                        auto v_large = tet_vertices_local_to_global(mesh, large_elem);
                                        for (int i = 0; i < ncmesh.n_cell_vertices(large_elem); i++)
                                            large_elem_verts.row(i) = ncmesh.point(v_large[i]);
                                        local_to_global(verts, local_position, global_position);
                                        global_to_local(large_elem_verts, global_position, local_position);
 
                                        // evaluate the basis of the large element at this node
                                        const auto &other_bases = bases[large_elem];
                                        std::vector<AssemblyValues> w;
                                        other_bases.evaluate_bases(local_position, w);
 
                                        // apply basis projection
                                        for (long i = 0; i < w.size(); ++i)
                                        {
                                            assert(w[i].val.size() == 1);
                                            if (std::abs(w[i].val(0)) < 1e-12)
                                                continue;
 
                                            assert(other_bases.bases[i].global().size() > 0);
                                            for (size_t ii = 0; ii < other_bases.bases[i].global().size(); ++ii)
                                            {
                                                const auto &other_global = other_bases.bases[i].global()[ii];
                                                assert(other_global.index >= 0);
                                                b.bases[j].global().emplace_back(other_global.index, other_global.node, w[i].val(0) * other_global.val);
                                            }
                                        }
                                    }
                                }
                                // face node - slave face / constrained order
                                else if (j < 4 + 6 * n_edge_nodes + 4 * n_face_nodes)
                                {
                                    const int local_face_id = (j - (4 + 6 * n_edge_nodes)) / n_face_nodes;
                                    const int face_id = cell_faces(local_face_id).face;
                                    int large_elem = -1;
                                    bool need_extra_fake_nodes = false;
 
                                    std::vector<int> ids;
                                    ncmesh.get_face_elements_neighs(ncmesh.leader_face_of_face(face_id), ids);
 
                                    Eigen::MatrixXd face_verts(3, 3);
                                    for (int i = 0; i < ncmesh.n_face_vertices(face_id); i++)
                                        face_verts.row(i) = ncmesh.point(ncmesh.face_vertex(face_id, i));
 
                                    // slave face
                                    if (ncmesh.leader_face_of_face(face_id) >= 0)
                                    {
                                        assert(ids.size() == 1);
                                        large_elem = ids[0];
                                    }
                                    // constrained order, conforming face
 
                                    else if (face_orders[face_id] < discr_order && ids.size() == 2)
                                    {
                                        large_elem = ids[0] == e ? ids[1] : ids[0];
                                    }
                                    // constrained order, master face -- need extra fake nodes
                                    else if (face_orders[face_id] < discr_order && ncmesh.n_follower_faces(face_id) > 0)
                                    {
                                        // assert(ncface.global_ids.size() > 0 || ncface.order < 3);
                                        need_extra_fake_nodes = true;
                                    }
                                    else
                                        assert(false);
 
                                    assert(large_elem >= 0 || need_extra_fake_nodes);
                                    Eigen::MatrixXd lnodes;
                                    autogen::p_nodes_3d(discr_order, lnodes);
                                    Eigen::MatrixXd local_position = lnodes.row(j);
                                    if (need_extra_fake_nodes)
                                    {
                                        Eigen::MatrixXd global_position;
                                        local_to_global(verts, local_position, global_position);
 
                                        Eigen::MatrixXd tmp;
                                        global_to_local_face(face_verts, global_position, tmp);
                                        Eigen::VectorXd face_weight = tmp.transpose();
 
                                        std::function<double(const int, const int, const double)> basis_aux = [](const int order, const int id, const double x) -> double {
                                            assert(id <= order && id >= 0);
                                            double y = 1;
                                            for (int o = 0; o < id; o++)
                                                y *= (x * order - o) / (id - o);
                                            return y;
                                        };
 
                                        std::function<double(const int, const int, const int, const Eigen::Vector2d)> basis_2d = [&basis_aux](const int order, const int i, const int j, const Eigen::Vector2d uv) -> double {
                                            assert(i + j <= order && i >= 0 && j >= 0);
                                            double u = uv(0), v = uv(1);
                                            return basis_aux(order, i, u) * basis_aux(order, j, v) * basis_aux(order, order - i - j, 1 - u - v);
                                        };
 
                                        // contribution to face nodes
                                        for (int global_ : face_virtual_nodes[face_id])
                                        {
                                            auto low_order_node = nodes.node_position(global_);
                                            Eigen::MatrixXd low_order_node_face_weight;
                                            global_to_local_face(face_verts, low_order_node, low_order_node_face_weight);
                                            int x = round(low_order_node_face_weight(0) * face_orders[face_id]), y = round(low_order_node_face_weight(1) * face_orders[face_id]);
                                            const double weight = basis_2d(face_orders[face_id], x, y, face_weight);
                                            if (std::abs(weight) < 1e-12)
                                                continue;
                                            b.bases[j].global().emplace_back(global_, nodes.node_position(global_), weight);
                                        }
 
                                        // contribution to vertex nodes
                                        for (int i = 0; i < 3; i++)
                                        {
                                            const auto &global_ = b.bases[fv(local_face_id, i)].global();
                                            auto low_order_node = ncmesh.point(fv(local_face_id, i));
                                            Eigen::MatrixXd low_order_node_face_weight;
                                            global_to_local_face(face_verts, low_order_node, low_order_node_face_weight);
                                            int x = round(low_order_node_face_weight(0) * face_orders[face_id]), y = round(low_order_node_face_weight(1) * face_orders[face_id]);
                                            double weight = basis_2d(face_orders[face_id], x, y, face_weight);
                                            if (std::abs(weight) > 1e-12)
                                            {
                                                assert(global_.size() > 0);
                                                for (size_t ii = 0; ii < global_.size(); ++ii)
                                                    b.bases[j].global().emplace_back(global_[ii].index, global_[ii].node, weight * global_[ii].val);
                                            }
                                        }
 
                                        // contribution to edge nodes, two steps
                                        for (int x = 0, idx = 0; x <= face_orders[face_id]; x++)
                                        {
                                            for (int y = 0; x + y <= face_orders[face_id]; y++)
                                            {
                                                const int z = face_orders[face_id] - x - y;
                                                int flag = (int)(x == 0) + (int)(y == 0) + (int)(z == 0);
                                                if (flag != 1)
                                                    continue;
 
                                                // first step
                                                const double weight = basis_2d(face_orders[face_id], x, y, face_weight);
                                                if (std::abs(weight) < 1e-12)
                                                    continue;
                                                Eigen::MatrixXd face_weight(1, 2);
                                                face_weight << (double)x / face_orders[face_id], (double)y / face_orders[face_id];
                                                Eigen::MatrixXd pos, local_pos;
                                                local_to_global_face(face_verts, face_weight, pos);
                                                global_to_local(verts, pos, local_pos);
                                                Local2Global step1(idx, local_pos, weight);
                                                idx++;
 
                                                {
                                                    // evaluate the basis of the large element at this node
                                                    const auto &other_bases = bases[e];
                                                    std::vector<AssemblyValues> w;
                                                    other_bases.evaluate_bases(local_pos, w);
 
                                                    // apply basis projection
                                                    for (long i = 0; i < w.size(); ++i)
                                                    {
                                                        assert(w[i].val.size() == 1);
                                                        if (std::abs(w[i].val(0)) < 1e-12)
                                                            continue;
 
                                                        assert(other_bases.bases[i].global().size() > 0);
                                                        for (size_t ii = 0; ii < other_bases.bases[i].global().size(); ++ii)
                                                        {
                                                            const auto &other_global = other_bases.bases[i].global()[ii];
                                                            assert(other_global.index >= 0);
                                                            b.bases[j].global().emplace_back(other_global.index, other_global.node, step1.val * w[i].val(0) * other_global.val);
                                                        }
                                                    }
                                                }
                                            }
                                        }
                                    }
                                    else
                                    {
                                        Eigen::MatrixXd global_position, large_elem_verts(4, 3);
                                        auto v_large = tet_vertices_local_to_global(mesh, large_elem);
                                        for (int i = 0; i < ncmesh.n_cell_vertices(large_elem); i++)
                                            large_elem_verts.row(i) = ncmesh.point(v_large[i]);
                                        local_to_global(verts, local_position, global_position);
                                        global_to_local(large_elem_verts, global_position, local_position);
 
                                        // evaluate the basis of the large element at this node
                                        const auto &other_bases = bases[large_elem];
                                        std::vector<AssemblyValues> w;
                                        other_bases.evaluate_bases(local_position, w);
 
                                        // apply basis projection
                                        for (long i = 0; i < w.size(); ++i)
                                        {
                                            assert(w[i].val.size() == 1);
                                            if (std::abs(w[i].val(0)) < 1e-12)
                                                continue;
 
                                            assert(other_bases.bases[i].global().size() > 0);
                                            for (size_t ii = 0; ii < other_bases.bases[i].global().size(); ++ii)
                                            {
                                                const auto &other_global = other_bases.bases[i].global()[ii];
                                                assert(other_global.index >= 0);
                                                b.bases[j].global().emplace_back(other_global.index, other_global.node, w[i].val(0) * other_global.val);
                                            }
                                        }
                                    }
                                }
                                else
                                    assert(false);
 
                                auto &global_ = b.bases[j].global();
                                if (global_.size() <= 1)
                                    continue;
 
                                std::map<int, Local2Global> list;
                                for (size_t ii = 0; ii < global_.size(); ii++)
                                {
                                    auto pair = list.insert({global_[ii].index, global_[ii]});
                                    if (!pair.second && pair.first != list.end())
                                    {
                                        assert((pair.first->second.node - global_[ii].node).norm() < 1e-12);
                                        pair.first->second.val += global_[ii].val;
                                    }
                                }
 
                                global_.clear();
                                for (auto it = list.begin(); it != list.end(); ++it)
                                {
                                    if (std::abs(it->second.val) > 1e-12)
                                    {
                                        global_.push_back(it->second);
                                    }
                                }
                            }
                        }
                    }
                });
            }
        }
        else
        {
            for (int pp = 2; pp <= autogen::MAX_P_BASES; ++pp)
            {
                for (int e : interface_elements)
                {
                    ElementBases &b = bases[e];
                    // todo non conforming
                    const int discr_order = discr_ordersp(e);
                    const int n_el_bases = element_nodes_id[e].size();
                    assert(discr_order > 1);
                    if (discr_order != pp)
                        continue;
 
                    if (mesh.is_cube(e) || mesh.is_prism(e))
                    {
                        // TODO
                        assert(false);
                    }
                    else if (mesh.is_simplex(e))
                    {
                        for (int j = 0; j < n_el_bases; ++j)
                        {
                            const int global_index = element_nodes_id[e][j];
 
                            if (global_index >= 0)
                                b.bases[j].init(discr_order, global_index, j, nodes.node_position(global_index));
                            else
                            {
                                const int lnn = max_p > 2 ? (discr_order - 2) : 0;
                                const int ln_edge_nodes = discr_order - 1;
                                const int ln_face_nodes = lnn * (lnn + 1) / 2;
 
                                const auto v = tet_vertices_local_to_global(mesh, e);
                                Navigation3D::Index index;
                                if (global_index <= -30)
                                {
                                    assert(false);
                                    // const auto lv = -(global_index + 30);
                                    // assert(lv>=0 && lv < 4);
                                    // assert(j < 4);
 
                                    // if(lv == 3)
                                    // {
                                    //  index = mesh.switch_element(find_edge(mesh, e, v[lv], v[0]));
                                    //  if(index.element < 0)
                                    //      index = mesh.switch_element(find_edge(mesh, e, v[lv], v[1]));
                                    //  if(index.element < 0)
                                    //      index = mesh.switch_element(find_edge(mesh, e, v[lv], v[2]));
                                    // }
                                    // else
                                    // {
                                    //  index = mesh.switch_element(find_edge(mesh, e, v[lv], v[(lv+1)%3]));
                                    //  if(index.element < 0)
                                    //      index = mesh.switch_element(find_edge(mesh, e, v[lv], v[(lv+2)%3]));
                                    //  if(index.element < 0)
                                    //      index = mesh.switch_element(find_edge(mesh, e, v[lv], v[3]));
                                    // }
                                }
                                else if (global_index <= -10)
                                {
                                    const auto le = -(global_index + 10);
                                    assert(le >= 0 && le < 6);
                                    assert(j >= 4 && j < 4 + 6 * ln_edge_nodes);
 
                                    Eigen::Matrix<int, 6, 2> ev;
                                    ev.row(0) << v[0], v[1];
                                    ev.row(1) << v[1], v[2];
                                    ev.row(2) << v[2], v[0];
 
                                    ev.row(3) << v[0], v[3];
                                    ev.row(4) << v[1], v[3];
                                    ev.row(5) << v[2], v[3];
 
                                    // const auto edge_index = find_edge(mesh, e, ev(le, 0), ev(le, 1));
                                    const auto edge_index = mesh.get_index_from_element_edge(e, ev(le, 0), ev(le, 1));
                                    auto neighs = mesh.edge_neighs(edge_index.edge);
                                    int min_p = discr_order;
                                    int min_cell = edge_index.element;
 
                                    for (auto cid : neighs)
                                    {
                                        if (discr_ordersp[cid] < min_p)
                                        {
                                            min_p = discr_ordersp[cid];
                                            min_cell = cid;
                                        }
                                    }
 
                                    bool found = false;
                                    for (int lf = 0; lf < 4; ++lf)
                                    {
                                        for (int lv = 0; lv < 4; ++lv)
                                        {
                                            index = mesh.get_index_from_element(min_cell, lf, lv);
 
                                            if (index.vertex == edge_index.vertex)
                                            {
                                                if (index.edge != edge_index.edge)
                                                {
                                                    auto tmp = index;
                                                    index = mesh.switch_edge(tmp);
 
                                                    if (index.edge != edge_index.edge)
                                                    {
                                                        index = mesh.switch_edge(mesh.switch_face(tmp));
                                                    }
                                                }
                                                found = true;
                                                break;
                                            }
                                        }
 
                                        if (found)
                                            break;
                                    }
 
                                    assert(found);
                                    assert(index.vertex == edge_index.vertex && index.edge == edge_index.edge);
                                    assert(index.element != edge_index.element);
                                }
                                else
                                {
                                    const auto lf = -(global_index + 1);
                                    assert(lf >= 0 && lf < 4);
                                    assert(j >= 4 + 6 * ln_edge_nodes && j < 4 + 6 * ln_edge_nodes + 4 * ln_face_nodes);
 
                                    Eigen::Matrix<int, 4, 3> fv;
                                    fv.row(0) << v[0], v[1], v[2];
                                    fv.row(1) << v[0], v[1], v[3];
                                    fv.row(2) << v[1], v[2], v[3];
                                    fv.row(3) << v[2], v[0], v[3];
 
                                    index = mesh.switch_element(mesh.get_index_from_element_face(e, fv(lf, 0), fv(lf, 1), fv(lf, 2)));
                                }
 
                                const auto other_cell = index.element;
                                assert(other_cell >= 0);
                                assert(discr_order > discr_ordersp(other_cell));
 
                                auto indices = tet_face_local_nodes(discr_order, mesh, index);
                                Eigen::MatrixXd lnodes;
                                autogen::p_nodes_3d(discr_order, lnodes);
                                Eigen::RowVector3d node_position; // = lnodes.row(indices(ii));
 
                                if (j < 4)
                                    node_position = lnodes.row(indices(0));
                                else if (j < 4 + 6 * ln_edge_nodes)
                                    node_position = lnodes.row(indices(((j - 4) % ln_edge_nodes) + 3));
                                else if (j < 4 + 6 * ln_edge_nodes + 4 * ln_face_nodes)
                                {
                                    // node_position = lnodes.row(indices(((j - 4 - 6*ln_edge_nodes) % ln_face_nodes) + 3 + 3*ln_edge_nodes));
                                    auto me_indices = tet_face_local_nodes(discr_order, mesh, mesh.switch_element(index));
                                    int ii;
                                    for (ii = 0; ii < me_indices.size(); ++ii)
                                    {
                                        if (me_indices(ii) == j)
                                            break;
                                    }
 
                                    assert(ii >= 3 + 3 * ln_edge_nodes);
                                    assert(ii < me_indices.size());
 
                                    node_position = lnodes.row(indices(ii));
                                }
                                else
                                    assert(false);
 
                                const auto &other_bases = bases[other_cell];
                                // Eigen::MatrixXd w;
                                std::vector<AssemblyValues> w;
                                other_bases.evaluate_bases(node_position, w);
 
                                assert(b.bases[j].global().size() == 0);
 
                                for (long i = 0; i < w.size(); ++i)
                                {
                                    assert(w[i].val.size() == 1);
                                    if (std::abs(w[i].val(0)) < 1e-8)
                                        continue;
 
                                    // assert(other_bases.bases[i].global().size() == 1);
                                    for (size_t ii = 0; ii < other_bases.bases[i].global().size(); ++ii)
                                    {
                                        const auto &other_global = other_bases.bases[i].global()[ii];
                                        // logger().trace("e {} j {} gid {}", e, j, other_global.index);
                                        b.bases[j].global().emplace_back(other_global.index, other_global.node, w[i].val(0) * other_global.val);
                                    }
                                }
                            }
                        }
                    }
                    else
                    {
                        // Polygon bases are built later on
                    }
                }
            }
        }
    }
 
    return nodes.n_nodes();
}