Sundqvist parser: support vp token.

1 files changed, 5 insertions, 1 deletions

diff --git a/src/Graphics/WaveFront/Parse/OBJ.hs b/src/Graphics/WaveFront/Parse/OBJ.hs
index 2c3919e..df4b52e 100644
--- a/src/Graphics/WaveFront/Parse/OBJ.hs
+++ b/src/Graphics/WaveFront/Parse/OBJ.hs
@@ -83,6 +83,7 @@ token = (Atto.string "f"  *> face)     <|>
         -- TODO: How to deal with common prefix (v, vn, vt) (backtrack?) (doesn't seem to be a problem)
         (Atto.string "vn" *> normal)   <|>
         (Atto.string "vt" *> texcoord) <|>
+        (Atto.string "vp" *> paramcoord) <|>
         (Atto.string "v"  *> vertex)   <|>
         (Atto.string "o"  *> object)   <|>
         (Atto.string "g"  *> group)    <|>
@@ -137,10 +138,13 @@ normal :: (Fractional f) => Atto.Parser (OBJToken f Text i m)
 normal = OBJNormal <$> point3D
 
 
--- | Two coordinates, separated by whitespace
+-- | One to three coordinates, separated by whitespace
 texcoord :: (Fractional f) => Atto.Parser (OBJToken f Text i m)
 texcoord = OBJTexCoord <$> pointTo3 1 0.0
 
+-- | One to three coordinates, separated by whitespace
+paramcoord :: (Fractional f) => Atto.Parser (OBJToken f Text i m)
+paramcoord = OBJParamCoord <$> pointTo3 1 0.0
 
 -- | Three coordinates, separated by whitespace
 vertex :: (Fractional f) =>  Atto.Parser (OBJToken f s i m)