X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=blobdiff_plain;f=pattress-boxes-3-cover.scad;h=a3c2804e6eb6bd0e3708b47e24ef81b0092df9ea;hb=e7ebfee27e4cc83635766495af52d4454ac3a8ce;hp=998f0f5530508d54afc29a37477a005472b42c9e;hpb=a4e83a033b4a59ca234a55c7de82d7559449e124;p=reprap-play.git

diff --git a/pattress-boxes-3-cover.scad b/pattress-boxes-3-cover.scad
index 998f0f5..a3c2804 100644
--- a/pattress-boxes-3-cover.scad
+++ b/pattress-boxes-3-cover.scad
@@ -34,6 +34,7 @@ peg_outer_slop = 0.1;
 peg_slope = 1;
 
 lid_side_slop = 0.5;
+lid_rail_behindslop = 0.5;
 
 // computed
 
@@ -45,11 +46,11 @@ lid_inner_kink = [thinbox_len, thinbox_len*2];
 
 lid_inner_w = patbox_side + lid_side_slop * 2;
 
-lid_rail_w = (lid_inner_w - lid_max_switches_w)/2 - lid_switches_y_slop;
+lid_seatline_w = (lid_inner_w - lid_max_switches_w)/2 - lid_switches_y_slop;
 
-lid_rail_h = lid_fatbox_switches_h;
+lid_seatline_h = lid_fatbox_switches_h;
 
-echo(lid_rail_w);
+echo(lid_seatline_w);
 
 peg_main_height = peg_straight_len + (peg_max_dia - peg_main_dia)/2/peg_slope;
 
@@ -64,6 +65,19 @@ module LidSideProfile(){
 	   [-lid_top_wall,     -lid_front_wall]]);
 }
 
+module RailProfile(){
+  yt_base = lid_seatline_h + lid_fatbox_h - lid_thinbox_h;
+  yt = yt_base - lid_rail_behindslop;
+  pegx = (lid_inner_w - patbox_centres)/2;
+  
+  polygon([[-0.1,                  yt],
+	   [pegx - peg_main_dia/2, yt],
+	   [pegx - peg_main_dia/2, yt_base - peg_straight_len],
+	   [-0.1,
+	    yt_base - peg_straight_len - (pegx - peg_main_dia/2)/peg_slope
+	   -0.1]]);
+}
+
 module LidSide(){
   overlap = [0.1, 0.1, 0.1];
 
@@ -72,9 +86,9 @@ module LidSide(){
     linear_extrude(height= lid_side_wall)
     LidSideProfile();
 
-  // rail
+  // seatline
   translate(-overlap)
-    cube(overlap + [total_len, lid_rail_w, lid_rail_h]);
+    cube(overlap + [total_len, lid_seatline_w, lid_seatline_h]);
 
   // lid front
   translate([-0.1, -0.1, -lid_front_wall])
@@ -83,6 +97,12 @@ module LidSide(){
   // 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]);
+
+  // rail
+  rotate([90,0,90])
+    translate([0,0,-0.1])
+    linear_extrude(height=100.1) //todo
+    RailProfile();
 }
 
 module PegProfile(){
@@ -127,6 +147,9 @@ module Demo(){
     rotate([0,180,0]) translate([0, -patbox_side/2, 0])
     rotate([0,0,90]) union(){
       %TopPattressBox();
+      color("blue") AtFixingCentres(){
+	rotate([180,0,0]) Peg();
+      }
   }
 }
 
@@ -134,4 +157,5 @@ module Demo(){
 //PegProfile();
 //Peg();
 //TopPattressBox();
+//RailProfile();
 Demo();