From 7c729b343a7fa340909caa9424dc68039ded2de7 Mon Sep 17 00:00:00 2001 From: Joe Crayne Date: Fri, 14 Jun 2019 21:24:08 -0400 Subject: Defaulting for vertex coordinates. --- src/Wavefront.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/Wavefront.hs b/src/Wavefront.hs index 0da9f41..51a0e6b 100644 --- a/src/Wavefront.hs +++ b/src/Wavefront.hs @@ -57,13 +57,13 @@ objBookKeeping builder = (lift Rank2.<$> builder) } mkv :: [Double] -> Location -mkv cs = Location x y z w where (x:y:z:w:_) = map realToFrac cs +mkv cs = Location x y z w where (x:y:z:w:_) = map realToFrac cs ++ repeat 1 mkt :: [Double] -> TexCoord -mkt cs = TexCoord x y z where (x:y:z:_) = map realToFrac cs +mkt cs = TexCoord x y z where (x:y:z:_) = map realToFrac cs ++ repeat 0 mkn :: [Double] -> Normal -mkn cs = Normal x y z where (x:y:z:_) = map realToFrac cs +mkn cs = Normal x y z where (x:y:z:_) = map realToFrac cs ++ repeat 0 mkl :: RefTriple -> RefTriple -> Line mkl (RefTriple a at _) (RefTriple b bt _) = Line (LineIndex a at) (LineIndex b bt) -- cgit v1.2.3