You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
140 lines
3.7 KiB
140 lines
3.7 KiB
angle = 10; |
|
raise = 10; |
|
tunnel_w = 160; |
|
tunnel_h = 160; |
|
tunnel_t = 10; // tunnel thickness |
|
tunnel_s = 40; // tunnel spacing: overlap for screws |
|
door_t = 50; // door thickness |
|
plexy_t = 6; // thickness of plexy glass sheet |
|
gap = 1; // gap between parts moving relative to each other |
|
seal = 5; // thickness of seal. May be set to gap |
|
guide_h = 40; |
|
bearing_inner_dia = 10; |
|
bearing_outer_dia = 20; |
|
bearing_h = 5; |
|
stopper_h = 40; |
|
stopper_w = 30; |
|
space = bearing_outer_dia; // space between plexy glass sheets |
|
|
|
// calculations |
|
rad = (space+2*plexy_t)/2; |
|
sheet_h = tunnel_h-2*seal-rad; |
|
h0 = stopper_w/2; |
|
h1 = guide_h-gap-10; |
|
h2 = 10+gap+h0; |
|
h3 = bearing_h/2+gap; |
|
|
|
// colors |
|
plexy = [0.4,0.6,1,0.6]; |
|
red = [1,0,0]; |
|
green = [0,0.6,0]; |
|
silver = [0.7,0.7,0.7]; |
|
snow = [1,1,1,0.5]; |
|
wood = [0.8,0.3,0]; |
|
|
|
// constants |
|
$fn = 32; |
|
rx = [90,0,0]; // rotate 90 deg around x |
|
ry = [0,90,0]; // rotate 90 deg around y |
|
x = [1,0,0]; |
|
y = [0,1,0]; |
|
z = [0,0,1]; |
|
|
|
module door(){ |
|
color(wood) difference(){ |
|
cube([1000,door_t,2000],true); |
|
tunnel_core(); |
|
} |
|
} |
|
|
|
module tunnel_core(){ |
|
cube([tunnel_w+2*tunnel_t,door_t+2*tunnel_t,tunnel_h+2*tunnel_t],true); // eigentlicher tunnel |
|
} |
|
|
|
module tunnel(){ |
|
color(snow)difference(){ |
|
union(){ |
|
tunnel_core(); |
|
translate(-y*(door_t+tunnel_t)/2) cube([tunnel_w+2*tunnel_s,tunnel_t,tunnel_h+2*tunnel_s],true); // krempe |
|
translate( y*(door_t+tunnel_t)/2) cube([tunnel_w+2*tunnel_s,tunnel_t,tunnel_h+2*tunnel_s],true); // krempe |
|
} |
|
cube([tunnel_w,door_t+2*tunnel_t+2,tunnel_h],true); // loch |
|
} |
|
} |
|
|
|
module screw(){ |
|
rotate(x*90)cylinder(d=4,h=space+3*plexy_t,center=true); |
|
} |
|
|
|
module sheets(){ |
|
difference(){ |
|
union(){ |
|
translate([0,(plexy_t+space)/2,-sheet_h/2])cube([tunnel_w-2*seal,plexy_t,sheet_h],true); |
|
translate([0, (plexy_t+space)/-2,-sheet_h/2])cube([tunnel_w-2*seal,plexy_t,sheet_h],true); |
|
} |
|
hull(){ |
|
translate(-z*(sheet_h+10)) rotate(ry) cylinder(d=bearing_outer_dia+2*gap,h=bearing_h+2*gap,center=true); |
|
translate(z*(bearing_outer_dia/2-sheet_h)) rotate(ry) cylinder(d=bearing_outer_dia+2*gap,h=bearing_h+2*gap,center=true); |
|
} |
|
} |
|
|
|
} |
|
|
|
module guide(){ |
|
|
|
translate([h2, 0,h1/2-sheet_h])cube([20,space,h1],true); |
|
translate([-h2, 0,h1/2-sheet_h])cube([20,space,h1],true); |
|
|
|
} |
|
|
|
module bearing_case(){ |
|
rotate(ry) cylinder(d=bearing_inner_dia-gap,h=h3); |
|
translate([h3/2+stopper_w/4,0,stopper_h/2]) cube([h0-h3,space-2*gap,stopper_h],true); |
|
translate([(h0+5)/2,0,stopper_h-5]) cube([h0+5,space-2*gap,10],true); |
|
} |
|
|
|
module bearing(){ |
|
color(silver) |
|
rotate(ry) |
|
difference(){ |
|
cylinder(d=bearing_outer_dia,h=bearing_h,center=true); |
|
cylinder(d=bearing_inner_dia,h=bearing_h+2,center=true); |
|
} |
|
} |
|
|
|
module stopper(){ |
|
color(green) { |
|
bearing_case(); |
|
rotate(z*180)bearing_case(); |
|
} |
|
bearing(); |
|
} |
|
|
|
module flap(){ |
|
translate(z*(sheet_h-rad)/2) rotate(x*angle) { |
|
difference(){ |
|
rotate(y*90) cylinder(d=2*rad,h=tunnel_w-2*seal,center=true); |
|
sheets(); |
|
translate([tunnel_w/ 4,0,rad/-2])screw(); |
|
translate([tunnel_w/-4,0,rad/-2])screw(); |
|
} |
|
color(plexy) difference(){ |
|
union(){ |
|
sheets(); |
|
guide(); |
|
} |
|
translate([h2,0,5-sheet_h])screw(); |
|
translate([h2,0,guide_h-15-gap-sheet_h])screw(); |
|
translate([-h2,0,5-sheet_h])screw(); |
|
translate([-h2,0,guide_h-15-gap-sheet_h])screw(); |
|
translate([tunnel_w/ 4,0,rad/-2])screw(); |
|
translate([tunnel_w/-4,0,rad/-2])screw(); |
|
} |
|
translate(z*(raise-sheet_h))stopper(); |
|
} |
|
} |
|
|
|
door(); |
|
tunnel(); |
|
flap(); |
|
|
|
|