rA = 5 (slider from 0 to 10)
rAC = 4 (slider from 0 to 10)
rAD = 5 (slider from 0 to 10)
rKB = 3.5 (slider from 0 to 10)
K = (0, 0)
A: (rA, 0)
d = Circle(A, rAD)
f = Line(K, A)
c = Circle(K, rKB)
e = Circle(A, rAC)
C = Intersect(e, f, 2)
ac = Segment(A, C)
ska = Segment(K, A)
rBD: (rAC * rKB / rA)
rD2: rKB + rBD
g = Circle(K, rD2)
D = Intersect(d, g, 1)
h = Ray(K, D)
B = Intersect(c, h)
i = Line(A, B)
j = Line(C, D)
rDR: (rAC * rD2 / rA)
rR: rD2 + rDR
k = Circle(K, rR)
R = Intersect(k, h, 1)
l = Line(A, D)
m = Line(C, R)
kb = Segment(K, B)
ad_{1} = Segment(A, D)
dr = Segment(D, R)
ka = Segment(K, A)
bd = Segment(B, D)