Cómo comprobar si el punto X,Y está dentro de un polígono.
el Punto en el polígono
al Parecer, esta solución implica la comprobación de cómo muchas veces usted cruz
una línea de pase de punto de X,Y para el borde exterior de la pantalla.
sinceramente, nunca he intentado leer el código correctamente para intentar
entender el concepto, sólo sé que se parece a la obra !
función PtInPoly(const Puntos: Matriz de TPoint X,Y: Integer): Boolean
var
& nbsp & nbsp Contar,
& nbsp & nbsp yo,
& nbsp & nbsp J : Integer
begin
& nbsp & nbsp Resultado := False
& nbsp & nbsp Count := Longitud(Puntos)
& nbsp & nbsp J := Count-1
& nbsp & nbsp for I := 0 to Count-1 do begin
& nbsp & nbsp & nbsp & nbsp if ((Puntos[I].Y <=Y) y (y < Puntos[J].Y)), o
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp ((Puntos[J].Y <=Y) y (y < Puntos[I].Y)) entonces
& nbsp & nbsp & nbsp & nbsp empezar
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp if (x < (Puntos[j].X - Puntos[i].X) * (y - Puntos[i].Y) /
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp (Puntos[j].Y - Puntos[i].Y) Puntos[i].X) entonces
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp Resultado := Resultado
& nbsp & nbsp & nbsp & nbsp final
& nbsp & nbsp & nbsp & nbsp J := I
& nbsp & nbsp final
fin
Punto en el poligono ?
Punto en el poligono ? : Multi-millones de consejos para hacer su vida mas facil.
Como comprobar si el punto X,Y esta dentro de un poligono.
el Punto en el poligono
al Parecer, esta solucion implica la comprobacion de como muchas veces usted cruz
una linea de pase de punto de X,Y para el borde exterior de la pantalla.
sinceramente, nunca he intentado leer el codigo correctamente para intentar
entender el concepto, solo se que se parece a la obra !
funcion PtInPoly(const Puntos: Matriz de TPoint X,Y: Integer): Boolean
var
& nbsp & nbsp Contar,
& nbsp & nbsp yo,
& nbsp & nbsp J : Integer
begin
& nbsp & nbsp Resultado := False
& nbsp & nbsp Count := Longitud(Puntos)
& nbsp & nbsp J := Count-1
& nbsp & nbsp for I := 0 to Count-1 do begin
& nbsp & nbsp & nbsp & nbsp if ((Puntos[I].Y <=Y) y (y < Puntos[J].Y)), o
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp ((Puntos[J].Y <=Y) y (y < Puntos[I].Y)) entonces
& nbsp & nbsp & nbsp & nbsp empezar
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp if (x < (Puntos[j].X - Puntos[i].X) * (y - Puntos[i].Y) /
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp (Puntos[j].Y - Puntos[i].Y) Puntos[i].X) entonces
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp Resultado := Resultado
& nbsp & nbsp & nbsp & nbsp final
& nbsp & nbsp & nbsp & nbsp J := I
& nbsp & nbsp final
fin
