A = (38.09659533779135, 8.495552514479987)
B = (51.516699708754864, 8.560227716267764)
a = Segment(A, B)
b = OrthogonalLine(A, a)
c = OrthogonalLine(B, a)
D = Point(b)
d = OrthogonalLine(D, b)
C = Intersect(c, d)
e = Line(A, B)
E_1 = Point(e)
F = Point(b)
f = OrthogonalLine(E_1, e)
G = Intersect(d, f)
g = OrthogonalLine(F, b)
H_1 = Intersect(c, g)
h = Segment(E_1, G)
i = Segment(F, H_1)
j = Segment(D, C)
k = Segment(B, C)
l = Segment(A, D)
m = Distance(h, i)
E = Midpoint(j)
K = Midpoint(E, C)
n = Segment(D, B)
H = Midpoint(k)
I = Midpoint(H, C)
p = Segment(E, H)
q = Segment(K, I)
r = Segment(B, E)
O = Midpoint(n)
I_1 = Midpoint(j)
J = Midpoint(a)
L = Midpoint(l)
s = Segment(J, I_1)
t = Segment(L, H)