The Wolfram Blog has some amazing one liners in Mathematica:


Direct Media Links: Webm, Ogg Ipod, Quicktime.
t = 0; b = BSplineFunction[{{-9, 9, 5}, {9, -9, 2}}];
Show[Import["http://1.usa.gov/1pFyJxx", "STL"], 
 ViewVector -> Dynamic@(b /@ {t += .01, t + 5})]

GeoGraphics[{GeoMarker[], 
  GeoDisk[l = Here, 
   r = SemanticInterpretation[s = "Boeing 767 range"]], Red , 
  Text[Style[s "from here" r*1., 22]]}]