Add test tileset textures

src/Dodge/Item/Weapon/Launcher.hs

@@ -35,7 +35,7 @@ launcher = defaultGun
     , _wpReloadState = 0
     , _itUseRate = 20
     , _itUseTime = 0
-    , _itUse = \it -> shootWithSound (fromIntegral launcherSound) $ aRocketWithItemParams it
+    , _itUse = shootWithSound (fromIntegral launcherSound) . aRocketWithItemParams
     , _wpSpread = 0.02
     , _wpRange = 20
     , _itFloorPict = onLayer FlItLayer launcherPic
@@ -64,7 +64,7 @@ basicAmPjMoves =
     ]
 spinDrag :: PjParam
 spinDrag = PjParam
-    { _pjMoveParam = \i _ _ -> reduceSpinBy (1 - (fromIntegral i)*2 / 200)
+    { _pjMoveParam = \i _ _ -> reduceSpinBy (1 - fromIntegral i*2 / 200)
     , _pjIntParam  = 1
     , _pjDisplayParam = pjPadText "SPIN SLOWDOWN" . show
     , _pjMaxParam = 5
@@ -87,7 +87,7 @@ thrustParam = PjParam
     }
 
 pjThrust :: Int -> Projectile -> World -> World
-pjThrust i = pjEffTimeRange (st,et) $ doThrust
+pjThrust i = pjEffTimeRange (st,et) doThrust
   where
     et | i == 0 = 36
        | otherwise = 40 - (fromIntegral i * 20)
@@ -131,7 +131,7 @@ aRocketWithItemParams it cr w = over projectiles (IM.insert i theShell) w
     i = IM.newKey $ _projectiles w
     pos = _crPos cr +.+ ((_crRad cr +1) *.* unitVectorAtAngle dir)
     dir = _crDir cr
-    ammoMvs pj w' = foldr (\pjP -> (_pjMoveParam pjP) (_pjIntParam pjP) it cr pj) w' (_amPjParams am)
+    ammoMvs pj w' = foldr (\pjP -> _pjMoveParam pjP (_pjIntParam pjP) it cr pj) w' (_amPjParams am)
     theShell = defaultShell
         { _pjPos = pos
         , _pjStartPos = pos