A = (-2.72, 1.6599999999999955)
B = (1.7, 5.539999999999996)
C = (6.08, 0.49999999999999545)
polígono1, c, a, b = Polygon(A, B, C)
D = Point(polígono1)
d = OrthogonalLine(D, b)
E = Intersect(b, d)
e = OrthogonalLine(D, a)
F = Intersect(e, a)
g = If(D ≟ E, AffineRatio[A, C, D], If[D ≟ F, AffineRatio[C, B, D] + 1.0, AffineRatio[B, A, D] + 2.0])
G = (1.42, 0.6399999999999955)
H = (6.74, -0.22000000000000455)
f = Circle(G, H)
H' = Rotate(H, 2.0 * 3.141592653589793 * g / 3.0, G)
h = Segment(D, H')
I = Midpoint(h)
lugar1 = Locus(I, D)