rayon = 0.26 (slider from 0 to 0.5, step 0.01)
n1 = 2 (slider from 1 to 5, step 1)
n2 = 3 (slider from 1 to 5, step 1)
n3 = 2 (slider from 1 to 5, step 1)
l1 = Sequence(Sequence[Sequence[Sphere[(i, j, k), rayon], i, 0, n1], j, 0, n2], k, 0, n3)
l2 = Sequence(Sequence[Sequence[Sphere[(i, j, k), rayon], i, 0.5, n1], j, 0.5, n2], k, 0, n3)
l3 = Sequence(Sequence[Sequence[Sphere[(i, j, k), rayon], i, 0.5, n1], j, 0, n2], k, 0.5, n3)
l4 = Sequence(Sequence[Sequence[Sphere[(i, j, k), rayon], i, 0, n1], j, 0.5, n2], k, 0.5, n3)
FaceCentrée = false