To start the animation right click the slider 
below and activate the animation.

a = -5 (slider from -5 to 5, step 0.01)
b: RandomUniform[0, 1] + (0 * a)
c: RandomUniform[0, 1] + (0 * a)
B = (-0.5766417414270764, 0.3912589280855376)
C = (2.4493882328730883, 0.36904953377874733)
A = (-0.07188277990911608, 2.262400398432615)
mnogokotnik1, d, b_1, c_1 = Polygon(B, C, A)
k = Segment(A, B)
i = Segment(B, C)
j = Segment(C, A)
E = Intersect(xAxis, yAxis)
F: B + (b * (C - B)) + (c * (A - B))
e = Ray(A, F)
f = Ray(C, F)
g = Ray(B, F)
G = Intersect(b_1, g)
H = Intersect(c_1, f)
I = Intersect(e, i)
p = Circle(H, G, A)
L = Intersect(d, e)
h = Circle(C, G, L)
D, K = Intersect(p, h)
l = Line(A, C)
m = OrthogonalLine(D, l)
J = Intersect(l, m)
n = Segment(D, J)
s = OrthogonalLine(K, l)
N = Intersect(l, s)
t = Segment(K, N)