C60

Kazume Nishidate, Mamoru Baba
Department of Electrical and Electronic Engineering, 
Faculty of Engineering, Iwate University, Morioka 020-8551, Japan

Kiyoshi Nishikawa
Department of Computational Science,
Faculty of Science, Kanazawa University, Kanazawa 920-1192, Japan

This graphics shows a "pseudo" C60 stracture.

Needs["Graphics`Polyhedra`"]

Clear[c60]\(\(c60[xx_, yy_, zz_] := 
      Module[{pts, lines}, 
		
        pts\  = \ 
          Flatten[
				\ 
            Truncate[Icosahedron[]] /. {Polygon[x___] -> x}, 1]; 
		
        pts = N[Union[Map[Round, pts*10000]]/10000] /. 

            				{{x_, y_, z_} -> {x + xx, y + yy, z + zz}}; 
		
        pts = Map[Point, pts]; 

		
        lines\  = \ 
          Truncate[Icosahedron[]] /. 

            				{
              Polygon[{{x1_, y1_, z1_}, otherPoints___}] -> 

                						{{x1, y1, z1}, otherPoints, {x1, y1, z1}}}; 
		
        lines\  = \ lines /. {{x_, y_, z_} -> {x + xx, y + yy, z + zz}}; 

        		lines\  = \ Map[Line, \ lines]; 
		{pts, lines}
				]; 
    \)
		\)

Show[Graphics3D[{PointSize[0.03], c60[0, 0, 0], c60[2, 2, 2]}]]

Clear[c60sphere]\(\(c60sphere[xx_, yy_, zz_] := 
      Module[{pts, lines}, 
		
        sphere[{x_, y_, z_}] := 
          ParametricPlot3D[

            		{Sin[s]\ Sin[t]/20 + x, Sin[s]\ Cos[t]/20 + y, \ 
              Cos[s]/20 + z}, 
		{s, 0, Pi}, {t, 0, 2  Pi}, 
		
            DisplayFunction -> Identity, Axes -> False]; 
		
		
        pts\  = \ 
          Flatten[
				\ 
            Truncate[Icosahedron[]] /. {Polygon[x___] -> x}, 1]; 
		
        pts = N[Union[Map[Round, pts\ 10000]]/10000] /. 

            				{{x_, y_, z_} -> {x + xx, y + yy, z + zz}}; 
		
        pts = Map[sphere, pts]; 

		
        lines\  = \ 
          Truncate[Icosahedron[]] /. 

            				{
              Polygon[{{x1_, y1_, z1_}, otherPoints___}] -> 

                						{{x1, y1, z1}, otherPoints, {x1, y1, z1}}}; 
		
        lines\  = \ lines /. {{x_, y_, z_} -> {x + xx, y + yy, z + zz}}; 

        		lines\  = \ Map[Line, \ lines]; 
		{pts, Graphics3D[lines]}

        				]; \)
		\)

Show[{c60sphere[0, 0, 0], c60sphere[2, 2, 2]}, 
      DisplayFunction -> $DisplayFunction]