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);
rotat