A = (-0.46, -2.38)
B = Point(Circle[A, 5])
c = Segment(A, B)
s = 6 (slider from 1 to 8, step 0.1)
d = Circle(A, s)
A' = Rotate(A, 329.99999999999994°, B)
α = Angle(A, B, A')
a_1 = Ray(B, A')
S, S1 = Intersect(d, a_1)
e = Circle(S, B)
f = Circle(S1, B)
C_1, C = Intersect(e, a_1)
E, C1 = Intersect(f, a_1)
b = Segment(A, C)
b1 = Segment(A, C1)
a1 = Segment(B, C1)
a = Segment(B, C)
poly1, b_1, c_1, a_2 = Polygon(C, A, B)
poly2, b_2, c1, a_3 = Polygon(C1, A, B)