Pila de circunferencias superpuestas con efecto tridimensional con WinLogo (LOGO)

; ---------------------------------------------------------
; Pila de circumferències amb efecte tridimensional 
;    © Joan Aranes Clua, 1997
                CC BY 4.0
; ---------------------------------------------------------

procediment circumferència :radi :nombre.costats 
  repeteix :nombre.costats 
    [
      avança 2 * pi * :radi / :nombre.costats gira.dreta 360 / :nombre.costats
    ]
fi

procediment pila.de.circumferències :radi :nombre.costats :pas
  id
  repeteix 50 
    [
      circumferència :radi :nombre.costats no.llapis 
      gd 90 
      av :pas 
      ge 90 
      llapis
    ]
fi

; ---------------------------------------------------------
;Exemple:
% pila.de.circumferències  50 100 4