k BC = 

A = (0.64, 0.78)
B = (6.361071931734319, 0.5413426698838392)
C = (-4.432514406756694, 7.835900541606161)
a = Ray(A, B)
b = Ray(A, C)
α = Angle(B, A, C)
Ω = (-6.113391714664712, -0.9480389384293095)
e = Segment(B, C)
distanceBC = Distance(B, C)
TexteBC: Name[B] + (Name[C]) + " \, = \, " + distanceBC
k = 2.4 (slider from -5 to 5, step 0.1)
A' = Dilate(A, k, Ω)
B' = Dilate(B, k, Ω)
C' = Dilate(C, k, Ω)
c = Ray(A', B')
d = Ray(A', C')
β = Angle(B', A', C')
f = Segment(Ω, C)
g = Segment(Ω, C')
h = Segment(Ω, A)
i = Segment(Ω, A')
j = Segment(Ω, B)
l = Segment(Ω, B')
m = Segment(B', C')
distanceB'C' = Distance(B', C')
Midpoint(B', C')
TexteB'C': Name[B'] + (Name[C']) + " \, = \, " + distanceB'C'
n: (k * Distance[B, C])
texte1 = LaTeX(n, true, true)
texte3 = LaTeX(n)