Sierpinski \; kolmnurk

C = (6, -2)
A = (2, 4)
B = (-2, -2)
C' = Dilate(C, 0.06, A)
B' = Dilate(B, 0.06, A)
v2 = Vector(A, B')
v1 = Vector(A, C')
t1, c', a, b' = Polygon(A, B', C')
T1: {Polygon[A, B', C']}
T2: {T1, Translate[T1, v1], Translate[T1, v2]}
T3: {T2, Translate[T2, Vector[(2 * v1)]], Translate[T2, Vector[(2 * v2)]]}
T4: {T3, Translate[T3, Vector[(4 * v1)]], Translate[T3, Vector[(4 * v2)]]}
T5: {T4, Translate[T4, Vector[(8 * v1)]], Translate[T4, Vector[(8 * v2)]]}
I5 = NaN
l1: {T5, Translate[T5, Vector[(16 * v1)]], Translate[T5, Vector[(16 * v2)]]}
T = 6 (slider from 0 to 6, step 1)