C'est en fait une fractale... Super simple : on fait un carré, qu'on découpe en neuf petits carrés égaux, et on recommence sur tous ces carrés suaf sur celui du milieu. Ici, on la trace à l'écran ou sur l'imprimante (selon ce que l'on veut)
Cette fractale s'appelle le tapis de Serpienski (il existe aussi le triangle de Serpienski que je prépare pour dans 3/4 jours), et pour ceux que ça amuse, c'est la version en 2 dimensions du triadique de Cantor et sa généralisation en 3 dimensions s'appelle l'éponge de Wenger... (voilà pour le coin culture)
Le but est de montrer la récursivité (ici un appel => 8 appels) et une fractale amusante à faire.
Je mets bien sûr le niveau 1 vu la taille du code. La Sub qui fait la récursivité est 'dessint'. A noter qu'elle prend en argument un object (ce qui permet de ne pas écrire 2 sub différentes 1 pour la fenêtre, 1 pour l'imprimante).