Cleanup

src/Dodge/Render/Picture.hs

@@ -8,7 +8,6 @@ import Dodge.Base
 import Dodge.Base.Window
 import Dodge.Zone
 import Dodge.Graph
-import Dodge.Picture
 import Dodge.Picture.SizeInvariant
 import Dodge.Picture.Layer
 import Dodge.Render.HUD
@@ -211,39 +210,6 @@ extendConeToScreenEdge w c (x,y) = orderPolygon $ wallScreenIntersect ++ [x,y] +
 rectangleSolid :: Float -> Float -> Picture
 rectangleSolid x y = polygon $ map toV2 [(x,y),(x,-y),(-x,-y),(-x,y)]
 
-
-ffToDraw :: World -> [ForceField]
-ffToDraw _ = []
---    filter (lineOnScreen w . _ffLine) $
---                IM.elems $ over ffLine (map ( -.- _cameraCenter w)) <$> 
---                _forceFields w
-
-drawFF :: ForceField -> Picture
-drawFF FF{_ffLine = l, _ffColor = col} = pictures 
-    [color white $ line l
-    , color col $ lineOfThickness 6 l 
-    ]
-
-drawFFShadow :: World -> ForceField -> [Picture]
-drawFFShadow w ff
-    | youOnFF   = []
-    | otherwise = map (rotate ( _cameraRot w) . pane) [0,0.05..0.25]
-  where 
-    x = rotateV (-_cameraRot w) x'
-    y = rotateV (-_cameraRot w) y'
-    yp = _crPos $ you w
-    (x1:y1:_) = _ffLine ff
-    (x':y':_) | isRHS x1 y1 yp = [y1,x1]
-              | otherwise      = [x1,y1]
-    col = _ffColor ff
-    ypShift = yp -.- _cameraCenter w
-    youOnFF = circOnSeg x' y' ypShift (_crRad $ you w)
-    pane j = color (withAlpha 0.1 col) 
-              $ polygon
-                [ x
-                , x +.+ ((0.1 + j) *.* (x -.- ypShift))
-                , y +.+ ((0.1 + j) *.* (y -.- ypShift))
-                , y]
 wallsAndWindows
     :: World
     -> ( [((Point2,Point2),Point4)]  ,[((Point2,Point2),Point4)] )