pattress-boxes-3-cover: make peg slops dynamic variables

[reprap-play.git] / pattress-boxes-3-cover.scad

diff --git a/pattress-boxes-3-cover.scad b/pattress-boxes-3-cover.scad
index 5b8677e901b6f813c85b3c80ba99e1652fa6f0d0..ffd3b012fb477b303b6eb8ed49bbf5bc181b2598 100644 (file)
--- a/pattress-boxes-3-cover.scad
+++ b/pattress-boxes-3-cover.scad
@@ -13,7 +13,7 @@ lid_fatbox_switches_h = 6+2;
 lid_max_switches_w = 70;
 lid_switches_y_slop = 3;
 
-total_len = 260;
+total_len = 80;//260;
 thinbox_len = 87;
 
 rail_overlap = 8;
@@ -30,13 +30,14 @@ 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.1;
 
 peg_slope = 1;
 
 lid_side_slop = 0.5;
 lid_rail_behindslop = 0.5;
+lid_rail_strongwall = 2.5;
 
 // computed
 
@@ -65,8 +66,8 @@ raillen = patbox_side/2 + rail_overlap;
 
 module LidSideProfile(){
   polygon([[-lid_top_wall,     lid_inner_max_h],
-          [lid_inner_kink[0], lid_inner_max_h],
-          [lid_inner_kink[1], lid_inner_min_h],
+          [min(lid_inner_kink[0],total_len), lid_inner_max_h],
+          [min(lid_inner_kink[1],total_len), lid_inner_min_h],
           [total_len,         lid_inner_min_h],
           [total_len,         -lid_front_wall],
           [-lid_top_wall,     -lid_front_wall]]);
@@ -76,13 +77,18 @@ module RailProfile(lslop=0.1){
   yt_base = thinbox_front_z;
   yt = yt_base - lid_rail_behindslop;
   pegx = (lid_inner_w_nom - patbox_centres)/2;
+  sw = lid_rail_strongwall;
   
   polygon([[-lslop,                  yt],
           [pegx - peg_main_dia/2, yt],
           [pegx - peg_main_dia/2, yt_base - peg_straight_len],
-          [-lslop,
+          [sw,
            yt_base - peg_straight_len - (pegx - peg_main_dia/2)/peg_slope
-          -0.1]]);
+           +sw],
+          [sw,
+           lid_seatline_h - 1],
+          [-lslop,
+           lid_seatline_h - 1]]);
 }
 
 module LidSide(){
@@ -121,24 +127,24 @@ module LidSide(){
     }
 }
 
-module Lid(){
+module Lid(){ ////toplevel
   for (m=[0,1])
     mirror([0,m,0])
       translate([0, -lid_inner_w/2, 0]) LidSide();
 }
 
 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)/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(){
+module Peg(){ ////toplevel
   rotate_extrude($fn=50)
     rotate([0,0,-90])
     PegProfile();
@@ -180,4 +186,5 @@ module Demo(){
 //Peg();
 //TopPattressBox();
 //RailProfile();
-Demo();
+//Demo();
+//Lid();