addPoint (AABB n x) p = AABB (Point (min (px n) (px p)) (min (py n) (py p)) (min (pz n) (pz p)))
                             (Point (max (px x) (px p)) (max (py x) (py p)) (max (pz x) (pz p)))
addPoint (AABB n x) p = AABB (Point (min (px n) (px p)) (min (py n) (py p)) (min (pz n) (pz p)))
                             (Point (max (px x) (px p)) (max (py x) (py p)) (max (pz x) (pz p)))
addPoint (AABB n x) p = AABB (Point (min (px n) (px p)) (min (py n) (py p)) (min (pz n) (pz p)))
                             (Point (max (px x) (px p)) (max (py x) (py p)) (max (pz x) (pz p)))