From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Tue, 20 May 2025 20:02:46 +0000 (+0100)
Subject: toolbox-inserts: Break out FixingInternalThread
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=commitdiff_plain;h=8fb85605b6fa780c572280dc826756620be5f55e;p=reprap-play.git

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 769acef..f655019 100644
--- 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);