X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=blobdiff_plain;f=pattress-boxes-3-cover.scad;h=cb31997125560870cec62a78b53e0dfd594b1808;hb=f80c4ba2a4fe2565a6f986d7322ad46a55f5e987;hp=870b614ff711fb75bcd9708baa46e077ab2d5f72;hpb=25b07a899e72470b7c0fa701e9402c30543bb7c4;p=reprap-play.git

diff --git a/pattress-boxes-3-cover.scad b/pattress-boxes-3-cover.scad
index 870b614..cb31997 100644
--- a/pattress-boxes-3-cover.scad
+++ b/pattress-boxes-3-cover.scad
@@ -30,8 +30,9 @@ peg_inner_dia = 3.5;
 peg_top_thick = 1;
 peg_straight_len = 3;
 
-peg_inner_slop = 0.2;
-peg_outer_slop = 0.1;
+$peg_inner_slop = 0.75;
+$peg_outer_slop = -0.9;
+$peg_outer_slop_engage = -0.9;
 
 peg_slope = 1;
 
@@ -54,12 +55,8 @@ lid_seatline_w = (lid_inner_w - lid_max_switches_w)/2 - lid_switches_y_slop;
 
 lid_seatline_h = lid_fatbox_switches_h;
 
-echo(lid_seatline_w);
-
 peg_main_height = peg_straight_len + (peg_max_dia - peg_main_dia)/2/peg_slope;
 
-echo(peg_main_height);
-
 thinbox_front_z = lid_fatbox_switches_h + lid_fatbox_h - lid_thinbox_h;
 
 raillen = patbox_side/2 + rail_overlap;
@@ -134,22 +131,34 @@ module Lid(){ ////toplevel
 }
 
 module PegProfile(){
-  polygon([[-peg_engage_depth, (peg_engage_dia - peg_outer_slop)/2],
-	   [0,                 (peg_engage_dia - peg_outer_slop)/2],
-	   [0,                 (peg_main_dia - peg_outer_slop)/2],
-	   [peg_straight_len,  (peg_main_dia - peg_outer_slop)/2],
-	   [peg_main_height,   (peg_max_dia - peg_outer_slop)/2],
-	   [peg_main_height+peg_top_thick, (peg_max_dia - peg_outer_slop)/2],
-	   [peg_main_height+peg_top_thick, (peg_inner_dia + peg_inner_slop)/2],
-	   [-peg_engage_depth,  (peg_inner_dia + peg_inner_slop)/2]]);
+  polygon([[-peg_engage_depth, (peg_engage_dia - $peg_outer_slop_engage)/2],
+	   [0,                 (peg_engage_dia - $peg_outer_slop_engage)/2],
+	   [0,                 (peg_main_dia - $peg_outer_slop)/2],
+	   [peg_straight_len,  (peg_main_dia - $peg_outer_slop)/2],
+	   [peg_main_height,   (peg_max_dia - $peg_outer_slop)/2],
+	   [peg_main_height+peg_top_thick, (peg_max_dia - $peg_outer_slop)/2],
+	   [peg_main_height+peg_top_thick, (peg_inner_dia + $peg_inner_slop)/2],
+	   [-peg_engage_depth,  (peg_inner_dia + $peg_inner_slop)/2]]);
 }
 
 module Peg(){ ////toplevel
+  echo($peg_outer_slop_engage);
   rotate_extrude($fn=50)
     rotate([0,0,-90])
     PegProfile();
 }
 
+module Pegs(){ ////toplevel
+  baseslop = 0.1;
+  dslops = [0, -0.5, -1.0, -1.5];
+  stride = peg_max_dia + 4;
+  for (i=[0:len(dslops)-1]) {
+    translate([i*stride,0,0])
+      assign($peg_outer_slop_engage= baseslop + dslops[i])
+      Peg();
+  }
+}
+
 module AtFixingCentres(){
   for (fc=[-1,+1]) {
     translate([patbox_side/2 + fc*patbox_centres/2,
@@ -184,6 +193,7 @@ module Demo(){
 //LidSide();
 //PegProfile();
 //Peg();
+//Pegs();
 //TopPattressBox();
 //RailProfile();
 //Demo();