+
+beta = asin(front_setback / front_height);
+
+uf = [-sin(beta), cos(beta)];
+ur = [ -uf[1], uf[0]];
+
+pp = [0, 0];
+pq = pp + uf*front_height + ur*eclip_ra_offset;
+pr = [ pq[0] - eclip_base_offset - eclip_wall_offset,
+ 0 ];
+
+echo("uf ur P Q R", uf, ur, pp, pq, pr);
+
+module Sketch(){
+ polygon([pq, pp, pr]);
+}
+
+thicks = [ base_thick, front_thick, back_thick ];
+
+module Joins(alpha, objnum, objnum_f, objnum_m) {
+ pitch = (front_width - eclip_each_len) / (num_eclips-1);
+
+ thm = thicks[objnum_m];
+ stride = (front_width - eclip_each_len) / (num_eclips-1);
+
+ if (objnum==objnum_f) {
+ for (i=[ 1 : 2 : num_eclips-1 ]) {
+ translate([0, i*stride + eclip_each_len, 0]) {
+ rotate([90,0,0])
+ linear_extrude(height=eclip_each_len)
+ EclipLPlan(alpha);
+ }
+ }
+ for (i=[ 0 : 2 : num_eclips-1 ]) {
+ translate([0, i*stride + eclip_each_len, 0]) {
+ rotate([90,0,0])
+ linear_extrude(height=eclip_each_len)
+ EclipRPlan(alpha, thm);
+ }
+ }
+ }
+ if (objnum==objnum_m)
+ mirror([0,1,0])
+ rotate([90,0,0])
+ linear_extrude(height=front_width)
+ rotate(alpha)
+ EclipPPlan(thm);
+}
+
+function r3(pc) = [ pc[0], 0, pc[1] ];
+
+module ObjectJoins(objnum){
+ translate(r3(pp)) Joins(beta, objnum, 0,1);
+ translate(r3(pr)) mirror([1,0,0]) Joins(0, objnum, 0,2);
+ translate(r3(pq)) rotate([0,90,0]) mirror([1,0,0]) Joins(-beta, objnum, 2,1);
+}
+
+module Base(){
+ xmin = pr[0] - eclip_rhs_offset - thicks[2];
+ xmax = pp[0] + eclip_rhs_offset + thicks[1]
+ + eclip_prong_th * (1/cos(beta) - 1)
+ + eclip_base_offset * tan(beta);
+ intersection(){
+ ObjectJoins(0);
+ translate([xmin,
+ -1,
+ -50])
+ cube([xmax - xmin,
+ front_width + 2,
+ 300]);
+ }
+ translate([xmin,
+ 0,
+ -eclip_base_offset - thicks[0]])
+ cube([xmax - xmin,
+ front_width,
+ thicks[0]]);
+}
+
+module Front(){
+ ObjectJoins(1);
+ rotate([0, 90-beta, 0])
+ translate([0, 0, ppxl])
+ rotate([0,0,90]) {
+ cube([front_width,
+ front_height - eclip_wall_offset + thicks[1],
+ thicks[1]]);
+ }
+}
+
+module Back(){
+ ObjectJoins(2);
+
+ zmin = pr[1];
+ zmax = pq[1] + eclip_prong_th;
+ height = zmax - zmin;
+
+ translate([pr[0] + eclip_wall_offset - thicks[2],
+ 0, 0])
+ rotate([0,90,0])
+ rotate([0,0,90]) {
+ difference(){
+ cube([front_width,
+ height,
+ thicks[2]]);
+ translate([back_pillarw,
+ eclip_recept_height,
+ -10])
+ cube([front_width - back_pillarw*2,
+ height - eclip_recept_height*2 - eclip_prong_th,
+ 20]);
+ }
+ }
+}
+
+module Demo(){
+ color("red") Base();
+ color("blue") Front();
+ color("black") Back();
+}
+
+//PlanDemo();
+//TestBase();
+//TestProtr();
+//TestRAProtr();
+//Sketch();
+Demo();