A = (-0.78, -1.5)
B = (7.98, -1.86)
C = (6.9, 3.5)
polígono1, c, a, b = Polygon(A, B, C)
D = (1.18, 5.2)
E = (-2.282, 0.618)
F = (-2.766, 1.872)
polígono2, f, d, e = Polygon(D, E, F)
g = Line(A, d)
h = AngularBisector(B, A, C)
g' = Mirror(g, h)
k = Circle(A, B, C)
O = Center(k)
i = OrthogonalLine(O, g')
D' = Mirror(A, i)
E' = TrianguloDual(A, B, C, E, F, D)
F' = TrianguloDual(A, B, C, F, D, E)
polígono3, h_1, d', g_1 = Polygon(D', E', F')
j = AngularBisector(A, B, C)
l = AngularBisector(A, C, B)
I = Intersect(j, l)
m = Line(B, d)
n = Line(C, d)
m' = Mirror(m, j)
n' = Mirror(n, l)
p = Line(F, E)

Tool: Triangulo Dual (command TrianguloDual)
Dar ABC y DEF, determina el vértice D' del triangulo dual D'E'F' de DEF
Input: A, B, C, D, E, F
Output: D'

polígono2, f, d, e = Polygon(D, E, F)
g = Line(A, d)
h = AngularBisector(B, A, C)
g' = Mirror(g, h)
k = Circle(A, B, C)
O = Center(k)
i = OrthogonalLine(O, g')
D' = Mirror(A, i)