15 lines
348 B
Haskell
15 lines
348 B
Haskell
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)
|
|
|
|
|