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=eacbc3d5484ebfddb9a3c95d8d9d36d1f6bdf015;hp=c542c752822bc448b77a2dcd64b631281af2819c;hb=3583e096f798c5be22a237895e24f2f2dea5b401;hpb=dd1fb62c57b0c2ec087fc4bca98af525559e8fb0 diff --git a/sewing-table.scad.m4 b/sewing-table.scad.m4 index c542c75..eacbc3d 100644 --- a/sewing-table.scad.m4 +++ b/sewing-table.scad.m4 @@ -7,6 +7,8 @@ ply_th = 18; ply_hole_dia = 15; ply_edge_min = 10; +ply_hole_dia_real = 12; + tile_th = 3; post_dia = 8; @@ -28,17 +30,36 @@ interlock_fine_lenslop = 1.0; demo_slop = 0.1; +leg_height = 62; + +leg_hole_dia = 5 + 0.75; +leg_big_dia = 37; +leg_bot_dia = 15; +leg_top_flat_z = 5; +leg_top_thick = 10; + +leg_midspc_dia = 20; +leg_bot_thick = 10; + +leg_fin_top_w = 5; +leg_fin_bot_w = 5; +leg_fin_bot_rad = 30; +leg_fin_bot_flat_z = 5; + +leg_n_fins = 4; +leg_n_tubules = 4; +leg_tubule_dia = 4; + // cutout machine_rear_to_front = 84 + 0.25 - 1.4; cutout_l_end_y_front_slop = 0.5; cutout_l_end_y_rear_slop = 0.5; -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 - 1.95; cutout_l_end_y_total = cutout_l_end_y + cutout_l_end_y_front_slop + cutout_l_end_y_rear_slop; @@ -46,12 +67,12 @@ tile02_tr = [-250, 0]; tile01_tr = [ 0, 0]; cutout_tile01_y = 170 - 147 + cutout_l_end_y_front_slop; -cutout_tile11_x = cutout_l_end_x + cutout_l_end_curve; 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; @@ -81,9 +102,12 @@ teststrapslots_at = [ [ 110, 70 ], [ 110, -35 ], teststrap = [ 3, 5 ]; teststrap_peg = [7.5, 3.5]; +ply_edge_hole_dist_real = 14; + // calculated TEST = false; +JIG = false; ply_edge_hole_dist = ply_edge_min + ply_hole_dia/2; @@ -104,23 +128,30 @@ thehd_tl = [ -thehd_tr[0], thehd_tr[1] ]; thehd_bl = -thehd_tr; thehd_br = -thehd_tl; -tablet_z_slop = 0.25; +tablet_z_slop = 1.00; interlock_rad = interlock_dia/2; interlock_negative_rad = interlock_rad + 0.125; interlock_sq_adj = 0.2; // arbitrary +leg_fin_top_rad = sqrt( pow(leg_big_dia/2,2) - + pow(leg_fin_top_w/2,2) ); + +leg_tubule_pos_rad = leg_big_dia/2 * 0.6; + m4_define(`POST_TCROSSSZ', `2*( tile_hard_edge_hole_dist - test_edge + 1 )') module Post(){ mirror([0,0,1]) { - difference(){ - cylinder(r= post_dia/2, h= tile_th + ply_th - post_shorter); - translate([0,0, tile_th]) { - cylinder(r= screw_big_dia/2, h= screw_big_len); - cylinder(r= screw_dia/2, h= ply_th, $fn=20); + if (!JIG) { + difference(){ + cylinder(r= post_dia/2, h= tile_th + ply_th - post_shorter); + translate([0,0, tile_th]) { + cylinder(r= screw_big_dia/2, h= screw_big_len); + cylinder(r= screw_dia/2, h= ply_th, $fn=20); + } } } if (TEST) { @@ -129,6 +160,24 @@ module Post(){ cube([POST_TCROSSSZ, post_dia, tile_th], center=true); } } + if (JIG) { + translate([0,0, tile_th/2]) { + cube([POST_TCROSSSZ, POST_TCROSSSZ, tile_th], center=true); + } + } + } +} + +module PostHole(){ + if (JIG) { + translate([0,0,-5]) + cylinder(r= post_dia/2 + jig_post_hole_slop, h=10); + translate([0,0, -jig_min_th]) + cylinder(r= ply_hole_dia_real/2, h = 5); + for (rot=[0:90:270]) rotate(rot) { + translate([ ply_edge_hole_dist_real, 0, 0 ]) + cube([ jig_pencil_rad*2, jig_pencil_slotlen, 20 ], center=true); + } } } @@ -138,6 +187,12 @@ module Posts(posts) { Post(); } } +module PostHoles(posts) { + for (p= posts) { + translate(concat(p, [0])) + PostHole(); + } +} module TileBase(botleft, topright){ size = topright - botleft; @@ -147,7 +202,7 @@ module TileBase(botleft, topright){ mirror([0,0,1]) translate(concat(botleft, [0])) cube(concat(size, [tile_th])); - if (!TEST) { + if (!(TEST || JIG)) { cidsz = topright_post-botleft_post + [-post_dia,-post_dia] + [0, thehd[1]]; @@ -158,16 +213,17 @@ module TileBase(botleft, topright){ + 0.5 * concat( cidsz - cidszr, [ 0 ]) ) Commitid_BestCount_M(cidszr); } - if (TEST) { + if ((TEST || JIG)) { 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); + if (TEST) + 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])) - cube(concat(size - [test_edge,test_edge]*2, [tile_th])); + cube(concat(size - [test_edge,test_edge]*2, [tile_th*2])); translate(concat(botleft_post, [-1])) cube(concat(topright_post-botleft_post, [tile_th+2])); } @@ -176,6 +232,17 @@ module TileBase(botleft, topright){ MachineEnvelope(); cube(shufflesz, center=true); } + if (JIG) { + translate([0,0,-20]) linear_extrude(height=20) { + for (diag=[[ +1, botleft ], + [ -1, [topright[0], botleft[1]] ]]) { + translate(diag[1]) + rotate(atan2(size[1], diag[0] * size[0])) + translate([0, -test_edge/2]) + square([vectorlen2d(size), test_edge]); + } + } + } } } } @@ -386,6 +453,7 @@ module TestPiece1(){ ////toplevel } InterlockEdge(corners[1], corners[2], 1, nlobes=1); RoundCornerCut(rcs); + PostHoles(holes); } RoundCornerAdd(rcs); } @@ -395,10 +463,15 @@ module TestPiece2(){ ////toplevel [ 50, 0] ]; corners = TestPiece_holes2corners(holes); - TileBase(corners[0], corners[2]); - Posts(holes); - RoundEdge(corners[0], corners[1]); - InterlockEdge(corners[3], corners[0], 0, nlobes=1); + difference(){ + union(){ + TileBase(corners[0], corners[2]); + Posts(holes); + RoundEdge(corners[0], corners[1]); + InterlockEdge(corners[3], corners[0], 0, nlobes=1); + } + PostHoles(holes); + } } module TestDemo(){ ////toplevel @@ -409,24 +482,6 @@ module TestDemo(){ ////toplevel TestPiece2(); } -module Machine_Arm(){ - ysz = cutout_l_end_y_total; - // assume the round end is arc of a circle - chordlen = dist2d([0,0], [ cutout_l_end_y, cutout_l_end_curve ]); - endrad = cutout_l_end_y / cutout_l_end_curve * chordlen; - - translate([0,0,-30]) linear_extrude(height=60) { - translate(tile01_tr + [0, (-cutout_tile01_y + cutout_tile11_y)/2]) { - intersection(){ - 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); - } - } - } -} - module Machine_NewRearProfile(){ // figures copied out of xfig edit boxes // best not to edit the posbox size if poss - just move it @@ -460,7 +515,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,27 +523,24 @@ 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); @@ -517,6 +569,20 @@ module Machine_NewEndProfileDemo(){ ////toplevel } } +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); @@ -561,7 +627,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]) @@ -572,7 +638,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 ]){ @@ -604,7 +673,7 @@ module TestStrapPeg_Long(){ ////toplevel } module Machine(){ ////toplevel - Machine_Arm(); + Machine_NewArm(); Machine_Curves(); if (TEST) TestStrapSlots(); @@ -612,9 +681,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){ @@ -623,6 +692,42 @@ module MachineEnvelope(){ } } +module Leg(){ ////toplevel + difference(){ + union(){ + hull(){ + mirror([0,0,1]) + cylinder(r= leg_big_dia/2, height=leg_top_flat_z, $fn=100); + translate([0,0, -leg_top_thick]) + cylinder(r= leg_bot_dia/2, height=1, $fn=100); + } + for (rot=[0: 360/leg_n_fins : 359]) rotate(rot) { + hull(){ + mirror([0,0,1]) translate([0, -leg_fin_top_w/2, 0]) + cube([ leg_fin_top_rad - 0.1, + leg_fin_top_w, + 1 ]) + ; + translate([0, -leg_fin_bot_w/2, -leg_height]) + cube([ leg_fin_bot_rad, + leg_fin_bot_w, + leg_fin_bot_flat_z ]); + } + } + } + mirror([0,0,1]) translate([0,0,-1]) + cylinder(r= leg_hole_dia/2, h=leg_height+2, $fn=30); + mirror([0,0,1]) translate([0,0,leg_top_thick - 0.1]) + cylinder(r= leg_midspc_dia/2, + h=leg_height - leg_top_thick - leg_bot_thick, + $fn=30); + for (rot=[45: 360/leg_n_tubules : 359]) rotate(rot) { + mirror([0,0,1]) translate([ leg_tubule_pos_rad, 0, -1]) + cylinder(r= leg_tubule_dia/2, h=leg_height+2, $fn=20); + } + } +} + 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 @@ -657,6 +762,7 @@ module Tile02(){ ////toplevel } InterlockEdge(R_EDGE(c,1), 1); RoundCornerCut(rcs); + PostHoles(posts); } RoundCornerAdd(rcs); } @@ -677,11 +783,12 @@ module Tile12(){ ////toplevel InterlockEdge(R_EDGE(c,0), 1); InterlockEdge(R_EDGE(c,1), 1); RoundCornerCut(rcs); + PostHoles(posts); } 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]; @@ -692,7 +799,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] @@ -706,6 +813,7 @@ module Tile11(){ ////toplevel } InterlockEdge(c[0], tile_01_11_cnr, 1); InterlockEdge(tile_11_10_cnr, c[2], 1); + PostHoles(posts); Machine(); } } @@ -718,7 +826,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(){ @@ -729,6 +837,7 @@ module Tile01(){ ////toplevel InterlockEdge(tile_01_11_cnr, c[3]); InterlockEdge(R_EDGE(c,3)); } + PostHoles(posts); InterlockEdge(c[1], tile_01_00_cnr, 1); Machine(); } @@ -755,6 +864,7 @@ module Tile10(){ ////toplevel RoundEdge(R_EDGE(c,2)); InterlockEdge(c[3], tile_11_10_cnr); } + PostHoles(posts); RoundCornerCut(rcs); Machine(); } @@ -767,7 +877,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) ]; @@ -777,8 +887,9 @@ module Tile00(){ ////toplevel rcy = cty + frontcurve_avoid_y; posts = [ cnr_posts[0], cnr_posts[1], + 0.5 * (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); @@ -801,6 +912,7 @@ module Tile00(){ ////toplevel RoundEdge(c1bis, c2bis); } Machine(); + PostHoles(posts); RoundCornerCut(rc2); } RoundCornerAdd(rcs); @@ -933,9 +1045,9 @@ module FitTest_EntireDemo(){ ////toplevel } module FitTest_EndEnd(){ ////toplevel - p0 = [-32,-32]; - sz = [188,113]; - sz2 = [168,100]; + p0 = [-30,-32]; + sz = [156,81] - p0; + sz2 = [136,68] - p0; difference(){ FitTest_general(p0, sz); translate([ p0[0] -1, p0[1]+sz2[1], -10]) @@ -988,6 +1100,12 @@ module Demo(){ ////toplevel translate(demo_slop*[-3,1]) color("blue") Tile10(); translate(demo_slop*[-3,0]) color("red") Tile00(); %Machine(); + // Can also do this, to print reference sheet: + // load this into openscad + // select Ctrl-4 view, view all, scale appropriately + // import sewing-table,Demo-flat.png + // pngtopnm t.pnm + // lpr t.pnm } //TestPiece1();