# Preparo un "orologio" (proc.time()[3] dà il tempo in sec dall'inizio):
tic <- function(x) {sec <-proc.time()[3]; while(proc.time()[3] < sec+x) sec <- sec} # passano x sec
# Faccio un "ciclo", che parte da "for" e finisce con "}"
for (k in 0:20) { tic(0.3);
plot(c(0,100),c(0,100),type="n",xlab="", ylab="", asp=1);
symbols(50,80, circles=5, inches=FALSE, add=TRUE);
# occorre mettere inches=FALSE se no vengono usati i pollici
symbols(52,82, circles=1, inches=FALSE, add=TRUE);
lines(c(55,50,50),c(0,0,75)); tic(0.3);
plot(c(0,100),c(0,100),type="n",xlab="", ylab="", asp=1);
symbols(50,80, circles=5, inches=FALSE, add=TRUE);
symbols(52,82, circles=1, inches=FALSE, add=TRUE);
lines(c(35,30,50,70,75,70,50,50,35,50,65),c(1.5,2,40,2,2.5,2,40,75,45,75,45)) }
# Aggiungo una scritta:
lines(c(52,54.5),c(79,79)); text(71,80,"CIAO")
#
# Un modo molto più semplice usando
source("http://macosa.dima.unige.it/r.R")
#
HF=3; BF=3
box00S(0,100, 0,100)
for (k in 0:10) { Box00S(0,100, 0,100)
 cerchio(50,82, 7, "brown"); text(50,95,"aspetta")
 spezzata( c(55,50,50),c(0,0,75), "blue" ); attendi(0.5)
 Box00S(0,100, 0,100)
 cerchio(50,82, 7, "brown"); text(50,95,"aspetta")
 spezzata( c(35,30,50,70,75,70,50,50,35,50,65),c(1.5,2,40,2,2.5,2,40,75,45,75,45), "blue" ); attendi(0.5)}
spezzata(c(53.5,55.7),c(79,79), "brown"); text(71,80,"CIAO")