X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=reprap-play.git;a=blobdiff_plain;f=dovecliptest.scad;h=e7e075ca87f7ec4160f3bb558b1066182e3e08eb;hp=221e8672bd19f6c99c2c5e4433edd6bfda4a2561;hb=08d58c92fa517c6a62ed31af40182cc135c9c6db;hpb=e68455bc770900206d1dfa57eb22e560b9bad2ad

diff --git a/dovecliptest.scad b/dovecliptest.scad
index 221e867..e7e075c 100644
--- a/dovecliptest.scad
+++ b/dovecliptest.scad
@@ -1,28 +1,15 @@
-toothheight = 1.2;
-webthick = 1.8;
-height = 7;
-pindepth = 10;
-nomrad = height/2 - toothheight;
-minrad = nomrad - 0.5;
-maxrad = nomrad + 0.5;
+// -*- C -*-
 
-webgap = 0.4;
+include <doveclip.scad>
 
-toothgap = webthick + webgap*2;
+for (y=[0,-15]) translate([0,y,0]) {
+  DoveClipPair();
 
-module DoveClipPin() {
-  intersection(){
-    union(){
-      for (m=[0,1]) {
-	mirror([0,0,m]) translate([0,0,height/2]) rotate([90,0,0])
-	  cylinder($fn=20, r1=minrad, r2=maxrad, h=pindepth);
-      }
-      translate([-webthick/2, -pindepth, -height/2-1])
-	cube([webthick, pindepth, height+2]);
-    }
-    translate([-maxrad-1, -pindepth-1, -height/2])
-      cube([maxrad*2+2, pindepth+2, height]);
-  }
+  translate([-8,0,0])
+    cube([16,5,7]);
+  translate([15,0,0])
+    DoveClipPin();
 }
 
-DoveClipPin();
+translate([0,20,0])
+  DoveClipPairBase();