diff options
Diffstat (limited to 'examples/HelloOBJ.hs')
| -rw-r--r-- | examples/HelloOBJ.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/examples/HelloOBJ.hs b/examples/HelloOBJ.hs index bffb10d..7ab6b20 100644 --- a/examples/HelloOBJ.hs +++ b/examples/HelloOBJ.hs | |||
| @@ -36,7 +36,7 @@ objToMesh WavefrontOBJ{..} = [(toMesh faceGroup, elMtl . head $ faceGroup) | fac | |||
| 36 | } where | 36 | } where |
| 37 | triangulate (Triangle a b c) = [a,b,c] | 37 | triangulate (Triangle a b c) = [a,b,c] |
| 38 | triangulate (Quad a b c d) = [a,b,c, c,d,a] | 38 | triangulate (Quad a b c d) = [a,b,c, c,d,a] |
| 39 | triangulate _ = [] | 39 | triangulate (Face a b c l) = a : b : c : concatMap (\(x,y) -> [a,x,y]) (zip (c:l) l) -- should work for convex polygons without holes |
| 40 | defaultPosition = Location 0 0 0 0 | 40 | defaultPosition = Location 0 0 0 0 |
| 41 | defaultNormal = Normal 0 0 0 | 41 | defaultNormal = Normal 0 0 0 |
| 42 | defaultTexCoord = TexCoord 0 0 0 | 42 | defaultTexCoord = TexCoord 0 0 0 |