Modelo de una espiral equiangular con WinLogo (LOGO)

; ---------------------------------------------------------
; Model de espiral equiangular
;
;    © Joan Aranes Clua, 1997
                CC BY 4.0
; ---------------------------------------------------------
procediment espiral.equiangular :costat :angle
av :costat gd :angle
si :costat > 100 [acaba]
espiral.equiangular :costat + 1 :angle
fi
; ---------------------------------------------------------
; exemple d'ús
id 
espiral.equiangular 4 92