pattress-boxes-3-cover.scad

   1 // -*- C -*-
   2
   3 patbox_side = 87;
   4 patbox_centres = 60.3;
   5
   6 lid_thinboxbase_overlap = 5;
   7 lid_fatbox_overlap = 12;
   8
   9 lid_thinbox_h = 9;
  10 lid_fatbox_h = 24;
  11 lid_fatbox_switches_h = 6+2;
  12
  13 lid_max_switches_w = 70;
  14 lid_switches_y_slop = 3;
  15
  16 total_len = 260;
  17 thinbox_len = 87;
  18
  19 lid_top_wall = 1.5;
  20 lid_front_wall = 1.5;
  21 lid_side_wall = 1.5;
  22
  23 peg_engage_depth = 1;
  24 peg_engage_dia = 6.5;
  25 peg_main_dia = 9;
  26 peg_max_dia = 15;
  27 peg_inner_dia = 3.5;
  28 peg_top_thick = 1;
  29 peg_straight_len = 3;
  30
  31 peg_inner_slop = 0.2;
  32 peg_outer_slop = 0.1;
  33
  34 peg_slope = 1;
  35
  36 lid_side_slop = 0.5;
  37 lid_rail_behindslop = 0.5;
  38
  39 // computed
  40
  41 lid_inner_max_h =
  42   lid_thinboxbase_overlap + lid_fatbox_h + lid_fatbox_switches_h;
  43 lid_inner_min_h = lid_fatbox_overlap + lid_fatbox_switches_h;
  44
  45 lid_inner_kink = [thinbox_len, thinbox_len*2];
  46
  47 lid_inner_w = patbox_side + lid_side_slop * 2;
  48
  49 lid_seatline_w = (lid_inner_w - lid_max_switches_w)/2 - lid_switches_y_slop;
  50
  51 lid_seatline_h = lid_fatbox_switches_h;
  52
  53 echo(lid_seatline_w);
  54
  55 peg_main_height = peg_straight_len + (peg_max_dia - peg_main_dia)/2/peg_slope;
  56
  57 echo(peg_main_height);
  58
  59 module LidSideProfile(){
  60   polygon([[-lid_top_wall,     lid_inner_max_h],
  61            [lid_inner_kink[0], lid_inner_max_h],
  62            [lid_inner_kink[1], lid_inner_min_h],
  63            [total_len,         lid_inner_min_h],
  64            [total_len,         -lid_front_wall],
  65            [-lid_top_wall,     -lid_front_wall]]);
  66 }
  67
  68 module RailProfile(){
  69   yt_base = lid_seatline_h + lid_fatbox_h - lid_thinbox_h;
  70   yt = yt_base - lid_rail_behindslop;
  71   pegx = (lid_inner_w - patbox_centres)/2;
  72
  73   polygon([[-0.1,                  yt],
  74            [pegx - peg_main_dia/2, yt],
  75            [pegx - peg_main_dia/2, yt_base - peg_straight_len],
  76            [-0.1,
  77             yt_base - peg_straight_len - (pegx - peg_main_dia/2)/peg_slope
  78            -0.1]]);
  79 }
  80
  81 module LidSide(){
  82   overlap = [0.1, 0.1, 0.1];
  83
  84   // main side profile
  85   rotate([90,0,0])
  86     linear_extrude(height= lid_side_wall)
  87     LidSideProfile();
  88
  89   // seatline
  90   translate(-overlap)
  91     cube(overlap + [total_len, lid_seatline_w, lid_seatline_h]);
  92
  93   // lid front
  94   translate([-0.1, -0.1, -lid_front_wall])
  95     cube([total_len+0.1, lid_inner_w/2 + 0.2, lid_front_wall]);
  96
  97   // lid top
  98   translate([-lid_top_wall, -lid_side_wall, -lid_front_wall])
  99     cube([lid_top_wall, lid_inner_w/2 + 10, lid_front_wall + lid_inner_max_h]);
 100
 101   // rail
 102   rotate([90,0,90])
 103     translate([0,0,-0.1])
 104     linear_extrude(height=100.1) //todo
 105     RailProfile();
 106 }
 107
 108 module PegProfile(){
 109   polygon([[-peg_engage_depth, (peg_engage_dia - peg_outer_slop)/2],
 110            [0,                 (peg_engage_dia - peg_outer_slop)/2],
 111            [0,                 (peg_main_dia - peg_outer_slop)/2],
 112            [peg_straight_len,  (peg_main_dia - peg_outer_slop)/2],
 113            [peg_main_height,   (peg_max_dia - peg_outer_slop)/2],
 114            [peg_main_height+peg_top_thick, (peg_max_dia - peg_outer_slop)/2],
 115            [peg_main_height+peg_top_thick, (peg_inner_dia + peg_inner_slop)/2],
 116            [-peg_engage_depth,  (peg_inner_dia + peg_inner_slop)/2]]);
 117 }
 118
 119 module Peg(){
 120   rotate_extrude($fn=50)
 121     rotate([0,0,-90])
 122     PegProfile();
 123 }
 124
 125 module AtFixingCentres(){
 126   for (fc=[-1,+1]) {
 127     translate([patbox_side/2 + fc*patbox_centres/2,
 128                patbox_side/2,
 129                0])
 130       children();
 131   }
 132 }
 133
 134 module TopPattressBox(){
 135   difference(){
 136     translate([0,0, -lid_thinbox_h])
 137       cube([patbox_side, patbox_side, lid_thinbox_h]);
 138     AtFixingCentres(){
 139       translate([0,0,-10]) cylinder(r=peg_engage_dia/2, h=20);
 140     }
 141   }
 142 }
 143
 144 module Demo(){
 145   translate([0, -lid_inner_w/2, 0]) LidSide();
 146   translate([0,0, lid_fatbox_h])
 147     rotate([0,180,0]) translate([0, -patbox_side/2, 0])
 148     rotate([0,0,90]) union(){
 149       %TopPattressBox();
 150       color("blue") AtFixingCentres(){
 151         rotate([180,0,0]) Peg();
 152       }
 153   }
 154 }
 155
 156 //LidSide();
 157 //PegProfile();
 158 //Peg();
 159 //TopPattressBox();
 160 //RailProfile();
 161 Demo();