todo

src/MindMap.hs

@@ -54,6 +54,7 @@ springField :: AG.Graph MMNode -> AG.Graph MMNode
 springField inGraph =
   calcul inGraph
   where
+    -- This could be optimized in such a way, that you update both computation partners at once.
     calculDelta :: AG.Graph MMNode -> MMNode -> (Int, V2 Double)
     calculDelta graph node =
       let accel = foldl sproing (V2 0 0 :: V2 Double) (vertexList graph)