The model I used for this animation is an original creation by Mladen Pejic, used with permission. This is my first animation with sound. The walking animation uses the 6-legged “alternating tripod gait” which is common among insects. The hoses under the legs were animated using Rune Johansen’s inverse kinematics neck include file. (Note: if the movie doesn’t play right, you may need to save it to your computer first and then play it). The sound effects were combined together in Mathematica:
<< Miscellaneous`Audio`;
AddSound[sound2_, sound1_,i_] := Module[{n1 = Length[sound1],n2 = Length[sound2]}, Join[Take[sound1, {1, Max[0, Min[n1, i - 1]]}], Take[sound1, {Max[1, Min[n1 + 1, i]], Max[0, Min[n1, i + n2 - 1]]}] + Take[sound2, {Max[1, Min[n2 + 1, 2 - i]], Max[0, Min[n2, n1 - i + 1]]}], Take[sound1, {Max[1, Min[n1 + 1, i + n2]], n1}]]];
sound = ReadSoundfile["C:/Sound.wav"][[1]]; rate = 44100; tmax = 1.0Length[sound]/rate; composition = Table[0, {Round[rate tmax]}];
Do[composition = AddSound[sound, composition, Round[rate t]], {t, 0, tmax, 0.25tmax}];
Export["C:/Composition.wav", ListPlay[composition, SampleRate -> rate]];
This was my attempt to draw a vertical panoramic view of the scene described in Edgar Allen Poe’s short story, “A Descent Into the Maelström”, a tall tale about a seaman’s confrontation with the giant Norwegian whirlpool Moskstraumen. The scene is viewed from deep within the vortex with the Moon directly overhead. The boat was modelled by fitting triangles to profile interpolations. See also my Maelström autostereogram.
“At the same moment the roaring noise of the water was completely drowned in a kind of shrill shriek - such a sound as you might imagine given out by the waste-pipes of many thousand steam-vessels, letting off their steam all together. We were now in the belt of surf that always surrounds the whirl ; and I thought, of course, that another moment would plunge us into the abyss - down which we could only see indistinctly on account of the amazing velocity with which we wore borne along. The boat did not seem to sink into the water at all, but to skim like an air-bubble upon the surface of the surge. Her starboard side was next the whirl, and on the larboard arose the world of ocean we had left. It stood like a huge writhing wall between us and the horizon.”
...
“Never shall I forget the sensations of awe, horror, and admiration with which I gazed about me. The boat appeared to be hanging, as if by magic, midway down, upon the interior surface of a funnel vast in circumference, prodigious in depth, and whose perfectly smooth sides might have been mistaken for ebony, but for the bewildering rapidity with which they spun around, and for the gleaming and ghastly radiance they shot forth, as the rays of the full moon, from that circular rift amid the clouds which I have already described, streamed in a flood of golden glory along the black walls, and far away down into the inmost recesses of the abyss.”
- Edgar Allen Poe
The model I used for this animation is an original creation by Mladen Pejic, used with permission. The ship is doing laser target practice in this animation.
This Passion Flower (Passiflora x belotii) was constructed from a series of math equations. This is my favorite flower. It is called a “Passion Flower” because it is symbolic of the crucifixion of Jesus. Click here to see a rotatable 3D version.
Here is a typical condenser used in power plants. Condensers can be very large, up to several stories high with tens of thousands of tubes inside. When cool water flows through these tubes, it causes steam from the turbine to condense, producing a vacuum so more steam can continue to flow through the turbine.
Here is a translucent background image for NEi Fusion at Noran Engineering, Inc. (where I currently work). The image uses PNG format to support the translucent alpha channel. This image is a composite of many images (objects, shadows, shadow masks, reflections, reflection masks, and other masks). The images were combined using the command-line program ImageMagick.
This image was generated by revolving an inverse curve and applying a skewed sinusoidal bump map. Here is some code to plot this picture in Mathematica:
(* runtime: 6 seconds *)
ParametricPlot3D[{r Sin[theta], r Cos[theta], 0.01Sin[7(4r - theta)] - 0.1/r, EdgeForm[]}, {r, 0.1, Sqrt[2]}, {theta, 0, 2Pi}, PlotRange -> {{-1, 1}, {-1, 1}, {-1, 0}}, PlotPoints -> {50, 360}, Boxed -> False, Axes -> None]
Ray Tracing Links Blender - Free ray tracing program. I haven’t had time to try it yet, but I hear it’s very good. Cosmic Blobs - easy 3D modeling for kids
UCSD Rendering Competition - Students write their own ray tracers: 2003, 2004, 2005. Hosted by Henrik Jensen (the guy who invented photon mapping). Stanford Rendering Competition - I haven’t even had time to examine these in detail yet, but they also look impressive.