# L'amimazione contemporamea delle due figure è un po' pił complessa.
# Copia e incolla tutte le righe seguenti. Se non l'hai gią introdotta, metti
# anche la riga:    source("http://macosa.dima.unige.it/r.R")
#
f <- function(x) sin(x)
ang <- 0; dang <- pi/24
dev.new(width=8, height=4)
rigcol(1,2)
while (ang < 3.2*pi) {
 # parte sinistra
 noBox=1; Boxm(-1,1, -1,1)
 cerch(0,0, 1, "red")
 ang <- ang+dang; puntino(c(0,cos(ang)), c(0,sin(ang)), "blue" )
 lines(c(0,cos(ang)), c(0,sin(ang)), lty=3 )
 lines(c(1,0), c(0,0), col="red")
 lines(c(cos(ang),cos(ang)), c(0,sin(ang)) ,lwd=2)
 text(cos(ang)*.7,sin(ang)*.7,"x",col="red")
 text(cos(ang),sin(ang)/2,"I",col="white")
 text(cos(ang),sin(ang)/2,"sin",col="red",font=4)
 # parte destra
 noBox=1; Box(0,10, -1,1)
 abline(v=seq(pi/2,3*pi,pi/2),lty=3, col="red",lwd=2)
 plot(f,0,ang,add=TRUE,lwd=2); puntino( ang,sin(ang), "blue")
 attendi(1/2)
}