Tétraèdre de Sierpinski version IFS

L'algorithme utilisé consiste à jeter un dé tétraédrique (ce qui rend le fichier autoréférentiel) et selon le résultat, ajouter au point précédent (x,y,z) le point défini par

        if de is 0
            [x,y,z]=[(x-1)/2,(y-1)/2,(z-1)/2]
        else
            if de is 1
                [x,y,z] = [(x+1)/2,(y+1)/2,(z-1)/2]
            else
                if de is 2
                    [x,y,z] = [(x-1)/2,(y+1)/2,(z+1)/2]
                else
                    [x,y,z] = [(x+1)/2,(y-1)/2,(z+1)/2]