Group Abstract Group Abstract

Message Boards Message Boards

Visualizing Animated GIFs Along The Time Dimension With Image3D

GROUPS:
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"
Answer
11 months ago
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}]
Answer
11 months ago