Dibujo de dos circunferencias con colores con WinLogo (LOGO)

; ---------------------------------------------------------
; Dibuix de dues circumferències acolorides
;    © Joan Aranes Clua, 1997
                CC BY 4.0
; ---------------------------------------------------------
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

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

procediment dues.circumferències :radi :nombre.costats
  id
  repeteix 2 [circumferència :radi :nombre.costats gd 180]
  fi
; ---------------------------------------------------------
;Exemple:
% dues.circumferències 80 500