(* Mathematica Graphics3D program for A047758 example. This program produces a chiral pair (13 cells each) of the tetrahedral clusters with chiral symmetry of type G. The output can be manipulated with the cursor to rotate the figure. *) newp[a_, b_, c_, d_] := 2 (a + b + c)/3 - d; p1 = {0, 0, 0}; p2 = {0, 1, 1}; p3 = {1, 0, 1}; p4 = {1, 1, 0}; p5 = newp[p1, p2, p3, p4]; p6 = newp[p2, p3, p4, p1]; p7 = newp[p3, p4, p1, p2]; p8 = newp[p4, p1, p2, p3]; p9 = newp[p5, p1, p2, p3]; p10 = newp[p8, p1, p2, p4]; p11 = newp[p3, p4, p7, p1]; p12 = newp[p3, p4, p6, p2]; p13 = newp[p2, p5, p9, p1]; p14 = newp[p1, p8, p10, p2]; p15 = newp[p3, p7, p11, p4]; p16 = newp[p4, p6, p12, p3]; adj = {0, 2, 2}; q1 = p2 + adj; q2 = p1 + adj; q3 = p3 + adj; q4 = p4 + adj; q5 = newp[q1, q2, q3, q4]; q6 = newp[q2, q3, q4, q1]; q7 = newp[q3, q4, q1, q2]; q8 = newp[q4, q1, q2, q3]; q9 = newp[q5, q1, q2, q3]; q10 = newp[q8, q1, q2, q4]; q11 = newp[q3, q4, q7, q1]; q12 = newp[q3, q4, q6, q2]; q13 = newp[q2, q5, q9, q1]; q14 = newp[q1, q8, q10, q2]; q15 = newp[q3, q7, q11, q4]; q16 = newp[q4, q6, q12, q3]; Show[Graphics3D[{{RGBColor[0, 1, 0], Sphere[{p1, p2, p3, p4, p5, p6, p7, p8, p9, p10, p11, p12, p13, p14, p15, p16, q1, q2, q3, q4, q5, q6, q7, q8, q9, q10, q11, q12, q13, q14, q15, q16}, 0.05]}, {RGBColor[1, 0.6, 0.6], Cylinder[{{p1, p2}, {p1, p3}, {p1, p4}, {p2, p3}, {p2, p4}, {p3, p4}, {q1, q5}, {q2, q5}, {q3, q5}, {q2, q6}, {q3, q6}, {q4, q6}, {q3, q7}, {q4, q7}, {q1, q7}, {q4, q8}, {q1, q8}, {q2, q8}, {q1, q9}, {q2, q9}, {q5, q9}, {q1, q10}, {q2, q10}, {q8, q10}, {q3, q11}, {q4, q11}, {q7, q11}, {q3, q12}, {q4, q12}, {q6, q12}, {q2, q13}, {q5, q13}, {q9, q13}, {q1, q14}, {q8, q14}, {q10, q14}, {q3, q15}, {q7, q15}, {q11, q15}, {q4, q16}, {q6, q16}, {q12, q16}}, 0.025]}, {RGBColor[0, 1, 0], Sphere[{p16}, 0.0]}, {RGBColor[0.6, 0.6, 1], Cylinder[{{p1, p5}, {p2, p5}, {p3, p5}, {p2, p6}, {p3, p6}, {p4, p6}, {p3, p7}, {p4, p7}, {p1, p7}, {p4, p8}, {p1, p8}, {p2, p8}, {p1, p9}, {p2, p9}, {p5, p9}, {p1, p10}, {p2, p10}, {p8, p10}, {p3, p11}, {p4, p11}, {p7, p11}, {p3, p12}, {p4, p12}, {p6, p12}, {p2, p13}, {p5, p13}, {p9, p13}, {p1, p14}, {p8, p14}, {p10, p14}, {p3, p15}, {p7, p15}, {p11, p15}, {p4, p16}, {p6, p16}, {p12, p16}, {q1, q2}, {q1, q3}, {q1, q4}, {q2, q3}, {q2, q4}, {q3, q4}}, 0.025]}}], Boxed -> False, ViewPoint -> {1/2, -7/2, 13/2}]