screw-recess-test: Make tests line up with ymul

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

diff --git a/screw-recess-test.scad b/screw-recess-test.scad
index 2e4fb5ced435cb0a3c5f540c2132f50f4f484e83..5bad13968f3b4ac2646e6fc24bd50835fb115003 100644 (file)
--- a/screw-recess-test.scad
+++ b/screw-recess-test.scad
@@ -1,41 +1,119 @@
 // -*- C -*-
 
-cubez = 12;
-
-shaftdia = 4 + 0.5;
-recessdia = 10 + 1.0;
+module RecessScrewCutout_RecessCylinder(recessdia,zbelow, h){
+  translate([0,0,-zbelow]) cylinder(r=recessdia/2, h=h+1, $fn=40);
+}
 
-shaftz = cubez;
-recessz = 5;
+RecessedScrewCutout_defaultrecessdepth_flat = -0.30;
+RecessedScrewCutout_defaultrecessdepth_hex = -0.60;
 
-recesstopz = recessz + 0.5*recessdia + 0.1;
-xblocky = shaftdia + 0.1;
+function RecessedScrewCutout_recessdepth(recessdia,
+        recessdepth_arg=RecessedScrewCutout_defaultrecessdepth_flat) =
+  recessdepth_arg >= 0 ? recessdepth_arg : -recessdepth_arg * recessdia;
 
-cubexy = recessdia + 10;
+function RecessedScrewCutout_totaldepth(recessdia,
+        recessdepth_arg=RecessedScrewCutout_defaultrecessdepth_flat) =
+  RecessedScrewCutout_recessdepth(recessdia, recessdepth_arg) +
+  + 0.5*recessdia + 0.1;
 
-module RecessCylinder(h){
-  translate([0,0,-1]) cylinder(r=recessdia/2, h=h+1, $fn=40);
-}
+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 = RecessedScrewCutout_recessdepth(recessdia, recessdepth_arg);
+  recesstopz = RecessedScrewCutout_totaldepth(recessdia, recessdepth_arg);
 
-module Hole(){
-  translate([0,0,-1]) cylinder(r=shaftdia/2, h=shaftz+2, $fn=20);
-  RecessCylinder(recessz);
+  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]);
+    cube([recessdia + 1, shaftdia + 0.1, recesstopz*2 + 1], center=true);
     translate([0, -recessdia, recesstopz])
       rotate([0,135,0]) cube([recessdia, recessdia*2, 10]);
-    RecessCylinder(recesstopz+1);
+    RecessScrewCutout_RecessCylinder(recessdia,zbelow, recesstopz+1);
+  }
+}
+
+//              nom.   shaft
+//              shaft   slop
+screw_info_M2   = [2,   1.5];
+screw_info_M3   = [3,   1.5];
+screw_info_M4   = [4,   1.2];
+screw_info_M5   = [5,   1.0];
+screw_info_M6   = [6,   0.9];
+
+function screw_shaft_dia_nom(info)      = info[0];
+function screw_shaft_dia_use(info)      = info[0] + info[1];
+function screw_recess_dia_use(info)     = info[0] * 2.5;
+function screw_recess_depth(info)       = info[0] *  .65;
+function screw_recess_depth_allen(info) = info[0] * 1.20;
+
+function RecessedScrewCutoutStandard_totaldepth(info) =
+  RecessedScrewCutout_totaldepth(screw_recess_dia_use(info),
+                                screw_recess_depth(info));
+
+function RecessedScrewCutoutStandardAllen_totaldepth(info) =
+  RecessedScrewCutout_totaldepth(screw_recess_dia_use(info),
+                                screw_recess_depth_allen(info));
+
+module RecessedScrewCutoutStandard(info, shaftlen, zbelow=1) {
+  RecessedScrewCutout(screw_shaft_dia_use(info),
+                     screw_recess_dia_use(info),
+                     shaftlen, zbelow,
+                     screw_recess_depth(info));
+}                               
+
+module RecessedScrewCutoutStandardAllen(info, shaftlen, zbelow=1) {
+  RecessedScrewCutout(screw_shaft_dia_use(info),
+                     screw_recess_dia_use(info),
+                     shaftlen, zbelow,
+                     screw_recess_depth_allen(info));
+}                               
+
+tests = [
+        screw_info_M2,
+        screw_info_M3,
+        screw_info_M4,
+        screw_info_M5,
+        screw_info_M6
+        ];
+
+function Test_blocksz(t) = screw_recess_dia_use(t) + 7;
+
+module OneTestCore(t, h, ymul){
+  blocksz = Test_blocksz(t);
+  translate([0, blocksz*ymul*0.5 - 1.5, 0]) {
+    difference(){
+      translate([-blocksz/2, -blocksz/2, 0])
+       cube([blocksz, blocksz, h]);
+      child();
+    }
   }
 }
 
-module Test(){
-  difference(){
-    translate([-cubexy/2, -cubexy/2, 0])
-      cube([cubexy,cubexy,cubez]);
-    Hole();
+module OneTest(t){
+  h = RecessedScrewCutoutStandard_totaldepth(t);
+  ha = RecessedScrewCutoutStandardAllen_totaldepth(t);
+  OneTestCore(t, h, 1){
+    RecessedScrewCutoutStandard(t, h+1);
+  }
+//  OneTestCore(t, ha){
+//    RecessedScrewCutoutStandardAllen(t, ha+1);
+//  }
+}
+
+function Test_x(i) = i<=0 ? 0 :
+  Test_x(i-1) + Test_blocksz(tests[i-1])/2 + Test_blocksz(tests[i])/2 - 3;
+
+module Tests(){
+  for (i = [0:len(tests)-1]) {
+    echo(i, Test_x(i));
+    translate([Test_x(i), 0, 0])
+      OneTest(tests[i]);
   }
 }
 
-Test();
+//OneTest(tests[1]);
+Tests();
 //Hole();
+//Holes();