corners (AABB n x) = [ Point nx ny nz, Point nx ny xz, Point nx xy nz, Point nx xy xz
                     , Point xx ny nz, Point xx ny xz, Point xx xy nz, Point xx xy xz ]
  where nx=px n; ny=py n; nz=pz n
        xx=px x; xy=py x; xz=pz x

-- TODO: convert to bounding sphere
corners (AABB n x) = [ Point nx ny nz, Point nx ny xz, Point nx xy nz, Point nx xy xz
                     , Point xx ny nz, Point xx ny xz, Point xx xy nz, Point xx xy xz ]
  where nx=px n; ny=py n; nz=pz n
        xx=px x; xy=py x; xz=pz x

-- TODO: convert to bounding sphere
corners (AABB n x) = [ Point nx ny nz, Point nx ny xz, Point nx xy nz, Point nx xy xz
                     , Point xx ny nz, Point xx ny xz, Point xx xy nz, Point xx xy xz ]
  where nx=px n; ny=py n; nz=pz n
        xx=px x; xy=py x; xz=pz x

-- TODO: convert to bounding sphere