Step 4 is to construct the top. The command is [b]Surface[u*t + (1 - u) t, u 0 + (1 - u) f(t), u f(t) + (1 - u) f(t), u, 0, 1, t, 1, 5][/b]