Message Boards Message Boards

Visualizing Animated GIFs Along The Time Dimension With Image3D

Image3D is one of my favorite features of Mathematica 9 and now you will see why. It allows one to create mesmerizing 3D objects out of simple 2D animated GIFs. For example, if we take this expanding ring of fire we will obtain a complex hyperbolic cone!

    ?    

Enjoy exploring it and share with us your newly created 3D objects!
fire = Import["http://heathersanimations.com/fires/fan01.gif"];
Image3D[fire, BoxRatios -> {1, 1, 1}]

Don't you know how to start? Have a look to my 3D examples for some inspiration:

"http://heathersanimations.com/fireworks/13.gif"


"http://heathersanimations.com/birthday/c80.gif"


"http://heathersanimations.com/flying/01.gif"


"http://heathersanimations.com/africa/africaanimals/136.gif"


"http://heathersanimations.com/wolves/wolf998.gif"
POSTED BY: Bernat Espigulé
Simon Woods' swirling patterns are tremendous generators of complex structures with Image3D:
 n = 1000;
 r := RandomInteger[{1, n}];
 f := (#/(.01 + Sqrt[#.#])) & /@ (x[[#]] - x) &;
 s := With[{r1 = r}, p[[r1]] = r; q[[r1]] = r];
 x = RandomReal[{-1, 1}, {n, 2}];
 {p, q} = RandomInteger[{1, n}, {2, n}];
 Export["Swarm.gif",
  Table[Graphics[{PointSize[0.02], Opacity[0.8], Dynamic[If[r < 100, s];
      Point[y = x; x = 0.995 x + 0.02 f[p] - 0.01 f[q],
      VertexColors -> (ColorData["TemperatureMap"][70 Norm[#]] & /@ (x - y))]]},
Background -> Black, PlotRange -> 2], {t, 0, 2 Pi, 0.03}]]
 ? 
Image3D[Import["Swarm.gif"], BoxRatios -> {1, 1, 1}]
POSTED BY: Bernat Espigulé
Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Reply Preview
Attachments
Remove
or Discard

Group Abstract Group Abstract