1 files changed, 16 insertions, 1 deletions

diff --git a/src/Codec/Wavefront/TexCoord.hs b/src/Codec/Wavefront/TexCoord.hs
index 02e5c5a..0eb09f4 100644
--- a/src/Codec/Wavefront/TexCoord.hs
+++ b/src/Codec/Wavefront/TexCoord.hs
@@ -18,10 +18,25 @@ module Codec.Wavefront.TexCoord where
 --   let TexCoord r s t = TexCoord 0.1 0.2 0.3
 -- @
 --
--- That type is strcit and unboxed.
+-- That type is strict and unboxed.
 data TexCoord = TexCoord {
     texcoordR :: {-# UNPACK #-} !Float
   , texcoordS :: {-# UNPACK #-} !Float
   , texcoordT :: {-# UNPACK #-} !Float
   } deriving (Eq,Show)
 
+
+-- |A parameter-space coordinate is a 3D-floating vector. You can access to its components by pattern
+-- matching on them:
+--
+-- @
+--   let ParamCoord r s t = ParamCoord 0.1 0.2 0.3
+-- @
+--
+-- That type is strict and unboxed.
+data ParamCoord = ParamCoord {
+    paramcoordR :: {-# UNPACK #-} !Float
+  , paramcoordS :: {-# UNPACK #-} !Float
+  , paramcoordT :: {-# UNPACK #-} !Float
+  } deriving (Eq,Show)
+