glome-hs-0.5: Plane.hs

module Plane (plane, plane_offset) where
import Vec
import Solid

-- A plane is effectively a half-space; everything below the plane is
-- "inside", everything above is "outside".

data Plane = Plane Vec Flt deriving Show -- normal, perpendicular offset from origin

-- Usually, the most convenient way to define a plane is 
-- by specifying a point on the plane and a normal

plane :: Vec -> Vec -> SolidItem
plane orig norm_ = SolidItem $ Plane norm d
 where norm = vnorm norm_
       d = vdot orig norm

-- we can also specify a point and a perpindicular offset:

plane_offset :: Vec -> Flt -> SolidItem
plane_offset pt off = SolidItem $ Plane pt off

rayint_plane :: Plane -> Ray -> Flt -> Texture -> Rayint
rayint_plane (Plane norm offset) (Ray orig dir) d t =
 let hit = -(((vdot norm orig)-offset) / (vdot norm dir))
 in if hit < 0 || hit > d 
    then RayMiss
    else RayHit hit (vscaleadd orig dir hit) norm t

inside_plane :: Plane -> Vec -> Bool
inside_plane (Plane norm offset) pt =
 let onplane = (vscale norm offset)
     newvec = vsub onplane pt
 in vdot newvec norm > 0

-- Note: attempting to use an infinite object (such as
-- a plane) inside a bih will cause an exception.

bound_plane :: Plane -> Bbox
bound_plane (Plane norm offset) = everything_bbox

instance Solid Plane where
 rayint = rayint_plane
 inside = inside_plane
 bound = bound_plane