From 2944d367037324db2a994293b4f5112a12dda089 Mon Sep 17 00:00:00 2001
From: Stefan Dresselhaus <sdressel@techfak.uni-bielefeld.de>
Date: Fri, 16 May 2014 19:06:05 +0200
Subject: [PATCH] changed camera-height

---
 src/Render/Types.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Render/Types.hs b/src/Render/Types.hs
index 8e7bf49..5191322 100644
--- a/src/Render/Types.hs
+++ b/src/Render/Types.hs
@@ -40,7 +40,7 @@ instance GLCamera Camera where
   getCam (Flat (x',z') y') dist' xa' ya' =
         lookAt (cpos ^+^ at') at' up
                      where
-                        at'   = V3 x y z
+                        at'   = V3 x (y+2) z
                         cpos  = crot !* (V3 0 0 (-dist))
                         crot  = (
                                 (fromQuaternion $ axisAngle upmap (xa::CFloat))