(*This produces a nice picture of the crystal structure of diamond. Copyright 1990 Wolfram Research Inc. *) DiamondPicture = Graphics3D[ {PointSize[0.035], Point[{0, 0, 0}], Point[{0, 0, 1}], Point[{0, 1, 0}], Point[{0, 1, 1}], Point[{1, 0, 0}], Point[{1, 0, 1}], Point[{1, 1, 0}], Point[{1, 1, 1}], Point[{0, 1/2, 1/2}], Point[{1/2, 0, 1/2}], Point[{1/2, 1/2, 0}], Point[{1/2, 1/2, 1}], Point[{1/2, 1, 1/2}], Point[{1, 1/2, 1/2}], Point[{1/4, 1/4, 1/4}], Point[{1/4, 1/4, 5/4}], Point[{1/4, 5/4, 1/4}], Point[{1/4, 5/4, 5/4}], Point[{5/4, 1/4, 1/4}], Point[{5/4, 1/4, 5/4}], Point[{5/4, 5/4, 1/4}], Point[{5/4, 5/4, 5/4}], Point[{1/4, 3/4, 3/4}], Point[{3/4, 1/4, 3/4}], Point[{3/4, 3/4, 1/4}], Point[{3/4, 3/4, 5/4}], Point[{3/4, 5/4, 3/4}], Point[{5/4, 3/4, 3/4}], {Line[{{0, 0, 0}, {1/4, 1/4, 1/4}}]}, {Line[{{0, 0, 1}, {1/4, 1/4, 5/4}}]}, {Line[{{0, 1, 0}, {1/4, 5/4, 1/4}}]}, {Line[{{0, 1, 1}, {1/4, 5/4, 5/4}}], Line[{{0, 1, 1}, {1/4, 3/4, 3/4}}]}, {Line[{{1, 0, 0}, {5/4, 1/4, 1/4}}]}, {Line[{{1, 0, 1}, {5/4, 1/4, 5/4}}], Line[{{1, 0, 1}, {3/4, 1/4, 3/4}}]}, {Line[{{1, 1, 0}, {5/4, 5/4, 1/4}}], Line[{{1, 1, 0}, {3/4, 3/4, 1/4}}]}, {Line[{{1, 1, 1}, {5/4, 5/4, 5/4}}], Line[{{1, 1, 1}, {3/4, 3/4, 5/4}}], Line[{{1, 1, 1}, {3/4, 5/4, 3/4}}], Line[{{1, 1, 1}, {5/4, 3/4, 3/4}}]}\ , {Line[{{0, 1/2, 1/2}, {1/4, 1/4, 1/4}}], Line[{{0, 1/2, 1/2}, {1/4, 3/4, 3/4}}]}, {Line[{{1/2, 0, 1/2}, {1/4, 1/4, 1/4}}], Line[{{1/2, 0, 1/2}, {3/4, 1/4, 3/4}}]}, {Line[{{1/2, 1/2, 0}, {1/4, 1/4, 1/4}}], Line[{{1/2, 1/2, 0}, {3/4, 3/4, 1/4}}]}, {Line[{{1/2, 1/2, 1}, {1/4, 1/4, 5/4}}], Line[{{1/2, 1/2, 1}, {1/4, 3/4, 3/4}}], Line[{{1/2, 1/2, 1}, {3/4, 1/4, 3/4}}], Line[{{1/2, 1/2, 1}, {3/4, 3/4, 5/4}}]}, {Line[{{1/2, 1, 1/2}, {1/4, 5/4, 1/4}}], Line[{{1/2, 1, 1/2}, {1/4, 3/4, 3/4}}], Line[{{1/2, 1, 1/2}, {3/4, 3/4, 1/4}}], Line[{{1/2, 1, 1/2}, {3/4, 5/4, 3/4}}]}, {Line[{{1, 1/2, 1/2}, {5/4, 1/4, 1/4}}], Line[{{1, 1/2, 1/2}, {3/4, 1/4, 3/4}}], Line[{{1, 1/2, 1/2}, {3/4, 3/4, 1/4}}], Line[{{1, 1/2, 1/2}, {5/4, 3/4, 3/4}}]}, {Line[{{1/4, 1/4, 1/4}, {0, 0, 0}}], Line[{{1/4, 1/4, 1/4}, {0, 1/2, 1/2}}], Line[{{1/4, 1/4, 1/4}, {1/2, 0, 1/2}}], Line[{{1/4, 1/4, 1/4}, {1/2, 1/2, 0}}]}, {Line[{{1/4, 1/4, 5/4}, {0, 0, 1}}], Line[{{1/4, 1/4, 5/4}, {1/2, 1/2, 1}}]}, {Line[{{1/4, 5/4, 1/4}, {0, 1, 0}}], Line[{{1/4, 5/4, 1/4}, {1/2, 1, 1/2}}]}, {Line[{{1/4, 5/4, 5/4}, {0, 1, 1}}]}, {Line[{{5/4, 1/4, 1/4}, {1, 0, 0}}], Line[{{5/4, 1/4, 1/4}, {1, 1/2, 1/2}}]}, {Line[{{5/4, 1/4, 5/4}, {1, 0, 1}}]}, {Line[{{5/4, 5/4, 1/4}, {1, 1, 0}}]}, {Line[{{5/4, 5/4, 5/4}, {1, 1, 1}}]}, {Line[{{1/4, 3/4, 3/4}, {0, 1, 1}}], Line[{{1/4, 3/4, 3/4}, {0, 1/2, 1/2}}], Line[{{1/4, 3/4, 3/4}, {1/2, 1/2, 1}}], Line[{{1/4, 3/4, 3/4}, {1/2, 1, 1/2}}]}, {Line[{{3/4, 1/4, 3/4}, {1, 0, 1}}], Line[{{3/4, 1/4, 3/4}, {1/2, 0, 1/2}}], Line[{{3/4, 1/4, 3/4}, {1/2, 1/2, 1}}], Line[{{3/4, 1/4, 3/4}, {1, 1/2, 1/2}}]}, {Line[{{3/4, 3/4, 1/4}, {1, 1, 0}}], Line[{{3/4, 3/4, 1/4}, {1/2, 1/2, 0}}], Line[{{3/4, 3/4, 1/4}, {1/2, 1, 1/2}}], Line[{{3/4, 3/4, 1/4}, {1, 1/2, 1/2}}]}, {Line[{{3/4, 3/4, 5/4}, {1, 1, 1}}], Line[{{3/4, 3/4, 5/4}, {1/2, 1/2, 1}}]}, {Line[{{3/4, 5/4, 3/4}, {1, 1, 1}}], Line[{{3/4, 5/4, 3/4}, {1/2, 1, 1/2}}]}, {Line[{{5/4, 3/4, 3/4}, {1, 1, 1}}], Line[{{5/4, 3/4, 3/4}, {1, 1/2, 1/2}}]}} ]