From c819d0ecd11dac28536bb55b8e5226acff9f6757 Mon Sep 17 00:00:00 2001 From: Spencer Janssen Date: Wed, 16 May 2007 03:44:54 +0200 Subject: Use camelCase, please. darcs-hash:20070516014454-a5988-48a5ca0e1ee75c6636a669e28484016eecc0f2fe --- Operations.hs | 20 ++++++++++---------- 1 file changed, 10 insertions(+), 10 deletions(-) diff --git a/Operations.hs b/Operations.hs index a966430..faf9aed 100644 --- a/Operations.hs +++ b/Operations.hs @@ -133,21 +133,21 @@ mirrorLayout (Layout { doLayout = dl, modifyLayout = ml }) = -- tile :: Rational -> Rectangle -> Int -> [Rectangle] tile _ d n | n < 2 = [d] -tile f r n = r1 : split_vertically (n-1) r2 - where (r1,r2) = split_horizontally_by f r +tile f r n = r1 : splitVertically (n-1) r2 + where (r1,r2) = splitHorizontallyBy f r -split_vertically, split_horizontally :: Int -> Rectangle -> [Rectangle] -split_vertically n r | n < 2 = [r] -split_vertically n (Rectangle sx sy sw sh) = Rectangle sx sy sw smallh : - split_vertically (n-1) (Rectangle sx (sy+fromIntegral smallh) sw (sh-smallh)) +splitVertically, splitHorizontally :: Int -> Rectangle -> [Rectangle] +splitVertically n r | n < 2 = [r] +splitVertically n (Rectangle sx sy sw sh) = Rectangle sx sy sw smallh : + splitVertically (n-1) (Rectangle sx (sy+fromIntegral smallh) sw (sh-smallh)) where smallh = sh `div` fromIntegral n -split_horizontally n r = map mirrorRect $ split_vertically n $ mirrorRect r +splitHorizontally n r = map mirrorRect $ splitVertically n $ mirrorRect r -split_horizontally_by, split_vertically_by :: Rational -> Rectangle -> (Rectangle, Rectangle) -split_horizontally_by f (Rectangle sx sy sw sh) = +splitHorizontallyBy, splitVerticallyBy :: Rational -> Rectangle -> (Rectangle, Rectangle) +splitHorizontallyBy f (Rectangle sx sy sw sh) = (Rectangle sx sy leftw sh, Rectangle (sx + fromIntegral leftw) sy (sw-fromIntegral leftw) sh) where leftw = floor $ fromIntegral sw * f -split_vertically_by f r = (\(a,b)->(mirrorRect a,mirrorRect b)) $ split_horizontally_by f $ mirrorRect r +splitVerticallyBy f r = (\(a,b)->(mirrorRect a,mirrorRect b)) $ splitHorizontallyBy f $ mirrorRect r ------------------------------------------------------------------------ -- cgit v1.2.3