toolbox-inserts: actual screw threads

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>

diff --git a/toolbox-inserts-coarse.scad b/toolbox-inserts-coarse.scad
index 9069ce05169756855d3d9fd580e0ad1a9cdb07ab..652fc95937b282331caad329e62341dd45a61353 100644 (file)
--- a/toolbox-inserts-coarse.scad
+++ b/toolbox-inserts-coarse.scad
@@ -5,3 +5,4 @@ include <toolbox-inserts.scad>
 
 $fa = 20;
 $fs = 2;
+$screw_test = true;

diff --git a/toolbox-inserts.scad b/toolbox-inserts.scad
index 5cf5917bbe3b623ab557b5e738d1b98df24a81ab..e0fa112ec2c8e67591d202c823760b09465acf5d 100644 (file)
--- a/toolbox-inserts.scad
+++ b/toolbox-inserts.scad
@@ -1,6 +1,7 @@
 // -*- C -*-
 
 include <utils.scad>
+include <threads.scad>
 
 box_y = 149.4 - 0.5;
 box_x = 309.2 - 0.5;
@@ -14,6 +15,7 @@ below_plane_z = 4.5;
 fixing_pitch = 10;
 fixing_depth = 6;
 fixing_nom_d = 4;
+fixing_thread_pitch = 0.5; // M4
 
 fixing_receptacle_d = 4 + 2.5 + 2.5;
 
@@ -27,6 +29,7 @@ driver_handle_handle_d = 21.6 + 0.75;
 
 $fs = 0.1;
 $fa = 3;
+$screw_test = false;
 
 // calculated
 
@@ -116,6 +119,13 @@ module WellSurround(
        linextr_x_yz(gap[0], gap[1])
          rectfromto([ -100, well_stiffening_height ], [ 100,100 ]);
       }
+
+      for (hull_group = fixings)
+       AtFixingPositions(hull_group)
+         render()
+         metric_thread(diameter=fixing_nom_d, pitch=fixing_thread_pitch,
+                       length=fixing_depth, internal=true, leadin=3,
+                       test=$screw_test);
     }
 
     linextr(-100, -0.1) square(1000, center=true);