Modelo de diana con circunferencias concéntricas. Un ejercicio de programación con WinLogo (LOGO)

; ---------------------------------------------------------
; Model d'una diana amb circumferències concètriques 
;    © Joan Aranes Clua, 1997
                CC BY 4.0
; ---------------------------------------------------------

procediment circumferència.centrada :radi :color
  repeteix 200 
    [
      avança 2 * pi * :radi / 200 gira.dreta 360 /200
    ]
  no.llapis 
  gd 90 
  av 15 
  ge 90 
  llapis
  acoloreix :color
fi


procediment acoloreix :nombre.color
  no.llapis 
  gira.dreta 45
  av 4 
  llapis
  fes.color :nombre.color 
  pinta
  no.llapis recula 4
  gira.esquerra 45
  llapis
  fes.color 1
fi

procediment diana
  id
  circumferència.centrada 70 10
  circumferència.centrada 55 11
  circumferència.centrada 40 10
  circumferència.centrada 25 11
  circumferència.centrada 10 1
  desapareix
fi
; ---------------------------------------------------------

;Exemple:
% diana