1 files changed, 15 insertions, 0 deletions

diff --git a/src/Codec/Wavefront/Token.hs b/src/Codec/Wavefront/Token.hs
index 31e62e7..71691a8 100644
--- a/src/Codec/Wavefront/Token.hs
+++ b/src/Codec/Wavefront/Token.hs
@@ -34,6 +34,7 @@ data Token
   = TknV Location
   | TknVN Normal
   | TknVT TexCoord
+  | TknVP ParamCoord
   | TknP [Point]
   | TknL [Line]
   | TknF Face
@@ -55,6 +56,7 @@ tokenize = fmap cleanupTokens . analyseResult False . parse (untilEnd tokenizer)
         fmap (Just . TknV) location
       , fmap (Just . TknVN) normal
       , fmap (Just . TknVT) texCoord
+      , fmap (Just . TknVP) paramCoord
       , fmap (Just . TknP) points
       , fmap (Just . TknL) lines
       , fmap (Just . TknF) face
@@ -116,6 +118,19 @@ texCoord = skipSpace *> string "vt " *> skipHSpace *> parseUVW <* eol
         _ -> fail "wrong number of u, v and w arguments for texture coordinates"
 
 ----------------------------------------------------------------------------------------------------
+-- Parameter-space coordinates -----------------------------------------------------------------------------
+
+paramCoord :: Parser ParamCoord
+paramCoord = skipSpace *> string "vp " *> skipHSpace *> parseUVW <* eol
+  where
+    parseUVW = do
+      uvw <- float `sepBy1` skipHSpace
+      case uvw of
+        [u,v] -> pure (ParamCoord u v 0)
+        [u,v,w] -> pure (ParamCoord u v w)
+        _ -> fail "wrong number of u, v and w arguments for parameter-space coordinates"
+
+----------------------------------------------------------------------------------------------------
 -- Points ------------------------------------------------------------------------------------------
 
 points :: Parser [Point]