sumRays = 6 (slider from 1 to 10, step 1)
FA = Point(xAxis)
trascina = Point(Circle[FA, sumRays])
f = Segment(FA, trascina)
FB = Point(xAxis)
g = LineBisector(FB, trascina)
I = Intersect(g, f)