changed to wireframe-rendering

This commit is contained in:
Nicole Dresselhaus 2014-07-07 15:22:57 +02:00
parent b095907d9b
commit 81131de915
No known key found for this signature in database
GPG Key ID: BC16D887851A1A80

View File

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