nook-case.scad

   1 // -*- C -*-
   2
   3 include <utils.scad>
   4
   5 nook_th = 12.41 + 0.50;
   6 nook_w = 127.12 + 0.75;
   7 nook_h = 123.44 + 21.88 + 21.05 + 0.75;
   8
   9 nook_cnr_rad = 10;
  10
  11 case_th = 2.5;
  12 ledge_w = 4;
  13 tape_th = 1.75;
  14 tape_inside = 2.0;
  15
  16 gap = 0.5 * [1,1];
  17
  18 tape_w = 15;
  19
  20 test_pillar = 4;
  21
  22 engage_l0 = 10;
  23 engage_l1 = 10;
  24 engage_l2 = 3;
  25
  26 tooth_inward = gap[0] * 1.0;
  27 tooth_x = nook_w * 1/6;
  28 tooth_w = 15;
  29
  30 $test = false;
  31
  32 // calculated
  33
  34 tooth_height = nook_th;
  35 ledge_h = case_th;
  36 lid_th = case_th;
  37 tooth_th = case_th;
  38
  39 spp0 = [0,0];
  40 spp1 = spp0 + case_th * [-1,0];
  41 spp9 = spp0 + ledge_h * [0,-1];
  42 spp8 = spp9 + nook_th * [0,-1];
  43 spp7 = spp8 + case_th * [-1,-1];
  44
  45 spp11y = spp1[1] - tape_th;
  46 spp4y  = 0.5 * (spp0[1] + spp7[1]);
  47 spp3y = spp4y + tape_inside/2;  spp5y = spp4y - tape_inside/2;
  48 spp2y = spp3y + tape_th;        spp6y = spp5y - tape_th;
  49
  50 spp20 = spp8 + nook_cnr_rad * [1,0];
  51 spp20x = spp20[0];
  52
  53 tppA = spp0 + gap;
  54 tppB = spp1 + [0, gap[1]];
  55 tppC = tppB + lid_th * [0,1];
  56 tppD = [ spp20x, tppC[1] ];
  57 tppE = [ spp20x, tppB[1] ];
  58 tppF = tppA + ledge_w * [1,0];
  59 tppG = tppF + ledge_h * [0,-1];
  60 tppH = [ tppA[0], tppG[1] ];
  61
  62 tppJx = tppA[0] + tape_th;
  63
  64 tppK = [ tppC[0], tppG[1] ];
  65 spp31 = tppK - [0, gap[1]];
  66 spp30 = [ spp8[0], spp31[1] ];
  67
  68 nom_cnr = 0.5 * [nook_w, nook_h, 0] - nook_cnr_rad * [1,1,0];
  69
  70 etxa = nom_cnr[0] - engage_l2;
  71 etxb = etxa - engage_l1;
  72 etxc = -(nom_cnr[0] - engage_l2);
  73
  74 tppS = tppB + [-gap[0], 0];
  75 tppP = [ tppS[0] - tooth_th, tppC[1] ];
  76 tppQ = tppP + tooth_height * [0,-1] + tooth_inward * [1,0];
  77 tppR = [ tppS[0] + tooth_inward, tppQ[1] ];
  78 tppM = (tppQ + tppR) * 0.5 + tooth_th * 0.5 * [0,1];
  79
  80 module RightSideMainProfile() {
  81   rectfromto(spp7, spp0);
  82   rectfromto(spp7, spp20);
  83 }
  84
  85 module LeftSideMainProfile() {
  86   rectfromto(spp7, spp30);
  87   rectfromto(spp7, spp20);
  88 }
  89
  90 module TopTapeCutout() {
  91   polygon([ tppA,
  92             tppA + [-40, 0],
  93             tppG + [-40,-1],
  94             [ tppJx, tppH[1]-1 ],
  95             [ tppJx, tppC[1]+1 ],
  96             [ tppA[0], tppC[1]+1 ]]);
  97 }
  98
  99 module RightTopMainProfile() {
 100   l = [ tppA, tppB, tppC, tppD, tppE, tppF, tppG, tppH ];
 101   polygon(l);
 102 }
 103
 104 module LeftTopMainProfile() {
 105   l = [ tppC, tppD, tppE, tppF, tppG, tppK ];
 106   polygon(l);
 107 }
 108
 109 module SideTapeCutout1(y0,y1) {
 110   rectfromto([ spp7[0]-1, y0 ],
 111              [ spp8[0]+1, y1 ]);
 112 }
 113
 114 module SideTapeCutout() {
 115   SideTapeCutout1(spp6y, spp5y);
 116   SideTapeCutout1(spp3y, spp2y);
 117   SideTapeCutout1(spp3y, spp2y);
 118   SideTapeCutout1(spp11y, spp1[1] + 1);
 119 }
 120
 121 module ToothProfile(){
 122   polygon([tppA,
 123            tppB,
 124            tppS + [-0.1,0],
 125            tppP,
 126            tppC]);
 127   hull(){
 128     polygon([tppP,
 129              tppM,
 130              tppS]);
 131     translate(tppM)
 132       circle(r= tooth_th/2, $fa=3, $fs=0.1);
 133   }
 134 }
 135
 136 module Demo(){ ////toplevel
 137   translate([0,0,-2]) LeftSideMainProfile();
 138   translate([0,0,-2]) color("yellow") LeftTopMainProfile();
 139   color("red") difference(){
 140     LeftSideMainProfile();
 141     SideTapeCutout();
 142   }
 143   translate([0,0,0]) color("purple") difference(){
 144     LeftTopMainProfile();
 145     TopTapeCutout();
 146   }
 147   translate([nook_cnr_rad*2 + 5, 0,0]) mirror([1,0,0]) {
 148     color("red") RightSideMainProfile();
 149     color("purple") RightTopMainProfile();
 150     color("grey") translate([0,0,-2]) ToothProfile();
 151   }
 152   //%SideTapeCutout();
 153 }
 154
 155 module FaceCore(z0,z1, extra_left, extra_right){
 156   for (mx=[0,1]) mirror([mx,0,0]) {
 157       for (my=[0,1]) mirror([0,my,0]) {
 158           translate(-nom_cnr) {
 159             rotate_extrude(angle=90, convexity=10)
 160               translate(-[1,0,0] * nook_cnr_rad)
 161               children(mx);
 162           }
 163         }
 164       translate([nook_w/2, 0,0])
 165         linextr_y_xz(-nom_cnr[1]-0.1, nom_cnr[1]+0.1)
 166         children(1-mx);
 167     }
 168   for (my=[0,1]) mirror([0,my,0]) {
 169       translate([0, -nook_h/2, 0]) {
 170         linextr_x_yz(-nom_cnr[0]-0.1,    etxc + extra_left)  children(0);
 171         linextr_x_yz(etxc - extra_right, etxb + extra_right) children(1);
 172         linextr_x_yz(etxb - extra_left,  etxa + extra_left)  children(0);
 173         linextr_x_yz(etxa - extra_right, nom_cnr[0]+0.1)     children(1);
 174       }
 175     }
 176   if (!$test) {
 177     linextr(z0,z1)
 178       rectfromto(-nom_cnr, nom_cnr);
 179   }
 180 }
 181
 182 module Base(){ ////toplevel
 183   FaceCore(spp7[1],spp8[1], 0.3, 0) {
 184     LeftSideMainProfile();
 185     RightSideMainProfile();
 186   }
 187 }
 188
 189 module Top(){ ////toplevel
 190   FaceCore(tppE[1],tppD[1], -gap[0], gap[0] + 0.3) {
 191     LeftTopMainProfile();
 192     RightTopMainProfile();
 193   }
 194   translate([tooth_x, nook_h/2, 0])
 195     linextr_x_yz(-tooth_w/2, +tooth_w/2)
 196     mirror([1,0])
 197     ToothProfile();
 198 }
 199
 200 module TestExtrude(){
 201   difference(){
 202     linextr_y_xz(-test_pillar, tape_w+test_pillar) children(0);
 203     linextr_y_xz(           0, tape_w            ) children(1);
 204   }
 205 }
 206
 207 module TestSide(){ ////toplevel
 208   TestExtrude() { LeftSideMainProfile(); SideTapeCutout(); }
 209 }
 210
 211 module TestTop(){ ////toplevel
 212   TestExtrude() { LeftTopMainProfile(); TopTapeCutout(); }
 213 }
 214 module TestTopPrint(){ ////toplevel
 215   rotate([180,0,0]) TestTop();
 216 }