screw-recess-test: new tests

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

diff --git a/screw-recess-test.scad b/screw-recess-test.scad
index 50bcd5aee114c3390b032bf0f88dd2cad97455e4..19c7c63c224f6b5b996f57b48bb6c71700278628 100644 (file)
--- a/screw-recess-test.scad
+++ b/screw-recess-test.scad
@@ -4,7 +4,19 @@ cubez = 12;
 
 shaftz = cubez;
 
-tests = [[4 + 0.5,  10 + 1.0]];
+//        shaftdia  recessdia
+tests = [[2 + 0.5,   6 + 1.0,   4, -4 ],
+        [3 + 0.5,   9 + 1.0,   0, 10 ],
+        [4 + 0.5,  10 + 1.0,   0, 25 ],
+        [5 + 0.5,  10 + 1.0,  17,  4 ],
+        [6 + 0.5,  12 + 1.0,  17, 20 ]];
+
+last_test = tests[len(tests)-1];
+
+blockminx = -5;
+blockminy = -5;
+blockmaxx = 25;
+blockmaxy = 20;
 
 cubexy = 20;
 
@@ -15,10 +27,12 @@ module RecessScrewCutout_RecessCylinder(recessdia,zbelow, h){
 RecessedScrewCutout_defaultrecessdepth_flat = -0.35;
 RecessedScrewCutout_defaultrecessdepth_hex = -0.70;
 
-function RecessedScrewCutout_recessdepth(recessdia, recessdepth_arg) =
+function RecessedScrewCutout_recessdepth(recessdia,
+        recessdepth_arg=RecessedScrewCutout_defaultrecessdepth_flat) =
   recessdepth_arg >= 0 ? recessdepth_arg : -recessdepth_arg * recessdia;
 
-function RecessedScrewCutout_totaldepth(recessdia, recessdepth_arg) =
+function RecessedScrewCutout_totaldepth(recessdia,
+        recessdepth_arg=RecessedScrewCutout_defaultrecessdepth_flat) =
   RecessedScrewCutout_recessdepth(recessdia, recessdepth_arg) +
   + 0.5*recessdia + 0.1;
 
@@ -40,18 +54,23 @@ module RecessedScrewCutout(shaftdia, recessdia, shaftlen,
   }
 }
 
-module Test(){
+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);
+module Tests(){
+  for (t = tests)
+    translate([t[2], t[3], 0])
+      OneTest(t);
 }
 
-//Test();
-Hole();
+//OneTest(tests[1]);
+Tests();
+//Hole();
+//Holes();