hasufell
/
cga
1
1
Forka 0
Codice Problemi Pull Requests Rilasci Wiki Attività

PARSER: simplify

This commit is contained in:
hasufell 2015-01-09 04:05:04 +01:00
parent 8058a43ee4
commit d0e155d7c1
Non sono state trovate chiavi note per questa firma nel database
ID Chiave GPG: 220CD1C5BDEED020
1 ha cambiato i file con 1 aggiunte e 2 eliminazioni
Mostra statistiche Scarica il file Patch Scarica il file Diff Expand all files Collapse all files

3
Parser/Meshparser.hs
Vedi File

@ -13,10 +13,9 @@ import Diagrams.TwoD.Types
-- |Convert a text String with multiple vertices and faces into -- |Convert a text String with multiple vertices and faces into
-- a list of vertices, ordered by the faces specification. -- a list of vertices, ordered by the faces specification.
facesToArr :: B.ByteString -> [[PT]] facesToArr :: B.ByteString -> [[PT]]
facesToArr str = fmap (fmap (\y -> meshs str !! (fromIntegral y - 1))) facesToArr str = fmap (fmap (\y -> meshToArr str !! (fromIntegral y - 1)))
(faces str) (faces str)
where where
meshs = meshToArr
faces = rights . fmap (parseOnly parseFace) . B.lines faces = rights . fmap (parseOnly parseFace) . B.lines