triangle quelconque
Author: Majid KHETTAB

A = (0, 1.7320508075688772)
B = (-1, 0)
C = (1, 0)
BC = Segment(B, C)
A' = Midpoint(BC)
AC = Segment(A, C)
B' = Midpoint(AC)
u = Vector(A', B')
AB = Segment(B, A)
C' = Midpoint(AB)
a = Segment(A', B')
b = Segment(B', C')
c = Segment(C', A')
D = Translate(A', Vector[0.382 * u])
d = Segment(A, D)
e = Line(C, D)
E = Intersect(e, c)
f = Line(B, E)
F = Intersect(b, f)
g = Segment(B, F)
h = Segment(C, E)