PIANOss(-4,4, -4,4)
f <- function(t) 4*cos(t)^3; g <- function(t) 4*sin(t)^3
cerchio(0,0, 4, "grey"); param(f,g, 0,2*pi, "grey"); fig0 <- fig <- recordPlot()
i <- 0; x <- 4; y <- 0; dt <- 0.3
while(i < 90) {replayPlot(fig); PUNTI(x,y,"brown"); fig <- recordPlot() 
  i <- i+1
  t <- 2*pi/90*i; cerchio(3*cos(t),3*sin(t), 1, "red");
  freccia(3*cos(t),3*sin(t), 4*cos(t)^3, 4*sin(t)^3, "blue");
  x <- c(x,4*cos(t)^3); y <- c(y,4*sin(t)^3); attendi(dt) }
attendi(dt); replayPlot(fig0); param(f,g, 0,2*pi, "brown")
# o, per una finestra senza margini:
boxmN(-4,4, -4,4)
f <- function(t) 4*cos(t)^3; g <- function(t) 4*sin(t)^3
cerchio(0,0, 4, "grey"); param(f,g, 0,2*pi, "grey"); fig0 <- fig <- recordPlot()
i <- 0; x <- 4; y <- 0; dt <- 0.3
while(i < 90) {replayPlot(fig); PUNTI(x,y,"brown"); fig <- recordPlot() 
  i <- i+1
  t <- 2*pi/90*i; cerchio(3*cos(t),3*sin(t), 1, "red");
  freccia(3*cos(t),3*sin(t), 4*cos(t)^3, 4*sin(t)^3, "blue");
  x <- c(x,4*cos(t)^3); y <- c(y,4*sin(t)^3); attendi(dt) }
attendi(dt); replayPlot(fig0); param(f,g, 0,2*pi, "brown")