Scherung 1

Drehung

Scherung 2

Scherung 1

Scherung 2

Drehung

Schieberegler der Reihe nach von links nach rechts

A = (3.138725288127983, -0.23086271767635436)
B = (9.97385553939765, -0.19877290429011182)
c = Semicircle(A, B)
C = Point(c)
Vieleck1, c_1, a_4, b = Polygon(A, B, C)
AQuadrat, d, e, f, g, D, E = Polygon(C, B, 4)
BQuadrat, h, i, j, k, F, G = Polygon(A, C, 4)
CQuadrat, l, m, n, p, H, I = Polygon(B, A, 4)
J = Intersect(c_1, OrthogonalLine[C, Segment[A, B]])
q = Segment(C, J)
t = 0 (slider from 0 to 1, step 0.01)
C' = Translate(C, (t * (A - C)))
E' = Translate(E, (t * (A - C)))
Vieleck5, b_1, d_1, e', c' = Polygon(B, D, E', C')
α = 0 rad (slider from 0 to 90°, step 0.08726646259971647)
B' = Rotate(B, α, B)
D' = Rotate(D, α, B)
E'' = Rotate(E', α, B)
C'' = Rotate(C', α, B)
Vieleck5', b', d', e'', c'' = Polygon(B', D', E'', C'')
u = 0 (slider from 0 to 1, step 0.01)
E''' = Translate(E'', (u * (J - C)))
D'' = Translate(D', (u * (J - C)))
ViereckBlau, r, s, a_1, e_1 = Polygon(B, D'', E''', C'')
v = 0 (slider from 0 to 1, step 0.01)
w = 0 (slider from 0 to 1, step 0.01)
β = 0 rad (slider from 0 to 90°, step 0.08726646259971647)
F' = Translate(F, (v * (B - C)))
C'_1 = Translate(C, (v * (B - C)))
Vieleck7, a_2, c'_1, f', g_1 = Polygon(A, C'_1, F', G)
A' = Rotate(A, (-β), A)
K = Rotate(C'_1, (-β), A)
F'' = Rotate(F', (-β), A)
G' = Rotate(G, (-β), A)
Vieleck7', a', k_1, f'', g' = Polygon(A', K, F'', G')
G'' = Translate(G', (w * (J - C)))
F''' = Translate(F'', (w * (J - C)))
ViereckGruen, k_2, f''', g'', a_3 = Polygon(K, F''', G'', A)