A = (4, 0)
B: -(A)
C = (2, 2)
AC = Segment(A, C)
BC = Segment(B, C)
c, d = AngularBisector(AC, BC)
R = 2 (slider from 0 to 2, step 0.1)
e = Circle(C, R)
D = Point(e)
u = Vector(C, D)
BD = Segment(B, D)
AD = Segment(A, D)
v: UnitVector[u] * abs(BD + AD - BC - AC)
C' = Translate(C, v)
text1: "BD + AD  " + (BD + AD) + "
BC + AC  " + (BC + AC) + "
Differ   " + (BD + AD - BC - AC)