Dibujo de formas: anillas olímpicas. Un ejercicio con WinLogo (LOGO)

; ---------------------------------------------------------
;    Dibujo del logotipo olímpico (anillas olímpicas)
;
;    © Joan Aranes Clua, 1998
                CC BY 4.0
; ---------------------------------------------------------

procediment Situa.tortugues
  desapareix
  
  ;Situo les tortugues a l'extrem esquerra 
  ;del diàmetre horitzontal de cada circumferència
  posa.a "posicions.inicials [[-140 30] [-60 30] [20 30] [-100 -20][-20 -20]]
  
  posa.a "colors [13 1 10 11 12]
  fes.actives [1 2 3 4 5]
  apareix no.llapis orienta't 360
  fes.gruix 8
  per.a.cada 
  [
    fes.color element actives :colors 
    no.llapis 
    posa't element actives :posicions.inicials 
    llapis
  ]
  desapareix
fi

procediment Posa.rètol
  inicia.dibuix
  no.llapis posa't [-80 -110] 
  gd 90 
  fes.color 1 
  fes.gruix 2
  llapis retola [Sidney 2000]
fi

procediment Dibuixa.anells
  Circumferència 60
fi

procediment Circumferència :radi
  repeteix 36 
    [
      gira.dreta 5 
      avança pi * :radi / 18 
      gira.dreta 5
    ] 
fi

procediment Sydney.2000
  Posa.rètol
  Situa.tortugues
  Dibuixa.anells
fi

; ---------------------------------------------------------
; Exemple d'ús del programa
% id
% Sydney.2000