X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=reprap-play.git;a=blobdiff_plain;f=sewing-table.scad.m4;h=fad6530695836e3b3b8bc788d4940e349fc5bc1d;hp=ef02acce9b03446eb27084d004c42bd6bf7312e7;hb=dc3e4a233a79437465bf72aef51b5e18a82cd201;hpb=2b081a52f5abaf58b1e4859d818e1ca92b0779fd

diff --git a/sewing-table.scad.m4 b/sewing-table.scad.m4
index ef02acc..fad6530 100644
--- a/sewing-table.scad.m4
+++ b/sewing-table.scad.m4
@@ -123,6 +123,8 @@ thehd_tl = [ -thehd_tr[0], thehd_tr[1] ];
 thehd_bl = -thehd_tr;
 thehd_br = -thehd_tl;
 
+tablet_z_slop = rearcurve_z_slop;
+
 interlock_rad = interlock_dia/2;
 interlock_negative_rad = interlock_rad + 0.125;
 
@@ -181,8 +183,6 @@ module TileBase(botleft, topright){
       crossoff = tile_hard_edge_hole_dist + POST_TCROSSSZ/2;
       cidsz = [ thehd[0], size[1] - 2*crossoff ];
       cidszr = [ cidsz[0], min(cidsz[1], 50) ];
-      translate( concat(botleft + [0, crossoff] + (cidsz-cidszr)/2, [0]) )
-	Commitid_BestCount(cidszr);
       difference(){
 	mirror([0,0,1]) {
 	  translate(concat(botleft + [test_edge,test_edge], [test_tile_th]))
@@ -190,9 +190,10 @@ module TileBase(botleft, topright){
 	  translate(concat(botleft_post, [-1]))
 	    cube(concat(topright_post-botleft_post, [tile_th+2]));
 	}
+	shufflesz = max(test_edge, tile_hard_edge_hole_dist)*2;
 	minkowski(){
-	  Machine();
-	  cube(max(test_edge, tile_hard_edge_hole_dist)*2, center=true);
+	  MachineEnvelope();
+	  cube(shufflesz, center=true);
 	}
       }
     }
@@ -391,7 +392,7 @@ module Machine_Arm(){
   translate([0,0,-30]) linear_extrude(height=60) {
     translate(tile01_tr + [0, (-cutout_tile01_y + cutout_tile11_y)/2]) {
       intersection(){
-	translate([-100, -ysz/2])
+	translate([-50, -ysz/2])
 	  square([400, ysz]);
 	translate([ endrad - cutout_tile11_x - cutout_l_end_x_slop, 0 ])
 	  circle(r=endrad, $fa=0.01,$fd=5);
@@ -408,7 +409,7 @@ module Machine_Profile(){
 		machine_front_profile);
   skew_angle = atan2( first_front[1] - first_rear[1],
 		      first_front[0] - first_rear[0] );
-  echo(below_point, pol, skew_angle);
+  //echo(below_point, pol, skew_angle);
   hull(){
     for (z=[0,-40]) {
       translate([0,z]) {
@@ -432,7 +433,7 @@ module Machine_NewRearProfile(){
   sh = -[abs(posbox[0]), abs(posbox[1])];
   rot = atan2(-sideline[0], sideline[1]);
   sc = scaleline_mm / scaleline;
-  echo("SH",sh,rot,sc);
+  //echo("SH",sh,rot,sc);
   scale(sc) rotate(rot) translate(sh){
     import("sewing-table-rear-profile.dxf", convexity=10); // spline, Pink3
   }
@@ -440,9 +441,11 @@ module Machine_NewRearProfile(){
 
 module Machine_NewRearCurve(){
   slant = atan2(4,210-10);
-  echo("SL",slant);
+  //echo("SL",slant);
   translate([0,0, rearcurve_double_inrad]) rotate([slant,0,0]){
-    translate([ rearcurve_double_inrad, 0, 10 ]){
+    translate([ rearcurve_double_inrad,
+		0,
+		-rearcurve_double_inrad + 10 ]){
       rotate([180,0,0]) rotate([0,0,90]) linear_extrude(height=30){
 	hull(){
 	  Machine_NewRearProfile();
@@ -492,7 +495,7 @@ module Machine_Curves(){ ////toplevel
     //%cube([20,20,20]);
     translate([ -reartablet_x,
 	        -1,
-	        -reartablet_z])
+	        -reartablet_z + tablet_z_slop])
       mirror([0,0,1])
       cube([ reartablet_x+1,
 	     reartablet_y+1,
@@ -526,6 +529,19 @@ module Machine(){ ////toplevel
   Machine_Curves();
 }
 
+module MachineEnvelope(){
+  // used for testing
+  p_arm_bl = [-cutout_tile11_x, -cutout_tile01_y];
+  y_arm_t  = cutout_tile11_y;
+  p_crv_fl = p_arm_bl + [rearedge_len, -frontcurve_avoid_y];
+  y_crv_b  = y_arm_t + rearcurve_avoid_y;
+
+  translate([0,0,-50]) linear_extrude(height= 100){
+    translate(p_arm_bl) square([400, y_arm_t] - p_arm_bl);
+    translate(p_crv_fl) square([400, y_crv_b] - p_crv_fl);
+  }
+}
+
 function Rectangle_corners(c0, sz) =
   // returns the corners of a rectangle from c0 to c0+sz
   // if sz is positive, the corners are anticlockwise starting with c0
@@ -551,19 +567,19 @@ m4_dnl    expands to two comma-separated corners:
 m4_dnl    that denoted by ix, and the next one anticlockwise
 m4_define(`R_EDGE',`$1[$2],$1[(($2)+1)%4]')
 
-module FitTest(){ ////toplevel
-  sz = [280,180];
-  c0 = [-50,-80];
+module FitTest_general(c0,sz, dobrace=false){
   c = Rectangle_corners(c0, sz);
   brace = [7,7,9];
   difference(){
     union(){
       Rectangle_TileBase(c);
-      translate(concat(c0, [-brace[2] + 0.1])){
-	difference(){
-	  cube(concat(sz,[brace[2]]) - [5,0,0]);
-	  translate(brace + [0,0, -25])
-	    cube(concat(sz, [50]) - brace*2 + [10,0,0]);
+      if (dobrace) {
+	translate(concat(c0, [-brace[2] + 0.1])){
+	  difference(){
+	    cube(concat(sz,[brace[2]]) - [5,0,0]);
+	    translate(brace + [0,0, -25])
+	      cube(concat(sz, [50]) - brace*2 + [10,0,0]);
+	  }
 	}
       }
       RoundEdge(R_EDGE(c,1));
@@ -572,6 +588,18 @@ module FitTest(){ ////toplevel
   }
 }
 
+module FitTest_Entire(){ ////toplevel
+  FitTest_general([-40,-80], [275,180], dobrace=true);
+}
+
+module FitTest_RearCurve(){ ////toplevel
+  FitTest_general([110,0], [170,100]);
+}
+
+module FitTest_FrontCurve(){ ////toplevel
+  FitTest_general([110,-80], [170,80]);
+}
+
 module Tile02(){ ////toplevel
   sz = [100,170];
   c0 = tile02_tr + -sz;
@@ -739,3 +767,5 @@ module Demo(){ ////toplevel
 //Machine_NewRearCurve();
 //Machine_Curves();
 //Machine();
+//FitTest();
+//MachineEnvelope();