Effacer les traces en bougeant ce curseur

Déplacer M jusqu'à obtenir des solutions

A = (-2, -2)
B = (2, -2)
poly1, a, b, c, d, C, D = Polygon(A, B, 4.0)
M = (-1.1180603227192367, -0.5425471482762123)
e = OrthogonalLine(M, a)
f = OrthogonalLine(M, b)
H = Intersect(e, a)
K = Intersect(f, b)
α = Angle(B, H, M)
β = Angle(M, K, B)
g = Segment(M, K)
h = Segment(M, H)
i = Line(D, M)
j = Line(K, H)
E = Intersect(i, j)
F: M
k = Line(D, B)
δ = Min(Distance[M, Line[B, D]], Distance[M, Line[A, C]])
E2: E + 0.15 / Distance[E, D] * Vector[E, D]
E1: E + 0.15 / Distance[E, K] * Vector[E, K]
E3: E2 + Vector[E, E1]
l = Segment(E3, E1)
m = Segment(E3, E2)
n = 1 (slider from 0 to 2, step 0.1)