Algoritmos Heurísticos de Cobertura de Arcos

Ponto1x:=xs-dy*LargSeta;
Ponto1y:=ys+dx*LargSeta;
Ponto2x:=xs+dy*LargSeta;
Ponto2y:=ys-dx*LargSeta;
Ponto3x:=Round((x2-x1)*0.93)+x1;
Ponto3y:=Round((y2-y1)*0.93)+y1;
If dx*dy=0 Then
begin
Ponto3x:=Round((x2-x1)*0.90)+x1;
Ponto3y:=Round((y2-y1)*0.90)+y1;
end;
PaintBox1.Canvas.Pen.Width:=PenaDiag;
If (x1 = x2) or (y1 = y2)
Then PaintBox1.Canvas.Pen.Width:=PenaNormal;
PaintBox1.Canvas.Pen.Color:=clMaroon;
PaintBox1.Canvas.Polygon([point(ponto1x,ponto1y),point(ponto2x,ponto2y),
point(ponto3x,ponto3y)]);
end;
Procedure MovimentaAresta(Ordem,x1,y1,x2,y2:Integer;PaintBox1:TPaintBox);
// Cria movimento num link tipo aresta
var i,xs,ys,xt,yt,temp: Integer;
begin
PaintBox1.Canvas.Pen.Width:=PenaDiag+1;
PaintBox1.Canvas.Pen.Color:=clBlue;
If Ordem=3 Then PaintBox1.Canvas.Pen.Color:=ClRed;
If Ordem=2 Then PaintBox1.Canvas.Pen.Color:=ClYellow;
If Ordem=1 Then PaintBox1.Canvas.Pen.Color:=clMaroon;
If ((x1 = x2) or (y1 = y2)) and (BotaoAcionado0)
Then PaintBox1.Canvas.Pen.Width:=PenaNormal+2;
xs:=x1;
ys:=y1;
PaintBox1.Canvas.MoveTo(xs,ys);
For i:= 1 to 20 do
begin
//xt:=Round((x2-x1)*0.05)+xs;
//yt:=Round((y2-y1)*0.05)+ys;
xt:=Round((x2-x1)*0.05*i)+x1;
yt:=Round((y2-y1)*0.05*i)+y1;
If ((abs(x2-xt)