1 files changed, 2 insertions, 2 deletions
diff --git a/Spiral.hs b/Spiral.hs
index 0e88b81..c0aad78 100644
--- a/Spiral.hs
+++ b/Spiral.hs
@@ -69,8 +69,8 @@ spiralWithDir dir rot scale = Layout { doLayout = l2lModDo fibLayout,
                 dirs  = dropWhile (/= dir) $ case rot of
                                                CW  -> cycle [East .. North] 
                                                CCW -> cycle [North, West, South, East]
-      resize Expand = spiral $ (21 % 20) * scale
-      resize Shrink = spiral $ (20 % 21) * scale
+      resize Expand = spiralWithDir dir rot $ (21 % 20) * scale
+      resize Shrink = spiralWithDir dir rot $ (20 % 21) * scale
 
 -- This will produce one more rectangle than there are splits details
 divideRects :: [(Rational, Direction)] -> Rectangle -> [Rectangle]