From 217da87315570a1a9313d0be54cbf7bfc81baf11 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Tue, 6 Jun 2017 19:38:33 +0100
Subject: [PATCH] sewing-table: NewEndProfile: scale to meet cutout_l_end_y

---
 sewing-table.scad.m4 | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/sewing-table.scad.m4 b/sewing-table.scad.m4
index 06302ee..74aea12 100644
--- 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;
 
-  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);
-- 
2.30.2