Dibujando y pintando polígonos regulares con WinLogo (LOGO)

; ---------------------------------------------------------
; Dibuixant i pintant polígons regulars
;    © Joan Aranes Clua, 1997
                CC BY 4.0
; ---------------------------------------------------------
procediment polígons :mida.costat :nombre.costats
  id
  repeteix :nombre.costats 
     [av :mida.costat gd 360 / :nombre.costats]
  acoloreix 1 + atzar 14
fi

procediment acoloreix :nombre.color
  no.llapis gira.dreta 30
  av 3 llapis
  fes.color :nombre.color pinta
  no.llapis recula 3
  gira.esquerra 30 llapis fes.color 1
fi
; ---------------------------------------------------------
;Exemples:
% polígons 60 3
% polígons 60 4
% polígons 60 5
% polígons 60 6
...