c

b

a

A = (-2.86, 0.34)
a_1 = OrthogonalLine(A, yAxis)
a = 5.3 (slider from 0 to 10, step 0.1)
b = 7.8 (slider from 0 to 10, step 0.1)
c = 10 (slider from 0 to 10, step 0.1)
Drehwinkel = 0 rad (slider from 0 to 3.141592653589793, step 0.017453292519943295)
d = Circle(A, c)
B, C_1 = Intersect(d, a_1)
e = Circle(A, b)
f = Circle(B, a)
C, E = Intersect(e, f)
Vieleck1, c_1, a_2, b_1 = Polygon(A, B, C)
g = OrthogonalLine(C, c_1)
D = Intersect(c_1, g)
Vieleck2, c_2, a_3, d_1 = Polygon(A, D, C)
Vieleck3, c_3, d_2, b_2 = Polygon(D, B, C)
F = Midpoint(d_2)
G = Midpoint(d_1)
h = CircleArc(F, B, C)
S1 = Point(h)
k = Circle(F, B)
i = Distance(B, D)
p = Circle(S1, i)
I, J = Intersect(p, k)
j = Line(S1, F)
K, L = Intersect(k, j)
Vieleck4, l, i_1, h_1 = Polygon(I, S1, L)
S2 = Rotate(A, -(Drehwinkel), G)
D' = Rotate(D, -(Drehwinkel), G)
C' = Rotate(C, -(Drehwinkel), G)
Vieleck2', c', a', d' = Polygon(S2, D', C')
q = CircleArc(G, C, A)