sewing-table: Machine_Profile: remove obsolete profile modules

diff --git a/sewing-table.scad.m4 b/sewing-table.scad.m4
index 2b03caf5a4d6aca93c2fc622fdd2c1055d787482..8dff0175cffacb8f33dcd01b0b3d297a31bb073c 100644 (file)
--- 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();