paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-18 05:09:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

LvlGraph: Only shuffle small bits of the graph. This allows to continue on the existing result, but can switch nodes not found by the normal switching.

Browse Source
This commit is contained in:
Martin 2021-12-21 18:10:07 +01:00
parent 4975a57869
commit 52679121ad
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/lazcontrols/lvlgraphctrl.pas
View File

@ -1807,7 +1807,7 @@ end;
procedure TMinXGraph.Shuffle;
var
l: Integer;
l, i: Integer;
Level: TMinXLevel;
n1: Integer;
n2: Integer;
@ -1819,7 +1819,8 @@ begin
UnbindPairs;
for l:=0 to length(Levels)-1 do begin
Level:=Levels[l];
for n1:=0 to length(Level.Nodes)-1 do begin
for i:=0 to 1 do begin
n1:=Random(length(Level.Nodes));
n2:=Random(length(Level.Nodes));
if n1=n2 then continue;
Node:=Level.Nodes[n1];