From 5d1deba9b97b8d06f935a39bc3dc0f5935458502 Mon Sep 17 00:00:00 2001
From: "Yann Esposito (Yogsototh)" <Yann.Esposito@gmail.com>
Date: Fri, 11 Jan 2013 16:30:08 +0100
Subject: [PATCH] Better focus

---
 haskell/flame.lhs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/haskell/flame.lhs b/haskell/flame.lhs
index b52785f..2db6e62 100644
--- a/haskell/flame.lhs
+++ b/haskell/flame.lhs
@@ -278,7 +278,7 @@ it seems natural to add the size of the view as parameter.
 
 > -- The final transformation to transform the final result (zoom,rotate,translate)
 > final :: Int -> Point -> Point
-> final width = trans (w/2,w/2) . zoom (w/10)  . rot (- pi)
+> final width = trans (w/2,w) . zoom (w/10)  . rot (- pi)
 >               where w = fromIntegral width
 
 And now the F_i functions.