cga/Parser/Meshparser.hs

43 lines
1.1 KiB
Haskell
Raw Normal View History

{-# OPTIONS_HADDOCK ignore-exports #-}
module Parser.Meshparser (meshToArr, facesToArr) where
2014-10-10 15:40:08 +00:00
import Algebra.VectorTypes
import Control.Applicative
import Data.Maybe
import Diagrams.TwoD.Types
2014-10-07 17:12:07 +00:00
import Parser.Core
2014-09-30 22:05:29 +00:00
-- |Convert a text String with multiple vertices and faces into
-- a list of vertices, ordered by the faces specification.
facesToArr :: String -> [[PT]]
facesToArr str = fmap (fmap (\y -> meshs str !! (fromIntegral y - 1)))
(faces str)
where
meshs = meshToArr
faces = fmap fst . catMaybes . fmap (runParser parseFace) . lines
-- |Convert a text String with multiple vertices into
-- an array of float tuples.
2014-09-30 22:05:29 +00:00
meshToArr :: String -- ^ the string to convert
-> [PT] -- ^ the resulting vertice table
2014-10-10 15:48:22 +00:00
meshToArr =
fmap (p2 . fst)
. catMaybes
. fmap (runParser parseVertice)
. lines
-- |Creates a Parser that accepts a single vertice, such as 'v 1.0 2.0'.
2014-09-30 22:05:29 +00:00
parseVertice :: Parser (Double, Double)
2014-10-09 22:19:05 +00:00
parseVertice =
(,)
<$> (char 'v' *> spaces *> allDouble)
<*> (spaces *> allDouble)
parseFace :: Parser [Integer]
parseFace = char 'f' *> oneOrMore (spaces *> posInt)