El juego de la vida

[[Gunman]]

Ya tengo el tablero hecho, vaya...
Si hubiese revisado el este post quizás no hubiese perdido tanto tiempo...
Muchas gracias de todas formas!

PD: Cómo puedo hacer un gif animado a partir de una serie de imágenes?

[[Gunman]]

seona, no habia visto que habias puesto el juego de la vida también.
Lo has hecho tu? Está muy bien. El que yo estoy haciendo es algo distinto, ya lo pondré en cuanto lo termine.

[[seoane]]

Por cierto en el ejemplo anterior, mi tablero tiene forma de donut, aunque en el tablero clasico parece ser que no es asi, es decir cuando se llega a un borde ya no se puede continuar. Cambiando la rutina "Contar" por esta otra se soluciona el problema:

Código Delphi [-]
function TfrmMain.Contar(i,j: Integer): Integer;
var
  x,y: Integer;
begin
  Result:= 0;
  for x:= i-1 to i+1 do
    for y:= j-1 to j+1 do
    begin
      if (x>=0) and (x < COLUMNAS) and (y>=0) and (y < FILAS) then
        if Tablero[x,y] then
          inc(Result);
    end;
  if Tablero[i,j] then
    dec(Result);
end;

Este cambio es necesario para que funcione el siguiente ejemplo sacado de la wikipedia. Pistola de planeadores de Gosper (Gosper Glider Gun)

Aqui os dejo el tablero, solo hay que cargarlo y darle a evolucionar

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

Empezado por seoane

...Pistola de planeadores de Gosper (Gosper Glider Gun)

???? No sabía que existían configuraciones cíclicas. ¿¿¿¿
Interesante.