From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Tue, 6 Jun 2017 18:38:33 +0000 (+0100)
Subject: sewing-table: NewEndProfile: scale to meet cutout_l_end_y
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=reprap-play.git;a=commitdiff_plain;h=217da87315570a1a9313d0be54cbf7bfc81baf11

sewing-table: NewEndProfile: scale to meet cutout_l_end_y
---

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);