From f87918d4ca17011d8c946672a5b58d8786f1bc62 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Tue, 31 Jan 2017 23:38:44 +0000
Subject: [PATCH] maglite-holder: wip holder, before project

---
 maglite-holder.scad | 25 +++++++++++++++++++++----
 1 file changed, 21 insertions(+), 4 deletions(-)

diff --git a/maglite-holder.scad b/maglite-holder.scad
index 3f5c67a..bf78cd1 100644
--- a/maglite-holder.scad
+++ b/maglite-holder.scad
@@ -13,7 +13,11 @@ torch_clear_below = 10;
 stem_width = 20;
 stem_thick = 4;
 
-$fa=5;
+torch_recess = 15;
+arm_width = 10;
+block_thick = 30;
+
+//$fa=5;
 
 // calculated
 
@@ -27,6 +31,10 @@ stem_len = holes[1] - above + stem_below;
 
 torch_out = stem_thick + torch_big_dia/2;
 
+block_width = arm_width*2 + torch_big_dia;
+
+block_out = torch_out + torch_big_dia/sqrt(2);
+
 module Torch(){
   mirror([0,0,1]){
     hull(){
@@ -42,14 +50,23 @@ module Torch(){
 
 module Bracket(){
   difference(){
-    translate([-stem_width/2, -stem_thick, -stem_len])
+    mirror([0,1,0])
+      translate([-stem_width/2, 0, -stem_len])
       cube([stem_width, stem_thick, stem_len]);
   }
+  difference(){
+    mirror([0,1,0])
+      translate([-block_width/2, 0, -block_thick])
+      cube([block_width, block_out, block_thick]);
+  }
+  for (out=[ torch_out, torch_out + block_out*2 ])
+    translate([ 0, -out, -torch_recess ])
+      Torch();
 }
 
 module Demo(){
-  %translate([0, -torch_out, 0])
-    Torch();
+  translate([0, -torch_out, 0])
+    %Torch();
   Bracket();
 }
 
-- 
2.30.2