hasufell/cga
1
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

HALFEDGE: add Show instance to indirect data structures

Browse Source
This commit is contained in:
hasufell 2015-02-10 04:17:31 +01:00
parent 934e24c618
commit faeeeaa257
No known key found for this signature in database
GPG Key ID: 220CD1C5BDEED020
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Graphics/HalfEdge.hs
View File

@ -61,19 +61,20 @@ data IndirectHeEdge = IndirectHeEdge {
, nvindex :: Int -- index of next-vertice , nvindex :: Int -- index of next-vertice
, indexf :: Int -- index of face , indexf :: Int -- index of face
, offsetedge :: Int -- offset to get the next edge , offsetedge :: Int -- offset to get the next edge
} } deriving (Show)
-- This is a helper data structure of half-edge vertices -- This is a helper data structure of half-edge vertices
-- for tying the knots in 'indirectToDirect'. -- for tying the knots in 'indirectToDirect'.
data IndirectHeVert = IndirectHeVert { data IndirectHeVert = IndirectHeVert {
emedgeindex :: Int -- emanating edge index (starts at 1) emedgeindex :: Int -- emanating edge index (starts at 1)
, edgelist :: [Int] -- index of edge that points to this vertice , edgelist :: [Int] -- index of edge that points to this vertice
} } deriving (Show)
-- This is a helper data structure of half-edge faces -- This is a helper data structure of half-edge faces
-- for tying the knots in 'indirectToDirect'. -- for tying the knots in 'indirectToDirect'.
data IndirectHeFace = data IndirectHeFace =
IndirectHeFace (Int, [Int]) -- (faceIndex, [verticeindex]) IndirectHeFace (Int, [Int]) -- (faceIndex, [verticeindex])
deriving (Show)
-- |Construct the indirect data structure for half-edge faces. -- |Construct the indirect data structure for half-edge faces.