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

HALFEDGE: optimize buildHeEdgeFromStr

Browse Source 
It's faster this way than using buildHeEdge.
This commit is contained in:
hasufell 2015-02-09 16:12:19 +01:00
parent 4ebd842d2b
commit c22c00cb2d
No known key found for this signature in database
GPG Key ID: 220CD1C5BDEED020
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
Graphics/HalfEdge.hs
View File

@ -191,8 +191,11 @@ buildHeEdge pts fs
-- |Build the HeEdge data structure from the .obj mesh file contents. -- |Build the HeEdge data structure from the .obj mesh file contents.
buildHeEdgeFromStr :: B.ByteString -- ^ contents of an .obj mesh file buildHeEdgeFromStr :: B.ByteString -- ^ contents of an .obj mesh file
-> Maybe (HeEdge PT) -> HeEdge PT
buildHeEdgeFromStr bmesh = buildHeEdgeFromStr bmesh =
let pts = meshVertices bmesh let pts = meshVertices bmesh
fs = meshFaces bmesh faces' = indirectHeFaces . meshFaces $ bmesh
in buildHeEdge pts fs edges = indirectHeEdges faces'
verts = indirectHeVerts pts edges
in indirectToDirect pts edges faces' verts