Foro de elhacker.net

Buleano = Funcion Buscarsimilitudes(Lista de Imagenes Figuras )
    Lista Poligonos  // lista de poligono
    Lista Poligono // lista de líneas

    Por cada figura en Figuras
         Poligono = CrearPoligono(figura)
         Poligonos.Add (Poligono)
    Siguiente

    Bucle para j desde 0 Poligonos.Length -2  //el último se debe comparar
        Poligono = Poligonos.Item(j) 
        Bucle para k desde j a Poligonos.Length -1
            Si EsSimilar(Poligono, Poligonos.Item(k))  luego
                // Mostrar coincidencia en la forma que tengas previsto.  
                Similares = TRUE
            Fin si
        Siguiente
    Siguiente
   
    Devolver Similares //si al menos hubo 2 similares entre sí, devolverá TRUE.
Fin Funcion

Lista = Funcion CrearPoligono(imagen Figura)
    Lista Puntos  //donde señaden los puntos. 
    Lista Poligono //donde se añaden las líneas
    entero j, k 
    punto centro

    centro = PuntoCentral(Figura) // se trata de hallar aprox, el punto central de la imagen, un eje de cordenadas en el centro.
    Puntos = BuscarLos4PuntosMásSalientes // (de las 4 orientaciones), da igual si prefieres buscarlos en diagonal, pero es más complejo recorrer así la imagen.    
    j=0
    k=(j+1) 
    Hacer 
        Linea = TrazarLinea(puntos.Item(j), Puntos.Item(k) )
        Si Linea CortaFigura(Linea, Figura) luego //Si la línea corta la figura...
            Punto = Buscar nuevo punto saliente entre ambos, y añadir delante del destino
            Puntos.Add(punto, k)            
        Sino
            //OJO: No trato el caso de que k sea el último y el 3º punto debiera ser el primero el 0º
            // queda a tu esfuerzo modificarlo como convenga...
            Si AnguloEsConcavo(puntos.Item(j), Puntos.Item(k),  Puntos.Item(k+1), centro ) = FALSE luego
              
                Poligono.Add(Linea)
                j = k
                Si (k < Puntos.Count) luego                  
                    k +=1
                Sino
                    Si (k=0) luego
                       Conectado = TRUE
                    Sino
                        k = 0
                    Fin si
                Fin si
            Sino
                El punto intermedio entre los dos se elimina // hace concavidad, la búsqueda (la programación) del más saliente no fue 'adecuada', pero bueno esto nos permite avanzar aunque sea más lentamente.
                // j y k no cambian, así al retorno se traza la línea entre esos dos (que antes tenían uno en medio).
            Fin si
        Fin si
    Repetir Mientras (Conectado= FALSE)
    Devolver Poligono
Fin funcion

Buleano = EsSimilar(Lista p1, Lista p2)  // p1 y p2 son sendos polígonos
    Area1 = HallarArea(p1)
    Area2 = HallarArea(p2)
  
    Si SimilitudPorTolerancia(Area1, Area2, ToleranciaArea) = TRUE luego  //tolerancia debe expresarse en forma de porcentaje aceptable, p.e.: '90' por ciento.
         // son de tamaño similar, no hay zoom, o es escaso.
        Si SimilitudAngulos(p1, p2, ToleranciaAngulos) = TRUE luego
            Devolver TRUE
        Fin si
    Sino  // son distintos, puede que uno esté con zoom... comprobamos lados y angulos 
        // comprobamos la similitud en el número de lados.
        Si SimilitudPorTolerancia(p1.Length, p2.Length, ToleranciaLados) = TRUE luego
            Si SimilitudAngulos(p1, p2, ToleranciaAngulos) = TRUE luego
                Devolver TRUE
            Fin si
        Si no
            // El número de lados si no cincide ver si hay o falta un lado de tamaño muy corto, pero no se expone aquí...
            // Si cambia el númeor de lados, vamos a exigir más exactitud, con los ángulos
            Si SimilitudAngulos(p1, p2, ToleranciaAngulos+ToleranciaExigente) = TRUE luego
                Devolver TRUE
            Fin si
        Fin si 
    Fin si
Fin Funcion

Buleano = Funcion SimilitudPorTolerancia(entero v1, entero v2, byte Tolerancia)
    Si (v1 >= v2) luego  // 
        Si (((v1/100) * Tolerancia) >= v2) luego Devolver TRUE
    Sino
        Si (((v2/100) * Tolerancia) >= v1) luego Devolver TRUE
    Fin si
Fin Funcion

Buleano = Funcion  AnguloEsConcavo(Punto p1, Punto p2, Punto p3, Punto centro)
   Linea  
    
    Linea = TrazarLínea(p1,p3) //Trazar una línea desde p1 a p3

    //Ver donde queda p2 respecto de la linea y según p1 y p3 estén orientados respecto del centro
    Si p1.X < centro.x
        // Sin terminar... queda a tu esfuerzo
    Sino
        // Sin terminar... queda a tu esfuerzo
    Fin si
Fin Funcion

