screw-recess-test: Allen tests too

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

diff --git a/screw-recess-test.scad b/screw-recess-test.scad
index a5dab4fdf184c5d9a66c0c7abc3ac7433f0969c9..138d6be1f829024f22569cdba0adf6f37a46cc80 100644 (file)
--- a/screw-recess-test.scad
+++ b/screw-recess-test.scad
@@ -80,20 +80,26 @@ tests = [
 
 function Test_blocksz(t) = screw_recess_dia_use(t) + 7;
 
-module OneTestCore(t, h){
+module OneTestCore(t, h, ymul){
   blocksz = Test_blocksz(t);
-  difference(){
-    translate([-blocksz/2, -blocksz/2, 0])
-      cube([blocksz, blocksz, h]);
-    child();
+  translate([0, ymul * (blocksz*0.5 - 1.5), 0]) {
+    difference(){
+      translate([-blocksz/2, -blocksz/2, 0])
+       cube([blocksz, blocksz, h]);
+      child();
+    }
   }
 }
 
 module OneTest(t){
   h = RecessedScrewCutoutStandard_totaldepth(t);
-  OneTestCore(t, h){
+  ha = RecessedScrewCutoutStandardAllen_totaldepth(t);
+  OneTestCore(t, h, 1){
     RecessedScrewCutoutStandard(t, h+1);
   }
+  OneTestCore(t, ha, -1){
+    RecessedScrewCutoutStandardAllen(t, ha+1);
+  }
 }
 
 function Test_x(i) = i<=0 ? 0 :