Es la modificación de un código que encontré no me acuerdo donde.
c = Disk[{0, 0}, {10, 20}, {Pi, 0}]; l =
Rotate[Disk[{#[[1]], -40}, {10, 20}, {Pi, 0}], #[[2]]] & /@ {{-10,
45}, {10, 225}}; Manipulate[
Graphics[{Darker[Green], l[[1]], Darker[Darker[Green]], l[[2]], Blue,
Rectangle[{-1, 1}, {1, -50}],
Table[{RGBColor[Sin[n t], Cos[n], Cos[t/n]],
Rotate[c, 45 n + t, {0, 0}]}, {n, 6}], Brown, Disk[{0, 0}, 2]},
PlotRange -> {{-30, 30}, {-50, 30}}], {t, 0, 2 Pi}]
Para aprender más sobre Mathematica ingrese aquí sitio de aprendizaje de Wolfram o en mi website ustamathematica.wixsite.com/basicas
No hay comentarios.:
Publicar un comentario