(* [ HCCH computation;  
        coordinates and radii from H2C20004 . exe,  
        06.02  .2012 *) 
 (* 
      nopi clouds off axis and towards N .  
          pi optimization produces nonsense! *) 

t = {{-1.14180, 0.00000, 
            0.00000, 0.25144}, {1.14180, 0.00000, 0.00000, 
            0.25144}, {-2.53547, 0.00000, 0.00000, 1.14223}, {0.00000, 
            0.00000, 0.00000, 0.89035}, {0.00000, 2.16083, 0.00000, 
            2.16083}, {0.00000, 0.00000, 2.16083, 
            2.16083}, {0.00000, -2.16083, 0.00000, 2.16083}, {0.00000, 
            0.00000, -2.16083, 2.16083}, {2.53547, 0.00000, 0.00000, 
            1.14223}};

x = Table[t[[i, 1]], {i, 1, 9}];
y = Table[t[[i, 2]], {i, 1, 9}];
z = Table[t[[i, 3]], {i, 1, 9}];
r = Table[t[[i, 4]], {i, 1, 9}];
sq = 1.0;

plot2 = 
      Graphics[{Circle[{x[[1]], y[[1]]}, 
            r[[1]]], 
Circle[{x[[2]], y[[2]]}, 
            r[[2]]], Circle[{x[[9]], y[[9]]}, r[[9]]], 
          Circle[{x[[3]], y[[3]]}, r[[3]]], 
          Circle[{x[[4]], y[[4]]}, r[[4]]], 
          Circle[{x[[5]], y[[5]]}, r[[5]]], 
          Circle[{x[[6]], y[[6]]}, r[[6]]], 
          Circle[{x[[7]], y[[7]]}, r[[7]]], 
          Circle[{x[[8]], y[[8]]}, r[[8]]], 
          Disk[{x[[1]], y[[1]]}, 0.08],  
          Disk[{x[[2]], y[[2]]}, 0.08],  
          Disk[{-3.114416, 0}, 0.08],  
          Disk[{3.114416, 0}, 
            0.08]} ]

Show[
      plot2, {AspectRatio  ->  Automatic, Axes  ->  True, 
        GridLines  ->  Automatic,  
        PlotRange  ->  {{-4, 4}, {-4.5, 4.5}},  
        Frame  ->  True}]

  
plot3 = 
      Graphics[{Circle[{y[[1]], z[[1]]}, 
            r[[1]]], 
Circle[{sq*y[[2]], 
              z[[2]]}, r[[2]]], 
          Circle[{sq*y[[3]], z[[3]]}, r[[3]]], 
          Circle[{sq*y[[4]], z[[4]]}, r[[4]]], 
          Circle[{sq*y[[5]], z[[5]]}, r[[5]]], 
          Circle[{sq*y[[6]], z[[6]]}, r[[6]]], 
          Circle[{sq*y[[7]], z[[7]]}, r[[7]]], 
          Circle[{sq*y[[8]], z[[8]]}, r[[8]]], 
          Circle[{sq*y[[9]], z[[9]]}, r[[9]]], 
          Disk[{0, 0}, 0.08]}]

Show[
      plot3, {AspectRatio  ->  Automatic, Axes  ->  True, 
        GridLines  ->  Automatic,  
        PlotRange  ->  {{-4.5, 4.5}, {-4.5, 4.5}},  
        Frame  ->  True}]