From 21b6c2f5610d1a91ca5333a1f24cfe0492a4581f Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Tue, 31 Jan 2017 23:14:36 +0000
Subject: [PATCH] maglite-holder: torch

---
 Makefile            |  4 ++++
 maglite-holder.scad | 17 +++++++++++------
 2 files changed, 15 insertions(+), 6 deletions(-)

diff --git a/Makefile b/Makefile
index 70d20e0..e335600 100644
--- a/Makefile
+++ b/Makefile
@@ -120,6 +120,10 @@ maglite-holder-torch-curve.eps: maglite-holder-torch.fig
 		fig2dev -D +1:70 -L eps <$< >$@.tmp
 	        @mv -f $@.tmp $@
 
+maglite-holder-torch-curve.dxf: maglite-holder-torch-curve.eps
+		pstoedit -dt -flat 0.05 -f "dxf: -polyaslines -mm" $< $@
+
+
 PANDEMICQUARANTINES_NUMBERS=1 2
 PANDEMICQUARANTINES_DXFS=$(foreach l,$(PANDEMICQUARANTINES_NUMBERS), \
 	pandemic-quarantine-l$l.dxf)
diff --git a/maglite-holder.scad b/maglite-holder.scad
index 25d7efa..233d851 100644
--- a/maglite-holder.scad
+++ b/maglite-holder.scad
@@ -7,14 +7,19 @@ torch_big_dia = 56.5;
 torch_tot_len = 256;
 torch_big_len = 60;
 
+$fa=5;
+
 module Torch(){
-  hull(){
-    rotate_extrude()
-      translate(dxf_off)
-      import(file="maglite-holder-torch-curve.dxf", convexity=10, center=true);
+  mirror([0,0,1]){
+    hull(){
+      rotate_extrude()
+	translate(dxf_off)
+	import(file="maglite-holder-torch-curve.dxf",
+	       convexity=10, center=true);
+    }
+    translate([0,0, -1])
+      cylinder(r=torch_lit_dia/2, h= torch_tot_len - torch_big_len + 1);
   }
-  translate([0,0, -1])
-    cylinder(r=torch_lit_dia/2, h= torch_tot_len - torch_big_len + 1);
 }
 
 Torch();
-- 
2.30.2