B = (8.1167, 8.58121)
A = (-1.32, 0)
C = (13.72, 0)
isleta, v3, v1, v2 = Polygon(A, C, B)
mediatriz2 = LineBisector(v1)
mediatriz1 = LineBisector(v2)
O = Intersect(mediatriz2, mediatriz1)
R = Segment(O, B)
bisectrizV2 = AngularBisector(A, C, B)
bisectrizV1 = AngularBisector(C, A, B)
I = Intersect(bisectrizV1, bisectrizV2)
ortoI = OrthogonalLine(I, v1)
Ibase = Intersect(v1, ortoI)
d = 4.9 (slider from 0 to 10, step 0.1)
circunscrita = Circle(O, R)
P = (6.640000000000001, 3.2800000000000002)
c = Circle(P, d)
f = Circle(I, Ibase)