directed-cubical-0.1.0.0: Examples/bigCube.hs

import Math.Topology.CubeCmplx.DirCubeCmplx
import Math.Topology.CubeCmplx.CornerReduce
import Control.DeepSeq

cx = vsCmplx $ vsCoordsUnsafe (replicate 5 1) (replicate 5 6)

main = print $ cx `deepseq` cmplxReduce cx 
         [vsVert $ vertexUnsafe (replicate 5 1),
          vsVert $ vertexUnsafe (replicate 5 6)]