{-------------------------------------------------------------------------------
Tri à Bulle appliqué à un nuage de Tpoint ;
Le tableau est classé par ordre croissant de valeur des abcisses X puis
en cas d'égalité de X sur les ordonnées Y.
-------------------------------------------------------------------------------}
Procedure TriNuagePoints(Var Tab : Array Of TPoint; Nvaleur : LongInt);
Var i,j,tx,ty : Integer;
procedure permute;
begin
tx := Tab[i].X;
ty := Tab[i].Y;
Tab[i].X:= Tab[j].X;
Tab[i].Y:= Tab[j].Y;
Tab[j].X:= tx;
Tab[j].Y:= ty;
end;
Begin
For i:=0 To NValeur -1 Do
For j:=i+1 To NValeur - 1 Do
If Tab[i].X > Tab[j].X
Then permute
else if Tab[i].X = Tab[j].X then
If Tab[i].Y > Tab[j].Y Then permute;
End;