Separate out bullet effects, allow for tweaking to change these

src/Dodge/Item/Weapon/Launcher.hs

@@ -21,7 +21,7 @@ import Dodge.Picture.Layer
 import Geometry
 import Picture
 import qualified IntMapHelp as IM
-import Padding
+--import Padding
 import ShapePicture
 import Shape
 
@@ -59,12 +59,14 @@ launcher = defaultGun
     , _itFloorPict = launcherPic
     , _itEffect = NoItEffect
     , _itParams = ShellLauncher
-        { _tweakSel = 0
-        , _tweakParams = basicAmPjMoves
-        , _shellSpinDrag        = 1
+        { _shellSpinDrag        = 1
         , _shellSpinAmount      = 2
         , _shellThrustDelay     = 1
         }
+    , _itTweaks = Tweakable
+        { _tweakSel = 0
+        , _tweakParams = basicAmPjMoves
+        }
     }
 
 defaultShellAmmo :: AmmoType
@@ -92,24 +94,25 @@ spinDrag :: TweakParam
 spinDrag = TweakParam
     { _doTweak   = \i -> itParams . shellSpinDrag .~ i
     , _curTweak  = 1
-    , _showTweak = pjPadText "SPIN SLOWDOWN" . show
+    , _showTweak = show
     , _maxTweak = 5
+    , _nameTweak = "SPIN SLOWDOWN"
     }
-pjPadText :: String -> String -> String
-pjPadText s = (rightPad 12 ' ' s ++ ) . (' ':)
 spinStart :: TweakParam
 spinStart = TweakParam
     { _doTweak = \i -> itParams . shellSpinAmount .~ i
     , _curTweak  = 2
-    , _showTweak = pjPadText "SPIN AMOUNT" . show
+    , _showTweak = show
     , _maxTweak = 5
+    , _nameTweak = "SPIN AMOUNT"
     }
 thrustParam :: TweakParam
 thrustParam = TweakParam
     { _doTweak = \i -> itParams . shellThrustDelay .~ i
     , _curTweak = 1
-    , _showTweak = pjPadText "THRUST DELAY" . show
+    , _showTweak = show
     , _maxTweak = 5
+    , _nameTweak = "THRUST DELAY"
     }
 
 pjThrust :: Int -> Prop -> World -> World