From 9cf3936c0cf8647fa6dc293674f68eb12f610d8f Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Wed, 31 May 2017 21:56:51 +0100
Subject: [PATCH] sewing-table: Machine_NewRearProfile wip

---
 sewing-table-rear-profile.fig |  2 ++
 sewing-table.scad.m4          | 11 ++++++++++-
 2 files changed, 12 insertions(+), 1 deletion(-)

diff --git a/sewing-table-rear-profile.fig b/sewing-table-rear-profile.fig
index fa1ea3b..c53817a 100644
--- a/sewing-table-rear-profile.fig
+++ b/sewing-table-rear-profile.fig
@@ -12,6 +12,8 @@ Single
 	 11014 -9675 -5445 -9675 -5445 16370 11014 16370 11014 -9675
 2 2 0 1 2 7 50 -1 -1 0.000 0 0 -1 0 0 5
 	 3255 -6357 -7303 -6357 -7303 18013 3255 18013 3255 -6357
+2 1 0 1 1 7 50 -1 -1 0.000 0 0 -1 0 0 2
+	 -2808 6102 -1101 12715
 3 1 0 1 28 7 40 -1 -1 0.000 0 0 0 26
 	 3330 -6390 1755 -5895 495 -5310 -630 -4590 -1440 -3825 -2115 -2790
 	 -2745 -1710 -3240 -450 -3555 990 -3555 2430 -3420 3780 -2970 5625
diff --git a/sewing-table.scad.m4 b/sewing-table.scad.m4
index 2baad77..2bb8f7a 100644
--- a/sewing-table.scad.m4
+++ b/sewing-table.scad.m4
@@ -423,7 +423,16 @@ module Machine_Profile(){
 }
 
 module Machine_NewRearProfile(){ ////toplevel
-  import("sewing-table-rear-profile.dxf", convexity=10);
+  // figures copied out of xfig edit boxes
+  // best not to edit the posbox size if poss - just move it
+  posbox = 10 * ([7.2333,-14.1267] - [-16.2289,40.0289]);
+  sideline = -10 * ([-6.2400,13.5600] - [-2.4467,28.2556]);
+  sh = -[abs(posbox[0]), abs(posbox[1])];
+  rot = atan2(-sideline[0], sideline[1]);
+  echo("SH",sh,rot);
+  rotate(rot) translate(sh){
+    import("sewing-table-rear-profile.dxf", convexity=10);
+  }
 }
 
 module Machine_RearProfile(){ ////toplevel
-- 
2.30.2