Die Schieberegler können mit der 
linken Maustaste verändert werden.

C2 = (0, -1)
C1 = (0, 1)
a3 = 0.7853981633974483 rad (slider from 0.6981317007977318 to 1.0471975511965976, step 0.0017453292519943296)
y3: -sin(a3)
a: y = y3
C4 = Intersect(a, ya)
a2 = 0.28623399732707 rad (slider from 0.17453292519943295 to 0.3490658503988659, step 0.0017453292519943296)
A2: (-cos(a2), sin(a2))
B2 = Mirror(A2, ya)
Vieleck2, b2, a2_1, c2 = Polygon(A2, C2, B2)
C3 = Intersect(c2, ya)
a1 = 0.23911010752322312 rad (slider from 0.17453292519943295 to 0.3490658503988659, step 0.0017453292519943296)
A1: (-cos(a1), -sin(a1))
B1 = Mirror(A1, ya)
Vieleck1, b1, c1, a1_1 = Polygon(C1, A1, B1)
P8 = Intersect(b1, c2)
b = Line(P8, C4)
P3 = Intersect(c1, b)
h = Line(C3, P3)
x1: x(A1)
y1: y(A1)
x2: x(A2)
y2: y(A2)
p8: (y2 - 1.0) * x1 / (y1 - 1.0)
p2: (y1 + 1.0) * x2 / (y2 + 1.0)
p3: (y1 - y3) * p8 / (y2 - y3)
x3: (y3 - y2) * p3 / (y1 - y2)
p1: (y2 + 1.0) * x2 * x3 / (x3 * y2 + x3 + x2 * y2 - x2 * y3)
y7: (y2 + 1.0) * p1 / x2 - 1.0
r0: (y2 - y3) / p8
x5(x) = (x - y3) / r0
a6 = 0.8237954069413236 rad (slider from 0.6981317007977318 to 1.0471975511965976, step 0.0017453292519943296)
y6: sin(a6)
p7: (y2 - y6) * p2 / (y1 - y6)
p9(x) = (x - 1.0) * x1 * p7 / (p7 * (y1 - 1.0) + x1 * (x - y2))
y4(x) = (y1 - 1.0) / x1 * p9(x) + 1.0
y8(x) = (x - y4(x))^(2.0) * p7 / (p7 * (x - y4(x)) + x5(x) * (x - y2)) + y4(x)
p6(x) = p7 * x5(x) * (x - y4(x)) / (p7 * (x - y4(x)) + x5(x) * (x - y2))
q6(x) = (x - y4(x)) / (x - y3) * r0 * p6(x) + y4(x)
x8(x) = (q6(x) - y6) * p2 / (y1 - y6)
O = (0, 0)
c = Circle(O, 1.0)
P2 = Intersect(b2, c1)
d: y = y6
C7 = Intersect(d, ya)
e = Line(C7, P2)
P7 = Intersect(c2, e)
f(x) = y2 - x + (y3 - y2) * (y2 - y7) * x8(x) / (x3 * (y8(x) - y7) + x8(x) * (y2 - y3))
x7: (y7 - y6) * p2 / (y1 - y6)
P1 = Intersect(b2, h)
g = Line(P1, xa)
A7 = Intersect(g, e)
x4(x) = (y4(x) - y3) / r0
N = Root(f, -0.25, -0.01)
y5: x(N)
A3 = Intersect(a, h)
A3' = Mirror(A3, ya)
Vieleck3, a3', c3, a3_1 = Polygon(C3, A3, A3')
A5: ((y5 - y3) / r0, y5)
A6: ((y6 - y5) * p7 / (y2 - y5), y6)
C8 = Intersect(g, ya)
C6: (0.0, y5)
A6' = Mirror(A6, ya)
Vieleck6, a6', a6_1, c6 = Polygon(A6, C6, A6')
A7' = Mirror(A7, ya)
Vieleck7, c7, a7, a7' = Polygon(A7, A7', C7)
P9 = Intersect(a6', b1)
i = Line(P9, xa)
A4 = Intersect(i, b)
A4' = Mirror(A4, ya)
Vieleck4, c4, a4, a4' = Polygon(A4, A4', C4)
C5 = Intersect(c4, ya)
A5' = Mirror(A5, ya)
Vieleck5, a5', c5, a5 = Polygon(C5, A5, A5')
P6 = Intersect(a5', a6')
j = Line(P6, xa)
A8 = Intersect(j, a7')
A8' = Mirror(A8, ya)
Vieleck8, c8, a8, a8' = Polygon(A8, A8', C8)
C9 = Intersect(c1, ya)
P5 = Intersect(a6', a3')
k = Line(P5, xa)
A9 = Intersect(k, a5')
A9' = Mirror(A9, ya)
Vieleck9, a9', a9, c9 = Polygon(A9, C9, A9')