+module TestRAProtr(){ ////toplevel
+ rotate([-90,0,0]) TestProtr();
+ mirror([1,0,0])
+ translate([-test_len,
+ -r2,
+ -(eclip_ra_offset + test_base_th)])
+ cube([test_len,
+ r2*2,
+ test_base_th]);
+}
+
+module TestPlanDemo(){
+ color("red") EclipLPlan(test_alpha);
+ color("blue") rotate(test_alpha) EclipPPlan(test_main_th);
+ color("green") EclipRPlan(test_alpha, test_main_th);
+}
+
+beta = asin(front_setback / front_height);
+
+uf = [-sin(beta), cos(beta)];
+ur = [-uf[0], uf[1]];
+
+pp = [0, 0];
+pq = pp + uf*front_height + ur*eclip_ra_offset;
+pr = [ pq[0] - eclip_base_offset + eclip_wall_offset, 0 ];
+
+module Sketch(){
+ polygon([pq, pp, pr]);
+}
+
+thicks = [ 2, 2, 2 ];
+
+module Joins(alpha, objnum, objnum_f, objnum_m) {
+ pitch = (front_width - eclip_each_len) / (num_eclips-1);
+
+ echo("Joins",objnum, objnum_f, objnum_m);
+ thm = thicks[objnum_m];
+ stride = (front_width - eclip_each_len) / (num_eclips-1);
+
+ if (objnum==objnum_f) {
+ for (i=[ 0 : 2 : num_eclips-1 ]) {
+ translate([0, i*stride, 0]) {
+ rotate([90,0,0])
+ linear_extrude(height=eclip_each_len)
+ EclipLPlan(alpha);
+ }
+ }
+ for (i=[ 1 : 2 : num_eclips-1 ]) {
+ translate([0, i*stride, 0]) {
+ rotate([90,0,0])
+ linear_extrude(height=eclip_each_len)
+ EclipRPlan(alpha, thm);
+ }
+ }
+ }
+// if (objnum==objnum_m)
+// rotate(alpha)
+// EclipPPlan(thm);
+}
+
+function r3(pc) = [ pc[0], 0, pc[1] ];
+
+module ObjectJoins(objnum){
+ echo("Object",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]) Joins(beta, objnum, 2,1);
+}
+
+module Base(){
+ ObjectJoins(0);
+}
+
+module Front(){
+ ObjectJoins(1);
+}
+
+module Back(){
+ ObjectJoins(2);
+}
+
+module Demo(){
+ Base();
+ Front();
+ Back();
+}
+
+//PlanDemo();
+//TestBase();
+//TestProtr();
+//TestRAProtr();
+//Sketch();
+Demo();