Add file

src/Dodge/Shadows.hs

@@ -0,0 +1,14 @@
+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)
+
+