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 

Ejercicio de modelización de un tronco de cono con WinLogo (LOGO)

; ---------------------------------------------------------
; Model d'un tronc de con amb circumeferencies apilades
; de radi progressiu
;
;    © Joan Aranes Clua, 1997
                CC BY 4.0
; ---------------------------------------------------------

procediment circumferència :radi
  repeteix 360 [av 2*pi*:radi/360 gira.dreta 1]
fi

procediment tub :radi
  circumferència :radi
  si :radi > 100 [acaba]
  tub :radi + 4
fi
; ---------------------------------------------------------
tub 10 ;exemple d'ús