USING: accessors arrays euler.b-rep.examples
euler.b-rep.triangulation math.vectors.simd.cords sequences
tools.test gml kernel ;
IN: euler.b-rep.triangulation.tests

: triangle-vx-positions ( triangles -- positions )
    [ [ position>> ] { } map-as ] { } map-as ;

{
    {
        {
            double-4{ 1.0 1.0 -1.0 0.0 }
            double-4{ -1.0 -1.0 -1.0 0.0 }
            double-4{ -1.0 1.0 -1.0 0.0 }
        }
        {
            double-4{ -1.0 -1.0 -1.0 0.0 }
            double-4{ 1.0 1.0 -1.0 0.0 }
            double-4{ 1.0 -1.0 -1.0 0.0 }
        }
    }
} [ valid-cube-b-rep faces>> first triangulate-face triangle-vx-positions ] unit-test

{ { } } [ degenerate-incomplete-face faces>> first triangulate-face triangle-vx-positions ] unit-test
{ {
    {
        double-4{ 1.0 1.0 0.0 0.0 }
        double-4{ -1.0 -1.0 0.0 0.0 }
        double-4{ -1.0 1.0 0.0 0.0 }
    }
    {
        double-4{ -1.0 -1.0 0.0 0.0 }
        double-4{ 1.0 1.0 0.0 0.0 }
        double-4{ 1.0 -1.0 0.0 0.0 }
    }
} } [ partially-degenerate-second-face faces>> second triangulate-face triangle-vx-positions ] unit-test

{
    {
        {
            double-4{ -1.0 1.0 0.0 0.0 }
            double-4{ -0.5 0.5 0.0 0.0 }
            double-4{ -1.0 -1.0 0.0 0.0 }
        }
        {
            double-4{ -0.5 0.5 0.0 0.0 }
            double-4{ -1.0 1.0 0.0 0.0 }
            double-4{ 1.0 1.0 0.0 0.0 }
        }
        {
            double-4{ -0.5 0.5 0.0 0.0 }
            double-4{ 1.0 1.0 0.0 0.0 }
            double-4{ 0.5 0.5 0.0 0.0 }
        }
        {
            double-4{ 0.5 0.5 0.0 0.0 }
            double-4{ 1.0 1.0 0.0 0.0 }
            double-4{ 0.5 -0.5 0.0 0.0 }
        }
        {
            double-4{ -1.0 -1.0 0.0 0.0 }
            double-4{ -0.5 -0.5 0.0 0.0 }
            double-4{ 1.0 -1.0 0.0 0.0 }
        }
        {
            double-4{ -0.5 -0.5 0.0 0.0 }
            double-4{ -1.0 -1.0 0.0 0.0 }
            double-4{ -0.5 0.5 0.0 0.0 }
        }
        {
            double-4{ 1.0 -1.0 0.0 0.0 }
            double-4{ -0.5 -0.5 0.0 0.0 }
            double-4{ 0.5 -0.5 0.0 0.0 }
        }
        {
            double-4{ 1.0 -1.0 0.0 0.0 }
            double-4{ 0.5 -0.5 0.0 0.0 }
            double-4{ 1.0 1.0 0.0 0.0 }
        }
    }
} [
    [ "vocab:gml/examples/torus.gml" run-gml-file ] make-gml nip
    faces>> first triangulate-face triangle-vx-positions
] unit-test