aboutsummaryrefslogtreecommitdiff
path: root/Spear/Math/Octree.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Spear/Math/Octree.hs')
-rw-r--r--Spear/Math/Octree.hs6
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)
12where 12where
13 13
14import Spear.Collision.AABB as AABB
15import Spear.Collision.Types 14import Spear.Collision.Types
16import Spear.Math.Vector3 as Vector 15import Spear.Math.AABB
16import Spear.Math.Vector3
17 17
18import Control.Applicative ((<*>)) 18import Control.Applicative ((<*>))
19import Data.List 19import 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
95keep :: (e -> AABB -> CollisionType) -> AABB -> e -> Bool 95keep :: (e -> AABB -> CollisionType) -> AABB -> e -> Bool
96keep testAABB aabb e = test == FullyContainedBy || test == Equal 96keep testAABB aabb e = test == FullyContainedBy
97 where test = e `testAABB` aabb 97 where test = e `testAABB` aabb
98 98
99 99