+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 + rearedge_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],
+ cnr_posts[2] + [ 0, -rcy ],
+ cnr_posts[2] + [ -sz[0] + rearedge_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();
+ RoundCornerCut(rc2);
+ }
+ RoundCornerAdd(rcs);
+ RoundCornerAdd(rc2);
+}
+
+module FitTest_general(c0,sz, dobrace=false){
+ c = Rectangle_corners(c0, sz);
+ brace = [7,7,9];
+ difference(){
+ union(){
+ Rectangle_TileBase(c);
+ 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));
+ }
+ Machine();
+ }
+}
+
+module FitTest_PairLink(cut=false){ ////toplevel
+ cy0=-55; cy1=85; cx=127;
+ 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);
+ }
+ }
+ }
+ // 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_Entire(){ ////toplevel
+ FitTest_general([-40,-80], [275,180], dobrace=true);
+}
+
+module FitTest_RearCurve(){ ////toplevel
+ difference(){
+ FitTest_general([110,0], [170,100]);
+ FitTest_PairLink(true);
+ }
+}
+
+module FitTest_FrontCurve(){ ////toplevel
+ p0 = [110,-80];
+ sz = [170,80];
+ difference(){
+ intersection() {
+ Tile00();
+ translate([0,0,-8]) linear_extrude(height=18) {
+ translate(p0) square(sz);
+ }
+ }
+ FitTest_PairLink(true);
+ }
+}
+
+module FitTest_PairDemo(){ ////toplevel
+ sh=[-100,-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);
+}
+