File:Homotopyofcompositepaths.png

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

Graphics[{Pink, EdgeForm[White], Polygon[{{0.5, 1}, {0.5, 0}, {0, 0}, {0, 1}}], Black, Line[{{0.5, 0}, {0, 0}, {0, 1}, {0.5, 1}}], Text["\!\(\*SubscriptBox[\(F\), \(1\)]\)", {0.25, 0.5}], Text["\!\(\*SubscriptBox[\(f\), \(1\)]\)", {0.25, 0.05}], Text["\!\(\*SubscriptBox[\(g\), \(1\)]\)", {0.25, 0.95}], Yellow, EdgeForm[White], Polygon[{{1, 1}, {1, 0}, {0.5, 0}, {0.5, 1}}], Black, Line[{{0.5, 0}, {1, 0}, {1, 1}, {0.5, 1}}], Dashed, Line[{{0.5, 0}, {0.5, 1}}], Text["\!\(\*SubscriptBox[\(F\), \(2\)]\)", {0.75, 0.5}], Text["\!\(\*SubscriptBox[\(f\), \(2\)]\)", {0.75, 0.05}], Text["\!\(\*SubscriptBox[\(g\), \(2\)]\)", {0.75, 0.95}]}]