10254 our tower-base wip

diff --git a/th-10254/tower-base.scad b/th-10254/tower-base.scad
new file mode 100644 (file)
index 0000000..6199cde
--- /dev/null
+++ b/th-10254/tower-base.scad
@@ -0,0 +1,28 @@
+
+motorwidth=35.2;
+motorheight=36.5;
+
+pillarthick=8;
+
+mw2=motorwidth/2;
+
+module corner() {
+       $fn=30;
+       translate([-mw2,-mw2,0]) union(){
+               cylinder(r=pillarthick/2, h=motorheight);
+               translate([0,0,motorheight]) sphere(r=pillarthick/2);
+       }
+}
+
+module towerbase() {
+       difference(){
+               union(){
+                       for (angle=[0,90,180,270])
+                               rotate([0,0,angle]) corner();
+               }
+               translate([-mw2,-mw2,-1])
+                       cube([motorwidth,motorwidth,motorheight]);
+       }
+}
+
+towerbase();