From 1bf79b7a11621b78c0dee023b8ec2f7e1a01801a Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Tue, 31 Jan 2017 23:29:03 +0000
Subject: [PATCH] maglite-holder: wip holder

---
 maglite-holder.scad | 33 ++++++++++++++++++++++++++++++++-
 1 file changed, 32 insertions(+), 1 deletion(-)

diff --git a/maglite-holder.scad b/maglite-holder.scad
index 233d851..3f5c67a 100644
--- a/maglite-holder.scad
+++ b/maglite-holder.scad
@@ -7,8 +7,26 @@ torch_big_dia = 56.5;
 torch_tot_len = 256;
 torch_big_len = 60;
 
+torch_clear = 30;
+torch_clear_below = 10;
+
+stem_width = 20;
+stem_thick = 4;
+
 $fa=5;
 
+// calculated
+
+above = torch_big_len + torch_clear + torch_clear_below;
+
+holes = [ 172, 265 ];
+
+stem_below = stem_width/2;
+
+stem_len = holes[1] - above + stem_below;
+
+torch_out = stem_thick + torch_big_dia/2;
+
 module Torch(){
   mirror([0,0,1]){
     hull(){
@@ -22,4 +40,17 @@ module Torch(){
   }
 }
 
-Torch();
+module Bracket(){
+  difference(){
+    translate([-stem_width/2, -stem_thick, -stem_len])
+      cube([stem_width, stem_thick, stem_len]);
+  }
+}
+
+module Demo(){
+  %translate([0, -torch_out, 0])
+    Torch();
+  Bracket();
+}
+
+Demo();
-- 
2.30.2