maglite-holder: torch scale adjustment

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

diff --git a/maglite-holder.scad b/maglite-holder.scad
index 6fc7977de1399af065e14c652ae57917a605b74e..2b5753667194cbc88d964720c570833a396ce498 100644 (file)
--- a/maglite-holder.scad
+++ b/maglite-holder.scad
@@ -13,7 +13,7 @@ torch_clear_below = 10;
 stem_width = 20;
 stem_thick = 8;
 
-torch_recess = 14;
+torch_recess = 11;
 arm_width = 10;
 block_thick = 15;
 
@@ -26,10 +26,19 @@ hole_slot = 5;
 
 slop = 2; // total, not each side
 
+torch_min_xcoord_fig_cm = -2.7; // coordinates of bottom left of curve
+torch_min_ycoord_fig_cm = -5.9; // & big part in fig file.  mid top is origin
+
 $fa=5;
 
 // calculated
 
+torch_dxf_scale =
+  [ torch_big_dia / (-torch_min_xcoord_fig_cm * 10 * 2),
+    torch_big_len / (-torch_min_ycoord_fig_cm * 10) ];
+
+echo(torch_dxf_scale);
+
 above = torch_big_len + torch_clear + torch_clear_below;
 
 holes = [ 172, 265 ];
@@ -48,6 +57,7 @@ module TorchOrig(){
   mirror([0,0,1]){
     hull(){
       rotate_extrude()
+       scale(torch_dxf_scale)
        translate(dxf_off)
        import(file="maglite-holder-torch-curve.dxf",
               convexity=10, center=true);
@@ -112,7 +122,12 @@ module Bracket(){
 }
 
 module Demo(){
-    %TorchOrig();
+  color("black")
+    translate([0, -torch_out, 0])
+    TorchOrig();
+  color("blue")
+    translate([0, -torch_out, above])
+    cylinder(r=torch_big_dia/2, h=1);
   Bracket();
 }