From 81131de915a7d98c85f815433dc589167063fb99 Mon Sep 17 00:00:00 2001
From: Stefan Dresselhaus <sdressel@techfak.uni-bielefeld.de>
Date: Mon, 7 Jul 2014 15:22:57 +0200
Subject: [PATCH] changed to wireframe-rendering

---
 src/Render/Render.hs | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/Render/Render.hs b/src/Render/Render.hs
index d425842..cd8b202 100644
--- a/src/Render/Render.hs
+++ b/src/Render/Render.hs
@@ -326,6 +326,7 @@ drawMap = do
         glPatchParameteri gl_PATCH_VERTICES 3
 
         cullFace $= Nothing --Just Front
+        polygonMode $= (Line,Line)
 
         glDrawArrays gl_PATCHES 0 (fromIntegral numVert)
 
@@ -490,6 +491,7 @@ render = do
         -- Drawing HUD
         clear [ColorBuffer, DepthBuffer]
         checkError "clear buffer"
+        polygonMode $= (Fill,Fill)
 
         let hud    = state ^. gl.glHud
             stride = fromIntegral $ sizeOf (undefined::GLfloat) * 2