cga/Meshparser.hs

24 lines
835 B
Haskell
Raw Normal View History

module Meshparser where
import Control.Applicative
import Parser
2014-09-30 22:05:29 +00:00
-- |The VTable is represented by a 'Double' tuple, 2-dimensional.
type VTable = [(Double, Double)]
-- | 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
-> VTable -- ^ the resulting vertice table
2014-10-05 13:50:52 +00:00
meshToArr xs = fmap (\(Just (x, _)) -> x) .
filter (/= Nothing) .
fmap (runParser parseVertice) .
lines $
xs
-- | 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-05 01:12:58 +00:00
parseVertice = (,) <$>
(char 'v' *> spaces *> posDouble) <*>
2014-09-30 22:05:29 +00:00
(spaces *> posDouble)