X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=reprap-play.git;a=blobdiff_plain;f=pattress-boxes-3-cover.scad;h=7c1d4b892cf63d56ddcb2d6e9afc36a5b30d1e34;hp=0ffce30f72daec20b8cce9e71ff51088e74ee0a7;hb=9755520a70fa4b32fc1ee8c6e3d6012cdd108a5f;hpb=7c1a2043942b13873f52eb8d2960a7002c5f26cd

diff --git a/pattress-boxes-3-cover.scad b/pattress-boxes-3-cover.scad
index 0ffce30..7c1d4b8 100644
--- a/pattress-boxes-3-cover.scad
+++ b/pattress-boxes-3-cover.scad
@@ -8,12 +8,12 @@ lid_fatbox_overlap = 12;
 
 lid_thinbox_h = 9;
 lid_fatbox_h = 24;
-lid_fatbox_switches_h = 6+2;
+lid_fatbox_switches_h = 6+4;
 
 lid_max_switches_w = 70;
 lid_switches_y_slop = 3;
 
-total_len = 80;//260;
+total_len = 260;
 thinbox_len = 87;
 
 rail_overlap = 8;
@@ -31,7 +31,8 @@ peg_top_thick = 1;
 peg_straight_len = 3;
 
 $peg_inner_slop = 0.75;
-$peg_outer_slop = 0.1;
+$peg_outer_slop = -0.9;
+$peg_outer_slop_engage = 0.1;
 
 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,8 +131,8 @@ module Lid(){ ////toplevel
 }
 
 module PegProfile(){
-  polygon([[-peg_engage_depth, (peg_engage_dia - $peg_outer_slop)/2],
-	   [0,                 (peg_engage_dia - $peg_outer_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],
@@ -145,18 +142,19 @@ module PegProfile(){
 }
 
 module Peg(){ ////toplevel
+  echo($peg_outer_slop_engage);
   rotate_extrude($fn=50)
     rotate([0,0,-90])
     PegProfile();
 }
 
 module Pegs(){ ////toplevel
-  baseslop = $peg_outer_slop;
+  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= baseslop + dslops[i])
+      assign($peg_outer_slop_engage= baseslop + dslops[i])
       Peg();
   }
 }
@@ -200,3 +198,4 @@ module Demo(){
 //RailProfile();
 //Demo();
 //Lid();
+//translate([0,0,-lid_fatbox_switches_h]) Lid();