γ

Schieberegler für den Winkel zwischen den Spiegelachsen s_1 und s_2

Schieberegler für den Drehwinkel α

φ_1 = 4.066617157146788 rad (slider from 0 to 6.283185307179586, step 0.017453292519943295)
γ_2 = 1.3962634015954636 rad (slider from 0 to 1.5707963267948966, step 0.017453292519943295)
Z = Intersect(xAxis, yAxis)
A = (-2.025057141754028, -0.11218689665791563)
B'_1 = Rotate(A, γ_2, Z)
γ_1 = Angle(A, Z, B'_1)
s_1 = Line(A, Z)
s_2 = Line(B'_1, Z)
D = (2.0232870960073135, -1.3920757965687178)
D_1 = Mirror(D, s_1)
D_2 = Mirror(D_1, s_2)
c = Segment(D_2, D_1)
d = Segment(D_1, D)
e = Circle(Z, D)
f = Segment(Z, D)
g = Segment(D_1, Z)
h = Segment(Z, D_2)
G = Intersect(d, s_1)
F = Intersect(s_2, c)
α_1 = Angle(D, Z, G)
α_2 = Angle(G, Z, D_1)
β_1 = Angle(D_1, Z, F)
β_2 = Angle(F, Z, D_2)
D' = Rotate(D, φ_1, Z)
γ = Angle(G, Z, F)
a = Segment(Z, D')
α = Angle(D, Z, D')
B = Point(Circle[D, 1.0])
b = Segment(D, B)
i = OrthogonalLine(B, b)
C = Point(i)
j = Segment(D, C)
k = Segment(B, C)
Vieleck1, c_1, d_1, b_1 = Polygon(D, B, C)
D'_2 = Mirror(D, s_1)
B_1 = Mirror(B, s_1)
C_1 = Mirror(C, s_1)
Vieleck1'_1, c', d', b' = Polygon(D'_2, B_1, C_1)
D'' = Mirror(D'_2, s_2)
B_2 = Mirror(B_1, s_2)
C_2 = Mirror(C_1, s_2)
Vieleck1'', c'', d'', b'' = Polygon(D'', B_2, C_2)
D'_3 = Rotate(D, φ_1, Z)
B' = Rotate(B, φ_1, Z)
C' = Rotate(C, φ_1, Z)
Vieleck1', c'_1, d'_1, b'_1 = Polygon(D'_3, B', C')