2Lapp_komplett_blau_gruen

d(x, y) = If[sqrt(x^(2) + y^(2)) ≤ 1, (1 / 2 * (x + y - ((-x) + y))^(2))]
a(x, y) = If[sqrt(x^(2) + y^(2)) ≤ 1, (-2 * y^(2)) + 2]
b = CurveCartesian(cos(t), sin(t), (2 * (cos(t))^(2)), t, 0, (2 * pi))