nek0/tracer
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

adjusting small things

Browse source
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
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/MindMap.hs
View file

@ -19,7 +19,7 @@ import Data.List (find)
import Types import Types
friction :: Double friction :: Double
friction = 0.05 friction = 0.1
l0 :: Double l0 :: Double
l0 = 1 l0 = 1
springKonst :: Double springKonst :: Double
@ -72,7 +72,7 @@ springField inGraph =
in (mmId node, fmap (* friction) accel) in (mmId node, fmap (* friction) accel)
calcul graph = calcul graph =
let deltas = map (calculDelta graph) (vertexList 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) (A.log A.Debug ("deltas: " ++ show deltas) deltas)
-- deltas -- deltas
then then

2
tracer-game.cabal
View file

@ -27,6 +27,7 @@ executable tracer-game
, Types.FontId , Types.FontId
, Types.StateData , Types.StateData
, Types.Animation , Types.Animation
, Types.MindMap
, StateMachine , StateMachine
, Floorplan , Floorplan
, Interior , Interior
@ -34,6 +35,7 @@ executable tracer-game
, Load , Load
, Test , Test
, Navigation , Navigation
, MindMap
, NPC , NPC
, Util , Util
default-extensions: OverloadedStrings default-extensions: OverloadedStrings