Mathematica, 237 ไบต์
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}
รุ่นที่อ่านง่ายขึ้น:
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}
บรรทัดที่ 1 กำหนดฟังก์ชั่นn
ที่ขัดแย้งกับพิกัดแรกของคู่ที่สั่ง บรรทัดที่ 2 กำหนดฟังก์ชั่นg
ที่ผลิต (ประมาณ) สามเหลี่ยมด้านเท่าศูนย์กลางที่จุดc
และชี้ขึ้นหรือลงขึ้นอยู่กับว่าs
เป็นหรือ1
-1
บรรทัดที่ 3 กำหนดp
ให้เป็นแม่แบบสี่เหลี่ยมด้านขนานประกอบด้วยสีและรูปสามเหลี่ยมสองรูปและเส้น 4-6 กำหนดa
, b
และc
จะเป็นสามประเภทที่เฉพาะเจาะจงแตกต่างกันของสี่เหลี่ยมด้านขนานที่ปรากฏในก้อน
บรรทัดที่ 8 กำหนดฟังก์ชั่น{a@#, b@#, c@#}&
ที่ดึงทั้งคิวบ์ไว้กึ่งกลางที่จุด#
นั้น บรรทัดที่ 9 และ 10 นำไปใช้กับจุดเก้าที่จำเป็นในการสร้างรูปสามเหลี่ยมให้ใหญ่ขึ้น สิ่งนี้จะสร้างเก้าลูกบาศก์เริ่มต้นที่มุมขวาบนและหมุนทวนเข็มนาฬิกาโดยที่ส่วนต่อมาจะครอบคลุมส่วนต่างๆของก้อนก่อนหน้า ในที่สุดบรรทัดที่ 11 จะวาดรูปสี่เหลี่ยมด้านขนานสี่อัน (ที่มุมบนขวาของภาพ) เพื่อที่ว่าพวกมันจะได้ครอบคลุมก้อนในภายหลังตามที่ควรจะเป็น เอาท์พุทอยู่ด้านล่าง: