constante N : entier <- ...
constante M : entier <- ...

{ Methode recursive de coloriage d'une zone   }
{ de pixels de valeurs identiques             }

action coloriageRecursif(px,py,t,c,ct)
  Données
    px : entier
    py : entier
    c : entier
    ct : entier
  Données / Résultats
    t : Tableau [N][M] de entier
  si ( px >= 0 ) et ( px < M ) et ( py >= 0 ) et ( py < N ) alors
    si ( t[py][px] <> c ) et ( t[py][px] = ct ) alors
      t[py][px] <- c
      coloriageRecursif(px+1,py,t,c,ct)
      coloriageRecursif(px-1,py,t,c,ct)
      coloriageRecursif(px,py+1,t,c,ct)
      coloriageRecursif(px,py-1,t,c,ct)
    fsi
  fsi
fin action

{ Methode de coloriage d'une zone de pixels   }
{ de valeurs identiques                       }

action coloriage(px,py,t,c)
  Données
    px : entier
    py : entier
    c : entier
  Données / Résultats
    t : Tableau [N][M] de entier
  coloriageRecursif(px,py,t,c,t[py][px])
fin action

{ Methode recursive de remplissage d'une zone }
{ de pixels delimitee par une valeur          }

action remplissageRecursif(px,py,t,c,cl)
  Données
    px : entier
    py : entier
    c : entier
    cl : entier
  Données / Résultats
    t : Tableau [N][M] de entier
  si ( px >= 0 ) et ( px < M ) et ( py >= 0 ) et ( py < N ) alors
    si ( t[py][px] <> c ) et ( t[py][px] <> cl ) alors
      t[py][px] <- c
      remplissageRecursif(px+1,py,t,c,cl)
      remplissageRecursif(px-1,py,t,c,cl)
      remplissageRecursif(px,py+1,t,c,cl)
      remplissageRecursif(px,py-1,t,c,cl)
    fsi
  fsi
fin action