summaryrefslogtreecommitdiff
path: root/src/Codec/Wavefront/Object.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Codec/Wavefront/Object.hs')
-rw-r--r--src/Codec/Wavefront/Object.hs3
1 files changed, 3 insertions, 0 deletions
diff --git a/src/Codec/Wavefront/Object.hs b/src/Codec/Wavefront/Object.hs
index 15557fe..bdd756f 100644
--- a/src/Codec/Wavefront/Object.hs
+++ b/src/Codec/Wavefront/Object.hs
@@ -30,6 +30,8 @@ data WavefrontOBJ = WavefrontOBJ {
30 , objTexCoords :: Vector TexCoord 30 , objTexCoords :: Vector TexCoord
31 -- |Normals. 31 -- |Normals.
32 , objNormals :: Vector Normal 32 , objNormals :: Vector Normal
33 -- |Parameter-space coordinates.
34 , objParamCoords :: Vector ParamCoord
33 -- |Points. 35 -- |Points.
34 , objPoints :: Vector (Element Point) 36 , objPoints :: Vector (Element Point)
35 -- |Lines. 37 -- |Lines.
@@ -45,6 +47,7 @@ ctxtToWavefrontOBJ ctxt = WavefrontOBJ {
45 objLocations = fromDList (ctxtLocations ctxt) 47 objLocations = fromDList (ctxtLocations ctxt)
46 , objTexCoords = fromDList (ctxtTexCoords ctxt) 48 , objTexCoords = fromDList (ctxtTexCoords ctxt)
47 , objNormals = fromDList (ctxtNormals ctxt) 49 , objNormals = fromDList (ctxtNormals ctxt)
50 , objParamCoords = fromDList (ctxtParamCoords ctxt)
48 , objPoints = fromDList (ctxtPoints ctxt) 51 , objPoints = fromDList (ctxtPoints ctxt)
49 , objLines = fromDList (ctxtLines ctxt) 52 , objLines = fromDList (ctxtLines ctxt)
50 , objFaces = fromDList (ctxtFaces ctxt) 53 , objFaces = fromDList (ctxtFaces ctxt)