diff options
-rw-r--r-- | Trinkflaschenboden.scad | 30 |
1 files changed, 30 insertions, 0 deletions
diff --git a/Trinkflaschenboden.scad b/Trinkflaschenboden.scad new file mode 100644 index 0000000..5a438f4 --- /dev/null +++ b/Trinkflaschenboden.scad @@ -0,0 +1,30 @@ +Wanddicke = 2; +Radius = 83/2; +Woelbungsradius = (1+(6.5/2)*6.5/2)/2; + +rotate_extrude(angle = 360, $fn=100) { + translate([0,-Wanddicke,0]) + square([Radius,Wanddicke]); + intersection() { + translate([Radius,-Wanddicke,0]) + square(Wanddicke); + translate([Radius,0,0]) + circle(r = Wanddicke); + } + difference() { + translate([Radius,0,0]) + square([Wanddicke,14.5]); + translate([Radius+1-Woelbungsradius,7+6.5/2,0]) + circle(r = Woelbungsradius); + } + intersection() { + translate([Radius,14.5,0]) + square([Wanddicke,Wanddicke/2]); + translate([Radius+Wanddicke/2,14.5,0]) + circle(r = Wanddicke/2); + } +} + +// r² = (r-1)² + (6.5/2)² +// => +// 2r = 1² + (6.5/2)²
\ No newline at end of file |