From fb18d16dcdfc7c847372fd46dcced3705f1e37d7 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 4 Jun 2017 13:55:52 +0100
Subject: [PATCH] sewing-table: Machine_Profile: remove obsolete profile
 modules

---
 sewing-table.scad.m4 | 41 -----------------------------------------
 1 file changed, 41 deletions(-)

diff --git a/sewing-table.scad.m4 b/sewing-table.scad.m4
index 2b03caf..8dff017 100644
--- a/sewing-table.scad.m4
+++ b/sewing-table.scad.m4
@@ -451,28 +451,6 @@ module Machine_Arm(){
   }
 }
 
-module Machine_Profile(){
-  first_rear = machine_rear_profile[0];
-  below_point = 0.5 * ( first_rear + first_front ) + [ 0, -10 ];
-  pol = concat( machine_rear_profile,
-		[ below_point ],
-		machine_front_profile);
-  skew_angle = atan2( first_front[1] - first_rear[1],
-		      first_front[0] - first_rear[0] );
-  //echo(below_point, pol, skew_angle);
-  hull(){
-    for (z=[0,-40]) {
-      translate([0,z]) {
-	//scale([1,5])
-	rotate([0,0, -skew_angle ]){
-	  //translate( - first_front )
-	  polygon(pol);
-	}
-      }
-    }
-  }
-}
-
 module Machine_NewRearProfile(){
   // figures copied out of xfig edit boxes
   // best not to edit the posbox size if poss - just move it
@@ -535,24 +513,6 @@ module Machine_NewRearCurve(){
   }
 }
 
-module Machine_RearProfile(){ ////toplevel
-  intersection(){
-    Machine_Profile();
-    translate([ -200 + machine_rear_to_front/2, -100 ]) {
-      square([200,200]);
-    }
-  }
-}
-
-module Machine_FrontProfile(){
-  intersection(){
-    Machine_Profile();
-    translate([ machine_rear_to_front/2, -100 ]) {
-      square([200,200]);
-    }
-  }
-}
-
 module Machine_Curves(){ ////toplevel
   translate([ tile01_tr[0] - cutout_l_end_x + rearedge_len,
 	      cutout_tile11_y,
@@ -957,7 +917,6 @@ module Demo(){ ////toplevel
 //TestPiece2();
 //Demo();
 
-//Machine_Profile();
 //Machine_NewRearProfile();
 //Machine_NewRearCurve();
 //Machine_NewFrontProfile();
-- 
2.30.2