+module Tile00(){ ////toplevel
+ sz = [250,170];
+ c0 = tile01_tr + [0,-sz[1]];
+ c = Rectangle_corners(c0, sz);
+
+ // the edge c[1]..c[2] needs a diagonal chunk, from c1bis to c2bis
+ 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) ];
+
+ cnr_posts = Rectangle_corners2posts(c);
+ cty = cutout_tile01_y;
+ 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] + frontedge_len - cutout_l_end_x, -cty ],
+ cnr_posts[3] + [ 0, -cty ]
+ ];
+ rcs = R_CNR(c,1);
+ rc2 = [c1bis,c2bis,c[1]];
+ difference(){
+ union(){
+ difference(){
+ union(){
+ Rectangle_TileBase(c);
+ Posts(posts);
+ RoundEdge(R_EDGE(c,0));
+ RoundEdge(c[1], c1bis);
+ InterlockEdge(tile_01_00_cnr, c[0]);
+ }
+ RoundCornerCut(rcs);
+ translate([0,0,-20]) linear_extrude(height=40) {
+ polygon([ c1bis, c1bis + [50,0], c2bis + [50,0], c2bis ]);
+ }
+ }
+ RoundEdge(c1bis, c2bis);
+ }
+ Machine();
+ PostHoles(posts);
+ RoundCornerCut(rc2);
+ }
+ RoundCornerAdd(rcs);
+ RoundCornerAdd(rc2);
+}
+
+module FitTest_general(c0,sz, dobrace=false, bracexx=0){
+ c = Rectangle_corners(c0, sz);
+ brace = [7,7,9];
+ bsz = sz + [bracexx,0,0];
+ difference(){
+ union(){
+ Rectangle_TileBase(c);
+ if (dobrace) {
+ translate(concat(c0, [-brace[2] + 0.1])){
+ difference(){
+ cube(concat(bsz, [brace[2]]) - [5,0,0]);
+ translate(brace + [0,0, -25])
+ cube(concat(bsz, [50]) - brace*2 + [10,0,0]);
+ }
+ }
+ }
+ RoundEdge(R_EDGE(c,1));
+ }
+ Machine();
+ }
+}
+
+module FitTest_PairLink(cut=false){ ////toplevel
+ cy0=-55; cy1=85; cx=132;
+ bar = [10,10];
+ legrad = 12;
+ footrad_min = 1; footrad_max = 4; footrad_depth = 5;
+ strap = [3,5];
+ adj_neg_slop = 1.0;
+ bar_z_slop = 1.75;
+
+ // calculated
+ straphole_x_max = legrad/sqrt(2) + footrad_max;
+ dz = cut ? adj_neg_slop : 0;
+
+ translate([cx - bar[0]/2, cy0, dz + bar_z_slop])
+ cube([bar[0], cy1-cy0, bar[1] - bar_z_slop]);
+
+ for (endy=[cy0,cy1]) {
+ $fn=32;
+ translate([cx,endy,dz]){
+ // feet
+ for (rot=[45:90:315]) rotate(rot) {
+ translate([legrad,0,0]){
+ hull(){
+ cylinder(r= footrad_max, h=1);
+ translate([0,0,-footrad_depth])
+ cylinder(r= footrad_min, h=1);
+ }
+ if (cut)
+ translate([0,0,-10])
+ cylinder(r= footrad_min +
+ adj_neg_slop * (footrad_max-footrad_min)/footrad_depth,
+ h=20);
+ }
+ }
+ // legs
+ for (rot=[45,135]) rotate(rot) {
+ hull(){
+ for (s=[-1,+1]){
+ translate([s*legrad,0,0])
+ cylinder(r= footrad_max, h=bar[1]);
+ }
+ }
+ }
+ // strap holes
+ if (cut) {
+ for (rot=[0,180]) rotate(rot) {
+ translate([ straphole_x_max - strap[0]/2, 0,0 ])
+ cube(concat(strap,[20]), center=true);
+ }
+ }
+ }
+ }
+}
+
+module FitTest_RearCurve(){ ////toplevel
+ difference(){
+ FitTest_general([100,0], [180,100]);
+ FitTest_PairLink(true);
+ TestStrapSlots();
+ }
+}
+
+module FitTest_FrontCurve(){ ////toplevel
+ p0 = [100,-80];
+ sz = [180,80];
+ difference(){
+ intersection() {
+ Tile00();
+ translate([0,0,-8]) linear_extrude(height=18) {
+ translate(p0) square(sz);
+ translate(teststrapslots_at[3])
+ scale(2* [ teststrap_peg[0], teststrap[1] ])
+ circle(r=1, $fn=20);
+ }
+ }
+ FitTest_PairLink(true);
+ TestStrapSlots();
+ }
+}
+
+module FitTest_Entire(){ ////toplevel
+ p0 = [-33,-80];
+ szrear = [263,180];
+ szfront = [243,szrear[1]];
+ difference(){
+ FitTest_general(p0, szrear, dobrace=true, bracexx=0);
+ FitTest_PairLink(true);
+ translate(concat(p0,[0]) + [szfront[0],-10,-40])
+ cube([100, -p0[1], 80]);
+ TestStrapSlots();
+ }
+ intersection(){
+ FitTest_RearCurve();
+ translate(concat(p0,[-20])) cube(concat(szrear,[40]));
+ }
+ FitTest_FrontCurve();
+}
+
+module FitTest_EntireDemo(){ ////toplevel
+ FitTest_Entire();
+ //%Tile00();
+}
+
+module FitTest_EndEnd(){ ////toplevel
+ 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])
+ cube([ sz2[0] +1, 50, 20 ]);
+ }
+}
+
+module FitTest_PairDemo(){ ////toplevel
+ sh=[-90,-15,0];
+ translate(sh){
+ FitTest_PairLink();
+ %FitTest_FrontCurve();
+ %FitTest_RearCurve();
+ }
+ rotate([0,0,180]){
+ translate(sh){
+ difference(){
+ union(){
+ FitTest_FrontCurve();
+ FitTest_RearCurve();
+ }
+ #FitTest_PairLink(true);
+ }
+ }
+ }
+}
+
+module RoundCornerDemo_plat(cnr){
+ mirror([0,0,1]) linear_extrude(height=1) polygon(cnr);
+}
+
+module RoundCornerDemo(){ ////toplevel
+ cnr = [ [-2,-3], [13,-3], [-12,9] ];
+ translate([0,25,0]) RoundCornerDemo_plat(cnr);
+ translate([25,0,0]) RoundCornerAdd(cnr);
+ translate([-25,0,0]) RoundCornerCut(cnr);
+ translate([0,-25,0]) RoundCorner_selector(cnr, 0);
+ difference(){
+ RoundCornerDemo_plat(cnr);
+ RoundCornerCut(cnr);
+ }
+ RoundCornerAdd(cnr);
+}
+