# Fijamos los valores de partida dif0 y C0:

Valor(dif0, dif)
Valor(C0, C)

# Variamos C y comparamos la dif yendo hacia el NE con dif0:

Valor(C, C + (inc, inc))
Valor(C, Si(dif<dif0, C, C0))
Valor(C0, C)

# [Repetimos estas tres instrucciones para los movimientos hacia el E, SE, S, SO, O, NO y N, es decir, (inc, 0), (inc, -inc), (0, -inc), (-inc, -inc), (-inc, 0), (-inc, inc) y (0, inc).]

# Si la diferencia no se reduce, incrementamos la precisión dividiendo inc entre 10:

Valor(inc, Si(dif==dif0, inc/10, inc))

# Cuando la diferencia sea nula, detenemos la animación (además, se mostrará el mensaje “proceso terminado”):

Si(dif==0, IniciaAnimación(false))