Zylinderhuf_mit_zylindrischer_Deckfläche

a(x, y) = If[sqrt(x^(2) + y^(2)) ≤ 1 ∧ x ≥ 0, 1 - sqrt(1 - x^(2))]
b = Surface(cos(u), sin(u), abs((h * cos(u))), u, (-(pi / 2)), pi / 2, h, 0, 1)
c = CurveCartesian(t, sqrt(1 - t^(2)), t, t, 0, 1)
d = CurveCartesian(t, 0, 1 - sqrt(1 - t^(2)), t, 0, 1)
e = CurveCartesian(t, sqrt(1 - t^(2)), 1 - sqrt(1 - t^(2)), t, 0, 1)
g = CurveCartesian(t, (-sqrt(1 - t^(2))), 1 - sqrt(1 - t^(2)), t, 0, 1)
h = CurveCartesian(t, 0, sqrt(1 - t^(2)), t, 0, 1)
i = Surface(cos(u), sin(u), (h * sqrt(1 - (cos(u))^(2))), u, (-(pi / 2)), pi / 2, h, 0, 1)
j(x, y) = If[sqrt(x^(2) + y^(2)) ≤ 1 ∧ x ≥ 0, sqrt(1 - x^(2))]
k = Surface(cos(u), sin(u), h, u, (-(pi / 2)), pi / 2, h, 0, 1)
l = CurveCartesian(t, sqrt(1 - t^(2)), sqrt(1 - t^(2)), t, 0, 1)
m = CurveCartesian(t, (-sqrt(1 - t^(2))), sqrt(1 - t^(2)), t, 0, 1)
f = Surface(cos(u), sin(u), (h * (1 - sqrt(1 - (cos(u))^(2)))), u, (-(pi / 2)), 0 / 2, h, 0, 1)
n = Surface(cos(u), sin(u), (h * (1 - sqrt(1 - (cos(u))^(2)))), u, 0 / 2, pi / 2, h, 0, 1)