From c0f2103f05549c8616000915394812874efa64b2 Mon Sep 17 00:00:00 2001
From: bobstopper <bobstopper@bobturf.org>
Date: Wed, 8 Aug 2007 22:47:52 +0200
Subject: fix Expand/Shrink for spiralWithDir

darcs-hash:20070808204752-ee4f8-2958869a43740d4d2bd15cabb30c6b7dd78a3e50.gz
---
 Spiral.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'Spiral.hs')

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]
-- 
cgit v1.2.3