X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=blobdiff_plain;f=sewing-table.scad.m4;h=dbd3d21b49e878dbeaf155e2519d4f7bc36a8148;hb=f3c2b2d372ddb9639e71f589ebe8a9345aec7776;hp=ea742d539b8e1efa5a3e736ffbae11f882f5f063;hpb=de51ac460d5d5c1f53bfb4ec03c3b749beba78fc;p=reprap-play.git diff --git a/sewing-table.scad.m4 b/sewing-table.scad.m4 index ea742d5..dbd3d21 100644 --- a/sewing-table.scad.m4 +++ b/sewing-table.scad.m4 @@ -39,6 +39,7 @@ cutout_l_end_x_slop = 0.25; cutout_l_end_x = 22; cutout_l_end_y = machine_rear_to_front; cutout_l_end_curve = 1; +cutout_l_end_new_x_slop = -1.4; cutout_l_end_y_total = cutout_l_end_y + cutout_l_end_y_front_slop + cutout_l_end_y_rear_slop; @@ -51,7 +52,8 @@ cutout_tile11_y = cutout_l_end_y_total - cutout_tile01_y; // front and rear curves -rearedge_len = 170; +rearedge_len = 170 + 0.70; +frontedge_len = 170; rearcurve_strt_len = 52; @@ -460,7 +462,7 @@ module Machine_NewFrontProfile(){ module Machine_NewEndProfile(){ // figures copied out of xfig edit boxes - // best not to edit the posbox size if poss - just move it + // NB that y coords are reversed - xfig origin is at bottom left posboxs = 10 * [[4.0400,17.7956], [11.6622,32.5511]]; // box, Pink3 refline = 10 * ([8.4000,22.6000] - [50.3000,22.2000]); // line, Blue refline_mm = 10 * (11 - 2.5); @@ -468,35 +470,32 @@ module Machine_NewEndProfile(){ [[50.3800,21.9578], [50.1933,14.4933]]]; // lines, Blue3 baseline = 10 * [[8.4000,18.0822], [50.3000,17.6822]]; // line, Green2 + rot_adj = -0.38; + posbox = [min(posboxs[0][0],posboxs[1][0]), max(posboxs[0][1],posboxs[1][1])]; -m4_define(`MNEP_ELP', - `line_intersection_2d(baseline[0],baseline[1], - sidelines[$1][0],sidelines[$1][1])') + m4_define(`MNEP_ELP', + `line_intersection_2d(baseline[0],baseline[1], + sidelines[$1][0],sidelines[$1][1])') endline = [MNEP_ELP(0),MNEP_ELP(1)]; - echo("PBS",posboxs,"PB",posbox,"SL00",sidelines[0][0]); - - //%translate(posbox) square(10); rot = atan2(-refline[1], -refline[0]); sc = refline_mm / vectorlen2d(refline); sh = (0.5 * (endline[0] + endline[1])) - posbox; -// scaleline = 10 * dist2d([-1.1911,-20.4800], [-11.2600,4.0578]); // Green2 -// scaleline_mm = 12+5+10+5+3; -// sh = -[abs(posbox[0]), abs(posbox[1])]; -// rot = atan2(-sideline[0], sideline[1]); -// sc = scaleline_mm / scaleline; - //echo("SH",sh,rot,sc); - scale(sc) rotate(rot) translate(-[sh[0],-sh[1]]){ + + ellen = sc * dist2d(endline[0],endline[1]); + scy = cutout_l_end_y_total / ellen; + + scale([scy,1]) scale(sc) rotate(rot + rot_adj) translate(-[sh[0],-sh[1]]){ mirror([0,1]){ //%translate(1 * (posboxs[0] - posbox)) square(50); //%translate(1 * (posboxs[1] - posbox)) square(50); - %translate(1 * (baseline[0] - posbox)) square([50,10]); +// %translate(1 * (baseline[0] - posbox)) square([50,10]); - %translate(1 * (endline[0] - posbox)) square([50,10]); - %translate(1 * (endline[1] - posbox)) square([50,10]); +// %translate(1 * (endline[0] - posbox)) square([50,10]); +// %translate(1 * (endline[1] - posbox)) square([50,10]); // %translate(1 * (sidelines[0][0] - posbox)) square([10,50]); // %translate(1 * (sidelines[0][1] - posbox)) square([10,50]); @@ -508,6 +507,29 @@ m4_define(`MNEP_ELP', } } +module Machine_NewEndProfileDemo(){ ////toplevel + translate([0,5,0]) Machine_NewEndProfile(); + translate([0,5,1]) color("blue") mirror([1,0]) Machine_NewEndProfile(); + mirror([0,1,0]){ + translate([0,5, 0]) Machine_NewEndProfile(); + translate([0,5,-1]) color("blue") mirror([1,0]) Machine_NewEndProfile(); + } +} + +module Machine_NewArm(){ + translate([0,0,-30]) linear_extrude(height=60) { + translate(tile01_tr + [ -cutout_l_end_x + cutout_l_end_new_x_slop, + (-cutout_tile01_y + cutout_tile11_y)/2 ]){ + rotate(-90){ + hull(){ + for (d=[0,400]) + translate([0,d]) Machine_NewEndProfile(); + } + } + } + } +} + module Machine_NewRearCurve(){ slant = atan2(4,210-10); //echo("SL",slant); @@ -552,7 +574,7 @@ module Machine_Curves(){ ////toplevel reartablet_y+1, 20 ]); } - translate([ tile01_tr[0] - cutout_l_end_x + rearedge_len, + translate([ tile01_tr[0] - cutout_l_end_x + frontedge_len, cutout_tile11_y, frontcurve_z_slop ]){ translate([0, -machine_rear_to_front, 0]) @@ -563,7 +585,10 @@ module Machine_Curves(){ ////toplevel mirror([1,0,0]) rotate([0,-90,0])rotate([0,0,-90]) linear_extrude(height= 200) Machine_NewFrontProfile(); - + } + translate([ tile01_tr[0] - cutout_l_end_x + rearedge_len, + cutout_tile11_y, + frontcurve_z_slop ]){ translate([ rearcurve_strt_len, 0, rearcurve_z_slop ]){ @@ -595,7 +620,7 @@ module TestStrapPeg_Long(){ ////toplevel } module Machine(){ ////toplevel - Machine_Arm(); + Machine_NewArm(); Machine_Curves(); if (TEST) TestStrapSlots(); @@ -603,9 +628,9 @@ module Machine(){ ////toplevel module MachineEnvelope(){ // used for testing - p_arm_bl = [-cutout_tile11_x, -cutout_tile01_y]; + p_arm_bl = [-cutout_l_end_x, -cutout_tile01_y]; y_arm_t = cutout_tile11_y; - p_crv_fl = p_arm_bl + [rearedge_len, -frontcurve_avoid_y]; + p_crv_fl = p_arm_bl + [frontedge_len, -frontcurve_avoid_y]; y_crv_b = y_arm_t + rearcurve_avoid_y; translate([0,0,-50]) linear_extrude(height= 100){ @@ -672,7 +697,7 @@ module Tile12(){ ////toplevel RoundCornerAdd(rcs); } -tile_01_11_cnr = tile01_tr + [-cutout_tile11_x, 0]; +tile_01_11_cnr = tile01_tr + [-cutout_l_end_x, 0]; tile_11_10_cnr = tile01_tr + [0, cutout_tile11_y]; tile_01_00_cnr = tile01_tr - [0, cutout_tile01_y]; @@ -683,7 +708,7 @@ module Tile11(){ ////toplevel cnr_posts = Rectangle_corners2posts(c); posts = concat( Posts_interpolate_one(cnr_posts[0], - cnr_posts[1] - [cutout_tile11_x, 0]), + cnr_posts[1] - [cutout_l_end_x, 0]), [ cnr_posts[1] + [0, cutout_tile11_y], cnr_posts[2], cnr_posts[3] @@ -709,7 +734,7 @@ module Tile01(){ ////toplevel posts = concat( Posts_interpolate_one(R_EDGE(cnr_posts,0)), [ cnr_posts[2] + [0, -cutout_tile01_y] ], - Posts_interpolate_one(cnr_posts[2] - [cutout_tile11_x, 0], + Posts_interpolate_one(cnr_posts[2] - [cutout_l_end_x, 0], cnr_posts[3]) ); difference(){ @@ -758,7 +783,7 @@ module Tile00(){ ////toplevel c = Rectangle_corners(c0, sz); // the edge c[1]..c[2] needs a diagonal chunk, from c1bis to c2bis - c2bis = [ -cutout_l_end_x + rearedge_len + frontcurve_strt_len, c[2][1] ]; + c2bis = [ -cutout_l_end_x + frontedge_len + frontcurve_strt_len, c[2][1] ]; c1bis = [ c[1][0], c[2][1] - (c[2][0] - c2bis[0]) * tan(90 - frontcurve_dualcurve_angle) ]; @@ -769,7 +794,7 @@ module Tile00(){ ////toplevel posts = [ cnr_posts[0], cnr_posts[1], cnr_posts[2] + [ 0, -rcy ], - cnr_posts[2] + [ -sz[0] + rearedge_len - cutout_l_end_x, -cty ], + cnr_posts[2] + [ -sz[0] + frontedge_len - cutout_l_end_x, -cty ], cnr_posts[3] + [ 0, -cty ] ]; rcs = R_CNR(c,1); @@ -989,6 +1014,7 @@ module Demo(){ ////toplevel //Machine_NewRearCurve(); //Machine_NewFrontProfile(); //Machine_NewEndProfile(); +//Machine_NewEndProfileDemo(); //Machine_Curves(); //Machine(); //FitTest();