From 9057d2d3ad1d69f200b8244b8c3c77dbaff3b7f5 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Mon, 11 May 2020 02:00:29 +0100
Subject: [PATCH] mic-table-clamp: Break out StemWith (nfc)

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
---
 mic-table-clamp.scad | 13 +++++++++----
 1 file changed, 9 insertions(+), 4 deletions(-)

diff --git a/mic-table-clamp.scad b/mic-table-clamp.scad
index 564f504..c11ef0b 100644
--- a/mic-table-clamp.scad
+++ b/mic-table-clamp.scad
@@ -71,11 +71,9 @@ module OurThread(l){
 		  test=$test, length=l);
 }
 
-module Stem(){ ////toplevel
+module StemWith(){
   translate([0,0, stem_l -0.1])
-    english_thread(diameter=positive_dia/inch, threads_per_inch=16,
-		   leadin=1, test=$test,
-		   length= (positive_l + 0.1) / inch);
+    children();
 
   difference(){
     union(){
@@ -87,6 +85,13 @@ module Stem(){ ////toplevel
     }
     OurThread(stem_inner_l);
   }
+}  
+
+module Stem(){ ////toplevel
+  StemWith()
+    english_thread(diameter=positive_dia/inch, threads_per_inch=16,
+		   leadin=1, test=$test,
+		   length= (positive_l + 0.1) / inch);
 }
 
 module Wingnut(){ ////toplevel
-- 
2.30.2