Arbre octaédrique en IFS

L'algorithme utilisé consiste à jeter un dé et selon le résultat, ajouter au point précédent (x,y,z) le point défini par

        switch de
            when 0
                [x,y,z]=[(x-1)/2,y/2,z/2]
            when 1
                [x,y,z] = [x/2,(y-1)/2,z/2]
            when 2
                [x,y,z] = [x/2,y/2,(z-1)/2]
            when 3
                [x,y,z]=[(x+1)/2,y/2,z/2]
            when 4
                [x,y,z] = [x/2,(y+1)/2,z/2]
            else
                [x,y,z] = [x/2,y/2,(z+1)/2]