+module EclipLPlan(alpha){
+ rotate(alpha) EclipLPlanCore(alpha);
+}
+
+module EclipPPlan(main_th){
+ intersection(){
+ hull(){
+ circle(r0);
+ rotate(90-eclip_ult_angle) square([r0,r0]);
+ }
+ translate([-(r0+.1), -(r0+.1)])
+ square([(r0+.1) + main_th + ppxl, r2*2]);
+ }
+ translate([ppxl, 0]) square([main_th, r2]);
+}
+
+color("red") EclipLPlan(test_alpha);
+color("blue") rotate(test_alpha) EclipPPlan(1.5);