summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/generic/pgf/graphdrawing/lua/pgf/gd/layered/CycleRemovalBergerS1990a.lua
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/tex/generic/pgf/graphdrawing/lua/pgf/gd/layered/CycleRemovalBergerS1990a.lua')
-rw-r--r--Master/texmf-dist/tex/generic/pgf/graphdrawing/lua/pgf/gd/layered/CycleRemovalBergerS1990a.lua19
1 files changed, 10 insertions, 9 deletions
diff --git a/Master/texmf-dist/tex/generic/pgf/graphdrawing/lua/pgf/gd/layered/CycleRemovalBergerS1990a.lua b/Master/texmf-dist/tex/generic/pgf/graphdrawing/lua/pgf/gd/layered/CycleRemovalBergerS1990a.lua
index 76deb8adaf6..55207b845d3 100644
--- a/Master/texmf-dist/tex/generic/pgf/graphdrawing/lua/pgf/gd/layered/CycleRemovalBergerS1990a.lua
+++ b/Master/texmf-dist/tex/generic/pgf/graphdrawing/lua/pgf/gd/layered/CycleRemovalBergerS1990a.lua
@@ -10,6 +10,7 @@
-- @release $Header$
+
local CycleRemovalBergerS1990a = {}
local lib = require("pgf.gd.lib")
@@ -26,20 +27,20 @@ function CycleRemovalBergerS1990a:run()
for _,node in ipairs(self.graph.nodes) do
-- get all outgoing edges that have not been removed yet
local out_edges = lib.imap(node:getOutgoingEdges(),
- function (edge)
- if not removed[edge] then return edge end
- end)
+ function (edge)
+ if not removed[edge] then return edge end
+ end)
-- get all incoming edges that have not been removed yet
local in_edges = lib.imap(node:getIncomingEdges(),
- function (edge)
- if not removed[edge] then return edge end
- end)
+ function (edge)
+ if not removed[edge] then return edge end
+ end)
if #out_edges >= #in_edges then
- -- we have more outgoing than incoming edges, reverse all incoming
+ -- we have more outgoing than incoming edges, reverse all incoming
-- edges and mark all incident edges as removed
-
+
for _,edge in ipairs(out_edges) do
removed[edge] = true
end
@@ -71,4 +72,4 @@ end
-- done
-return CycleRemovalBergerS1990a
+return CycleRemovalBergerS1990a \ No newline at end of file