factor1 = 4 (slider from 1 to 5, step 1)
factor2 = 1 (slider from 1 to factor1, step 1)
getal2 = 2 (slider from 0 to 5, step 0.1)
C = (1, 5)
D = Point(Circle[C, (getal2 * factor1)])
c_1 = Circle(D, (getal2 * factor2))
k = Segment(C, D)
H = Intersect(c_1, k)
n = Segment(D, H)
getal1 = 3 (slider from 0.1 to 5, step 0.1)
A_1 = (1, 8)
B_1 = Point(Circle[A_1, getal1])
e = Segment(A_1, B_1)
A = (1, 7)
B = Point(Circle[A, (getal1 * factor1)])
g = Segment(A, B)
h = Ray(A_1, B_1)
E: (1, 4)
p = Circle(A, getal1)
q = Circle(A, (2 * getal1))
r = Circle(A, (3 * getal1))
s = Circle(A, (4 * getal1))
I = Intersect(p, g, 1)
J = Intersect(q, g, 1)
K_1 = Intersect(r, g, 1)
L = Intersect(s, g, 1)
N = Point(Circle[E, getal2])
f = Segment(E, N)
j = Ray(D, C)
f_1 = Circle(C, n)
F, K = Intersect(f_1, j)
c = Circle(C, (2 * getal2))
d = Circle(C, (3 * getal2))
e_1 = Circle(C, (4 * getal2))
P = Intersect(d, k, 1)
Q = Intersect(e_1, k, 1)
O = Intersect(c, k, 1)
t = Circle(B, (getal1 * factor2))
l = Segment(C, H)
G = Intersect(t, g)
a = Segment(B, G)
b = Segment(A, G)
i = Segment(K, C)