Triângulo de mesmo perímetro
Author: Armando Maccori e Paulo Leite

O' = (5.5600000000000005, -0.38)
B_1 = (5.7, 4.18)
c = Circle(O', B_1)
O = (-4.18, -0.1)
a = Segment(O', O)
b, d = Tangent(O, c)
T = Intersect(c, d, 1.0)
T' = Intersect(c, b, 1.0)
A = Point(c)
e = Segment(A, O')
h = OrthogonalLine(A, e)
B = Intersect(d, h)
C = Intersect(b, h)
n = Segment(C, A)
p = Segment(A, B)
poly1, g_1, o, d_1 = Polygon(O, B, C)
f = Segment(O, T')
g = Segment(O, T)
i = Segment(C, T')
j = Segment(B, T)
Textpoly1: "Area " + (Name[O]) + (Name[B]) + (Name[C]) + " = " + poly1