Add menu option to start new game from seed, uses system clipboard

src/Dodge/Magnet.hs

@@ -16,8 +16,9 @@ curveLeftField mg pt = case pt of
 
 curveAroundField :: Magnet -> Particle -> Particle
 curveAroundField mg pt = case pt of
-    BulletPt{} | dist btpos mgpos < 500 -> pt & btVel' %~ rotateToCircle
+    BulletPt{} | thedist < 400 -> pt & btVel' %~ rotateToCircle
       where
+        thedist = dist btpos mgpos
         mgpos = _mgPos mg
         btpos = head $ _btTrail' pt
         rotateToCircle vel 
@@ -25,5 +26,6 @@ curveAroundField mg pt = case pt of
               || (isRHS mgpos btpos (btpos +.+ vel) && isLHS mgpos btpos (mgpos +.+ vNormal vel) )
                 = rotateV rot vel
             | otherwise = rotateV (negate rot) vel
-        rot = 0.5
+        rot | thedist < 100 = 0.5
+            | otherwise     = 0.5 - ((thedist - 100) / 600)
     _ -> pt