From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 14 Feb 2016 00:18:00 +0000 (+0000)
Subject: sealing-box: provide SealingBox_lidbigger (no caller yet)
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=commitdiff_plain;h=1aafdeb4482f4818a7c6540e87a1f0abee09d63c;p=reprap-play.git

sealing-box: provide SealingBox_lidbigger (no caller yet)
---

diff --git a/sealing-box.scad.m4 b/sealing-box.scad.m4
index b821dc0..40b4f64 100644
--- a/sealing-box.scad.m4
+++ b/sealing-box.scad.m4
@@ -117,12 +117,14 @@ module SealingBox_FloorProfile(){
   mirror([0,1]) square([wall, floorth]);
 }
 
+function SealingBox_lidbigger() = lidoverlap + innertube;
+
 module SealingBox_LidProfile(){
   BoxLocals
   rad = tubesealrad + innertube;
   morex = wall;
   difference(){
-    translate([-lidoverlap - innertube,
+    translate([-SealingBox_lidbigger(),
 	       zbox - lidoverhang - innertube])
       square([lidoverlap + innertube + wall,
 	      lidoverhang + innertube + ceilth]);