cga/Meshparser.hs

24 lines
801 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
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)
parseVertice = liftA2 (,)
2014-09-30 22:05:29 +00:00
(char 'v' *> spaces *> posDouble)
(spaces *> posDouble)