adjusting small things

This commit is contained in:
nek0 2018-06-25 23:46:17 +02:00
parent 5e0c634b61
commit daaadca17b
2 changed files with 4 additions and 2 deletions

View file

@ -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

View file

@ -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