Un poco más de flocking

Después de un par de tardes trabajando en el tiempo libre sobre la demo de flocking he consegido ya algo un poco más respetable.

Finalmente he conseguido superar algunos de los problemas que me he encontrado a la hora de implementar el algoritmo correctamente. Entiendo correctamente al hecho de que los componentes de la manada sólo tomen como referencia a sus vecinos más cercanos y no al conjunto global como estaban haciendo hasta ahora.

De todos modos, esta implementación aún puede mejorarse muchísimo, añadiendo acciones de no comportamiento, dimensión Z y sobre todo, dandole un pequeó enfoque de juego que aproveche el algoritmo. Si tengo tiempo intentaré darle un par de vuelta más. De momento aquí dejo lo que tengo hecho.

Adjunto el ejecutable en formato zip.

flocker2x

El video del ejemplo:

Y los algoritmos en pseudocódigo.

REGLA DE COHESIÓN:

 PROCEDURE rule1(boid bJ)
 Vector pcJ
 FOR EACH BOID b
  IF b != bJ THEN
   pcJ = pcJ + b.position
  END IF
 END
 pcJ = pcJ / N-1
 RETURN (pcJ - bJ.position) / 100
END PROCEDURE

REGLA DE REPULSIÓN:

 PROCEDURE rule2(boid bJ)
 Vector c = 0;
 FOR EACH BOID b
  IF b != bJ THEN
   IF |b.position - bJ.position| < c =" c">J.position)
   END IF
  END IF
 END
 RETURN c
END PROCEDURE

REGLA DE ALINEAMIENTO:

 PROCEDURE rule3(boid bJ)
 Vector pvJ
 FOR EACH BOID b
  IF b != bJ THEN
   pvJ = pvJ + b.velocity
  END IF
 END
 pvJ = pvJ / N-1
 RETURN (pvJ - bJ.velocity) / 8

END PROCEDURE