Double Helix with a sphere

I made this while working on OpenSCAD and testing out the abilities of the Marketbot 2.

Here is the code to make it in OpenSCAD

module bar(){
cube([100,4,1], center=true);
translate([50,0,0])
cylinder(r=3, h=1, center=true);
translate([-50,0,0])
cylinder(r=3, h=1,center=true);
}
;

difference(){
union(){
for (i = [0:360])
{
rotate([0,0,i])
translate([0,0,i])
color([.5,0,0])
bar();

    }      for (i = [0:360])      {          rotate([0,0,i+90])          translate([0,0,i])          color([0,.5,0])          bar();      }  }  union(){      cylinder(r1=10,r2=30,h=170);      translate([0,0,190])      cylinder(r1=30,r2=10,h=170);  }  

}
translate([0,0,180])
sphere(r=50, center=true);
translate([0,0,180])
cylinder(r=4,h=360,center=true);
cylinder(r=55,h=2,center=true);
translate([0,0,360])
cylinder(r=55,h=2,center=true);
for (i= [128:132])
{
rotate([0,0,i])
translate([0,0,i])
cube([100,4,2],center=true);
rotate([0,0,i+90])
translate([0,0,i])
cube([100,4,2],center=true);
}