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