From 8a02683de52a8a13c5479d1c706c720c322b0fc7 Mon Sep 17 00:00:00 2001
From: Elena ``of Valhalla'' Grandi <valhalla@trueelena.org>
Date: Thu, 21 Aug 2014 07:12:54 +0200
Subject: Screwed support

---
 parts/screwed_support.scad | 30 ++++++++++++++++++++++++++++++
 1 file changed, 30 insertions(+)
 create mode 100644 parts/screwed_support.scad

diff --git a/parts/screwed_support.scad b/parts/screwed_support.scad
new file mode 100644
index 0000000..93ed277
--- /dev/null
+++ b/parts/screwed_support.scad
@@ -0,0 +1,30 @@
+radius = 10.25;
+wall = 8;
+c_wall = 6;
+screw_r = 4.5;
+screw_insert_r = 25;
+h = 60;
+
+module support() {
+    difference() {
+        hull() {
+            cube([(radius+c_wall)*2, wall, wall]);
+            translate([radius+c_wall, 0, h - radius - c_wall]) 
+                rotate([-90, 0, 0]) cylinder(r=radius+c_wall, h=wall);
+        }
+        translate([radius+c_wall, -1, h - radius - c_wall])
+            rotate([-90, 0, 0]) cylinder(r=radius, h=wall+2);
+    }
+}
+
+union() {
+    difference() {
+        cube([(radius+c_wall)*2, (screw_insert_r+wall+2)*2, wall*2]);
+        translate([radius+c_wall, screw_insert_r+wall+2, -1])
+            cylinder(r=screw_r, h=wall*2+2);
+        translate([radius+c_wall, screw_insert_r+wall+2, wall])
+            cylinder(r=screw_insert_r, h=wall+1);
+    }
+    support();
+    translate([0, wall + screw_insert_r*2 + 4, 0]) support();
+}
-- 
cgit v1.2.3