Trazar lineas en una imagen y Calcular Angulo???

[Neftali [Germán.Estévez]]

Antes de nada comentar que el ángulo que yo tomo para el cálculo no es el que se pinta en los dibujos (esas son líneas para delimiar vértices) sino el que forman lel ASTA (vertical) y la parte INFERIOR de la bandera.

De todas formas en el ejemplo nuevo los he pintodo en color AZUL para que se diferencie.

Empezado por erikmx

(Esta es la Pseudo bandera que dibuje aproximandome a los 90 grados pero que no traza las lineas como en el anterior)

En este caso el error era detectando el punto inferior/izquierdo de la bandera. CORREGIDO.

Empezado por erikmx

(Esta la hice aproximandome a los 50 grados pero no detecta el punto punto del extremo inferior lo toma antes)

Aquí hay un error de principiante por mi parte; Tomé en cuenta el tamaño del control Image el lugar del Canvas. CORREGIDO.

Con esos cambios parace que ahora detecta bien los vértices (ROJO) y genera bien las líneas para calcular los ángulos (AZULES); Teniendo esas dos líneas azules y basándote en ellas ya se pueden realizar los cálculos.




Un saludo.

[erikmx]

Gracias Neftali por tu valiosa ayuda, y perdon por la tardanza en contestar, estoy buscando los materiales (tela) que funcionen mejor para la cuestion de que detecte bien los colores hice una pequeña prueba pero con la webcam de la compu sobre una pequeña bandera hecha de plastico (bolsa negra) pero no me funciono claro que la luz era de foco y lo ideal es que sea con luz solar para que la imagen salga con mejor calidad, y creo sera mejor tela para que no cree "reflejos" sobre la superficie de la bandera.

Por otro lado detecta muy bien ahora con los cambios los contornos independientemente de los colores que tenga la bandera claro una vez seleccionado el color de la misma, solo el detalle de los angulos que cheque, parece que no detecta correctamente los mismos:

Código Delphi [-]
  // LINEAS DETECTADAS
  imgBandera2.Canvas.Pen.Width := 3;
  imgBandera2.Canvas.Pen.Color := clRed;
  imgBandera2.Canvas.Brush.Color := clRed;

  imgBandera2.Canvas.MoveTo(x1b, y1b);
  imgBandera2.Canvas.LineTo(x2b, y2b);
  imgBandera2.Canvas.LineTo(x1ib, y1ib);
  imgBandera2.Canvas.LineTo(x1b, y1b);


  // LINEAS PARA ANGULOS
  imgBandera2.Canvas.Pen.Width := 5;
  imgBandera2.Canvas.Pen.Color := clBlue;
  imgBandera2.Canvas.Brush.Color := clBlue;

  imgBandera2.Canvas.MoveTo(x1ib, y1ib);
  imgBandera2.Canvas.LineTo(x2b, y2b);
  imgBandera2.Canvas.MoveTo(x1ib, y1ib);
  imgBandera2.Canvas.LineTo(x1ib, y2b);

  // si es 90 grados o casi no se ve bien, así que alargamos...
  if (Abs(y2b - y1ib) < 100) then begin
    imgBandera2.Canvas.MoveTo(x1ib, y1ib);
    imgBandera2.Canvas.LineTo(x1ib, y1ib + 100);
  end;


//Para Calcular el Angulo
    ang := ArcTan2(y2b,x1ib);    // "y" para la vertical "x" para la Horizontal
    angd := RadToDeg(ang);

    // Resultado
    Angulo.Text := IntToStr(Trunc(angd)) + '°';
    Velocidad.Text := IntToStr(Trunc(angd/4));

end;

Creo que el detalle esta en la orientacion, es decir en el punto que se concidera el grado 0° o tal ves me equivoco ya que para poder calcular con el metodo de la bandera utilizan este transportador como referencia





Por cierto Neftali muchas gracias por tu paciencia