Schieberegler betätigen

A = Point(yAxis)
B = Point(xAxis)
C = (9.42, 9.32)
f = Segment(A, B)
g = Segment(B, C)
h = Segment(C, A)
i = OrthogonalLine(C, f)
D = Intersect(i, f)
j = Segment(C, D)
EE = Midpoint(j)
k = Line(EE, f)
H = Intersect(k, h)
G = Intersect(g, k)
l = OrthogonalLine(H, f)
m = OrthogonalLine(G, f)
n = Line(C, k)
J = Intersect(l, n)
I = Intersect(m, n)
E = Intersect(l, f)
F = Intersect(m, f)
p = Segment(J, I)
q = Segment(J, E)
r = Segment(I, F)
S_1 = 3.14 (slider from 0 to pi, step 0.01)
c = Circle(H, E)
E' = Rotate(E, (-S_1), H)
α = Angle(E', H, E)
s = Segment(E', H)
t = OrthogonalLine(E', s)
abstandAE = Distance(A, E)
TextAE: Name[A] + (Name[E]) + " = " + abstandAE
J_{1} = (2.26, -0.92)
d = Circle(E', Distance[A, E])
A' = Intersect(d, t, 2)
a = Segment(A', H)
d1, f_{1}, k_1, e' = Polygon(A', E', H)
e = Circle(G, F)
S_2 = 3.14 (slider from 0 to pi, step 0.01)
F' = Rotate(F, S_2, G)
β = Angle(F, G, F')
b = Segment(G, F')
g_1 = OrthogonalLine(F', b)
abstandFB = Distance(F, B)
TextFB: Name[F] + (Name[B]) + " = " + abstandFB
c_1 = Circle(F', Distance[F, B])
B' = Intersect(c_1, g_1, 2)
d2, l_1, g_2, f' = Polygon(G, F', B')
h_1 = Segment(H, G)
d3, h_2, a_1, e_1 = Polygon(A, E, H)
d4, g_3, f_2, b_1 = Polygon(F, B, G)