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

t = {{-1.26943, 0.00000, 0.00000, 
            0.25655}, {1.26943, 0.00000, 0.00000, 0.25655}, {-1.31027, 
            0.94095, 0.00000, 0.68529}, {-1.31027, -0.94095, 0.00000, 
            0.68529}, {0.00000, 0.00000, 2.07591, 2.07591}, {0.00000, 
            0.00000, -2.07591, 2.07591}, {1.31027, -0.94095, 0.00000, 
            0.68529}, {1.31027, 0.94095, 0.00000, 
            0.68529}};
u = {{-1.26943, 0.00000, 0.00000}, {1.26943, 0.00000, 
            0.00000}, {-1.32478, 1.27524, 
            0.00000}, {-1.32478, -1.27524, 
            0.00000}, {1.32478, -1.27524, 0.00000}, {1.32478, 1.27524, 
            0.00000}};

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

h = Table[u[[i, 1]], {i, 1, 6}];
k = Table[u[[i, 2]], {i, 1, 6}];
l = 
        Table[u[[i, 3]], {i, 1, 
            6}];

  
plot2 = 
      Graphics[{Circle[{x[[1]], y[[1]]}, 
            r[[1]]], 
Circle[{x[[2]], y[[2]]}, 
            r[[2]]], 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[{h[[1]], k[[1]]}, 0.08],  
          Disk[{h[[2]], k[[2]]}, 0.08],  
          Disk[{h[[3]], k[[3]]}, 0.08],  
          Disk[{h[[4]], k[[4]]}, 0.08], 
          Disk[{h[[5]], k[[5]]}, 0.08], 
          Disk[{h[[6]], k[[6]]}, 
            0.08]} ]

Show[
      plot2, {AspectRatio  ->  Automatic, Axes  ->  True, 
        GridLines  ->  Automatic,  
        PlotRange  ->  {{-4, 4}, {-3, 3}},  
        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]]], 
          Disk[{k[[1]], l[[1]]}, 0.08],  
          Disk[{k[[2]], l[[2]]}, 0.08],  
          Disk[{k[[3]], l[[3]]}, 0.08],  
          Disk[{k[[4]], l[[4]]}, 0.08], 
          Disk[{k[[5]], l[[5]]}, 0.08], 
          Disk[{k[[6]], l[[6]]}, 
            0.08]}]

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

  
plot1 = 
      Graphics[{Circle[{x[[1]], z[[1]]}, 
            r[[1]]], 
Circle[{sq*x[[2]], 
              z[[2]]}, r[[2]]], 
          Circle[{sq*x[[3]], z[[3]]}, r[[3]]], 
          Circle[{sq*x[[4]], z[[4]]}, r[[4]]], 
          Circle[{sq*x[[5]], z[[5]]}, r[[5]]], 
          Circle[{sq*x[[6]], z[[6]]}, r[[6]]], 
          Circle[{sq*x[[7]], z[[7]]}, r[[7]]], 
          Circle[{sq*x[[8]], z[[8]]}, r[[8]]], 
          Disk[{h[[1]], l[[1]]}, 0.08],  
          Disk[{h[[2]], l[[2]]}, 0.08],  
          Disk[{h[[3]], l[[3]]}, 0.08],  
          Disk[{h[[4]], l[[4]]}, 0.08], 
          Disk[{h[[5]], l[[5]]}, 0.08], 
          Disk[{h[[6]], l[[6]]}, 
            0.08]}]

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