xLogo

Sequence 5 - Correction Horloge à aiguilles

Par FABIEN CABANEL, publié le samedi 5 novembre 2011 17:11 - Mis à jour le vendredi 2 mars 2012 09:57

pour horloge

ve ct animation
ftc 3 cercle 230 ftc 1
donne "heure 0


repete 12 [

  #Dessiner l'aiguille des heures
  origine
  td :heure*30
  dessine av 100 rafraichis


  #Faire un tour complet pour l'aiguille des minutes
  origine
  donne "minute 0
  tantque [   :minute<60   ]    [
      si ( :heure*30=:minute*6  ) [donne "minute :minute+1   td 6]
      dessine  av 200 rafraichis
      gomme re 200
      td 6
     donne "minute :minute+1
]


  #Effacer l'aiguille des heures
  origine
  td :heure*30
  gomme av 100


  donne "heure :heure+1
  ]


stopanimation
origine dessine av 200

fin