ksafe-base: toplevels

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

diff --git a/screw-recess-test.scad b/screw-recess-test.scad
index 2e6a96e5b8f4d4ec3b39d77b1e040b974de794c5..09eb0766763886f3a72d03842620de06e41c211b 100644 (file)
--- a/screw-recess-test.scad
+++ b/screw-recess-test.scad
@@ -1,9 +1,5 @@
 // -*- C -*-
 
 // -*- C -*-
 

-cubez = 12;
-
-shaftz = cubez;
-

 module RecessScrewCutout_RecessCylinder(recessdia,zbelow, h){
   translate([0,0,-zbelow]) 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);
 }


@@ -38,36 +34,89 @@ module RecessedScrewCutout(shaftdia, recessdia, shaftlen,
   }
 }
 
   }
 }
 

-//        shaftdia  recessdia
-tests = [[2 + 0.5,   4 + 1.0,   4, -4 ],
-        [3 + 0.5,   6 + 1.0,   0, 10 ],
-        [4 + 0.5,   8 + 1.0,   0, 25 ],
-        [5 + 0.5,  10 + 1.0,  17,  4 ],
-        [6 + 0.5,  12 + 1.0,  17, 20 ]];
+//              nom.   shaft
+//              shaft   slop
+screw_info_M2   = [2,   1.2];
+screw_info_M3   = [3,   1.2];
+screw_info_M4   = [4,   1.1];
+screw_info_M5   = [5,   1.0];
+screw_info_M6   = [6,   1.2];
+
+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.50 + 1.0;
+function screw_recess_depth(info)       = info[0] * 1.00 + 0.50;
+function screw_recess_depth_allen(info) = info[0] * 1.55 + 0.50;
+
+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));
+}                               

 
 

-last_test = tests[len(tests)-1];
+module RecessedScrewCutoutStandardAllen(info, shaftlen, zbelow=1) {
+  RecessedScrewCutout(screw_shaft_dia_use(info),
+                     screw_recess_dia_use(info),
+                     shaftlen, zbelow,
+                     screw_recess_depth_allen(info));
+}                               

 
 

-blockminx = -5;
-blockminy = -5;
-blockmaxx = 25;
-blockmaxy = 20;
+tests = [
+        screw_info_M2,
+        screw_info_M3,
+        screw_info_M4,
+        screw_info_M5,
+        screw_info_M6
+        ];

 
 

-cubexy = 20;
+function Test_blocksz(t) = screw_recess_dia_use(t) + 7;
+
+module OneTestCore(t, h, ymul, labelnumber=false){
+  blocksz = Test_blocksz(t);
+  translate([0, ymul * (blocksz*0.5 - 1.5), 0]) {
+    difference(){
+      translate([-blocksz/2, -blocksz/2, 0])
+       cube([blocksz, blocksz, h]);
+      child();
+    }
+    if (labelnumber) {
+      rotate([90,0,0])
+       translate([-blocksz/4,blocksz/5, blocksz/2-1])
+       linear_extrude(height=0.3+1)
+      import(file=str("screw-recess-test-number-s",t[0],".dxf"), convexity=100);
+    }
+  }
+}

 
 module OneTest(t){
 
 module OneTest(t){

-  blocksz = t[1] + 7;
-  h = RecessedScrewCutout_totaldepth(t[1]) + 3;
-  difference(){
-    translate([-blocksz/2, -blocksz/2, 0])
-      cube([blocksz, blocksz, h]);
-    RecessedScrewCutout(t[0],t[1], h+1);
+  h = RecessedScrewCutoutStandard_totaldepth(t) + 3;
+  ha = RecessedScrewCutoutStandardAllen_totaldepth(t) + 3;
+  OneTestCore(t, h, 1){
+    RecessedScrewCutoutStandard(t, h+1);
+  }
+  OneTestCore(t, ha, -1, true){
+    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(){
 module Tests(){

-  for (t = tests)
-    translate([t[2], t[3], 0])
-      OneTest(t);
+  for (i = [0:len(tests)-1]) {
+    echo(i, Test_x(i));
+    translate([Test_x(i), 0, 0])
+      OneTest(tests[i]);
+  }

 }
 
 //OneTest(tests[1]);
 }
 
 //OneTest(tests[1]);