2014-10-06 21:14:23 +00:00
|
|
|
{-# OPTIONS_HADDOCK ignore-exports #-}
|
|
|
|
|
2015-02-03 23:21:38 +00:00
|
|
|
module Parser.Meshparser where
|
2014-09-30 16:28:19 +00:00
|
|
|
|
|
|
|
import Control.Applicative
|
2014-11-21 03:30:50 +00:00
|
|
|
import Data.Attoparsec.ByteString.Char8
|
|
|
|
import Data.Either
|
|
|
|
import qualified Data.ByteString.Char8 as B
|
2014-10-08 14:31:57 +00:00
|
|
|
import Diagrams.TwoD.Types
|
2014-09-30 16:28:19 +00:00
|
|
|
|
2014-09-30 22:05:29 +00:00
|
|
|
|
2014-10-25 01:15:38 +00:00
|
|
|
-- |Convert a text String with multiple vertices and faces into
|
|
|
|
-- a list of vertices, ordered by the faces specification.
|
2015-01-14 17:17:35 +00:00
|
|
|
facesToArr :: B.ByteString -> [[P2]]
|
2015-01-09 03:05:04 +00:00
|
|
|
facesToArr str = fmap (fmap (\y -> meshToArr str !! (fromIntegral y - 1)))
|
2015-02-03 23:25:07 +00:00
|
|
|
(meshFaces str)
|
2014-10-25 01:15:38 +00:00
|
|
|
|
|
|
|
|
|
|
|
-- |Convert a text String with multiple vertices into
|
2014-09-30 16:28:19 +00:00
|
|
|
-- an array of float tuples.
|
2014-11-21 03:49:17 +00:00
|
|
|
meshToArr :: B.ByteString -- ^ the string to convert
|
2015-01-14 17:17:35 +00:00
|
|
|
-> [P2] -- ^ the resulting vertice table
|
2014-10-10 15:48:22 +00:00
|
|
|
meshToArr =
|
2014-11-21 03:30:50 +00:00
|
|
|
fmap p2
|
|
|
|
. rights
|
|
|
|
. fmap (parseOnly parseVertice)
|
|
|
|
. B.lines
|
2014-09-30 16:28:19 +00:00
|
|
|
|
2014-10-08 14:31:57 +00:00
|
|
|
|
2014-10-25 01:15:38 +00:00
|
|
|
-- |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 =
|
2014-10-25 01:15:38 +00:00
|
|
|
(,)
|
2014-11-21 03:30:50 +00:00
|
|
|
<$> (char 'v' *> many' space *> double)
|
|
|
|
<*> (many' space *> double)
|
2014-10-25 01:15:38 +00:00
|
|
|
|
|
|
|
|
|
|
|
parseFace :: Parser [Integer]
|
2014-11-21 03:30:50 +00:00
|
|
|
parseFace = char 'f' *> many1' (many' space *> decimal)
|
2015-02-03 23:25:07 +00:00
|
|
|
|
|
|
|
|
|
|
|
meshFaces :: B.ByteString -> [[Int]]
|
|
|
|
meshFaces
|
|
|
|
= rights
|
|
|
|
. fmap (parseOnly parseFace)
|
|
|
|
. B.lines
|