mic-table-clamp: Rename StemBlankPart

[reprap-play.git] / mic-table-clamp.scad

diff --git a/mic-table-clamp.scad b/mic-table-clamp.scad
index e7656079f3aa6fd20195895d23c7ac2f1264d045..eb68c9638f323939713d7c837aab4bcf06dfc60b 100644 (file)
--- a/mic-table-clamp.scad
+++ b/mic-table-clamp.scad
@@ -11,6 +11,9 @@ include <camera-mount.scad>
 
 positive_dia = inch * 3/8. - 0.375;
 positive_l = inch * 1/2.;
+positive_blank_dia = 9.0;
+
+blank_taper = 1.0;
 
 stem_l = 40;
 stem_dia = 12;
@@ -18,7 +21,7 @@ stem_th = 3;
 stem_ceil = 2;
 stem_base_th  = 4;
 stem_base_dia = 25;
-stem_inner_l = 30;
+stem_inner_l = 15;
 
 thread_nom = 8;
 thread_pitch = 1.25;
@@ -71,11 +74,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 +88,27 @@ 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 StemBlankPart(){
+    hull(){
+      cylinder(h = positive_l + 0.1 - blank_taper,
+              r = positive_blank_dia/2);
+      cylinder(h = positive_l + 0.1,
+              r = positive_blank_dia/2 - blank_taper);
+    }
+}
+
+module BlankStem(){ ////toplevel
+  StemWith()
+    StemBlankPart();
 }
 
 module Wingnut(){ ////toplevel
@@ -190,7 +212,7 @@ module ClampBot(){ ////toplevel
 }
 
 module Demo(){ ////toplevel
-  color("blue") translate([0,0, clamp_top_th+0.5]) Stem();
+  color("blue") translate([0,0, clamp_top_th+0.5]) BlankStem();
   color("red") ClampTop();
   color("grey") translate([0,0, -(clamp_bot_th + 5)]) ClampBot();
   translate([0,0, -(clamp_bot_collar +10)])