diff --git a/src/Text/Xournal/Builder.hs b/src/Text/Xournal/Builder.hs
--- a/src/Text/Xournal/Builder.hs
+++ b/src/Text/Xournal/Builder.hs
@@ -10,6 +10,7 @@
 -- Stability   : experimental
 -- Portability : GHC
 --
+-----------------------------------------------------------------------------
 
 module Text.Xournal.Builder where
 
@@ -86,18 +87,43 @@
                   <> fromByteString "</layer>\n"
 
 fromStroke :: Stroke -> Builder
-fromStroke stroke = fromByteString "<stroke tool=\""
-                    <> fromByteString (stroke_tool stroke)
-                    <> fromByteString "\" color=\""
-                    <> fromByteString (stroke_color stroke)
-                    <> fromByteString "\" width=\""
-                    <> fromByteString (toFixed 2 (stroke_width stroke))
-                    <> fromByteString "\">\n"
-                    <> mconcat (map fromCoord (stroke_data stroke))
-                    <> fromByteString "\n</stroke>\n"
+fromStroke stroke@(Stroke _ _ _ _) = 
+    fromByteString "<stroke tool=\""
+    <> fromByteString (stroke_tool stroke)
+    <> fromByteString "\" color=\""
+    <> fromByteString (stroke_color stroke)
+    <> fromByteString "\" width=\""
+    <> fromByteString (toFixed 2 (stroke_width stroke))
+    <> fromByteString "\">\n"
+    <> mconcat (map from2DCoord (stroke_data stroke))
+    <> fromByteString "\n</stroke>\n"
+fromStroke stroke@(VWStroke _ _ _) =
+    fromByteString "<stroke tool=\""
+    <> fromByteString (stroke_tool stroke)
+    <> fromByteString "\" color=\""
+    <> fromByteString (stroke_color stroke)
+    <> fromByteString "\" width=\""
+    <> mconcat (map zFrom3DCoord (stroke_vwdata stroke))
+    <> fromByteString "\">\n"
+    <> mconcat (map xyFrom3DCoord (stroke_vwdata stroke))
+    <> fromByteString "\n</stroke>\n"
+  
+-- | 
 
-fromCoord :: Pair Double Double -> Builder 
-fromCoord (x :!: y) = fromByteString (toFixed 2 x) 
+from2DCoord :: Pair Double Double -> Builder 
+from2DCoord (x :!: y) = fromByteString (toFixed 2 x) 
                       <> fromChar ' ' 
                       <> fromByteString (toFixed 2 y) 
                       <> fromChar ' ' 
+                      
+-- |                       
+
+xyFrom3DCoord :: (Double,Double,Double) -> Builder 
+xyFrom3DCoord (x,y,_) =  fromByteString (toFixed 2 x) 
+                         <> fromChar ' ' 
+                         <> fromByteString (toFixed 2 y)
+                         <> fromChar ' ' 
+                         
+zFrom3DCoord :: (Double,Double,Double) -> Builder 
+zFrom3DCoord (_,_,z) = fromByteString (toFixed 2 z) 
+                       <> fromChar ' '
diff --git a/xournal-builder.cabal b/xournal-builder.cabal
--- a/xournal-builder.cabal
+++ b/xournal-builder.cabal
@@ -1,5 +1,5 @@
 Name:		xournal-builder
-Version:	0.1.0.2
+Version:	0.1.1
 Synopsis:	text builder for xournal file format 
 Description: 	This library builds text xoj format file from xournal data structure
 License: 	BSD3
@@ -20,7 +20,7 @@
   ghc-prof-options: -caf-all -auto-all
   Build-Depends: 
                    base == 4.*,
-                   xournal-types >= 0.1 && < 0.4, 
+                   xournal-types == 0.4.*,
                    blaze-builder == 0.3.*, 
                    strict == 0.3.*, 
                    double-conversion == 0.2.*,