Happy Holiday!
Be a nice person in 2011, everyone will be happy.
How to generate this image?
First, find an image, then
img2 = ColorConvert[img, "HSB"];img3 = ImageData[img2][[All, All, 3]];
ListPlot[Table[img3[[i]]*10 - i, {i, 1, ImageDimensions[img][[2]], 3}],
PlotRange -> All, Axes -> None, Joined -> True, PlotStyle -> {{Black}, {Thick, Lighter[Black]}}, AspectRatio -> ImageAspectRatio[img]]