Cleanup

src/Dodge/Item/Weapon/BatteryGuns.hs

@@ -23,7 +23,6 @@ import Geometry
 import Picture
 import Shape
 import ShapePicture
-import Dodge.Picture
 import LensHelp
 
 import Data.List
@@ -214,8 +213,8 @@ mvLaser phasev pos dir w pt
     notseen ws (_,Right wl) = not $ any (\w' -> _wlID w' == _wlID wl) ws
     notseen _ _ = True
     pic = setLayer 1 $ pictures
-        [ setDepth 19   . color (brightX 0 0.5 yellow) $ lineOfThickness 20 (pos:ps)
-        , setDepth 19.5 . color (brightX 10 1 yellow)  $ lineOfThickness 3  (pos:ps)
+        [ setDepth 19   . color (brightX 0 0.5 yellow) $ thickLine 20 (pos:ps)
+        , setDepth 19.5 . color (brightX 10 1 yellow)  $ thickLine 3  (pos:ps)
         ]
 
 aTractorBeam :: Item -> Creature -> World -> World

src/Dodge/Item/Weapon/Decoration.hs

@@ -6,7 +6,6 @@ module Dodge.Item.Weapon.Decoration
     ) where
 import Dodge.Data
 import Dodge.Picture.Layer
-import Dodge.Picture
 import Geometry.Data
 import Picture
 
@@ -26,4 +25,4 @@ makeLaserScope p ep relFrac = Particle
     }
   where
     lineAlphaThick a w = 
-        color (withAlpha a $ mixColors relFrac (1-relFrac) red green) $ lineOfThickness w [p,ep]
+        color (withAlpha a $ mixColors relFrac (1-relFrac) red green) $ thickLine w [p,ep]