poster-tube-lid: sloping bottom of catch tip

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>

diff --git a/poster-tube-lid.scad b/poster-tube-lid.scad
index 3ef360d052afb0d51c97d61812ebc349cee039bf..d4f2ccf12318579e7b55fb54db6921b8dde39a83 100644 (file)
--- a/poster-tube-lid.scad
+++ b/poster-tube-lid.scad
@@ -611,7 +611,8 @@ module CatchAssemblyCoreProfile(){
            ]);
 }
 
-module CatchTipProfile(){
+module CatchTipProfile(dy){
+  ddy = [0,dy];
   intersection(){
     translate(cppF){
       difference(){
@@ -620,8 +621,8 @@ module CatchTipProfile(){
       }
     }
     polygon([ cppa,
-             cppi,
-             cppd,
+             cppi + ddy,
+             cppd + ddy,
              cppc,
              cppb ]);
   }
@@ -641,8 +642,12 @@ module CatchCore(){ /////toplevel
   linear_extrude(height=catch_strap_thick, convexity=10)
     CatchAssemblyCoreProfile();
 
-  linear_extrude(height=catch_tip_th, convexity=10)
-    CatchTipProfile();
+  hull(){
+    linear_extrude(height=catch_head_th, convexity=10)
+      CatchTipProfile(0);
+    linear_extrude(height=catch_tip_th, convexity=10)
+      CatchTipProfile(catch_tip_th - catch_head_th);
+  }
 
   linear_extrude(height=catch_head_th, convexity=10)
     CatchHeadProfile();