Fixed chunk confusion.

Author: bryanedds

Nu/Nu/World/WorldBlockMap.fs

@@ -22,7 +22,7 @@ module BlockEditor =
         let mutable blockEditor = clear blockEditor entity world
         for pass in blockEditor.Passes.Values do
             for processor in pass.Processors do
-                let affine = entity.GetAffineMatrixLocal world
+                let affine = Affine.make (entity.GetPosition world) (entity.GetRotation world) (entity.GetScale world)
                 match World.tryProcessChunk affine processor blockEditor.BlockMap.Chunk entity world with
                 | Some chunk -> blockEditor <- { blockEditor with BlockMap = { blockEditor.BlockMap with Chunk = chunk }}
                 | None -> ()

Nu/Nu/World/WorldModule.fs

@@ -967,14 +967,13 @@ module WorldModule =
                                             | Some block -> (positionI, block)
                                             | None -> ()|]
                                 |> Map.ofArray
-                            let affine = Affine.Identity
-                            let chunk' = BlockMap.Chunk.make chunkBounds blocks
-                            let chunk'' =
-                                match fn volume affine processor.ProcessParams chunk' with
+                            let subchunk = BlockMap.Chunk.make chunkBounds blocks
+                            let subchunk' =
+                                match fn volume affine processor.ProcessParams subchunk with
                                 | Some effect -> effect entity world
-                                | None -> chunk'
-                            for struct (positionI, block) in chunk''.Blocks.Pairs' do
-                                match BlockMap.Chunk.trySetBlock (chunkBounds.Min + positionI) block chunk'' with
+                                | None -> subchunk
+                            for struct (positionI, block) in subchunk'.Blocks.Pairs' do
+                                match BlockMap.Chunk.trySetBlock (chunkBounds.Min + positionI) block chunk with
                                 | Some chunk' -> chunk <- chunk'
                                 | None -> ()
                 Some chunk