Detection point sur une ligne

Version imprimable

Bonjour à tous,

Mon problème est de detecter qu'un point "cliqué" appartient à une ligne tracée avec le pen. Au depart j'ai donc un tableau de TPoint, et je trace une ligne avec le pen entre ces TPoints...Au passage je crée également une région pour chaque segment de cette ligne.
Puis j'utilise PtInRegion pour savoir si le point cliqué appartient à une région.
Le problème c'est que les résultats sont très aléatoires, voir incohérents...
Pièce jointe 5344
La courbe en noir étant celle des régions, la bleue la courbe réellement tracée. lorsque je clic sur la courbe noire, pas de détection, mais lorsque je clic sur la bleue, parfois il y a détection (une fois sur deux environ).

Pour aider à la compréhension, je joins également mon code pour tracer ma ligne et mes régions:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 procedure TLigne.TracerLigne(aPaint:TPaintBox); var seg:integer; points : array[0..3] of TPoint; begin setlength(Ri,length(lignes)-1); //lignes est mon tableau de TPoints aPaint.Canvas.Pen.Width := 8; aPaint.Canvas.moveto(lignes[0].XPosition,lignes[0].YPosition); for seg:=0 to length(lignes)-2 do begin points[0] := point(lignes[seg].XPosition,lignes[seg].YPosition); points[1] := point(lignes[seg+1].XPosition,lignes[seg+1].YPosition); points[2] := point(lignes[seg+1].XPosition ,lignes[seg+1].YPosition +8); points[3] := point(lignes[seg].XPosition ,lignes[seg].YPosition + 8); Ri[seg] := CreatePolygonRgn(Points, 4, ALTERNATE); if (lignes[seg+1].TypeSection=0) then SetColor(clBlue) else SetColor(clRed); aPaint.Canvas.Brush.Color := aColor; aPaint.Canvas.Pen.Color:= aColor; aPaint.Canvas.lineto(points[1].X,points[1].Y); end; end;
Quelqu'un arrive-til à savoir pourquoi mon raisonnement est mauvais et/ou connaiterais une meilleur façon de proceder?

Merci beaucoup, par avance, de votre patience et de votre aide.

@+.

03/10/2006, 10h54
Graffito

Bonjour,

Plutot que créer des régions, on pourrait faire un calcul de distance entre le point cliqué et les différents segments.
03/10/2006, 10h57
PadawanDuDelphi

J'y est penser un moment, mais je n'arrive pas à coder cette détection..
:aie:

Bonjour,

un petit bout de code que j'ai un peu simplifié mais pas testé (car le code original provenait d'un calcul sur sur une projection de carte).
Il manque la distance point1 à point2 : D=sqrt(sqr(x1-x2)+sqr(x2-x1))

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
function DistPS(PC,PA,PB:point;var PP:point):single ;
{
distance from point C to segment AB 
 input   PC        <point>  coordinates of point C
         PA,PB     <point>  coordinates of segment extremities
         PP        <pointer> point on AB segment nearest of C
 result            <point>  distance 
!}
 
var
  XAC,XBC,XAB,XAC2,XAB2,XBC2,R,XBN : single ;
  N : GEO_llrec;
begin
try
XAC:=DistPP(PC,PA) ; // GEO_DISTPP(PI,PJ)=Distance du point PI au point PJ  
XBC:=DistPP(PC,PB) ;
XAB:=DistPP(PA,PB) ;
if XAB<0.01 then begin
   result:=XAC ;
   PP:=PA;
   exit ;
   end ;
XAB2:=XAB*XAB ; XAC2:=XAC*XAC ; XBC2:=XBC*XBC ;
if XBC2+XAB2<=XAC2 then begin
   result:=XBC ;
   PP=PB;
   exit ;
   end ;
if XAC2+XAB2<=XBC2 then begin
   result:=XAC ;
   PP:=PA;
   exit ;
   end ;
R:=2*XAB2*XBC2+2*XBC2*XAC2+2*XAC2*XAB2-XAB2*XAB2-XBC2*XBC2-XAC2*XAC2 ;
if R>0.01
   then begin
        result:=SQRT(R) /(2*XAB);
           (* compute coordinate of nearest point *)
           try XBN:=sqrt(XBC2-(result*result))  except XBN:=0; end;
           PP.X:=PB.X+((XBN / XAB)*(PA.X-PB.X);
           PP.Y:=PB.Y+((XBN / XAB)*(PA.Y-PB.Y);
           end;
        end
   else begin
        (* C is on AB segment *)
        result:=0 ;
        PP:=PC;
        end;
end ; (*DistPS*)

Tu devrais peut-être regarder ce code...

http://codecentral.borland.com/Item.aspx?id=18221

en gros:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
//****************************************************************************//
// Determines if a given point (xc,yc) is on a line.                          //
// S*L = Distance of point from line.                                         //
//****************************************************************************//
function TForm1.IsPtOnLine(XA,YA,XB,YB,XC,YC, Tolerance: Double): Boolean;
var
L,R,S: Double;
begin
  Result:=False;
  L:=SQRT(((XB-XA)*(XB-XA)+(YB-YA)*(YB-YA)));
  if l<>0 then
  begin
    R:= ((YA-YC)*(YA-YB)-(XA-XC)*(XB-XA))/(L*L);
    S:= ((YA-YC)*(XB-XA)-(XA-XC)*(YB-YA))/(L*L);
    if (r>0) and (r<1) then
        if Abs(S*L)<=Tolerance then Result:=True;  //s*l=distance
  end;
end;

03/10/2006, 17h02
PadawanDuDelphi

Merci beaucoup pour vos aides, grace à vous suis parvenu à réaliser quelque chose de sérieux, et surtout qui plait à mon patron. 8-)

@+.