diff options
Diffstat (limited to 'Spear/Math/Octree.hs')
| -rw-r--r-- | Spear/Math/Octree.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Spear/Math/Octree.hs b/Spear/Math/Octree.hs index 1e257eb..15f7dde 100644 --- a/Spear/Math/Octree.hs +++ b/Spear/Math/Octree.hs | |||
| @@ -11,9 +11,9 @@ module Spear.Math.Octree | |||
| 11 | ) | 11 | ) |
| 12 | where | 12 | where |
| 13 | 13 | ||
| 14 | import Spear.Collision.AABB as AABB | ||
| 15 | import Spear.Collision.Types | 14 | import Spear.Collision.Types |
| 16 | import Spear.Math.Vector3 as Vector | 15 | import Spear.Math.AABB |
| 16 | import Spear.Math.Vector3 | ||
| 17 | 17 | ||
| 18 | import Control.Applicative ((<*>)) | 18 | import Control.Applicative ((<*>)) |
| 19 | import Data.List | 19 | import Data.List |
| @@ -93,7 +93,7 @@ clone (Octree root ents c1 c2 c3 c4 c5 c6 c7 c8) = Octree root [] c1' c2' c3' c4 | |||
| 93 | 93 | ||
| 94 | 94 | ||
| 95 | keep :: (e -> AABB -> CollisionType) -> AABB -> e -> Bool | 95 | keep :: (e -> AABB -> CollisionType) -> AABB -> e -> Bool |
| 96 | keep testAABB aabb e = test == FullyContainedBy || test == Equal | 96 | keep testAABB aabb e = test == FullyContainedBy |
| 97 | where test = e `testAABB` aabb | 97 | where test = e `testAABB` aabb |
| 98 | 98 | ||
| 99 | 99 | ||
