(* Mathematica Graphics3D program for A047752 example.
This program produces a chiral pair (29 cells each) of the tetrahedral clusters with chiral symmetry of type J. 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, 1, 0}; p4 = {1, 0, 1};
p5 = newp[p2, p3, p4, p1]; p6 = newp[p3, p1, p4, p2]; p7 = newp[p4, p1, p2, p3];
p8 = newp[p1, p3, p2, p4]; p9 = newp[p2, p3, p5, p4]; p10 = newp[p3, p4, p5, p2];
p11 = newp[p4, p2, p5, p3]; p12 = newp[p3, p5, p9, p2]; p13 = newp[p4, p5, p10, p3];
p14 = newp[p2, p5, p11, p4]; p15 = newp[p3, p1, p6, p4]; p16 = newp[p1, p4, p6, p3];
p17 = newp[p4, p3, p6, p1]; p18 = newp[p1, p6, p15, p3]; p19 = newp[p4, p6, p16, p1];
p20 = newp[p3, p6, p17, p4]; p21 = newp[p4, p1, p7, p2]; p22 = newp[p1, p2, p7, p4];
p23 = newp[p2, p4, p7, p1]; p24 = newp[p1, p7, p21, p4]; p25 = newp[p2, p7, p22, p1];
p26 = newp[p4, p7, p23, p2]; p27 = newp[p1, p3, p8, p2]; p28 = newp[p3, p2, p8, p1];
p29 = newp[p2, p1, p8, p3]; p30 = newp[p3, p8, p27, p1]; p31 = newp[p2, p8, p28, p3];
p32 = newp[p1, p8, p29, p2];
q1 = {3, 3, 3}; q2 = {3, 2, 2}; q4 = {2, 3, 2}; q3 = {2, 2, 3};
q5 = newp[q2, q3, q4, q1]; q6 = newp[q3, q1, q4, q2]; q7 = newp[q4, q1, q2, q3];
q8 = newp[q1, q3, q2, q4]; q9 = newp[q2, q3, q5, q4]; q10 = newp[q3, q4, q5, q2];
q11 = newp[q4, q2, q5, q3]; q12 = newp[q3, q5, q9, q2]; q13 = newp[q4, q5, q10, q3];
q14 = newp[q2, q5, q11, q4]; q15 = newp[q3, q1, q6, q4]; q16 = newp[q1, q4, q6, q3];
q17 = newp[q4, q3, q6, q1]; q18 = newp[q1, q6, q15, q3]; q19 = newp[q4, q6, q16, q1];
q20 = newp[q3, q6, q17, q4]; q21 = newp[q4, q1, q7, q2]; q22 = newp[q1, q2, q7, q4];
q23 = newp[q2, q4, q7, q1]; q24 = newp[q1, q7, q21, q4]; q25 = newp[q2, q7, q22, q1];
q26 = newp[q4, q7, q23, q2]; q27 = newp[q1, q3, q8, q2]; q28 = newp[q3, q2, q8, q1];
q29 = newp[q2, q1, q8, q3]; q30 = newp[q3, q8, q27, q1]; q31 = newp[q2, q8, q28, q3];
q32 = newp[q1, q8, q29, q2];
Show[Graphics3D[{{RGBColor[0, 1, 0], 
    Sphere[{p1, p2, p3, p4, p5, p6, p7, p8, p9, p10, p11, p12, p13, 
      p14, p15, p16, p17, p18, p19, p20, p21, p22, p23, p24, p25, p26,
       p27, p28, p29, p30, p31, p32, q1, q2, q3, q4, q5, q6, q7, q8, 
      q9, q10, q11, q12, q13, q14, q15, q16, q17, q18, q19, q20, q21, 
      q22, q23, q24, q25, q26, q27, q28, q29, q30, q31, q32}, 
     0.05]}, {RGBColor[1, 0.6, 0.6], 
    Cylinder[{{p1, p2}, {p1, p3}, {p1, p4}, {p2, p3}, {p2, p4}, {p3, 
       p4}, {q2, q5}, {q3, q5}, {q4, q5}, {q3, q6}, {q1, q6}, {q4, 
       q6}, {q4, q7}, {q1, q7}, {q2, q7}, {q1, q8}, {q3, q8}, {q2, 
       q8}, {q2, q9}, {q3, q9}, {q5, q9}, {q3, q10}, {q4, q10}, {q5, 
       q10}, {q4, q11}, {q2, q11}, {q5, q11}, {q3, q12}, {q5, 
       q12}, {q9, q12}, {q4, q13}, {q5, q13}, {q10, q13}, {q2, 
       q14}, {q5, q14}, {q11, q14}, {q3, q15}, {q1, q15}, {q6, 
       q15}, {q1, q16}, {q4, q16}, {q6, q16}, {q4, q17}, {q3, 
       q17}, {q6, q17}, {q1, q18}, {q6, q18}, {q15, q18}, {q4, 
       q19}, {q6, q19}, {q16, q19}, {q3, q20}, {q6, q20}, {q17, 
       q20}, {q4, q21}, {q1, q21}, {q7, q21}, {q1, q22}, {q2, 
       q22}, {q7, q22}, {q2, q23}, {q4, q23}, {q7, q23}, {q1, 
       q24}, {q7, q24}, {q21, q24}, {q2, q25}, {q7, q25}, {q22, 
       q25}, {q4, q26}, {q7, q26}, {q23, q26}, {q1, q27}, {q3, 
       q27}, {q8, q27}, {q3, q28}, {q2, q28}, {q8, q28}, {q2, 
       q29}, {q1, q29}, {q8, q29}, {q3, q30}, {q8, q30}, {q27, 
       q30}, {q2, q31}, {q8, q31}, {q28, q31}, {q1, q32}, {q8, 
       q32}, {q29, q32}}, 0.025]}, {RGBColor[0, 1, 0], 
    Sphere[{p17}, 0.0]}, {RGBColor[0.6, 0.6, 1], 
    Cylinder[{{p2, p5}, {p3, p5}, {p4, p5}, {p3, p6}, {p1, p6}, {p4, 
       p6}, {p4, p7}, {p1, p7}, {p2, p7}, {p1, p8}, {p3, p8}, {p2, 
       p8}, {p2, p9}, {p3, p9}, {p5, p9}, {p3, p10}, {p4, p10}, {p5, 
       p10}, {p4, p11}, {p2, p11}, {p5, p11}, {p3, p12}, {p5, 
       p12}, {p9, p12}, {p4, p13}, {p5, p13}, {p10, p13}, {p2, 
       p14}, {p5, p14}, {p11, p14}, {p3, p15}, {p1, p15}, {p6, 
       p15}, {p1, p16}, {p4, p16}, {p6, p16}, {p4, p17}, {p3, 
       p17}, {p6, p17}, {p1, p18}, {p6, p18}, {p15, p18}, {p4, 
       p19}, {p6, p19}, {p16, p19}, {p3, p20}, {p6, p20}, {p17, 
       p20}, {p4, p21}, {p1, p21}, {p7, p21}, {p1, p22}, {p2, 
       p22}, {p7, p22}, {p2, p23}, {p4, p23}, {p7, p23}, {p1, 
       p24}, {p7, p24}, {p21, p24}, {p2, p25}, {p7, p25}, {p22, 
       p25}, {p4, p26}, {p7, p26}, {p23, p26}, {p1, p27}, {p3, 
       p27}, {p8, p27}, {p3, p28}, {p2, p28}, {p8, p28}, {p2, 
       p29}, {p1, p29}, {p8, p29}, {p3, p30}, {p8, p30}, {p27, 
       p30}, {p2, p31}, {p8, p31}, {p28, p31}, {p1, p32}, {p8, 
       p32}, {p29, p32}, {q1, q2}, {q1, q3}, {q1, q4}, {q2, q3}, {q2, 
       q4}, {q3, q4}}, 0.025]}}], Boxed -> False, 
 ViewPoint -> {5, 0, -5}]