File:Doublecombspace.png

This file was created using Wolfram Mathematica 8 with the following code:

Graphics[{Line[{{0, 0}, {1, 0}}], Line[{{0, 0}, {0, 2}}], Line[{{-1, 2}, {0, 2}}], Map[Function[ x, {Line[{{1/x, 0}, {1/x, 1}}], Line[{{-1/x, 1}, {-1/x, 2}}]}], Range[500]]}]