fixed bits & pieces here and there

refs #482 @20m
refs #470 @15m

shaders/mapobjects/vertex.shader

@@ -1,11 +1,11 @@
 #version 330
 
-in vec3 Position;
-in vec3 Normal;
+layout(location=0) in vec3 Position;
+layout(location=1) in vec3 Normal;
 uniform mat4 ProjectionMatrix;
 uniform mat4 ViewMatrix;
 uniform mat3 NormalMatrix;
-uniform vec3 PositionOffset;
+uniform vec3 PositionOffset = vec3(25,5,25);
 uniform float TessLevelInner = 1.0; // controlled by keyboard buttons
 uniform float TessLevelOuter = 1.0; // controlled by keyboard buttons
 
@@ -14,6 +14,6 @@ out vec3 vNormal;
 
 void main () {
    vPosition = Position;
-   gl_Position = ProjectionMatrix * ViewMatrix * vec4(Position, 1);
+   gl_Position = ProjectionMatrix * ViewMatrix * vec4(PositionOffset + 10*Position, 1);
    vNormal = Normal;
 }

src/Importer/IQM/Parser.hs

@@ -275,7 +275,8 @@ readInVAO d (IQMVertexArray type' a format num offset ptr) =
 
         unless (ptr == nullPtr) $ error $ "Error reading Vertex-Array: Double Read of " ++ show type'
         p <- mallocBytes byteLen
-		putStrLn $ concat ["Allocating ", show byteLen, " Bytes at ", show p]
+        putStrLn $ concat ["Allocating ", show num,"x",show (vaSize format)," = ", show byteLen, " Bytes at ", show p, " for ", show type']
+        putStrLn $ concat ["Filling with: ", show data', " starting at ", show offset]
         unsafeUseAsCString data' (\s -> copyBytes p s byteLen)
         return $ IQMVertexArray type' a format num offset $ castPtr p
 		
@@ -308,5 +309,8 @@ doIQMparse vao =
 --   by the Offsets provided.
 --
 --   O(1).
-skipDrop :: Int -> Int -> ByteString -> ByteString
-skipDrop a b= B.drop b . B.take a
+skipDrop :: Int -- ^ Bytes to drop
+         -> Int -- ^ Bytes to take
+         -> ByteString 
+         -> ByteString
+skipDrop a b= B.take b . B.drop a

src/Render/Render.hs

@@ -180,8 +180,9 @@ initMapShader tessFac (buf, vertDes) = do
    checkError "PositionOffset"
 
    att' <- get (activeAttribs objProgram)
-
    putStrLn $ unlines $ "Model-Attributes: ":map show att'
+   uni' <- get (activeUniforms objProgram)
+   putStrLn $ unlines $ "Model-Uniforms: ":map show uni'
    putStrLn $ unlines $ ["Model-Indices: ", show (texIndex', normalIndex', vertexIndex')]
    checkError "initShader"
    let sdata = MapShaderData
@@ -286,7 +287,8 @@ initRendering = do
 renderIQM :: IQM -> L.V3 CFloat -> L.V3 CFloat -> IO ()
 renderIQM m p@(L.V3 x y z) s@(L.V3 sx sy sz) = do
     bindVertexArrayObject $= Just (vertexArrayObject m)
-	glDrawArrays gl_TRIANGLES 0 3
+    let n = num_vertexes $ header m
+    glDrawArrays gl_TRIANGLES 0 (fromIntegral n)
     return ()
 
 renderObject :: MapObject -> IO ()
@@ -485,21 +487,15 @@ render = do
         checkError "setting up shadowmap-program"
 
         --set up projection (= copy from state)
-        --TODO: Fix width/depth
         mat44ToGPU frust projmo "mapObjects-projection"
-
         --set up camera
-        --TODO: Fix magic constants... and camPos
         let ! cam = getCam camPos zDist' xa ya
         mat44ToGPU cam vmatmo "mapObjects-cam"
-
-        --set up normal--Mat transpose((model*camera)^-1)
-        --needed?
+        --set up normal
         let normal' = (case L.inv33 (fmap (^. L._xyz) cam ^. L._xyz) of
                                              (Just a) -> a
                                              Nothing  -> L.eye3) :: L.M33 CFloat
             nmap = collect id normal' :: L.M33 CFloat --transpose...
-
         mat33ToGPU nmap nmatmo "mapObjects-nmat"
 
         mapM_ renderObject (state ^. gl.glMap.mapObjects)