To watch this video you need “red-cyan anaglyph glasses”: This video was made with Mathematica 7. This type of red-cyan anaglyph videos can be useful for display of complex 3D structures. Once the structure is built it takes just a few lines of Mathematica code to render a stereoscopic 3D tour of it. The actual code to produce the visual part is so short that I show it below for instructive purposes.

To read about the molecule visit

Mathematica package: StereoImagery.m by Mark Fisher,

Soundtrack: "Impromptu in Quarter Comma Meantone", Kevin MacLeod, , Licensed under Creative Commons "Attribution 3.0"";

======== Mathematica CODE ========
IMG = Import["URL", "PDB", Background -> Black, Axes -> False];
FILMmol = Table[MakeAnaglyph[Show[IMG, ViewAngle -> 33 \[Degree], ViewPoint -> (.1 + Sin[t {1.062, 1.358, 1.566}]), ImageSize -> 1500]] , {t, .3, 3.7 Pi, .005}];
Export["FILMmol.avi", FILMmol]
======== Mathematica CODE ========

The code uses URL:\compression=NO&structureId=1tf6

Loading more stuff…

Hmm…it looks like things are taking a while to load. Try again?

Loading videos…