O podrias modificar un poco el codigo en demo('Xmas') de animation:

n <- length(speed <- runif(angle <- runif(x <- strsplit("FELIZ NAVIDAD",
     "")[[1]], 0, 360), 0, 15))

 x11(width = 10, height = 3)

par(mar = rep(0, 4), bg = "white")

for (j in 1:1000) {
     angle = angle + speed
     dev.hold()
     plot.new()
     plot.window(c(1, n), c(0, 1))
     for (i in 1:n) text(i, 0.5, x[i], srt = angle[i], cex = runif(1,
         1, 4), col = sample(colors(), 1))
     ani.pause(0.02)
 }

Saludos,
Jorge.-


On Fri, Dec 14, 2012 at 10:48 PM, Carlos Ortega <> wrote:

> Uf, disculpad del copy&paste introduje un bucle adicional.
>
> Este es el código correcto...
>
> ###########################################
> *win.graph(width=800, height=600)*
> for (j in 1:999) {
>   th = th - pi/120
>   center.x = 3 + 5 * cos(th)
>   cols = c(cols[-1], cols[1])
>   alpha = 0.1 + (50 * (1 - sin(th)))/100
>   alpha = ifelse(alpha > 1, 1, alpha)
>   xscale = -sin(th) * 1.2
>   plot(1, xlim = c(-2, 8), ylim = c(-2.5, 3.5), type = "n",* axes=F,
> ylab="", xlab=""*)
>   plot.order = (1:12)[order(xscale > 0)]
>   for (k in 1:12) {
>     i = plot.order[k]
>     draw.ch(x1[[i]], y1[[i]], x2[[i]], y2[[i]], center.x[i],
>             color = cols[k + 60 * ( i >= 6 & i <= 8 ) + 120 *
>                            (i > 8)], alpha[i], xscale[i])
>   }
> }
> ########################################
>
>
>
>
> 2012/12/14 Carlos Ortega <>
>
> > ####################################
> > *win.graph(width=800, height=600)*
> > for (j in 1:999) {
> > for (j in 1:999) {
> >   th = th - pi/120
> >   center.x = 3 + 5 * cos(th)
> >   cols = c(cols[-1], cols[1])
> >   alpha = 0.1 + (50 * (1 - sin(th)))/100
> >   alpha = ifelse(alpha > 1, 1, alpha)
> >   xscale = -sin(th) * 1.2
> >   plot(1, xlim = c(-2, 8), ylim = c(-2.5, 3.5), type = "n", *axes=F,
> > ylab="", xlab=""*)
> >   plot.order = (1:12)[order(xscale > 0)]
> >   for (k in 1:12) {
> >     i = plot.order[k]
> >     draw.ch(x1[[i]], y1[[i]], x2[[i]], y2[[i]], center.x[i],
> >             color = cols[k + 60 * ( i >= 6 & i <= 8 ) + 120 *
> >                            (i > 8)], alpha[i], xscale[i])
> >   }
> > }
> >
> >
> >
> > ####################################
> >
>
>
>
> --
> Saludos,
> Carlos Ortega
> www.qualityexcellence.es
>
>         [[alternative HTML version deleted]]
>
>
> _______________________________________________
> R-help-es mailing list
> R-help-es@r-project.org
> https://stat.ethz.ch/mailman/listinfo/r-help-es
>
>

	[[alternative HTML version deleted]]

