$A$

$A'$

$D$

$E$

$B$

$P$

A = (-2.3450626006344306, 0.8840755966429739)
A' = (6.780099560122019, 0.823904892583683)
a = Segment(A, A')
b = OrthogonalLine(A, a)
c = OrthogonalLine(A', a)
D = Point(b)
d = Line(D, a)
E = Intersect(c, d)
polígono1, a_1, b_1, d_1, c_1 = Polygon(A, A', E, D)
B = Midpoint(A, E)
C = Midpoint(c_1)
F = Midpoint(D, E)
G = Midpoint(A, C)
H = Midpoint(D, F)
I = Midpoint(C, D)
J = Midpoint(F, E)
K = Midpoint(A, G)
L = Midpoint(D, H)
M = Midpoint(G, C)
N = Midpoint(H, F)
O = Midpoint(C, I)
P_1 = Midpoint(F, J)
Q = Midpoint(I, D)
R = Midpoint(J, E)
u = Vector(A, D)
v = Vector(D, E)
h = 0.5 (slider from 0 to 1, step 0.125)
w: h * u
z: h * v
A'_1 = Translate(A, w)
g = Segment(A', A'_1)
e = Vector(A, A'_1)
D' = Translate(D, z)
f = Vector(D, D')
i = Segment(D', A)
P = Intersect(g, i)
j = Segment(C, A')
k = Segment(A, F)
B' = Mirror(B, a_1)
S_1, S_2 = Intersect(k, polígono1)
T = Intersect(j, k)
V = Midpoint(A, A')
l = Ray(V, B)
r = Circle(V, B)
s = Circle(V, A)
S = Intersect(s, l, 1)
q = CircleArc(V, S, A)
U = Point(q)
m = Segment(V, U)
W = Intersect(r, m)
n = OrthogonalLine(U, a_1)
t = Line(W, a_1)
Z = Intersect(n, t)
lugar1 = Locus(Z, U)
T' = Mirror(T, a)
p = Conic(A, A', B, T, T')