getal4 = 4 (slider from 0.1 to 8, step 0.1)
A = (5, 6)
A_1 = (5, 4)
getal2 = 6 (slider from 0.1 to 8, step 0.1)
getal1 = 7 (slider from 0.1 to 8, step 0.1)
getal3 = 5 (slider from 0.1 to 8, step 0.1)
c = Circle(A, getal4)
B = Point(c)
f = Line(A, B)
d = Circle(A, getal1)
C, D = Intersect(d, f)
g = Segment(C, A)
h = Segment(A, B)
c_2 = Circle(A_1, (getal3 * getal4 / getal1))
B_1 = Point(c_2)
f_3 = Line(A_1, B_1)
d_2 = Circle(A_1, getal3)
C_1, D_1 = Intersect(d_2, f_3)
a = If(getal1 > getal1 - getal2, ((0.5 * getal3) * getal2 / getal1), (0.5 * (getal3 - (getal3 * getal2 / getal1))))
h_1 = Segment(A_1, B_1)
g_1 = Segment(C_1, A_1)
E = (5, 5)
i = Line(E, g)
F = (5, 3)
j = Line(F, g)
e = Circle(E, getal2 / 2)
G, H = Intersect(e, i)
k = Segment(G, H)
p = Circle(F, (g_1 * k / ((2 * g))))
I, J = Intersect(p, j)
l = Segment(I, J)