The h-tree example, another infinite image.
You can download the standalone file here. Unfortunately I can't seem to get the gzip compression to work, so that file is a little bit huge for what it is. Here's the code:
l :: Picture l = Canvas 1 1 [Line (0.5, 0.5) (0.5, 1)] ; h :: Picture h = Overlay l (Beside 1 1 (Flip s) s) ; s :: Picture s = Rotate h ; htree :: Picture htree = h ; main = htree