#include <stdio.h>
#include <stdlib.h>
#include "iocrema.h"

#define RIGHE 25
#define COLONNE 80
#define DIM_RIGHE 10
#define DIM_COLONNE 12
#define NUM_GEN 20
#define PIENA '*'
#define VUOTA '.'

int main ()
{
    char schermo[RIGHE][COLONNE+1];
    char mondo[DIM_RIGHE][DIM_COLONNE+1];
    char tem[DIM_RIGHE][DIM_COLONNE+1];
    int gen;
    int riga;
    int colonna;
    /* Inizializzazione */
    for (riga=0; riga<DIM_RIGHE; riga++)
    {
        /* inizializzare la riga *riga* */
        for (colonna=0; colonna<DIM_COLONNE; colonna++)
        {
            mondo[riga][colonna] = VUOTA;
        }
        mondo[riga][DIM_COLONNE] = 0; //'\0';
    }
    // righe di inizializzazione pattern conosciuto
    if (0)   // blinker
    {
        mondo[2][1] = PIENA;
        mondo[2][2] = PIENA;
        mondo[2][3] = PIENA;
    }
    if (1)   //glider
    {
        mondo[3][1] = PIENA;
        mondo[4][2] = PIENA;
        mondo[4][3] = PIENA;
        mondo[3][3] = PIENA;
        mondo[2][3] = PIENA;
    }
    system("cls");
    /* visualizzazione della generazione iniziale */
    for (riga=0; riga<DIM_RIGHE; riga++)
    {
        StampaStringa(mondo[riga]);
        ACapo();
    }
    //system("pause");


    for(gen=1; gen<=NUM_GEN; gen++)
    {
        /* calcolo della generazione gen-esima */

        for (riga=0; riga<DIM_RIGHE; riga++)
        {
            for (colonna=0; colonna<DIM_COLONNE; colonna++)
            {
                /* calcolo del numero di vicini vivi*/
                int vicini_vivi = 0;
                int r, c, r_vicino, c_vicino;
                /* scansione di tutti i vicini */
                for (r=riga-1; r<=riga+1; r++)
                {
                    for (c=colonna-1; c<=colonna+1; c++)
                    {
                        /* aggiustamento coordinate per
                        un mondo toroidale */
                        r_vicino = r;
                        c_vicino = c;
                        if (r<0)
                            r_vicino = DIM_RIGHE-1;
                        if (r==DIM_RIGHE)
                            r_vicino = 0;
                        if (c<0)
                            c_vicino = DIM_COLONNE-1;
                        if (c==DIM_COLONNE)
                            c_vicino = 0;

                        if (r_vicino != riga ||
                                c_vicino != colonna)
                        {
                            // e' un vicino
                            switch (mondo[r_vicino][c_vicino])
                            {
                            case PIENA:
                                vicini_vivi++;
                                break;
                            case VUOTA:
                                break;
                            default :
                                StampaStringa("ERRORE!!! in valutazione vicini");
                                ACapo();
                                return 100;
                            } // switch (mondo[r_vicino][c_vicino])
                        } // if (r_vicino != riga || c_vicino != colonna)
                    } // for c
                } // for r

                if (mondo[riga][colonna] == VUOTA)
                {
                    // cella morta
                    if (vicini_vivi == 3)
                        tem[riga][colonna] = PIENA;
                    else
                        tem[riga][colonna] = VUOTA;
                }
                else if (mondo[riga][colonna] == PIENA)
                {
                    // cella viva
                    if (vicini_vivi == 2 || vicini_vivi == 3)
                        tem[riga][colonna] = PIENA;
                    else
                        tem[riga][colonna] = VUOTA;
                }
                else
                {
                    // ERRORE
                    StampaStringa("ERRORE!!! in valutazione cella");
                    ACapo();
                    return 200;
                }
            } // for colonna
            tem[riga][DIM_COLONNE] = 0; //'\0';
        } // for riga

        // copia *tem* in *mondo*
        for (riga=0; riga<DIM_RIGHE; riga++)
            for (colonna=0; colonna<DIM_COLONNE; colonna++)
                mondo[riga][colonna] = tem[riga][colonna];


        system("cls");
        /* visualizzazione della generazione iniziale */
        for (riga=0; riga<DIM_RIGHE; riga++)
        {
            StampaStringa(mondo[riga]);
            ACapo();
        }
        StampaStringa("Generazione ");
        StampaIntero(gen);
        StampaStringa(" di ");
        StampaIntero(NUM_GEN);
        ACapo();
        //system("pause");


    } // for gen

//system("pause");
//system("cls");
    return 0;

}