summaryrefslogtreecommitdiffstats
path: root/can.scad
diff options
context:
space:
mode:
authorRobert "ar" Gerus <ar@bash.org.pl>2013-06-06 21:25:56 +0200
committerRobert "ar" Gerus <ar@bash.org.pl>2013-06-06 21:25:56 +0200
commitbb48cf91e9ecd1ae948f75ccdf453cb6259c465d (patch)
treedd45a5f56da1fd638651f50b1ce95211498ca20a /can.scad
parent91b9242c5037fefa981f7ee181f2a4a2b96c6ed6 (diff)
download3dparts-bb48cf91e9ecd1ae948f75ccdf453cb6259c465d.tar.gz
3dparts-bb48cf91e9ecd1ae948f75ccdf453cb6259c465d.tar.bz2
3dparts-bb48cf91e9ecd1ae948f75ccdf453cb6259c465d.zip
A can. Enjoy.
Diffstat (limited to 'can.scad')
-rw-r--r--can.scad51
1 files changed, 51 insertions, 0 deletions
diff --git a/can.scad b/can.scad
new file mode 100644
index 0000000..30cf5e4
--- /dev/null
+++ b/can.scad
@@ -0,0 +1,51 @@
+$fn=150;
+
+module lower_cone() {
+ cylinder(10, 30, 40, 0);
+}
+
+module lower_cone_cut_in() {
+ intersection() {
+ translate([0,0,-60])
+ sphere(70);
+ translate([0,0,-1])
+ cylinder(50, 28, 28, 0);
+ }
+}
+
+module middle_cylinder() {
+ cylinder(90, 40, 40, 0);
+}
+
+module upper_cone() {
+ color("red")
+ cylinder(20, 40, 30, 0);
+ color("silver")
+ translate([0,0,20])
+ cylinder(5, 30, 30, 0);
+}
+
+module upper_cone_cut_in() {
+ translate([0,0,21])
+ difference() {
+ cylinder(5, 27, 29.5, 0);
+ cylinder(2, 26.5, 26, 0);
+ }
+}
+
+union() {
+ color("silver")
+ difference() {
+ lower_cone();
+ lower_cone_cut_in();
+ }
+ color("red")
+ translate([0,0,10])
+ middle_cylinder();
+ translate([0,0,100])
+ difference() {
+ upper_cone();
+ color("silver")
+ upper_cone_cut_in();
+ }
+} \ No newline at end of file