1/3

A = (-3.1094337231093943, 4.738046369530755)
B = (-3.6956360313017633, -2.3473554425335417)
C = (2.242848221255715, -2.3473554425335417)
AB = Segment(A, B)
BC = Segment(B, C)
AC = Segment(C, A)
U = Point(BC)
k = AffineRatio(B, C, U)
U_0 = Dilate(C, 1 / 3, B)
V = Dilate(A, k, C)
W = Dilate(B, k, A)
AU = Segment(A, U)
BV = Segment(B, V)
CW = Segment(C, W)
I = Intersect(BV, CW)
J = Intersect(AU, CW)
K = Intersect(AU, BV)
vIB = Vector(I, B)
D = Translate(C, vIB)
vJC = Vector(J, C)
E = Translate(A, vJC)
vKA = Vector(K, A)
F = Translate(B, vKA)
AF = Segment(A, F)
BF = Segment(F, B)
BD = Segment(B, D)
CD = Segment(D, C)
CE = Segment(C, E)
AE = Segment(E, A)
FW = Segment(F, W)
EV = Segment(V, E)
DU = Segment(U, D)
LCD = Sequence(Segment[Dilate[B, t / 3, D], Dilate[E, t / 3, C]], t, 1, 2, 1)
LAE = Sequence(Segment[Dilate[A, t / 3, F], Dilate[E, t / 3, C]], t, 1, 2, 1)
LBF = Sequence(Segment[Dilate[A, t / 3, F], Dilate[D, t / 3, B]], t, 1, 2, 1)
LAF = Sequence(Segment[Dilate[A, t / 6, E], Dilate[F, t / 6, B]], t, 1, 5, 1)
LBD = Sequence(Segment[Dilate[C, t / 6, D], Dilate[F, t / 6, B]], t, 1, 5, 1)
LCE = Sequence(Segment[Dilate[C, t / 6, D], Dilate[E, t / 6, A]], t, 1, 5, 1)
AKBF, f, a, k_1, b = Polygon(F, A, K, B)
AJCE, a_1, j, c, e = Polygon(A, J, C, E)
BICD, b_1, i, c_1, d = Polygon(B, I, C, D)
IJK, k_2, j_1, i_1 = Polygon(J, I, K)