//chaque segment de la spirale est obtenu par similitude de rapport k
//k=rapport et t=angle de rotation (externe)
//n=nombre de segments a construire
spirale(l,k,t,n):={
for (j:=1;j<=n;j++){
avance(l);
tourne_gauche(t);
l:=k*l;
}
};
ou encore avec la recursivité
//n=nombre de segments a construire=nombre d'appels recursifs
spiraler(l,k,t,n):={
if (n>0) {
avance(l);
tourne_gauche(t);
spiraler(l*k,k,t,n-1);
}
};
On tape par exemple :
