stla / hcdt Goto Github PK

GHCi, version 9.4.8: https://www.haskell.org/ghc/  :? for help
ghci> import Text.Show.Pretty 
ghci> import Geometry.HCDT 
ghci> vertices = [Vertex 0 0, Vertex 0 1, Vertex 1 1, Vertex 1 0]
ghci> triangulation <- delaunay vertices
ghci> pPrint triangulation 
Triangulation
  { _vertices =
      fromList
        [ ( 0 , Vertex 6.93912185834747e-310 7.174272432303047e-84 )
        , ( 1 , Vertex 0.0 1.0 )
        , ( 2 , Vertex 1.0 1.0 )
        , ( 3 , Vertex 1.0 0.0 )
        ]
  , _triangles = [ Triangle 1 0 2 , Triangle 2 0 3 ]
  , _edges = [ Edge 2 3 , Edge 0 3 , Edge 1 2 , Edge 0 2 , Edge 0 1 ]
  }