Add support for clamping pictures to be inside screen

src/Dodge/Menu.hs

@@ -12,7 +12,7 @@ import Preload.Update
 import Dodge.Base.Window
 import Dodge.SoundLogic
 import Picture
-import Geometry
+--import Geometry
 
 import Control.Lens
 import Data.Maybe
@@ -193,10 +193,3 @@ controlsList = pictures $ concat $ zipWith butAndEff
         ,translate     0  y $ scale 0.15 0.15 $ color white $ text etext
         ]
 
-screenBox 
-    :: World
-    -> [Point2]
-screenBox w = rectNSEW hh (-hh) hw (-hw)
-  where
-    hw = halfWidth w
-    hh = halfHeight w