Un conjunto de espirales equiangulares, cada una con un valor de ángulo de giro distinto

;----------------------------------------------------------
; Aquest programa dibuixa un seguit d'espirals equiangulars
; l'angle de les quals va canviant d'una a l'áltra
;
;   © Joan Aranes Clua, 1998
; ----------------------------------------------------------

procediment espiral :angle
fes.local "costat posa.a "costat 4
inicia.dibuix
fes.color (atzar 255)+1
rep 100 [av :costat gd :angle posa.a "costat :costat+1]
fi

procediment pel.lícula 
fes.local "angle posa.a "angle 1
fes.fons 1
repeteix 360 [espiral :angle espera 100 posa.a "angle :angle+1]
fi 
;------------------------------------------------------------

% pel.lícula 1