diff --git a/Sound/Tidal/Vis.hs b/Sound/Tidal/Vis.hs
--- a/Sound/Tidal/Vis.hs
+++ b/Sound/Tidal/Vis.hs
@@ -12,11 +12,11 @@
 vPDF = v C.withPDFSurface
 vSVG = v C.withSVGSurface
 
-v sf fn pat = 
-  sf fn 1000 200 $ \surf -> do
+v sf fn (x,y) pat = 
+  sf fn x y $ \surf -> do
     C.renderWith surf $ do  
       C.save 
-      C.scale 1000 200
+      C.scale x y
       C.setOperator C.OperatorOver
       C.setSourceRGB 0 0 0 
       C.rectangle 0 0 1 1
diff --git a/tidal-vis.cabal b/tidal-vis.cabal
--- a/tidal-vis.cabal
+++ b/tidal-vis.cabal
@@ -1,5 +1,5 @@
 name:                tidal-vis
-version:             0.1.1
+version:             0.1.2
 synopsis:            Visual rendering for Tidal patterns
 -- description:         
 homepage:            http://yaxu.org/tidal/