diff options
Diffstat (limited to 'src/Codec/Wavefront/Object.hs')
-rw-r--r-- | src/Codec/Wavefront/Object.hs | 3 |
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) |