screw-recess-test: break out RecessedScrewCutout_recessdepth (nfc)

[reprap-play.git] / screw-recess-test.scad

diff --git a/screw-recess-test.scad b/screw-recess-test.scad
index 3b9931fb70d70c45dee09c03022d25e68d475351..c4c2618f3c7c4daeebf33fbc03b8f8166df8de8e 100644 (file)
--- a/screw-recess-test.scad
+++ b/screw-recess-test.scad
@@ -8,30 +8,33 @@ tests = [[4 + 0.5,  10 + 1.0]];
 
 cubexy = 20;
 
-module RecessScrewCutout_RecessCylinder(recessdia, h){
-  translate([0,0,-1]) cylinder(r=recessdia/2, h=h+1, $fn=40);
+module RecessScrewCutout_RecessCylinder(recessdia,zbelow, h){
+  translate([0,0,-zbelow]) cylinder(r=recessdia/2, h=h+1, $fn=40);
 }
 
 RecessedScrewCutout_defaultrecessdepth_flat = -0.35;
 RecessedScrewCutout_defaultrecessdepth_hex = -0.70;
 
-module RecessedScrewCutout(shaftdia, recessdia,
+function RecessedScrewCutout_recessdepth(recessdia, recessdepth_arg) =
+  recessdepth_arg >= 0 ? recessdepth_arg : -recessdepth_arg * recessdia;
+
+module RecessedScrewCutout(shaftdia, recessdia, shaftlen,
+        zbelow=1,
         recessdepth_arg=RecessedScrewCutout_defaultrecessdepth_flat) {
   // pass recessdepth_arg=-1 for the default for flat heads
   // pass recessdepth_arg=-1 for the default for flat heads
-  recessdepth = recessdepth_arg >= 0 ? recessdepth_arg
-    : -recessdepth_arg * recessdia;
+  recessdepth = RecessedScrewCutout_recessdepth(recessdia, recessdepth_arg);
   recesstopz = recessdepth + 0.5*recessdia + 0.1;
   xblocky = shaftdia + 0.1;
 
-  translate([0,0,-1]) cylinder(r=shaftdia/2, h=shaftz+2, $fn=20);
-  RecessScrewCutout_RecessCylinder(recessdia, recessdepth);
+  translate([0,0,-zbelow]) cylinder(r=shaftdia/2, h=shaftlen+zbelow, $fn=20);
+  RecessScrewCutout_RecessCylinder(recessdia,zbelow, recessdepth);
   intersection(){
-    translate([-recessdia*1.5, -xblocky/2, -1])
-      cube([recessdia*3, xblocky, recesstopz+3]);
+    translate([-recessdia*1.5, -xblocky/2, -zbelow])
+      cube([recessdia*3, xblocky, recesstopz+2+zbelow]);
     translate([0, -recessdia, recesstopz])
       rotate([0,135,0]) cube([recessdia, recessdia*2, 10]);
-    RecessScrewCutout_RecessCylinder(recessdia, recesstopz+1);
+    RecessScrewCutout_RecessCylinder(recessdia,zbelow, recesstopz+1);
   }
 }
 
@@ -44,7 +47,8 @@ module Test(){
 
 module Hole(){
     RecessedScrewCutout(tests[0][0],
-                       tests[0][1]);
+                       tests[0][1],
+                       shaftz+1);
 }
 
 //Test();