sewing-table: NewEndProfile: scale to meet cutout_l_end_y

diff --git a/sewing-table.scad.m4 b/sewing-table.scad.m4
index 06302eecf416b18d3ab1e07244e1c20cbf041e26..74aea124a984847d863e5b397833fee84fe964d1 100644 (file)
--- a/sewing-table.scad.m4
+++ b/sewing-table.scad.m4
@@ -482,7 +482,10 @@ module Machine_NewEndProfile(){
   sc = refline_mm / vectorlen2d(refline);
   sh = (0.5 * (endline[0] + endline[1])) - posbox;
 
   sc = refline_mm / vectorlen2d(refline);
   sh = (0.5 * (endline[0] + endline[1])) - posbox;
 

-  scale(sc) rotate(rot + rot_adj) translate(-[sh[0],-sh[1]]){
+  ellen = sc * dist2d(endline[0],endline[1]);
+  scy = cutout_l_end_y / ellen;
+
+  scale([scy,1]) scale(sc) rotate(rot + rot_adj) translate(-[sh[0],-sh[1]]){

 
     mirror([0,1]){
   //%translate(1 * (posboxs[0] - posbox)) square(50);
 
     mirror([0,1]){
   //%translate(1 * (posboxs[0] - posbox)) square(50);