paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-11 08:16:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

cody: lvl graph: minimize crossings: simple greedy

Browse Source 
git-svn-id: trunk@40406 -
This commit is contained in:
mattias 2013-02-25 19:02:47 +00:00
parent b68b07efb6
commit 77bfdde159
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
components/codetools/ide/codyctrls.pas
View File

@ -710,14 +710,16 @@ procedure LvlGraphMinimizeCrossings(Graph: TLvlGraph);
var
g: TMinXGraph;
Pair: TMinXPair;
i: Integer;
begin
if (Graph.LevelCount<2) or (Graph.NodeCount<3) then exit;
g:=TMinXGraph.Create(Graph);
try
g.CreatePairs;
Pair:=g.FindBestPair;
if Pair<>nil then begin
debugln(['LvlGraphMinimizeCrossings ',Pair.AsString]);
for i:=1 to 100 do begin
Pair:=g.FindBestPair;
if Pair=nil then break;
//debugln(['LvlGraphMinimizeCrossings ',Pair.AsString]);
g.SwitchPair(Pair);
end;
g.Apply;
@ -1122,7 +1124,7 @@ var
NeighbourPair: TMinXPair;
Level: TMinXLevel;
begin
debugln(['TMinXGraph.SwitchPair ',Pair.AsString]);
//debugln(['TMinXGraph.SwitchPair ',Pair.AsString]);
ConsistencyCheck;
Level:=Pair.Level;
@ -1139,7 +1141,7 @@ begin
// reverse Pair.SwitchDiff
Pair.SwitchDiff:=-Pair.SwitchDiff;
debugln(['TMinXGraph.SwitchPair Pair.SwitchDiff should be equal: ',Pair.SwitchDiff,' = ',Pair.ComputeSwitchDiff]);
//debugln(['TMinXGraph.SwitchPair Pair.SwitchDiff should be equal: ',Pair.SwitchDiff,' = ',Pair.ComputeSwitchDiff]);
// compute SwitchDiff of new neighbour pairs
if Pair.Index>0 then begin