//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 :