twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-08-09 00:11:52 -07:00
Code Issues Packages Projects Releases Wiki Activity

Circle.hs: only compute sqrt 2 once.

Browse Source
This commit is contained in:
joachim.fasting
2007-06-18 23:20:51 +00:00
parent 9715298a0e
commit 0f4d83c6ca
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
Circle.hs
View File

@@ -38,8 +38,9 @@ circleLayout r (w:ws) = return $ (w, center r) : (zip ws sats)
center :: Rectangle -> Rectangle center :: Rectangle -> Rectangle
center (Rectangle sx sy sw sh) = Rectangle x y w h center (Rectangle sx sy sw sh) = Rectangle x y w h
where w = round ((fromIntegral sw / sqrt 2) :: Double) where s = sqrt 2
h = round ((fromIntegral sh / sqrt 2) :: Double) w = round ((fromIntegral sw / s) :: Double)
h = round ((fromIntegral sh / s) :: Double)
x = sx + fromIntegral (sw - w) `div` 2 x = sx + fromIntegral (sw - w) `div` 2
y = sy + fromIntegral (sh - h) `div` 2 y = sy + fromIntegral (sh - h) `div` 2