$fa=10;
$fs=.01;

thickness=.9;
distance=2*2.54;
bottom_width=2.54;
pip_height=3.3;
pip_base=2.2;
pip_top=3.5+0.5;
plupps=32;
separation=1;
tabW=6;
groups=4;
pergroup=8;
module pip(){
     hull(){
          translate([0, (pip_top-pip_base)/2, 0])
               cube([thickness, pip_base, thickness/10]);
          translate([0, 0, pip_height])
               cube([thickness, pip_top, thickness/10]);
     }
}

module pip_pair(){
     translate([0, (pip_top-pip_base)/2, 0])
          cube([bottom_width+2*thickness, pip_base, thickness]);
     pip();
     translate([bottom_width+thickness, 0, 0])pip();
}

module roadrunner_remsa(n=20){
     translate([thickness*0.5, pip_top/2, 0])
          cube([bottom_width+thickness, (n-1)*distance+pip_top*0, thickness]);
     for(y=[0:distance:ceil((n-1)*distance)])
          translate([0, y, 0]) pip_pair();
}


translate([-thickness-bottom_width/2+tabW/2,6,0])
for(x = [0:(groups*pergroup)-1]){
     translate([floor(x/pergroup)*1.5,0,0]){
          translate([x*(bottom_width+thickness*2+separation),0,0])
               roadrunner_remsa(plupps);

          translate([x*(bottom_width+thickness*2+separation),-6,0]){
               translate([thickness+bottom_width/2-tabW/2,0,0])
                    cube([tabW,5,1]);
               translate([(bottom_width+thickness*2)/2-1,3,0])
                    cube([2,4,thickness]);
          }

          translate([x*(bottom_width+thickness*2+separation),(plupps-1)*distance+pip_top+1,0]){
               translate([thickness+bottom_width/2-tabW/2,0,0])
                    cube([tabW,5,1]);
               translate([(bottom_width+thickness*2)/2-1,-3,0])
                    cube([2,4,thickness]);
          }
     }
}