From 01a74bc7849aba9306f4c48b4bb0673aed5f6cd3 Mon Sep 17 00:00:00 2001
From: "joachim.fasting" <joachim.fasting@gmail.com>
Date: Tue, 19 Jun 2007 01:20:51 +0200
Subject: Circle.hs: only compute sqrt 2 once.

darcs-hash:20070618232051-ea16c-2d78b71c7164302c56e2dfd11fdac9f6f4830624.gz
---
 Circle.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'Circle.hs')

diff --git a/Circle.hs b/Circle.hs
index 211d8b9..133a730 100644
--- a/Circle.hs
+++ b/Circle.hs
@@ -38,8 +38,9 @@ circleLayout r (w:ws) = return $ (w, center r) : (zip ws sats)
 
 center :: Rectangle -> Rectangle
 center (Rectangle sx sy sw sh) = Rectangle x y w h
-    where w = round ((fromIntegral sw / sqrt 2) :: Double)
-          h = round ((fromIntegral sh / sqrt 2) :: Double)
+    where s = sqrt 2
+          w = round ((fromIntegral sw / s) :: Double)
+          h = round ((fromIntegral sh / s) :: Double)
           x = sx + fromIntegral (sw - w) `div` 2
           y = sy + fromIntegral (sh - h) `div` 2
 
-- 
cgit v1.2.3