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

Espiral equiangular con una instrucción para terminar el programa

;----------------------------------------------------------
; Aquest programa dibuixa una espiral una corba espiral,
; i consta d'un "sensor" per tal que el programa s'aturi
; quan la tortuga surti 
; d'un marc rectangular de mida donada
;
;   © Joan Aranes Clua, 1998
; ----------------------------------------------------------

procediment Dibuixa.espiral :angle :costat 
av :costat gd :angle posa.a "costat :costat+1
si detecta 1 [acaba][Dibuixa.espiral :angle :costat]
fi

procediment Espiral :angle :costat
inicia.dibuix
fes.fons 52 fes.color 9
desapareix
sensor [-150 150 150 -150]
Dibuixa.espiral :angle :costat
fi
;-----------------------------------------------------------
% Espiral 112 1
% fes.lupa 1