+4 -4

src/Graph.elm

Reviewed

··· 8 8 9 9 makeSim : Float -> Float -> List String -> List ( String, String ) -> Force.State String 10 10 makeSim w h nodeIds links = 11 11 - Force.iterations 120 11 11 + Force.iterations 200 12 12 (Force.simulation 13 13 - [ Force.manyBodyStrength -200 nodeIds 13 13 + [ Force.manyBodyStrength -30 nodeIds 14 14 , Force.center (w / 2) (h / 2) 15 15 - , Force.links links 16 16 - , Force.collision 60 nodeIds 15 15 + , Force.customLinks 1 (List.map (\( s, t ) -> { source = s, target = t, distance = 50, strength = Nothing }) links) 16 16 + , Force.collision 20 nodeIds 17 17 ] 18 18 ) 19 19

+12 -5

src/Main.elm

Reviewed

··· 540 540 541 541 updateDepth id dict = 542 542 Dict.update id 543 543 - (Maybe.map (\n -> if n.depth > depth then { n | depth = depth } else n)) 543 543 + (Maybe.map 544 544 + (\n -> 545 545 + if n.depth > depth then 546 546 + { n | depth = depth } 547 547 + 548 548 + else 549 549 + n 550 550 + ) 551 551 + ) 544 552 dict 545 553 in 546 554 List.foldl updateDepth modelWithNodes.nodes idsToUpdate 547 547 - in 548 548 - ( { modelWithNodes | nodes = finalNodes } 549 549 - 555 555 + in 556 556 + ( { modelWithNodes | nodes = finalNodes } 550 557 , enqueueChildren queriedId depth modelWithNodes 551 558 , cmds 552 559 ) ··· 663 670 toFloat hash * 0.6180339887498949 664 671 665 672 radius = 666 666 - 20 + toFloat (modBy 30 (abs hash)) 673 673 + 50 + toFloat (modBy 30 (abs hash)) 667 674 in 668 675 ( parent.x + cos angle * radius 669 676 , parent.y + sin angle * radius