a_1 = 5 (slider from 0 to 5, step 0.1)
b_1 = 3 (slider from 0 to 5, step 0.1)
h_1 = 3 (slider from 0 to 5, step 0.1)
A = (1.54, 0.92)
B = Point(Circle[A, a_1])
a = Segment(A, B)
F = Point(Circle[A, h_1])
h = Segment(A, F)
c = Line(F, a)
C = Point(c)
D = Point(Circle[C, b_1])
b = Segment(C, D)
d = Segment(D, A)
e = Segment(C, B)