Drezil/htrace
1
1
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

addded parse of mesh-line in sce.

Browse Source
This commit is contained in:
Nicole Dresselhaus 2014-11-13 14:35:16 +01:00
parent a1157e2ec4
commit ff38526158
1 changed files with 23 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
src/Scene/Parser.hs
View File

@ -75,6 +75,7 @@ parseObject = do
return $ OpL (Light p c i) return $ OpL (Light p c i)
"sphere" -> parseSphere "sphere" -> parseSphere
"plane" -> parsePlane "plane" -> parsePlane
"mesh" -> parseMesh
_ -> undefined _ -> undefined
parseCamera :: Parser ObjectParser parseCamera :: Parser ObjectParser
@ -111,8 +112,6 @@ parseCamera = do
, xDir = xDir' , xDir = xDir'
, yDir = yDir' , yDir = yDir'
} }
where
parsePlane :: Parser ObjectParser parsePlane :: Parser ObjectParser
parsePlane = do parsePlane = do
@ -167,3 +166,20 @@ parseVector = do
return $ V3 (f a) (f b) (f c) return $ V3 (f a) (f b) (f c)
where where
f = fromRational . toRational --convert Double to Float f = fromRational . toRational --convert Double to Float
parseMesh :: Parser ObjectParser
parseMesh = do
name <- takeTill isSpace
skipSpace
shading <- string "FLAT" <|> string "PHONG"
skipSpace
mat <- parseMaterial
let shading' = case shading of
"FLAT" = Flat
"PHONG" = Phong
return $ OpM Mesh
{ meshFilename = name
, meshShading = shading'
, material = mat
}