a = 3.2 (slider from 0 to 5, step 0.1)
A = (-2.66, -1.3)
B = Point(Circle[A, a])
a_1 = Segment(A, B)
c_2 = Ray(A, B)
C = Point(Circle[A, 2 * a])
b = Segment(A, C)
D = Point(Circle[A, 3 * a])
c = Segment(A, D)
E = Point(c_2)
čtverec1a, e_1, b_1, f, g, F, G = Polygon(E, B, 4)
H = Point(c_2)
čtverec2a, e_2, h, i, j, I, J = Polygon(E, H, 4)
K = Point(c_2)
čtverec3a, e_3, k, l, m, L, M = Polygon(E, K, 4)
n = Ray(E, G)
N = Intersect(c_2, b_1)
p = Ray(N, F)
q = Ray(H, I)
r = Ray(G, F)
s = Ray(J, I)
a_2 = Ray(M, L)
c_1 = Ray(K, L)