osstest-arm-net-bracket: New tongue

[reprap-play.git] / osstest-arm-net-bracket.scad

diff --git a/osstest-arm-net-bracket.scad b/osstest-arm-net-bracket.scad
index 248e1b21521f789c7fb0615ce4a8e69de42392c6..8d022bd726606e4f17e024f76580ccac0bf4d90f 100644 (file)
--- a/osstest-arm-net-bracket.scad
+++ b/osstest-arm-net-bracket.scad
@@ -2,20 +2,35 @@
 
 holedist = 64;
 tonguewidth = 10;
+tongue2width = 15;
 totaldepth = 26;
+tongue2depth = 35;
 thick = 3;
 tabover = 7;
-tabunder = 20;
+tabunder = 15;
 
 tabside = 7;
 
 tonguethick = 4;
+tongue2thick = 5;
 strapthick = 2;
 strapwidth = 5;
 ridgewidth = 2;
 
 holedia = 3.5;
 
+tongue2x = tongue2width - holedist;
+
+module Tongue(tw,tt,ad){
+  difference(){
+    translate([-tw, 0, 0])
+      cube([tw, ad, tt+strapthick]);
+    for (y=[thick+0.1, ad-ridgewidth-strapwidth])
+      translate([-tw-1, y, tt])
+       cube([tw+2, strapwidth, strapthick+1]);
+  }
+}
+
 module Object(){
   difference(){
     translate([-holedist-tabside, 0, 0])
@@ -25,13 +40,9 @@ module Object(){
        rotate([-90,0,0])
        cylinder(r= holedia/2+0.5, h=thick+2, $fn=20);
   }
-  difference(){
-    translate([-tonguewidth, 0, 0])
-      cube([tonguewidth, totaldepth, tonguethick+strapthick]);
-    for (y=[thick+0.1, totaldepth-ridgewidth-strapwidth])
-      translate([-tonguewidth-1, y, tonguethick])
-       cube([tonguewidth+2, strapwidth, strapthick+1]);
-  }
+  Tongue(tonguewidth,tonguethick,totaldepth);
+  translate([tongue2x,0,0])
+    Tongue(tongue2width,tongue2thick,tongue2depth+thick);
 }
 
 Object();