toolbox-inserts: Break out FixingInternalThread

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

diff --git a/toolbox-inserts.scad b/toolbox-inserts.scad
index 769acefe416d580878ac99289581e57c876ab2d3..f655019832aa997bdb1edb243e882d2bf77e2801 100644 (file)
--- a/toolbox-inserts.scad
+++ b/toolbox-inserts.scad
@@ -122,6 +122,13 @@ function fixing_positions_2row(xmin, xmax) = [
     [ [ x, y ] ]
 ];
 
+module FixingInternalThread(){
+  render()
+    metric_thread(diameter=fixing_thread_d, pitch=fixing_thread_pitch,
+                 length=$fixing_depth, internal=true, leadin=3,
+                 test=$screw_test);
+}
+
 //---------- wells (relating to the -ve space in holders) ----------
 
 module WellSurroundGapElevation(z_bottom_def, z_edge, z_wayhigh, gap) {
@@ -202,10 +209,7 @@ module WellSurround(
 
       for (hull_group = fixings)
        AtFixingPositions(hull_group)
-         render()
-         metric_thread(diameter=fixing_thread_d, pitch=fixing_thread_pitch,
-                       length=$fixing_depth, internal=true, leadin=3,
-                       test=$screw_test);
+         FixingInternalThread();
     }
 
     linextr(-100, 0.01) square(1000, center=true);