Trazar lineas en una imagen y Calcular Angulo???

[erikmx]

Muchas gracias a todos Ñuño Martínez, coso, duilioisola y el buen Neftali, bien pensando en eso tiene razon la cuestion de la iluminacion podria ser un problema asi que tengo que buscar colores digamos "claros y poco variables" por ejemplo si es de dia no puedo usar azul claro porque podria condundirese con las nubes, pero e pensado que la bandera podria ser completamente negra y en el extreo inferior ponerle una esfera de unicel como les habia comentado de color por ejemplo rojo o amarilla y otra en el punto donde se une con el asta, para tratar de conectarlos y el hasta podria ser del mismo color o diferente para diferenciarlo, neftali voy a checar muy bien tus amables ejemplos porque me esta dando lata mi compu y no me quiere compilar pero espero solucionarlo hoy ya que ahora si me captaste hasta donde lei la idea de esto , gracias a todos y todo comentario es bien recibido

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

Bueno haz las pruebas con el ejemplo y algunas fotos y modificando la tolerancia a ver qué resultados obtienes.

La imagen debes convertirla a BMP para que funcione con el ejemplo; Prueba con algunas fotos (si puedes a ver qué tal). A partir de ahí puedes mejorarlo o modificarlo a ver si mejoran los resultados.

[erikmx]

Empezado por Neftali

Bueno haz las pruebas con el ejemplo y algunas fotos y modificando la tolerancia a ver qué resultados obtienes.

La imagen debes convertirla a BMP para que funcione con el ejemplo; Prueba con algunas fotos (si puedes a ver qué tal). A partir de ahí puedes mejorarlo o modificarlo a ver si mejoran los resultados.

Gracias Neftali, estoy teniendo unos problemillas con mi maquina y voy a tener que formatearla pero ya cheque los ejemplos y estan muy interesantes voy a hacer pruebas fotograficas con banderas reales y a ver que pasa, lo que si note es que el color negro no lo detecta como color de asta claro que tengo que checar ya que por algo no los habilitaste y haber si le puedo implementar lo del primer ejmplo para que calcule el angulo pero sobre este ejemplo, un saludote

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

Empezado por erikmx

lo que si note es que el color negro no lo detecta como color de asta claro que tengo que checar ya que por algo no los habilitaste

Bueno, los deshabilité simplemente para dejar el ejemplo más limpio, pero funcionan igual que el otro. Si seleccionas los colores del ASTA, CIELO y BANDERA (diferentes) te detecta todas las áreas; En realidad si lo piensas, para calcular el ángulo no necesitas detectar el ASTA, ya que si detectas bien la bandera, con eso sólo no necesitas más.

La vertical, puedes obtenerla (lo que obteníamos del ASTA):
* A partir del punto superior izquierdo de la Bandera (y trazando la vertical).
* O a partir del punto inferior izquierdo de la bandera
* O utilizando ambos.

[erikmx]

Aunque todavia mi cacharra esta com que me da lata esperare al sabado para darle su coco wash mientras checaba el ejmplo de neftali el cual agradesco infinitamente y aunque estoy checando el tipo de tela que me puede servir decidi hacer unas banderas en Paint ( mmm mas bien unas lineas y despues una rellenada jajaja ) y a simplevista no detecta el pixel final, o tal ves es que no estoy haciendo el procedimiento correcto?? ya que deberia trazar la linea como con el digujo de la primera bandera que subi pero depues no lo hace como digo igual y estoy cometiendo un error, pensando en lo que me dijo neftali nuevamente simplifique dejando solo el codigo que es el util.


(Esta es la primera que mande y parece que detecta bien todo y el angulo creo que tambien es correcto )



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



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

Aqui dejo el archivo del programa como lo simplifique y agrege lo de calculo de angulos espero que este bien calculado con los datos que tome con los BMP que utilice como ejemplos

http://criminalistic.org/Bandera3Mod.zip

Un saludo y gracias a todos, un saludo neftali

[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