X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=reprap-play.git;a=blobdiff_plain;f=mic-table-clamp.scad;h=26de11850f14dafb089d463b7075b325a696a7f0;hp=3d0a9ff9dc09fb6994c96355f8b5ba560ad4543c;hb=916bd585aa4d5c37e2b5326d83c453e110e1ab58;hpb=64801934f97334932a0fa7955ab9b4f97393b4ae

diff --git a/mic-table-clamp.scad b/mic-table-clamp.scad
index 3d0a9ff..26de118 100644
--- a/mic-table-clamp.scad
+++ b/mic-table-clamp.scad
@@ -11,8 +11,9 @@ include <camera-mount.scad>
 
 positive_dia = inch * 3/8. - 0.375;
 positive_l = inch * 1/2.;
-positive_blank_dia = 9.0;
 
+positive_blank_dia = 8.25;
+blank_l = 17;
 blank_taper = 1.0;
 
 stem_l = 40;
@@ -97,13 +98,13 @@ module Stem(){ ////toplevel
 		   length= (positive_l + 0.1) / inch);
 }
 
-module StemBlankPart(){ ////toplevel
-    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 StemBlankPart(){
+  hull(){
+    cylinder(h = blank_l + 0.1 - blank_taper,
+	     r = positive_blank_dia/2);
+    cylinder(h = blank_l + 0.1,
+	     r = positive_blank_dia/2 - blank_taper);
+  }
 }
 
 module BlankStem(){ ////toplevel
@@ -211,6 +212,11 @@ module ClampBot(){ ////toplevel
   }
 }
 
+module StemBlankTest(){ ////toplevel
+  StemBlankPart();
+  linextr(-1.5,0) square(center=true, [10,35]);
+}
+
 module Demo(){ ////toplevel
   color("blue") translate([0,0, clamp_top_th+0.5]) BlankStem();
   color("red") ClampTop();