Mathematica, 237 byte
n={-1,1}#&;c_~g~s_:=Polygon[c+s#&/@{k={12,9},m=n@k,t={0,-12}}];p={#,#2~g~1,#3~g~-1}&;a=p[Cyan,#-k,#+m]&;b=p[Blue,#-t,#+k]&;c=p[Red,#-m,#+t]&;Graphics@{{a@#,b@#,c@#}&/@{j=4k,s=4{4,9},n@s,4m,r={-32,8},q=-4{4,5},4t,n@q,n@r},a@j,b@s,c@j,c@s}
Versi yang lebih mudah dibaca:
1 n = {-1, 1} # &;
2 c_~g~s_ := Polygon[c + s # & /@ {k = {12, 9}, m = n@k, t = {0, -12}}];
3 p = {#, #2~g~1, #3~g~-1} &;
4 a = p[Cyan, # - k, # + m] &;
5 b = p[Blue, # - t, # + k] &;
6 c = p[Red, # - m, # + t] &;
7 Graphics@{
8 {a@#, b@#, c@#} & /@
9 {j = 4 k, s = 4{4, 9}, n@s, 4 m, r = {-32, 8},
10 q = -4{4, 5}, 4 t, n@q, n@r},
11 a@j, b@s, c@j, c@s}
Baris 1 mendefinisikan fungsi n yang meniadakan koordinat pertama dari pasangan yang dipesan. Baris 2 mendefinisikan fungsi gyang menghasilkan (kira-kira) sama sisi segitiga berpusat pada titik c, dan menunjuk ke bawah atau ke atas tergantung pada apakah sini 1atau -1. Jalur 3 mendefinisikan pmenjadi template genjang yang terdiri dari warna dan dua segitiga, dan garis 4-6 mendefinisikan a, bdan cmenjadi tiga jenis tertentu yang berbeda dari jajaran genjang yang muncul dalam kubus.
Baris 8 mendefinisikan fungsi {a@#, b@#, c@#}& yang menarik seluruh kubus yang terpusat pada titik tersebut #; garis 9 dan 10 menerapkannya pada sembilan poin yang dibutuhkan untuk membuat segitiga lebih besar. Ini menghasilkan sembilan kubus, mulai dari kanan atas dan berlawanan arah jarum jam, di mana yang kemudian menutupi bagian yang sebelumnya. Akhirnya, baris 11 menggambar ulang empat jajar genjang (di kanan atas gambar) sehingga mereka akhirnya menutupi kubus kemudian seperti yang seharusnya. Outputnya di bawah ini:
