File:Homotopyforrightcompositionwithtrivialloop.png

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

Graphics[{Line[{{0, 0}, {0, 1}, {1, 1}, {1, 0}, {0, 0}}], Line[{{1, 0}, {1/2, 1}}], Text["f", {0.5, 0.05}], Text["f", {0.25, 0.95}], Text["e", {0.75, 0.95}], Text["speed change (left end fixed)", {0.4, 0.5}], Text["loop at each stage", {0.4, 0.6}], Text["stays fixed at \!\(\*SubscriptBox[\(x\), \(0\)]\)", {0.9, 0.5}]}]