Rote Kanten bewegen

Grüne Kanten bewegen

Blaue Kanten bewegen

A = (3, -1)
B = (9, -1)
a = Segment(A, B)
b = OrthogonalLine(A, a)
c = OrthogonalLine(B, a)
F = Point(c)
d = OrthogonalLine(F, c)
E = Intersect(b, d)
e = Segment(B, F)
f = Segment(F, E)
g = Segment(E, A)
C = (11.1, 1.1400000000000001)
h = Segment(B, C)
i = Line(F, h)
j = Line(E, i)
k = Line(C, e)
G = Intersect(i, k)
l = Line(G, f)
H = Intersect(j, l)
m = Segment(C, G)
n = Segment(G, F)
p = Segment(H, G)
q = Segment(E, H)
s = Line(H, e)
r = Line(H, g)
t = Line(C, f)
D = Intersect(r, t)
a_1 = Segment(A, D)
b_1 = Segment(D, C)
c_1 = Segment(D, H)
o = 3 (slider from 0.0010 to 3, step 0.0010)
I = Point(Circle[B, o])
d_1 = Segment(B, I)
e_1 = Line(I, a)
J = Point(e_1)
f_1 = Segment(J, I)
K = Point(Circle[B, o])
g_1 = Segment(B, K)
h_1 = Line(K, a)
L = Point(h_1)
i_1 = Segment(L, K)
M = Point(Circle[B, 1.85 * o])
k_1 = Segment(B, M)
j_1 = Line(M, a)
N = Point(j_1)
l_1 = Segment(M, N)
u = 3 (slider from 0.0010 to 3, step 0.0010)
O = Point(Circle[A, u])
m_1 = Segment(A, O)
n_1 = Line(O, g)
P = Point(n_1)
p_1 = Segment(O, P)
Q = Point(Circle[A, 2.0 * u])
q_1 = Segment(A, Q)
r_1 = Line(Q, g)
R = Point(r_1)
s_1 = Segment(Q, R)
S = Point(Circle[A, 2.793 * u])
a_2 = Segment(A, S)
t_1 = Line(S, g)
T = Point(t_1)
b_2 = Segment(S, T)
v = 3 (slider from 0.0010 to 3, step 0.0010)
U = Point(Circle[B, v])
c_2 = Segment(B, U)
d_2 = Line(U, h)
V = Point(d_2)
e_2 = Segment(U, V)
W = Point(Circle[B, 2.0 * v])
f_2 = Segment(B, W)
g_2 = Line(W, h)
Z = Point(g_2)
h_2 = Segment(W, Z)
A_1 = Point(Circle[B, 2.237 * v])
j_2 = Segment(B, A_1)
i_2 = Line(A_1, h)
B_1 = Point(i_2)
k_2 = Segment(A_1, B_1)