doh! fragment-shader war rot zu testzwecken -.-

shaders/fragment.shader

@@ -8,5 +8,5 @@ out vec4 fg_FragColor;
 void main(void)
 {
 //copy-shader
-   fg_FragColor = vec4(1,0,0,1) + 0.01* fg_SmoothColor;
+   fg_FragColor = fg_SmoothColor;
 }

shaders/vertex.shader

@@ -11,7 +11,7 @@ in vec3 fg_VertexIn;
 in vec3 fg_NormalIn;
 
 //output-data for later stages
-out vec4 fg_SmoothColor;
+smooth out vec4 fg_SmoothColor;
 
 void main()
 {

src/Map/Map.hs

@@ -71,10 +71,10 @@ fgVertexIndex = (ToFloat, mapVertexArrayDescriptor 3 7) --vertex after normal
 getMapBufferObject :: IO (BufferObject, NumArrayIndices)
 getMapBufferObject = do
         map' <- testmap
-        ! map' <- return $ P.map (*1) (generateTriangles map')
-        putStrLn $ P.unlines $ P.map show (prettyMap map')
+        ! map' <- return $ generateTriangles map'
+        --putStrLn $ P.unlines $ P.map show (prettyMap map')
         len <- return $ fromIntegral $ P.length map' `div` numComponents
-        putStrLn $ P.unwords ["num verts",show len]
+        putStrLn $ P.unwords ["num verts in map:",show len]
         bo <- genObjectName                     -- create a new buffer
         bindBuffer ArrayBuffer $= Just bo       -- bind buffer
         withArray map' $ \buffer ->