Compilateur FBPano

@echo off
color 3F
mode con cols=150 lines=50
echo VOICI UNE GRANDE FENETRE
echo =========================
echo  50 LIGNES DE 150 COLONNES CHACUNE
echo ===================================
pause

' ********************************************************
' Jeu de la vie de J. H. Conway
' ********************************************************

const nlig = 50        ' Nb de lignes
const ncol = 50        ' Nb de colonnes
const size = 15        ' Taille des cases (pixels)

const n = nlig * ncol  ' Nb de cases

dim a%(nlig, ncol)     ' Population actuelle
dim b%(nlig, ncol)     ' Nouvelle population

' Definition des regles d'evolution

dim evol%(1,

data 0, 0, 0, 1, 0, 0, 0, 0, 0
data 0, 0, 1, 1, 0, 0, 0, 0, 0

dim i%, j%

for i = 0 to 1
  for j = 0 to 8
    read evol(i, j)
  next j
next i

' Construction de l'interface graphique

form 0, 100, 100, ncol * size + 110, nlig * size + 20, "Jeu de la vie"

matwidget T_Picture, nlig, ncol, 1, 100, 10, size, size, 0, 0

dim btn1% = n + 1
dim btn2% = n + 2
dim btn3% = n + 3

button btn1, 10, 10, 80, 25, "Aléatoire"
button btn2, 10, 50, 80, 25, "Effacer"
button btn3, 10, 90, 80, 25, "Génération"

dim k%

for k = 1 to n
  on_click k, click
next k

on_click btn1, aleat
on_click btn2, efface
on_click btn3, gener

' Programme principal

gen_img()

start 0

' Sous-programmes

sub gen_img ()
' Genere les images pour les cases vides (0) et occupees (1)

  dim s% = size - 2
  dim s2% = s \ 2

  2d_img_begin 0, s, s
    2d_pen_color_fl FL_WHITE
    2d_rectangle_fill 0, 0, s, s
  2d_img_end

  2d_img_begin 1, s, s
    2d_pen_color_fl FL_WHITE
    2d_rectangle_fill 0, 0, s, s
    2d_pen_color_fl FL_RED
    2d_pie s2, s2, s2
  2d_img_end
end_sub

sub display (x%())
' Affiche la population contenue dans le tableau x

  dim i%, j%, k%

  k = 1
  for i = 1 to nlig
    for j = 1 to ncol
      2d_set_img k, x(i, j)
      k = k + 1
    next j
  next i

  redraw
end_sub

sub pop (a%(), b%())
' Calcul de la nouvelle population (b) a partir de l'ancienne (a)

  dim i%, im1%, ip1%, j%, jm1%, jp1%, s%

  for i = 1 to nlig
    if i = 1 then im1 = nlig else im1 = i - 1
    if i = nlig then ip1 = 1 else ip1 = i + 1

    for j = 1 to ncol
      if j = 1 then jm1 = ncol else jm1 = j - 1
      if j = ncol then jp1 = 1 else jp1 = j + 1

      s =     a(im1, jm1) + a(im1, j) + a(im1, jp1)
      s = s + a(i,   jm1)             + a(i,   jp1)
      s = s + a(ip1, jm1) + a(ip1, j) + a(ip1, jp1)

      b(i, j) = evol(a(i, j), s)
    next j
  next i
end_sub

' Sous-programmes associes aux evenements

sub click ()
' Clic sur une case

  dim i%, j%, k%

  k = nwidget(self)
  i = k \ ncol + 1
  j = k mod ncol
  a(i,j) = (a(i,j) + 1) mod 2
  2d_set_img k, a(i,j)
end_sub

sub aleat ()
' Remplissage aleatoire de 10% des cases

  dim i%, j%
  randomize timer

  for i = 1 to nlig
    for j = 1 to ncol
      if rnd > 0.9 then a(i, j) = 1 else a(i, j) = 0
    next j
  next i

  display a()
end_sub

sub efface ()
' Efface la grille

  dim i%, j%

  for i = 1 to nlig
    for j = 1 to ncol
      a(i,j) = 0
    next j
  next i

  display a()
end_sub

sub gener ()
' Calcule et affiche la nouvelle population
' Recopie le tableau b() dans a()

  dim i%, j%

  pop a(), b()
  display b()

  for i = 1 to nlig
    for j = 1 to ncol
      a(i, j) = b(i, j)
    next j
  next i
end_sub