cga/Parser/Meshparser.hs

28 lines
905 B
Haskell
Raw Normal View History

{-# OPTIONS_HADDOCK ignore-exports #-}
module Parser.Meshparser (meshToArr) where
import Control.Applicative
import Diagrams.TwoD.Types
import LinearAlgebra.Vector
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 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
meshToArr xs = fmap (p2) .
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)