diff options
-rw-r--r-- | Spiral.hs | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -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] |