A: (0, 0)
B: (5, 0)
v: (3, 2)
Vieleck1, f, g, h, i, C, D = Polygon(A, B, 4)
t = 0.68 (slider from 0 to 2, step 0.01)
w: (t * v)
A' = Translate(A, w)
B' = Translate(B, w)
Vieleck2, j, k, l, m, E, F = Polygon(A', B', 4)
n = Segment(B, B')
p = Segment(C, E)
q = Segment(D, F)
r = Segment(B', E)
s = Segment(E, F)
G = Midpoint(B, D)
H = Midpoint(B', F)
a = LineBisector(H, G)
b = Segment(G, H)
I = Intersect(a, b)
c = Circle(I, 2.5)
J, K = Intersect(c, a)
d = Ellipse(G, H, J)
L = Intersect(d, m, 1)
M = Intersect(d, j, 1)
e = Segment(A, A')
N = Intersect(d, e, 1)
f_1 = Line(I, f)
O, P = Intersect(c, f_1)
Q = Midpoint(P, H)
Q' = Dilate(Q, sqrt(2), I)
c_1 = Conic(G, P, Q', H, O)