compteur:= 1;
c=[];
pour k allant de -3 à 3 {
	pour j allant de -3 à 3 {
		pour i allant de -3 à 3 {
			Point3D("A"+compteur,i*0.99,j*0.99,k*0.99);
			Cacher("A"+compteur);
			c[compteur]=CercleRayon("A"+compteur,0.4-0.03*(Math.abs(i)+Math.abs(j)+Math.abs(k)));
			MettreCouleurRVB(c[compteur],255,0,0);  //ou MettreCouleur("c"+compteur,"rouge");
			MettreRempli(c[compteur],vrai);
			MettreEpaisseur(c[compteur],"épais");
			MettreOpaque(c[compteur],vrai);
			compteur++;
			Point3D("A"+compteur,i,j,k);
			c[compteur]=CercleRayon("A"+compteur,0.4);
			Cacher("A"+compteur); 
			MettreCouleurRVB(c[compteur],0,0,255); // ou MettreCouleur("c"+compteur,"bleu"); pour un bleu moins éclatant
			MettreRempli(c[compteur],vrai);
			MettreOpaque(c[compteur],faux);      
			compteur++;
		}
	}
}