X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=blobdiff_plain;f=screw-recess-test.scad;h=3219a84fe307c623902a1dcb0b08205be9cd2d6b;hb=e9e5f81a2977c2d4b8b0814fe4ef345e3fbc6f5c;hp=9da37e49b5f7c6f1c43aa0341d67c9a0bc3d5f44;hpb=31802c16838e1608395a18537e6fac7b82cda878;p=reprap-play.git

diff --git a/screw-recess-test.scad b/screw-recess-test.scad
index 9da37e4..3219a84 100644
--- a/screw-recess-test.scad
+++ b/screw-recess-test.scad
@@ -1,53 +1,68 @@
 // -*- C -*-
 
-cubez = 12;
-
-shaftz = cubez;
-
-tests = [[4 + 0.5,  10 + 1.0]];
-
-cubexy = 20;
-
 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;
+RecessedScrewCutout_defaultrecessdepth_flat = -0.30;
+RecessedScrewCutout_defaultrecessdepth_hex = -0.60;
+
+function RecessedScrewCutout_recessdepth(recessdia,
+        recessdepth_arg=RecessedScrewCutout_defaultrecessdepth_flat) =
+  recessdepth_arg >= 0 ? recessdepth_arg : -recessdepth_arg * recessdia;
+
+function RecessedScrewCutout_totaldepth(recessdia,
+        recessdepth_arg=RecessedScrewCutout_defaultrecessdepth_flat) =
+  RecessedScrewCutout_recessdepth(recessdia, recessdepth_arg) +
+  + 0.5*recessdia + 0.1;
 
 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;
-  recesstopz = recessdepth + 0.5*recessdia + 0.1;
-  xblocky = shaftdia + 0.1;
+  recessdepth = RecessedScrewCutout_recessdepth(recessdia, recessdepth_arg);
+  recesstopz = RecessedScrewCutout_totaldepth(recessdia, recessdepth_arg);
 
   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, -zbelow])
-      cube([recessdia*3, xblocky, recesstopz+2+zbelow]);
+    cube([recessdia + 1, shaftdia + 0.1, recesstopz*2 + 1], center=true);
     translate([0, -recessdia, recesstopz])
       rotate([0,135,0]) cube([recessdia, recessdia*2, 10]);
     RecessScrewCutout_RecessCylinder(recessdia,zbelow, recesstopz+1);
   }
 }
 
-module Test(){
+//        shaftdia  recessdia
+tests = [[2 + 0.5,   4 + 1.0,   0 ],
+	 [3 + 0.5,   6 + 1.0,  12 ],
+	 [4 + 0.5,   8 + 1.0,  28 ],
+	 [5 + 0.5,  10 + 1.0,  38 ],
+	 [6 + 0.5,  12 + 1.0,  48 ]];
+
+module OneTest(t){
+  blocksz = t[1] + 7;
+  h = RecessedScrewCutout_totaldepth(t[1]) + 3;
   difference(){
-    translate([-cubexy/2, -cubexy/2, 0])
-      cube([cubexy,cubexy,cubez]);
+    translate([-blocksz/2, -blocksz/2, 0])
+      cube([blocksz, blocksz, h]);
+    RecessedScrewCutout(t[0],t[1], h+1);
   }
 }
 
-module Hole(){
-    RecessedScrewCutout(tests[0][0],
-			tests[0][1],
-			shaftz+1);
+function Test_x(i) = i<=0 ? 0 :
+  Test_x(i-1) + tests[i-1][1]*0.5 + tests[i][1]*0.5 + 4.5;
+
+module Tests(){
+  for (i = [0:len(tests)-1]) {
+    echo(i, Test_x(i));
+    translate([Test_x(i), 0, 0])
+      OneTest(tests[i]);
+  }
 }
 
-//Test();
-Hole();
+//OneTest(tests[1]);
+Tests();
+//Hole();
+//Holes();