A = (1.68, 1.08)
B = (4.8, 1)
f = Segment(A, B)
D = (2.32, 2.48)
g = Segment(A, D)
h = Line(D, f)
i = Line(B, g)
C = Intersect(i, h)
j = Segment(D, C)
k_1 = Segment(C, B)
k = 2.1 (slider from -5 to 5)
M: A + (k * Vector[A, B])
P: C + (k * Vector[C, D])
Q: D + (k * Vector[D, A])
N: B + (k * Vector[B, C])
l = Segment(Q, M)
m = Segment(M, N)
n = Segment(N, P)
p = Segment(P, Q)