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=7191206edf101307b9a7321b510d80554623cb43;hp=73f2e047fad0c64f8185ac5330ee13b7a6136b69;hb=bd06849c442d97cd951fe11ebdf0341944f80629;hpb=7f927ed47cff21e4ca4708a4bd0494016daf72d2

diff --git a/pattress-boxes-3-cover.scad b/pattress-boxes-3-cover.scad
index 73f2e04..7191206 100644
--- a/pattress-boxes-3-cover.scad
+++ b/pattress-boxes-3-cover.scad
@@ -4,7 +4,7 @@ patbox_side = 87;
 patbox_centres = 60.3;
 
 lid_thinboxbase_overlap = 5;
-lid_fatbox_overlap = 5;
+lid_fatbox_overlap = 12;
 
 lid_thinbox_h = 9;
 lid_fatbox_h = 24;
@@ -20,6 +20,19 @@ lid_top_wall = 1.5;
 lid_front_wall = 1.5;
 lid_side_wall = 1.5;
 
+peg_engage_depth = 1;
+peg_engage_dia = 6.5;
+peg_main_dia = 9;
+peg_max_dia = 15;
+peg_inner_dia = 3.5;
+peg_top_thick = 1;
+peg_straight_len = 3;
+
+peg_inner_slop = 0.2;
+peg_outer_slop = 0.1;
+
+peg_slope = 1;
+
 lid_side_slop = 0.5;
 
 // computed
@@ -30,7 +43,7 @@ lid_inner_min_h = lid_fatbox_overlap + lid_fatbox_switches_h;
 
 lid_inner_kink = [thinbox_len, thinbox_len*2];
 
-lid_inner_w = patbox_side + lid_side_slop;
+lid_inner_w = patbox_side + lid_side_slop * 2;
 
 lid_rail_w = (lid_inner_w - lid_max_switches_w)/2 - lid_switches_y_slop;
 
@@ -38,6 +51,10 @@ lid_rail_h = lid_fatbox_switches_h;
 
 echo(lid_rail_w);
 
+peg_main_height = peg_straight_len + (peg_max_dia - peg_main_dia)/2/peg_slope;
+
+echo(peg_main_height);
+
 module LidSideProfile(){
   polygon([[-lid_top_wall,     lid_inner_max_h],
 	   [lid_inner_kink[0], lid_inner_max_h],
@@ -50,15 +67,74 @@ module LidSideProfile(){
 module LidSide(){
   overlap = [0.1, 0.1, 0.1];
 
+  // main side profile
   rotate([90,0,0])
     linear_extrude(height= lid_side_wall)
     LidSideProfile();
 
+  // rail
   translate(-overlap)
     cube(overlap + [total_len, lid_rail_w, lid_rail_h]);
 
+  // lid front
   translate([-0.1, -0.1, -lid_front_wall])
     cube([total_len+0.1, lid_inner_w/2 + 0.2, lid_front_wall]);
+
+  // lid top
+  translate([-lid_top_wall, -lid_side_wall, -lid_front_wall])
+    cube([lid_top_wall, lid_inner_w/2 + 10, lid_front_wall + lid_inner_max_h]);
+}
+
+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]]);
+}
+
+module Peg(){
+  rotate_extrude($fn=50)
+    rotate([0,0,-90])
+    PegProfile();
+}
+
+module AtFixingCentres(){
+  for (fc=[-1,+1]) {
+    translate([patbox_side/2 + fc*patbox_centres/2,
+	       patbox_side/2,
+	       0])
+      children();
+  }
+}
+
+module TopPattressBox(){
+  difference(){
+    translate([0,0, -lid_thinbox_h])
+      cube([patbox_side, patbox_side, lid_thinbox_h]);
+    AtFixingCentres(){
+      translate([0,0,-10]) cylinder(r=peg_engage_dia/2, h=20);
+    }
+  }
+}
+
+module Demo(){
+  translate([0, -lid_inner_w/2, 0]) LidSide();
+  translate([0,0, lid_fatbox_h])
+    rotate([0,180,0]) translate([0, -patbox_side/2, 0])
+    rotate([0,0,90]) union(){
+      %TopPattressBox();
+      color("blue") AtFixingCentres(){
+	rotate([180,0,0]) Peg();
+      }
+  }
 }
 
-LidSide();
+//LidSide();
+//PegProfile();
+//Peg();
+//TopPattressBox();
+Demo();