गणितज्ञ, 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 चार समांतर चतुर्भुज (चित्र के ऊपरी दाएँ भाग में) को फिर से परिभाषित करती है ताकि वे बाद के क्यूब्स को कवर कर सकें जैसा कि वे करने वाले हैं। आउटपुट नीचे है:
