Creación de una pequeña animación

Vamos a simular una cuenta atrás, que consiste en hacer aparecer sucesivamente las cifras de 9 a 0 en orden decreciente.

   para cuentatras
      bp ot cifra 0 1 1 1 1 1 1 espera 60
      bp ot cifra 1 1 1 1 1 1 1 espera 60
      bp ot cifra 0 0 1 0 1 1 0 espera 60
      bp ot cifra 1 1 1 1 0 1 1 espera 60
      bp ot cifra 0 1 1 1 0 1 1 espera 60
      bp ot cifra 0 0 1 1 1 0 1 espera 60
      bp ot cifra 0 1 1 1 1 1 0 espera 60
      bp ot cifra 1 1 0 1 1 1 0 espera 60
      bp ot cifra 0 0 1 0 1 0 0 espera 60
      bp ot cifra 1 1 1 0 1 1 1 espera 60
   fin

Pequeño problema: hay un efecto de parpadeo desagradable durante la creación de cada cifra. Para suavizarlo se van a utilizar las primitivas animacion y refrescar. animacion recibe un argumento igual a cierto o falso:

• Si es igual a falso, se mantiene en el modo de dibujo habitual
• Si es igual a cierto, se inicia el modo "animacion". La tortuga no dibuja en la pantalla, sino en la "máscara", es decir, que efectua los cambios en memoria. No mostrará la imagen hasta que se lo pida la primitiva refrescar.

Se obtiene el siguiente programa modificado:

   para cuentatras
          # Entramos en modo animacion
      animacion cierto
      bp ot cifra 0 1 1 1 1 1 1 refrescar espera 60
      bp ot cifra 1 1 1 1 1 1 1 refrescar espera 60
      bp ot cifra 0 0 1 0 1 1 0 refrescar espera 60
      bp ot cifra 1 1 1 1 0 1 1 refrescar espera 60
      bp ot cifra 0 1 1 1 0 1 1 refrescar espera 60
      bp ot cifra 0 0 1 1 1 0 1 refrescar espera 60
      bp ot cifra 0 1 1 1 1 1 0 refrescar espera 60
      bp ot cifra 1 1 0 1 1 1 0 refrescar espera 60
      bp ot cifra 0 0 1 0 1 0 0 refrescar espera 60
      bp ot cifra 1 1 1 0 1 1 1 refrescar espera 60
          # Volvemos al modo de dibujo habitual
      animacion falso
   fin