diff --git a/src/MindMap.hs b/src/MindMap.hs index c01a636..9b2b3dc 100644 --- a/src/MindMap.hs +++ b/src/MindMap.hs @@ -19,7 +19,7 @@ import Data.List (find) import Types friction :: Double -friction = 0.05 +friction = 0.1 l0 :: Double l0 = 1 springKonst :: Double @@ -72,7 +72,7 @@ springField inGraph = in (mmId node, fmap (* friction) accel) calcul graph = let deltas = map (calculDelta graph) (vertexList graph) - in if any (\(_, v) -> len v > 0.1) + in if any (\(_, v) -> len v > 0.05) (A.log A.Debug ("deltas: " ++ show deltas) deltas) -- deltas then diff --git a/tracer-game.cabal b/tracer-game.cabal index 1f07ebb..0095ff8 100644 --- a/tracer-game.cabal +++ b/tracer-game.cabal @@ -27,6 +27,7 @@ executable tracer-game , Types.FontId , Types.StateData , Types.Animation + , Types.MindMap , StateMachine , Floorplan , Interior @@ -34,6 +35,7 @@ executable tracer-game , Load , Test , Navigation + , MindMap , NPC , Util default-extensions: OverloadedStrings