Add terminal GODON command

2021-12-09 17:12:32 +00:00
parent 4324d298d4
commit 1a053421ef
7 changed files with 34 additions and 18 deletions
@@ -16,7 +16,7 @@ curveLeftField mg pt = case pt of

 curveAroundField :: Magnet -> Particle -> Particle
 curveAroundField mg pt = case pt of
-    BulletPt{} | thedist < 400 -> pt & btVel' %~ rotateToCircle
+    BulletPt{} | thedist < 200 -> pt & btVel' %~ rotateToCircle
      where
        thedist = dist btpos mgpos
        mgpos = _mgPos mg
@@ -27,5 +27,5 @@ curveAroundField mg pt = case pt of
                = rotateV rot vel
            | otherwise = rotateV (negate rot) vel
        rot | thedist < 100 = 0.5
-            | otherwise     = 0.5 - ((thedist - 100) / 600)
+            | otherwise     = 0.5 - ((thedist - 100) / 200)
    _ -> pt