diff --git a/src/CommandBuffer.hs b/src/CommandBuffer.hs index 6b671d3..1748988 100644 --- a/src/CommandBuffer.hs +++ b/src/CommandBuffer.hs @@ -323,10 +323,10 @@ pokeData frame frameNumber sceneParameters cameraParameters = do V.mapM_ (\(index, obj) -> do - let modelMatrix = GPUObjectData (objectMatrix obj) + let modelMatrix = GPUObjectData (transpose $ objectMatrix obj) liftIO $ poke - (objectPointer `plusPtr` (index * sizeOf (undefined :: GPUObjectData))) + (castPtr objectPointer `plusPtr` (index * sizeOf (undefined :: GPUObjectData))) modelMatrix ) (V.zip