module Dodge.Shadows where

import Shape.Data

drawAllShadows :: Surface -> Bool
drawAllShadows = const False

drawShadowsByImportance :: Importance -> Surface -> Bool
drawShadowsByImportance si = (si <) . _sfShadowImportance

setShadowLimits :: (Size -> Importance) -> Surface -> Bool
setShadowLimits f s = _sfShadowImportance s < f (_sfSize s)