maglite-holder: soup up demo

[reprap-play.git] / maglite-holder.scad

diff --git a/maglite-holder.scad b/maglite-holder.scad
index 3f5c67a390e2918fa65ad9d98523796645b593fc..529aedba5f826bdbbbd4f5d63d6904ccbed4beff 100644 (file)
--- a/maglite-holder.scad
+++ b/maglite-holder.scad
@@ -11,7 +11,20 @@ torch_clear = 30;
 torch_clear_below = 10;
 
 stem_width = 20;
-stem_thick = 4;
+stem_thick = 8;
+
+torch_recess = 11;
+arm_width = 10;
+block_thick = 15;
+
+torch_out_more = 10;
+
+brace = [ 40, 20, 20 ];
+
+hole_dia = 4 + 0.5;
+hole_slot = 5;
+
+slop = 2; // total, not each side
 
 $fa=5;
 
@@ -25,9 +38,13 @@ stem_below = stem_width/2;
 
 stem_len = holes[1] - above + stem_below;
 
-torch_out = stem_thick + torch_big_dia/2;
+torch_out = stem_thick + torch_big_dia/2 + torch_out_more;
 
-module Torch(){
+block_width = arm_width*2 + torch_big_dia;
+
+block_out = torch_out + torch_big_dia/2/sqrt(2);
+
+module TorchOrig(){
   mirror([0,0,1]){
     hull(){
       rotate_extrude()
@@ -40,17 +57,69 @@ module Torch(){
   }
 }
 
+module Torch(){
+  scale(slop/torch_lit_dia + 1.0)
+    TorchOrig();
+}
+
+module ScrewHole(y, rot) {
+  translate([0,0, above -y]){
+    rotate([0,rot,0]){
+      hull(){
+       for (d= [-1,+1] * hole_slot/2) {
+         translate([d,0,0])
+           rotate([90,0,0])
+           translate([0,0,-stem_thick*2])
+           cylinder(r= hole_dia/2, h= stem_thick*4);
+       }
+      }
+    }
+  }
+}    
+
+module TorchMovement(){
+  // xxx needs torch increasing for slop
+  translate([0, -torch_out, 0]) {
+    translate([0, 0, -torch_recess])
+      Torch();
+    rotate([90,0,0])
+      linear_extrude(height= block_out)
+      projection() rotate([-90,0,0]) Torch();
+  }
+}
+
 module Bracket(){
   difference(){
-    translate([-stem_width/2, -stem_thick, -stem_len])
-      cube([stem_width, stem_thick, stem_len]);
+    mirror([0,1,0]) {
+      translate([-stem_width/2, 0, -stem_len])
+       cube([stem_width, stem_thick, stem_len]);
+      translate([0,0, -block_thick]) hull(){
+       translate([-stem_width/2, 0, -brace[2]])
+         cube([stem_width, stem_thick, 1]);
+       translate([-brace[0]/2, 0, 0])
+         cube([brace[0], brace[1], 1]);
+      }
+    }
+    ScrewHole(holes[0], 90);
+    ScrewHole(holes[1], 0);
+  }
+  difference(){
+    mirror([0,1,0])
+      translate([-block_width/2, 0, -block_thick])
+      cube([block_width, block_out, block_thick]);
+    TorchMovement();
   }
 }
 
 module Demo(){
-  %translate([0, -torch_out, 0])
-    Torch();
+  color("black")
+    translate([0, -torch_out, 0])
+    TorchOrig();
+  color("blue")
+    translate([0, -torch_out, above])
+    cylinder(r=torch_big_dia/2, h=1);
   Bracket();
 }
 
 Demo();
+