Subversion Repositories – MLAB

(root)/Designs/Measuring_instruments/AWS02A/CAD/src/rounded_screen/rounded_screen.scad

Rev 3897

r = 35;
h = 20;
thickness = 2;


shield_part();


module shield_part(){
        difference(){
                difference(){
                        translate([0,0,0.01]){scale(0.999){part(r,h);}}
                        resize([2*r-thickness*2,2*r-thickness*2,0]){part(r,h);}
                }
                union(){
                        translate([0,0,1.15*h]){cube([2*r/1.5,thickness,0.3*h],center=true);
                                                                                        cube([thickness,2*r/1.5,0.3*h],center=true);}
                }
        }

        difference(){
                difference(){
                        intersection(){
                                union(){
                                        difference(){
                                                translate([thickness-r,-thickness/2,0]){cube([2*r-thickness*2,thickness,h]);}
                                                translate([-r,0,h/3+h/2]){cube([r,r,h],center=true);}
                                        }
                                        translate([-thickness/2,thickness-r,0]){cube([thickness,2*r-thickness*2,h]);}
                                }
                                resize([2*r-thickness*2,2*r-thickness*2,0]){part(r,h);}
                        }
                        translate([0,0,-0.1]){cylinder(h=h,r=r/1.6-thickness,$fn=100);}
                }
                cylinder(h=h*2,r1=r/1.6-2*thickness,r2=r*0.8,$fn=100);  
        }
        rotate([0,0,45]){
                translate([0,0,h/6]){
                        difference(){
                                cube([sqrt(2*pow(r/1.6,2)),sqrt(2*pow(r/1.6,2)),h/3],center=true);
                                cube([sqrt(2*pow(r/1.6,2))-thickness*2,sqrt(2*pow(r/1.6,2))-thickness*2,h/2],center=true);
                        }
                }
        }
}

module part(r,h){
        difference(){
                intersection(){
                        translate([-r,-r,0]){cube([2*r,2*r,h]);}
                        cylinder(h=h, r=r,$fn=100);
                }
                translate([0,0,h/5]){
                        difference(){
                                translate([-r,-r,0]){cube([r*2,r*2,h+1]);}
                                resize([0,0,h*5/3]){sphere(r=r,$fn=100);}
                        }
                }
        }
        cylinder(h=1.3*h,r=r/1.5,$fn=100);
}