Buleano = Funcion SimilitudAngulos(Poligono pol1, Poligono pol2)
    Lista Angs1, Angs2
    Decimal ang1, ang2  //valor en  coma flotante
    Buleano Similares

    Angs1 = AngulosPoligono(pol1)
    Angs2 = AngulosPoligono(pol2)

    // Quizás una figura esté rotada respecto de otra, luego exige encontrar ekl punto de coincidencia.
    // pero puede pasar que haya más de un ángulo en una figura que tenga el mismo que otro en la otra figura...
    Bucle para i desde 0 a Angs1.Length
        ang1 = Angs1.Item(i)
        Bucle para cada j desde 0 a Angs2.length
            ang2 = Angs1.Item(j)
            // se convierten a enteros, tal como exige la función...
            Si SimilitudPorTolerancia(ConvertirAEntero(ang1), ConvertirAEntero(ang2), ToleranciaAngulo) = TRUE luego
                Similares = TRUE
                Bucle para k desde j+1 a Angs1.Length
                    ang2 = Angs1.Item(k)
                    Si SimilitudPorTolerancia(ConvertirAEntero(ang1), ConvertirAEntero(ang2), ToleranciaAngulo) = False luego
                        Similares = FALSE
                        Salir del bucle
                    Fin si
                Fin Bucle
                Si (Similares = TRUE) luego Devolver TRUE 
            Fin si
        Fin bucle    
    Fin Bucle
Fin Funcion

Lista = Funcion AngulosPoligono(Poligono Pol)
    Lista Angulos
    Punto p1, p2, p3
    
    p1 = pol1.Item(0)
    p2 = pol1.Item(1)
    p3 = pol1.Item(2)
    Angulo = AnguloFormado3Pt(p1, p2, p3) 
    Angulos.Add(angulo) 
    Bucle para j desde 3 a p1.Length - 1 // si es un triángulo, no entrará en el bucle        
        p1=p2
        p2=p3
        p3= pol1.Item(j)
        Angulo = AnguloFormado3Pt(p1, p2, p3) 
        Angulos.Add(angulo) 
    Fin bucle
    // Faltan 2 ángulos, los formados por el final y el comienzo 
    p1=p2
    p2=p3
    p3= pol1.Item(0)    
    Angulo = AnguloFormado3Pt(p1, p2, p3) 
    Angulos.Add(angulo) 

    p1=p2
    p2=p3
    p3= pol1.Item(1)    
    Angulo = AnguloFormado3Pt(p1, p2, p3) 
    Angulos.Add(angulo) 
    
    Devolver Angulos
Fin Funcion

Decimal = AnguloFormado3Pt(Punto p1, Punto p2, Punto p3)
   // queda a tu esfuerzo, son simples matemáticas...
Fin funcion

Si (dX < LineaDiagonal(Y) ) luego dX = LineaDiagonal(Y) 

Array Angulos(0 a Picos.count-1) //el tamaño es el de picos
entero n = Picos.Count-1 //K-1 al inicio, pero como podemos saltarnos algunos, lo dejamos en una variable.


Salientes.Add(Picos.count-1)) //el PuntoB
Bucle para k desde Picos.Count-1 a 2 retrocediendo
    // bucle para calcular el ángulo desde el punto actual al resto anteriores.
    Bucle para j desde n hasta 1 retrocediendo
        Angulo = CalcularAngulo(Picos(0), Picos(k), Picos(j))
        Angulos (j)= Angulo  //ambas lineas pueden ser solo una, se deja en dos para que quede claro que 
           // la función devuelve el ángulo que forman los 3 puntos en ese orden (con Picos(k) en medio).
    Fin bucle
    //Tomar el ángulo mayor de todos.
    Bucle para j desde n-1 hasta 1 retrocediendo
        Si Angulos(j) > Angulos(n) luego n = j
    Fin Bucle
    Salientes.Add(punto picos(n))  //
Fin bucle
Salientes.Add(Picos(0)) // El PuntoA

//Ahora puede trazarse una línea desde un punto de 'salientes' al siguiente y veremos si el trazado es correcto.

Array LineaDiagonal() <----- previamente calculada con el algoritmo de Bresenham (por ejemplo).
Entero dX= 0 // al comienzo será: PuntoSuperior.X, pero dejemos qu actúe el bucle.

Picos.Add(punto (PuntoA.Y, PuntoA.X)) //añadimos el punto inicial al comienzo (ojo, no añadirlo dos veces, si es así, empezar el bucle Y uno más adelante

// El bucle y, recorre en este cuadrante las líneas verticalmente hacia abajo
Bucle para Y desde puntoSuperior.Y hasta Punto.Derecha.Y    
    Si (dX < LineaDiagonal(Y) ) luego // LineaDiagonal(Y) tiene el valor de X en esa línea.
        dX = LineaDiagonal(Y) 
    Fin si

    // El bucle x es quien hace todo el trabajo de detección
    Bucle para X desde PuntoDerecha.X hasta dX retrocediendo        
        Si (pixel(Y, X) = ColorNegro) luego //Si hay un pixel negro, es el más saliente en esta línea  
                // La figura era toda negra y el resto blanco, no?, o era al revés?                           
                dX = X      //en la siguiente línea el bucle terminará en dx (como máximo), y en lo que resta de alto, nunca menos de este valor..   
                Picos.Add(Punto (Y, dX))  // se encontró un pico se añade
                salir del bucle //no hace falta seguir mirando en esta línea.             
        Fin si
    Fin Bucle
Fin bucle
Picos.Add(Punto (PuntoB.Y,PuntoB.X)) //añadimos el punto final (ojo, no añadirlo dos veces, si es así, llegar a uno menos en el bucle Y)